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

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

  [{:keys [genre-text description library-signature volumes product-number price] :as item}]
  (list-item
   (entry-heading-sexp item)
   (when *show-genre*
     (block (wrap genre-text "Genre: ")))
   (block (wrap description))
   (when library-signature
     (block {:keep-with-previous "always"}
