 (defn toc [items path to-depth & {:keys [heading?]}]
   (when (map? items)
     [:fo:block {:line-height "150%"}
-     (when heading? (h1 :inhalt))
+     (when heading? (heading :h1 :inhalt []))
      (keep #(toc-entry (% items) (conj path %) to-depth) (order (keys items)))]))
 
 (def wrap (layout/wrapper ""))


(defn genre-sexp [items fmt genre]
  (when-let [items (genre items)]
    [(h2 fmt genre)
     (set-marker (layout/translations genre))
     (cond
       (#{:kinder-und-jugendbücher} genre) (subgenres-sexp items fmt genre)


(defn format-sexp [items fmt]
  (when-let [items (fmt items)]
    [(heading :h1 fmt [fmt])
     (toc items [fmt] 3)
     (set-marker (layout/translations fmt))
     (case fmt
