 
 (defn render-front-page
     "Render front page of this application."
-    [word user-name search-results sources message url-prefix title emender-page mode]
+    [word user-name search-results sources-map message url-prefix title emender-page mode]
     (println user-name)
     (println url-prefix)
     (println title)
     (println mode)
+    (println (first search-results))
     (page/xhtml
         (render-html-header word url-prefix title)
         [:body

        ]
        [:br]
        [:br]
        (form/form-to [:post (str url-prefix "add-word-to-glossary")]
                [:table {:style "border-collapse: separate; border-spacing: 10px;"}
                    [:tr [:td [:div {:class "_label _label-primary"} "New word:"]]

                :whitelist    (render-front-page-for-whitelist word url-prefix emender-page mode)
                :blacklist    (render-front-page-for-blacklist word url-prefix emender-page mode)
                :atomic-typos (render-front-page-for-atomic-typos word url-prefix emender-page mode)
                :glossary     (render-front-page-for-glossary word url-prefix emender-page mode sources-map)
                )
                
                (if message
