 
     [:fo:flow {:flow-name "xsl-region-body"}
      (toc items [] 1 {:heading? true})
-     (block {:break-before "odd-page"}) ;; the very first format should start on recto
      (mapcat #(format-sexp (get items %) % 1 {}) (keys items))]]])
 
 (defn document [items fmt editorial recommendations & args]

       ;; Cover page
       [:fo:block (style :h1)
        (format "Neu als Hörbuch Nr. %s/%s" (layout/volume-number date) (layout/year date))]
       (block {:break-before "odd-page"}) ;; toc should start on recto
       (toc subitems [] 3 {:path-to-numbers path-to-numbers :heading? true})
       (block {:break-before "odd-page"}) ;; the very first format should start on recto
       (mapcat #(format-sexp (get subitems %) % 1 {:path-to-numbers path-to-numbers :with-toc? false}) (keys subitems))])]])

(defn- logo []

       (cover-page ["Hörfilme in der SBS"
                    "Filme mit Audiodeskription"]
                   date)
       (toc subitems [fmt] 1 {:heading? true})
       (mapcat #(genre-sexp (get subitems %) fmt % 1 {:show-genre? false}) (keys subitems))])]])

(defmethod document-sexp :ludo
