    {:keys [show-genre?] :or {show-genre? true}}]
   (list-item
    (entry-heading-sexp item)
-   (block (wrap source-publisher))
-   (when show-genre?
-     (block (wrap genre-text)))
-   (block (wrap description))
-   (block (wrap game-description))
-   (ausleihe library-signature)))
+   (list-body
+    (block (wrap source-publisher))
+    (when show-genre?
+      (block (wrap genre-text)))
+    (block (wrap description))
+    (block (wrap game-description))
+    (ausleihe library-signature))))
 
 (defmethod entry-sexp :musiknoten
   [{:keys [description producer-brief library-signature product-number price] :as item} opts]
   (list-item
    (entry-heading-sexp item)
-   (block (wrap description))
-   (block (wrap producer-brief))
-   (ausleihe-multi library-signature)
-   (verkauf product-number price)))
+   (list-body
+    (block (wrap description))
+    (block (wrap producer-brief))
+    (ausleihe-multi library-signature)
+    (verkauf product-number price))))
 
 (defmethod entry-sexp :taktilesbuch
   [{:keys [genre-text description producer-brief library-signature product-number price] :as item}
    {:keys [show-genre?] :or {show-genre? true}}]
   (list-item
    (entry-heading-sexp item)
-   (when show-genre?
-     (block (wrap genre-text "Genre: ")))
-   (block (wrap description))
-   (block (wrap producer-brief))
-   (ausleihe-multi library-signature)
-   (verkauf product-number price)))
+   (list-body
+    (when show-genre?
+      (block (wrap genre-text "Genre: ")))
+    (block (wrap description))
+    (block (wrap producer-brief))
+    (ausleihe-multi library-signature)
+    (verkauf product-number price))))
 
 (defn entries-sexp [items opts]
-  [:fo:list-block
+  [:fo:block {:role "L"}
    (map #(entry-sexp % opts) items)])
 
 (defn- level-to-h [level]

    (block {:keep-with-previous.within-column "always"}
           (bold "Verkauf:") " " price ". " (layout/braille-signatures product-number))))

(defmulti entry-sexp (fn [{fmt :format} opts] fmt))

(defmethod entry-sexp :hörbuch

(defmulti entry-heading-sexp (fn [{fmt :format}] fmt))
(defmethod entry-heading-sexp :ludo
  [{:keys [creator record-id title subtitles]}]
  (block {:keep-with-next.within-column "always" :role "Lbl"}
         (bold (link-to-online-catalog record-id (layout/periodify title)))
         (when subtitles " ")
         (layout/render-subtitles subtitles)
