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


(defn wrap-line [text]
  ;; see http://rosettacode.org/wiki/Word_wrap#Clojure
  (string/join newline (re-seq (re-pattern (str ".{1," line-length "}(?:\\s|\\z)")) text)))

(defn- entry-heading-str
  [{:keys [creator title subtitles name-of-part source-publisher source-date]}]

             [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))

