   ([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

      :else (entries-sexp items))]))

(defn format-sexp [items fmt level]
  [(heading (level-to-h level) fmt [fmt])
   (toc items [fmt] 2)
   (set-marker (layout/translations fmt))
   (case fmt

  (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
