DRY up pages definition using minimum-unambiguous-path closes #16 (woo big negative line-count commit thanks @duckinator!)

1 files changed, 5 insertions, 5 deletions

diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj
index 82f1535..7c1e92c 100644
--- a/src/pronouns/pages.clj
+++ b/src/pronouns/pages.clj
@@ -96,14 +96,14 @@
       (take 5 inputs)
       (u/table-lookup inputs pronouns-table))))
 
-(defn make-link [abbrev row]
-  (let [link (str "/" (s/join "/" row))
-        label (s/join "/" abbrev)]
+(defn make-link [path]
+  (let [link (str "/" path)
+        label path]
     [:li [:a {:href link} label]]))
 
 (defn front [pronouns-table]
-  (let [abbreviations (u/abbreviate (sort pronouns-table))
-        links (map (fn [entry] (make-link (first entry) (second entry))) abbreviations)
+  (let [abbreviations (u/abbreviate pronouns-table)
+        links (map make-link abbreviations)
         title "Pronoun Island"]
     (html
      [:html