 (defn- join [& more]
   (->> more
    (remove empty-or-blank?)
-   (string/join newline)))
+   (string/join dos-newline)))
 
 (defmethod entry-str :braille
   [{:keys [creator title subtitles name-of-part source-publisher

(defn- impressum []
  (let [creator (layout/translations :sbs)]
    (string/join
     newline
     ["Herausgeber:"
      creator
      "Grubenstrasse 12"

(defmethod to-text :h3 [{content :content}] (str  content double-newline))
(defmethod to-text :ul [{content :content}] [:list {:type "ul"} content])
(defmethod to-text :li [{content :content}] [:li content])
(defmethod to-text :br [_] dos-newline)
(defmethod to-text :default [{content :content}] content) ; just assume :p

(defn- node? [node]
