tre
/
emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '09ed893f1f'
${ noResults }
emacs.d/custom/org-format.el

18 lines
546 B
EmacsLisp
Raw Normal View History Unescape Escape

Add org format function
2 years ago
(defun org-format ()
(interactive)
(goto-char (region-beginning))
(while (re-search-forward " -" nil t)
(replace-match " –"))
(goto-char (region-beginning))
(while (re-search-forward "'" nil t)
(replace-match "’"))
(goto-char (region-beginning))
(while (re-search-forward "\\R\"" nil t)
(replace-match "\\R“"))
(goto-char (region-beginning))
(while (re-search-forward " \"" nil t)
(replace-match " “"))
(goto-char (region-beginning))
(while (re-search-forward "\"" nil t)
(replace-match "”")))