 ga('create', 'UA-62980400-1', 'auto');
 ga('send', 'pageview');"])
 
+(defn prettify [content]
+  (string/replace content #"(\r\n)+" "</p><p>"))
+
 (defmulti render-title :type)
 (defmethod render-title :default [_] nil)
 (defmethod render-title "link" [this]

(ns clojurelive-web.view.common
  (:require [hiccup.page :as h]
            [hiccup.util :as hiccup-util]))

(def head

  [:hr])
(defmethod render-body "text" [this]
  (list
   [:p (prettify (hiccup-util/escape-html (:content this)))]
   [:hr]))
