      (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)
-   (when *show-genre*
+  [{: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
-           description producer library-signature] :as item}]
+           description producer library-signature] :as item}
+   {:keys [show-genre?] :or {show-genre? true}}]
   (list-item
    (entry-heading-sexp item)
    (block (wrap personel-text))
    (block (wrap movie_country))
-   (when *show-genre*
+   (when show-genre?
      (block (wrap genre-text)))
    (block (wrap description))
    (block (wrap producer))

  (if (not-empty content)
    (apply #(external-link href %) content)
    (external-link href href)))
(defmethod to-fop :h1 [{content :content} path path-to-numbers]
  (heading :h1 (conj path (string/join content)) path-to-numbers))
(defmethod to-fop :h2 [{content :content} path path-to-numbers]
  (heading :h2 (conj path (string/join content)) path-to-numbers))
(defmethod to-fop :h3 [{content :content} path path-to-numbers]
  (heading :h3 (conj path (string/join content)) path-to-numbers))
(defmethod to-fop :ul [{content :content} _ _] [:fo:list-block content])
(defmethod to-fop :li [{content :content} _ _] (bullet-list content))
(defmethod to-fop :em [{content :content} _ _] (inline {:font-style "italic"} content))

   (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
