        [:div#header
         [:img {:src "img/gretel.jpg"}]]
        [:div.content
-        (page-links)
-        (topic-links)
+        (show-page-links)
+        (show-current-topics)
+        (show-topic-links)
         [:div#entries
          "entries!"
          [:div [:a {:href "/"} "go home"]]]]])))

;; view
;; ---------------------

(defn- page-links []
  (let [page-count (+ (quot (:entry-count @lepton) entries-per-page)
                      (if (zero? (rem (:entry-count @lepton) entries-per-page)) 0 1))
        the-links (for [p (range 1 (inc page-count))] [:a {:href (str "/entries/page/" p)
                                                           :key p} p])]
    [:div the-links]))

;; take tf-change! out of this
(defn- topic-filter []
  (letfn [(tf-change! [e]
            (swap! lepton assoc-in [:topic :filter] (-> e .-target .-value))
            (let [all-topics (:topics (:topic @lepton))

(def ^:private lepton (atom {:entry-count 40
                             :topic {:topics []
                                     :filter ""
                                     :filtered-topics []
                                     :current #{}}}))

;; ---------------------
;; logic
