use pretty formatting on not found page, remove github PR link fixes #54 fixes #27 fixes #23

1 files changed, 20 insertions, 7 deletions

diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj
index f73a12e..bf67f75 100644
--- a/src/pronouns/pages.clj
+++ b/src/pronouns/pages.clj
@@ -120,17 +120,30 @@
       (contact-block)])))
 
 (defn not-found []
-  (str "We couldn't find those pronouns in our database, please ask us to "
-       "add them, or issue a pull request at "
-       "https://github.com/witch-house/pronoun.is/blob/master/resources/pronouns.tab"))
+  (let [title "Pronoun Island: English Language Examples"]
+    (html
+     [:html
+      [:head
+       [:title title]
+       [:meta {:name "viewport" :content "width=device-width"}]
+       [:link {:rel "stylesheet" :href "/pronouns.css"}]]
+      [:body
+       (title-block title)
+      [:div {:class "examples"}
+       [:p [:h2 (str "We couldn't find those pronouns in our database."
+                     "If you think we should have them, please reach out!")]]]
+       (about-block)
+       (contact-block)]])))
 
 (defn pronouns [params pronouns-table]
   (let [path (params :*)
         alts (or (params "or") [])
         pronouns (concat [path] (u/vec-coerce alts))
-        pronoun-declensions (map #(lookup-pronouns (escape-html %)
-                                          pronouns-table)
-                        pronouns)]
-    (if pronoun-declensions
+        pronoun-declensions (filter some? (map #(lookup-pronouns (escape-html %)
+                                                                pronouns-table)
+                                              pronouns))]
+    (println path)
+    (println pronoun-declensions)
+    (if (seq pronoun-declensions)
       (format-pronoun-examples pronoun-declensions)
       (not-found))))