   ([items fmt genre level]
    (genre-sexp items fmt genre level []))
   ([items fmt genre level numbers]
-   [(heading (level-to-h level) genre [fmt genre] numbers)
+   [(heading (level-to-h level) [fmt genre] numbers)
     (set-marker (layout/translations genre))
     (cond
       ;; handle the special case where the editorial or the recommendations are passed in the tree

    (str (string/join "." numbers) ". ")))

(defn heading
  ([level title path]
   (heading level title path []))
  ([level title path numbers]
   [:fo:block (style level
                     {:id (hash path)})
    (section-numbers numbers)
    (layout/translations title)]))

(def ^:private running-header-class-name "running-header")


  (when (map? items)
    [:fo:block {:line-height "150%"
                :role "TOC"}
     (when heading? (heading :h1 [:inhalt]))
     (map-indexed #(toc-entry (get items %2) (conj path %2) (if numbered? [(inc %1)] []) depth) (order (keys items)))]))

(defn- to-url
