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

WFH tweaks, more options for fic export

Browse source
This commit is contained in:
trémeur 2023-02-22 18:56:47 +00:00
parent bfd5775927
commit 99b9079131
5 changed files with 77 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

19
custom/org-format.el
View file

@ -11,15 +11,24 @@
(while (re-search-forward "/ –" nil t)
(replace-match " –/"))
(goto-char (point-min))
(while (re-search-forward " \\.\\.\\." nil t)
(replace-match " …"))
(while (re-search-forward "\\.\\.\\." nil t)
(replace-match "…"))
(goto-char (point-min))
(while (re-search-forward " …" nil t)
(while (re-search-forward "…" nil t)
(replace-match " … "))
(goto-char (point-min))
(while (re-search-forward "  …" nil t)
(replace-match " …"))
(goto-char (point-min))
(while (re-search-forward "  +…" nil t)
(replace-match " …"))
(goto-char (point-min))
(while (re-search-forward "'" nil t)
(replace-match "’"))
(goto-char (point-min))
(while (re-search-forward " +" nil t)
(replace-match " "))
(goto-char (point-min))
(while (re-search-forward " \n" nil t)
(replace-match "\n"))
(goto-char (point-min))
@ -55,6 +64,10 @@
(interactive)
(org-format)
(goto-char (point-min))
(let ((case-fold-search nil))
(while (re-search-forward "oe" nil t)
(replace-match "œ")))
(goto-char (point-min))
(while (re-search-forward " …" nil t)
(replace-match "…"))
(goto-char (point-min))