core.clj

(defn list-all [request]
  (wc/connect!)
  {:status 200
   :body (html [:body
                [:ul
                 (for [[channel urls] (get-all-entries)]
                   [:li channel
                    [:ul (for [url urls]
                           (let [v (escape-html url)]
                             [:li [:a {:href v} v]]))]])]])})