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

(defn- join [& more]
  (->> more
   (remove empty-or-blank?)
   (string/join newline)))

(defmethod entry-str :braille
  [{:keys [creator title subtitles name-of-part source-publisher

             [walk :as walk]]
            [endophile.core :as endophile]))

(def ^:private dos-newline "\r\n")
(def ^:private double-newline (str dos-newline dos-newline))

(defmulti to-text (fn [{:keys [tag attrs content]}] tag))

