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
|