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

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

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

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


