diff options
| author | Morgan Astra <m@morganastra.me> | 2016-01-23 15:55:21 -0800 |
|---|---|---|
| committer | Morgan Astra <m@morganastra.me> | 2016-01-23 15:55:21 -0800 |
| commit | e5a03f52603a815e5308ce901e88cc662a8c0017 (patch) | |
| tree | fd1656a160d2d470e65924bcaeeb92c2c79e5d6c /src | |
| parent | d7c898afbafebd608fd14ee2c27e98f44fec0415 (diff) | |
html-escape path before parsing as pronoun string fixes #28
Diffstat (limited to 'src')
| -rw-r--r-- | src/pronouns/pages.clj | 5 |
1 files changed, 3 insertions, 2 deletions
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)))) |