      :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:")

       (mapcat #(format-sexp (get subitems %) % 1 path-to-numbers false) (keys subitems))])]])

(defn- logo []
  [:fo:block {:space-before "110mm"}
   [:fo:external-graphic
    {:src (io/resource "images/sbs_logo.jpg")
     :height "35mm"

    (let [subitems (get items fmt)]
      [:fo:flow {:flow-name "xsl-region-body"}
       (cover-page ["Hörfilme in der SBS"
                    "Filme mit Audiodeskription"]
                   date)
       (block {:break-before "odd-page"}) ;; toc should start on recto
       (toc subitems [fmt] 1 nil :heading? true)
