From 42c152b84a5d04c52588447b65b2d62f1d576a1f Mon Sep 17 00:00:00 2001
From: Tienson Qin <tiensonqin@gmail.com>
Date: Tue, 12 May 2020 19:35:37 +0800
Subject: [PATCH] Add mail parser

---
 web/src/main/frontend/components/hiccup.cljs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/web/src/main/frontend/components/hiccup.cljs b/web/src/main/frontend/components/hiccup.cljs
index 36b00404d..025139437 100644
--- a/web/src/main/frontend/components/hiccup.cljs
+++ b/web/src/main/frontend/components/hiccup.cljs
@@ -179,6 +179,12 @@
     [:a {:id s} s]
     ;; [:a {:href (str "/page/" (util/url-encode s))} (str "<<<" s ">>>")]
 
+    ["Email" address]
+    (let [{:keys [local_part domain]} address
+          address (str local_part "@" domain)]
+      [:a {:href (str "mainto:" address)}
+       address])
+
     ["Link" link]
     (let [{:keys [url label]} link]
       (match url