From 2be8d2cd5e6b29b75aa93108bf738dd2d3b0bb21 Mon Sep 17 00:00:00 2001 From: Erik Osheim Date: Sun, 15 Mar 2015 03:12:03 -0400 Subject: Fix style issues brought up in review. --- src/pronouns/pages.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/pronouns/pages.clj') diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj index eb0253c..1992328 100644 --- a/src/pronouns/pages.clj +++ b/src/pronouns/pages.clj @@ -90,14 +90,14 @@ (take 5 inputs) (u/table-lookup inputs pronouns-table)))) -(defn make-link [pair] - (let [link (str "/" (s/join "/" (second pair))) - label (str (s/join "/" (first pair)))] +(defn make-link [abbrev row] + (let [link (str "/" (s/join "/" row)) + label (s/join "/" abbrev)] [:li [:a {:href link} label]])) (defn front [pronouns-table] (let [abbreviations (u/abbreviate (sort pronouns-table)) - links (map make-link abbreviations) + links (map (fn [entry] (make-link (first entry) (second entry))) abbreviations) title "Pronoun Island"] (html [:html -- cgit