From 1afca666f4f231fb912bd7804dcdf8682e817dab Mon Sep 17 00:00:00 2001 From: Morgan Astra Date: Sun, 7 Aug 2016 03:55:53 -0700 Subject: [PATCH] fix error with single pronoun set --- src/pronouns/pages.clj | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj index 9c42a0a..f73a12e 100644 --- a/src/pronouns/pages.clj +++ b/src/pronouns/pages.clj @@ -75,7 +75,7 @@ (defn format-pronoun-examples - [pronoun-declension alternates] + [pronoun-declensions] (let [title "Pronoun Island: English Language Examples"] (html [:html @@ -85,8 +85,7 @@ [:link {:rel "stylesheet" :href "/pronouns.css"}]] [:body (title-block title) - (apply examples-block pronoun-declension) - (map #(apply examples-block %) alternates) + (map #(apply examples-block %) pronoun-declensions) (about-block) (contact-block)]]))) @@ -127,12 +126,11 @@ (defn pronouns [params pronouns-table] (let [path (params :*) - ors (u/vec-coerce (params "or")) - pronoun-declension (lookup-pronouns (escape-html path) - pronouns-table) - alternates (map #(lookup-pronouns (escape-html %) + alts (or (params "or") []) + pronouns (concat [path] (u/vec-coerce alts)) + pronoun-declensions (map #(lookup-pronouns (escape-html %) pronouns-table) - ors)] - (if pronoun-declension - (format-pronoun-examples pronoun-declension alternates) + pronouns)] + (if pronoun-declensions + (format-pronoun-examples pronoun-declensions) (not-found))))