tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Scrif mode

Browse source
This commit is contained in:
trémeur 2022-07-21 22:33:13 +01:00
parent 09ed893f1f
commit e584e27359
2 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
custom/org-format.el
View file

@ -7,11 +7,17 @@
(while (re-search-forward "'" nil t)
(replace-match "’"))
(goto-char (region-beginning))
(while (re-search-forward "\\R\"" nil t)
(replace-match "\\R“"))
(while (re-search-forward "\n\"" nil t)
(replace-match "\n“"))
(goto-char (region-beginning))
(while (re-search-forward " \"" nil t)
(replace-match " “"))
(goto-char (region-beginning))
(while (re-search-forward "\"" nil t)
(replace-match "”")))
(replace-match "”"))
(goto-char (region-beginning))
(while (re-search-forward "“/" nil t)
(replace-match "/“"))
(goto-char (region-beginning))
(while (re-search-forward "/”" nil t)
(replace-match "”/")))