From e5a03f52603a815e5308ce901e88cc662a8c0017 Mon Sep 17 00:00:00 2001 From: Morgan Astra Date: Sat, 23 Jan 2016 15:55:21 -0800 Subject: [PATCH] html-escape path before parsing as pronoun string fixes #28 --- quickstart.sh | 3 +-- src/pronouns/pages.clj | 5 +++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/quickstart.sh b/quickstart.sh index c50fb02..8969778 100755 --- a/quickstart.sh +++ b/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 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))))