27 lines
777 B
EmacsLisp
27 lines
777 B
EmacsLisp
|
||
;;;; HTML ;;;;
|
||
;; Replace smart quotes and other MS Word verbiage into plain text
|
||
(defun replace:plain-textify (beg end)
|
||
(interactive "r")
|
||
(replace-regexp "…" "..." nil beg end)
|
||
(replace-regexp "[‘’]" "'" nil beg end)
|
||
(replace-regexp "[“”]" "\"" nil beg end))
|
||
|
||
;; Email address with mailto link
|
||
(defun replace: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))
|
||
|
||
;; Link with anchor
|
||
(defun replace:url2anchor (beg end)
|
||
(interactive "r")
|
||
(replace-regexp "\\bhttps?://.+?\\b"
|
||
"<a href=\"\\1\">\\1</a>"
|
||
nil beg end))
|
||
|
||
|
||
(provide 'my-defuns)
|
||
;;; my-defuns.el ends here
|