 (defn format-sexp [items fmt level]
   (when-let [items (fmt items)]
     [(heading (level-to-h level) fmt [fmt])
-     (toc items [fmt] 3 3)
+     (toc items [fmt] 2)
      (set-marker (layout/translations fmt))
      (case fmt
        (:hörfilm :ludo) (entries-sexp items)

    (header :verso)

    [:fo:flow {:flow-name "xsl-region-body"}
     (toc items [] 1 2 :heading? true)
     (block {:break-before "odd-page"}) ;; the very first format should start on recto
     (mapcat #(format-sexp items % 1) (order (keys items)))]]])



      (let [subitems (get items fmt)]
        [:fo:flow {:flow-name "xsl-region-body"}
         (toc subitems [fmt] 2 :heading? true :editorial? true :single-recommendation? true)
         (heading :h1 :editorial [fmt :editorial])
         (md-to-fop (slurp "/home/eglic/src/catalog/samples/editorial.md"))
         (heading :h1 :recommendation [fmt :recommendation])
