     (let [subitems (get items fmt)]
       [:fo:flow {:flow-name "xsl-region-body"}
        (cover-page ["Hörfilme in der SBS"
-                    "Filme mit Audiodeskription"
-                    "Gesamtkatalog"]
+                    "Filme mit Audiodeskription"]
                    date)
        (block {:break-before "odd-page"}) ;; toc should start on recto
        (toc subitems [fmt] 1 nil :heading? true)

       (mapcat #(format-sexp (get subitems %) % 1 path-to-numbers false) (keys subitems))])]])

(defn- logo []
  [:fo:block {:space-before "110mm"}
   [:fo:external-graphic
    {:src (io/resource "images/sbs_logo.jpg")
     :height "35mm"

     (block "Fax +41 43 333 32 33")
     (block (external-link "http://www.sbs.ch" "www.sbs.ch"))
     (block (external-link "mailto:nutzerservice@sbs.ch" "nutzerservice@sbs.ch"))
     (block {:space-before "5mm"} (format "© %s" creator))]))

(defn- cover-page [titles date]
  [:fo:block-container
   (map #(block (style :h1 {:break-before "auto" :space-after "5pt"}) %) titles)
   (block (style :h2 {:break-before "auto" :space-after "5pt"})
          (format "Gesamtkatalog, Stand 1.1.%s" (layout/year date)))
   (logo)
   (impressum)])

(defmethod document-sexp :hörfilm
  [items fmt _ _ {:keys [description date]
