From e5a03f52603a815e5308ce901e88cc662a8c0017 Mon Sep 17 00:00:00 2001
From: Morgan Astra <m@morganastra.me>
Date: Sat, 23 Jan 2016 15:55:21 -0800
Subject: html-escape path before parsing as pronoun string fixes #28

---
 src/pronouns/pages.clj | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj
index ae31e0c..3e63437 100644
--- a/src/pronouns/pages.clj
+++ b/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))))
-- 
cgit