html-escape path before parsing as pronoun string fixes #28

quickstart.sh

@@ -1,6 +1,5 @@
 #!/bin/sh
 
-export port=$1
+export PORT=6666
 lein uberjar
-open http://localhost:"$port"/ze/zir
 java -cp target/pronouns-standalone.jar clojure.main -m pronouns.web

src/pronouns/pages.clj

@@ -1,7 +1,8 @@
 (ns pronouns.pages
   (:require [clojure.string :as s]
             [pronouns.util :as u]
-            [hiccup.core :refer :all]))
+            [hiccup.core :refer :all]
+            [hiccup.util :refer [escape-html]]))
 
 (defn wrap-pronoun
   [pronoun]
@@ -121,7 +122,7 @@
        "https://github.com/witch-house/pronoun.is/blob/master/resources/pronouns.tab"))
 
 (defn pronouns [path pronouns-table]
-  (let [pronouns (parse-pronouns-with-lookup path pronouns-table)]
+  (let [pronouns (parse-pronouns-with-lookup (escape-html path) pronouns-table)]
     (if pronouns
       (apply format-pronoun-examples pronouns)
       (not-found))))