      [(headline 2 "Videos")
       (render-videos-list args)]])
 
+

     [(headline 2 "Kategorien")
      (render-categories-list args)]])

(defn- render-video-list-item
  "Renders a video link as list item."
  [{:keys [id name] :as video}]
  (list-item (link (str "videos/" id "/index.html") name)))

      (render-main-glossary args)
      (render-main-word-frame args)]])

(defn- render-categories-list-item
  [{:keys [id name] :as category}]
  (list-item (link (str "categories/" id "/index.html") name)))

(defn- render-categories-list
  [{:keys [categories] :as args}]
  (->> categories
       (into (sorted-set-by (key-comp :name)))
       (map render-categories-list-item)
       (ulist)
       (innerpage "overview" "Übersicht" true)))

(defn render-categories-page
  "Renders the categories main page."
