Add mail parser

2020-05-12 19:35:37 +08:00 · 2020-05-12 19:35:37 +08:00 · 42c152b84a
parent 37fc747062
commit 42c152b84a
1 changed files with 6 additions and 0 deletions
--- 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