 
 (defn ident->str
   [^PersonIdent ident]
-  (hu/escape-html (str (.getName ident) " <" (.getEmailAddress ident) ">")))
+  (escape-html (str (.getName ident) " <" (.getEmailAddress ident) ">")))
 
 (defn clj->html
   [& forms]

          df (doto (DiffFormatter. out)
               (.setRepository repo))
          [old-tree new-tree] (diff-trees repo commit)]
      (for [diff (.scan df old-tree new-tree)]
        (->> (format-diff! out df diff)
             string/split-lines
             (map hu/escape-html)
             (map add-formatting)
             (#(conj % [:br] [:br])))))))


  (:require [clojure.java.io :as io]
            [clojure.string :as string]
            [hiccup.core :as h]
            [nightcode.dialogs :as dialogs]
            [nightcode.editors :as editors]
            [nightcode.shortcuts :as shortcuts]
