              [walk :as walk]]
             [endophile.core :as endophile]))
 
-(def ^:private newline "\r\n")
-(def ^:private double-newline (str newline newline))
+(def ^:private dos-newline "\r\n")
+(def ^:private double-newline (str dos-newline dos-newline))
 
 (defmulti to-text (fn [{:keys [tag attrs content]}] tag))
 

(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 [_] newline)
(defmethod to-text :default [{content :content}] content) ; just assume :p

(defn- node? [node]

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