    [:fo:page-sequence {:master-reference "main"
                        :language "de"}
     [:fo:flow {:flow-name "xsl-region-body"}
-     [:fo:block {:font-size "26pt"} title]
+     [:fo:block {:font-size "26pt" :font-weight "bold"} title]
      [:fo:block {:space-before "20mm"} date]
      [:fo:block {:space-before "170mm"} creator]]]
    [:fo:page-sequence {:master-reference "main"

(defn toc [items path to-depth & {:keys [heading?]}]
  (when (map? items)
    [:fo:block {:line-height "150%"}
     (when heading? (h1 :inhalt))
     (keep #(toc-entry (% items) (conj path %) to-depth) (order (keys items)))]))

(def wrap (layout/wrapper ""))


(defn format-sexp [items fmt]
  (when-let [items (fmt items)]
    [(heading :h1 fmt [fmt])
     (toc items [fmt] 3)
     (set-marker (layout/translations fmt))
     (case fmt
