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

ga('create', 'UA-62980400-1', 'auto');
ga('send', 'pageview');"])

(defmulti render-title :type)
(defmethod render-title :default [_] nil)
(defmethod render-title "link" [this]

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

(def head
