            library-signature product-number price] :as item}]
   (list-item
    (entry-heading-sexp item)
-   (block (wrap genre-text "Genre: "))
+   (when *show-genre*
+     (block (wrap genre-text "Genre: ")))
    (block (wrap description))
    (block (wrap producer-brief "" (if rucksackbuch?
                                     (str ", Rucksackbuch Nr. " rucksackbuch-number)

  (list-item
   (entry-heading-sexp item)
   (block (wrap source-publisher))
   (block (wrap genre-text))
   (block (wrap description))
   (block (wrap game-description))
   (ausleihe library-signature)))

           [org.apache.fop.apps FopFactory MimeConstants]))

(def ^:private region-body-margin-top 15)

(def ^:dynamic *show-genre* true)

(defn- to-mm [n]
  (format "%smm" n))
