awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add modules/lib/defuns-web.el

Browse Source
This commit is contained in:
Henrik Lissner
2015-07-27 15:14:53 +02:00
parent a61d3b8299
commit 5f76c92334
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
modules/lib/defuns-web.el Normal file
View File

@ -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