18 lines
502 B
EmacsLisp
18 lines
502 B
EmacsLisp
;;; 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
|