          (md-to-fop (slurp "/home/eglic/src/catalog/samples/editorial.md"))
          (heading :h1 :recommendation [fmt :recommendation])
          (md-to-fop (slurp "/home/eglic/src/catalog/samples/recommendations.md"))
-         (mapcat #(genre-sexp subitems fmt % 1) (order (keys subitems)))])]]))
+         (mapcat #(genre-sexp (get subitems %) fmt % 1) (order (keys subitems)))])]]))
 
 (defmethod document-sexp :hörbuch
   [items fmt {:keys [description date]}]

     (when heading? (heading :h1 :inhalt []))
     (let [entries (-> items keys order
                    (add-extra-headings editorial? recommendation-at-end? single-recommendation?))]
       (keep #(toc-entry (get items %) (conj path %) depth) entries))]))

(defn- to-url
  "Return an url given a `record-id`"

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

(defn document [items fmt & args]
  (-> items
