      :content-width "scale-to-fit"
      :content-height "scale-to-fit"}]])
 
-(defn- impressum [date]
+(defn- impressum []
   (let [creator "SBS Schweizerische Bibliothek für Blinde, Seh- und Lesebehinderte"]
     [:fo:block-container {:space-before "10mm"}
      (block "Herausgeber:")

     (block "Fax +41 43 333 32 33")
     (block (external-link "http://www.sbs.ch" "www.sbs.ch"))
     (block (external-link "mailto:nutzerservice@sbs.ch" "nutzerservice@sbs.ch"))
     (block (format "© %s %s" (layout/year date) creator))]))

(defn- cover-page [titles date]
  [:fo:block-container
   (map #(block (style :h1 {:break-before "auto" :space-after "5pt"}) %)
        (concat titles [(format "Stand 1.1.%s" (layout/year date))]))
   (logo)
   (impressum date)])

(defmethod document-sexp :hörfilm
  [items fmt _ _ {:keys [description date]


    (let [subitems (get items fmt)]
      [:fo:flow {:flow-name "xsl-region-body"}
       (cover-page ["Spiele in der SBS"]
                   date)
       (block {:break-before "odd-page"}) ;; toc should start on recto
       (toc subitems [fmt] 1 nil :heading? true)
       (block {:break-before "odd-page"}) ;; the very first format should start on recto
       (mapcat #(genre-sexp (get subitems %) fmt % 1) (keys subitems))])]])

                   date)
       (block {:break-before "odd-page"}) ;; toc should start on recto
       (toc subitems [fmt] 1 nil :heading? true)
