From 5f76c92334aa7fb0119b800518e98f67cbcbd9ce Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Mon, 27 Jul 2015 15:14:53 +0200
Subject: [PATCH] Add modules/lib/defuns-web.el

---
 modules/lib/defuns-web.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 modules/lib/defuns-web.el

diff --git a/modules/lib/defuns-web.el b/modules/lib/defuns-web.el
new file mode 100644
index 000000000..e437ca7ab
--- /dev/null
+++ b/modules/lib/defuns-web.el
@@ -0,0 +1,18 @@
+;;; defuns-web.el
+
+;;;###autoload
+(defun narf/web-html-email2mailto (beg end)
+  (interactive "r")
+  (replace-regexp "\\b\\([a-zA-Z0-9._+-%]+@[a-zA-Z0-9-.]+\\.[a-zA-Z]+\\)\\b"
+                  "<a href=\"mailto:\\1\">\\1</a>"
+                  nil beg end))
+
+;;;###autoload
+(defun narf/web-html-url2anchor (beg end)
+  (interactive "r")
+  (replace-regexp "\\bhttps?://.+?\\b"
+                  "<a href=\"\\1\">\\1</a>"
+                  nil beg end))
+
+(provide 'defuns-web)
+;;; defuns-web.el ends here