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" + "\\1" + nil beg end)) + +;;;###autoload +(defun narf/web-html-url2anchor (beg end) + (interactive "r") + (replace-regexp "\\bhttps?://.+?\\b" + "\\1" + nil beg end)) + +(provide 'defuns-web) +;;; defuns-web.el ends here