    {: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]

   {: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 "" (if rucksackbuch?
                                    (str ", Rucksackbuch Nr. " rucksackbuch-number)
                                    "")))
   (ausleihe-multi library-signature)
   (verkauf product-number price)))

(defmethod entry-sexp :grossdruck
  [{:keys [genre-text description library-signature volumes 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))
   (when library-signature
     (block {:keep-with-previous "always"}
            (bold "Ausleihe:") " " library-signature (wrap volumes ", " " Bd. " false)))
   (when product-number
     (block {:keep-with-previous "always"} (bold "Verkauf:") " " price))))

(defmethod entry-sexp :e-book
  [{:keys [genre-text description library-signature] :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))
   (ausleihe library-signature)))

(defmethod entry-sexp :hörfilm
  [{:keys [personel-text movie_country genre-text

   {:keys [show-genre?] :or {show-genre? true}}]
  (list-item
   (entry-heading-sexp item)
   (list-body
    (when show-genre?
      (block (wrap genre-text "Genre: ")))
    (block (wrap description))
    (block (wrap duration "" " Min., " false) (narrators-sexp narrators))
    (block producer-brief (if produced-commercially? ", Hörbuch aus dem Handel" "") ".")
    (ausleihe library-signature)
    (when product-number
      (block {:keep-with-previous "always"} (bold "Verkauf:") " " product-number ", " price)))))

(defmethod entry-sexp :braille
  [{:keys [genre-text description producer-brief rucksackbuch? rucksackbuch-number
