    (verkauf product-number price)))
 
 (defmethod entry-sexp :grossdruck
-  [{:keys [genre-text description library-signature volumes product-number price] :as item}]
-  (list-item
-   (entry-heading-sexp item)
-   (when *show-genre*
+  [{: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


(defmethod entry-sexp :braille
  [{:keys [genre-text description producer-brief rucksackbuch? rucksackbuch-number
           library-signature product-number price] :as item}]
  (list-item
   (entry-heading-sexp item)
   (when *show-genre*
     (block (wrap genre-text "Genre: ")))
   (block (wrap description))
   (block (wrap producer-brief "" (if rucksackbuch?

  (if (not-empty content)
    (apply #(external-link href %) content)
    (external-link href href)))
(defmethod to-fop :h1 [{content :content} path opts]
  (heading :h1 (conj path (string/join content)) opts))
(defmethod to-fop :h2 [{content :content} path opts]
  (heading :h2 (conj path (string/join content)) opts))
(defmethod to-fop :h3 [{content :content} path opts]
  (heading :h3 (conj path (string/join content)) opts))
(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))
