diff options
| author | Morgan Astra <m@morganastra.me> | 2018-11-15 19:07:12 -0800 |
|---|---|---|
| committer | Morgan Astra <m@morganastra.me> | 2018-11-15 19:07:12 -0800 |
| commit | 0581a381ae09b5a09ef97e23abdb38ac9e03c166 (patch) | |
| tree | 7235483e71a125f03e28bfe25cbd58ab3e8c1f9d /src/pronouns/pages.clj | |
| parent | 04d94c8935377e68292f78671428d564395b1641 (diff) | |
Make the pronouns table an atom and add `reload-table!`
This is useful primarily for repl development
Diffstat (limited to 'src/pronouns/pages.clj')
| -rw-r--r-- | src/pronouns/pages.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj index 1226ea9..ac67970 100644 --- a/src/pronouns/pages.clj +++ b/src/pronouns/pages.clj @@ -16,7 +16,7 @@ (ns pronouns.pages (:require [clojure.string :as s] - [pronouns.config :refer [*pronouns-table*]] + [pronouns.config :refer [pronouns-table]] [pronouns.util :as u] [hiccup.core :refer :all] [hiccup.element :as e] @@ -141,7 +141,7 @@ n (count inputs)] (if (>= n 5) (take 5 inputs) - (u/table-lookup inputs *pronouns-table*)))) + (u/table-lookup inputs @pronouns-table)))) (defn make-link [path] (let [link (str "/" path) @@ -149,7 +149,7 @@ [:li (href link label)])) (defn front [] - (let [abbreviations (take 6 (u/abbreviate *pronouns-table*)) + (let [abbreviations (take 6 (u/abbreviate @pronouns-table)) links (map make-link abbreviations) title "Pronoun Island"] (html @@ -168,7 +168,7 @@ (footer-block)]))) (defn all-pronouns [] - (let [abbreviations (u/abbreviate *pronouns-table*) + (let [abbreviations (u/abbreviate @pronouns-table) links (map make-link abbreviations) title "Pronoun Island"] (html |