 (defmulti entry-sexp (fn [{fmt :format}] fmt))
 
 (defmethod entry-sexp :hörbuch
-  [{:keys [creator record-id title subtitles name-of-part source-publisher
-           source-date genre-text description duration narrators producer-brief
-           produced-commercially? library-signature product-number price]}]
-  (list-item
-   (entry-heading-sexp creator record-id title subtitles name-of-part source-publisher source-date)
+  [{:keys [genre-text description duration narrators producer-brief
+           produced-commercially? library-signature product-number price] :as item}]
+  (list-item
+   (entry-heading-sexp item)
    (block (wrap genre-text "Genre: "))
    (block (wrap description))
    (block (wrap duration "" " Min., " false) (narrators-sexp narrators))

   (ausleihe library-signature)))

(defmethod entry-sexp :musiknoten
  [{:keys [creator record-id title subtitles name-of-part source-publisher source-date
           description producer-brief library-signature product-number price]}]
  (list-item
   (entry-heading-sexp creator record-id title subtitles name-of-part source-publisher source-date)
   (block (wrap description))
   (block (wrap producer-brief))
   (ausleihe-multi library-signature)
   (verkauf product-number price)))

(defmethod entry-sexp :taktilesbuch
  [{:keys [creator record-id title subtitles name-of-part source-publisher source-date
           description producer-brief library-signature product-number price]}]
  (list-item
   (entry-heading-sexp creator record-id title subtitles name-of-part source-publisher source-date)
   (block (wrap description))
   (block (wrap producer-brief))
   (ausleihe-multi library-signature)

     (block {:keep-with-previous "always"} (bold "Verkauf:") " " price))))

(defmethod entry-sexp :e-book
  [{:keys [genre-text description library-signature] :as item}]
  (list-item
   (entry-heading-sexp item)
   (block (wrap genre-text "Genre: "))
   (block (wrap description))
   (ausleihe library-signature)))

(defmethod entry-sexp :hörfilm
  [{:keys [directed-by actors movie_country genre-text
           description producer library-signature] :as item}]
  (list-item
   (entry-heading-sexp item)
   (block (wrap directed-by "Regie: " "") (wrap actors " Schauspieler: " ""))
   (block (wrap movie_country))
   (block (wrap genre-text))
