   ))
 
 (defn render-front-page-for-whitelist
+  "Render front page for whitelisted words."
   [word url-prefix emender-page mode]
   [:div {:class "container-fluid"}
    [:div {:class "row"}

   [:br]])

(defn render-front-page-for-glossary
  [word url-prefix emender-page mode sources]
  [:div {:class "container-fluid"}
   [:div {:class "row"}

   [:br]])

(defn yes-no
  "Transformation from 0/1 to 'yes' and 'no' strings."
  [key-name search-results]
  (condp = (get search-results key-name)
    1 "yes"
    0 "no"
      "N/A")) ; fallback

(defn yes-no-with-caution
  "Transformation from 0/1/2 to 'yes', 'no', and 'with caution' strings."
  [key-name search-results]
  (condp = (get search-results key-name)
    1 "yes"
    0 "no"
    2 "with caution"
      "N/A")) ; fallback

(defn get-source
  "Try to retrieve the source from search results."
  [sources-map key-name search-results]
  (let [source (get search-results key-name)]
    (if source
