 
 (defmethod entry-heading-sexp :default
   [{:keys [creator record-id title subtitles name-of-part source-publisher source-date]}]
-  (block {:keep-with-next "always"}
+  (block {:keep-with-next.within-column "always" :role "Lbl"}
          (bold (wrap creator "" ": " false)
                (link-to-online-catalog record-id (layout/periodify title)))
          (when subtitles " ")

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

(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)))

(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)))

(defn entries-sexp [items opts]
  [:fo:list-block
   (map #(entry-sexp % opts) items)])

(defn- level-to-h [level]

      [:fo:inline default args])))

(defn- list-item [& args]
  [:fo:block {:space-after "1em" :role "LI"}
   args])

(defn- bold [& args]
  (inline {:font-weight "bold"} args))
