 
     (let [subitems (get items fmt)]
       [:fo:flow {:flow-name "xsl-region-body"}
-       (cover-page ["Spiele in der SBS" "Gesamtkatalog"]
+       (cover-page ["Spiele in der SBS"]
+                   date)
+       (block {:break-before "odd-page"}) ;; toc should start on recto
+       (toc subitems [fmt] 1 nil :heading? true)
+       (block {:break-before "odd-page"}) ;; the very first format should start on recto
+       (mapcat #(genre-sexp (get subitems %) fmt % 1) (keys subitems))])]])
+
                    date)
        (block {:break-before "odd-page"}) ;; toc should start on recto
        (toc subitems [fmt] 1 nil :heading? true)

     :content-width "scale-to-fit"
     :content-height "scale-to-fit"}]])

(defn- impressum [date]
  (let [creator "SBS Schweizerische Bibliothek für Blinde, Seh- und Lesebehinderte"]
    [:fo:block-container {:space-before "10mm"}
     (block "Herausgeber:")

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