            ;; so that they are displayed in the toc
            (toc [] 3 :heading? true :numbered? true))
        (block {:break-before "odd-page"}) ;; the very first format should start on recto
-       (heading :h1 :editorial [:editorial] [1])
+       (heading :h1 [:editorial] [1])
        (md-to-fop editorial)
-       (heading :h1 :hörbuch [:hörbuch] [2])
+       (heading :h1 [:hörbuch] [2])
        (letfn [(numbered-genre [number genre]
                  (genre-sexp (get subitems genre) fmt genre 2 (add-number [2] number)))]
          (apply concat (map-indexed #(numbered-genre %1 %2) (order (keys subitems)))))
-       (heading :h1 :recommendations [:recommendations] [3])
+       (heading :h1 [:recommendations] [3])
        (md-to-fop recommendations)])]])
 
 (defmethod document-sexp :all-formats

  (keyword (str "h" level)))

(defn subgenre-sexp [items fmt genre subgenre level numbers]
  [(heading (level-to-h level) subgenre [fmt genre subgenre] numbers)
   (when-not (#{:kinder-und-jugendbücher} genre)
     (set-marker (layout/translations subgenre)))
   (entries-sexp items)])

  ([items fmt genre level]
   (genre-sexp items fmt genre level []))
  ([items fmt genre level 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
