       [:fo:flow {:flow-name "xsl-region-body"}
        (cover-page ["Taktile Kinderbücher in der SBS"]
                    date)
-       (block {:break-before "odd-page"}) ;; toc should start on recto
        (toc subitems [fmt] 1 {:heading? true})
-       (block {:break-before "odd-page"}) ;; the very first format should start on recto
        (mapcat #(genre-sexp (get subitems %) fmt % 1 {}) (keys subitems))])]])
 
 (defmethod document-sexp :all-formats


    [: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]

                 ;; if the toc has a heading we assume that it is the
                 ;; first toc. The following content should start on
                 ;; an odd page
                 {:role "NonStruct" :break-after "odd-page" :break-before "odd-page"}
                 {:role "NonStruct"})
     (when heading? (heading :h1 [:inhalt] opts))
     [:fo:block {:line-height "1.5"
