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

Stop line breaks between en dashes and closing quote marks in fic PDFs

Browse source
This commit is contained in:
mez 2024-05-28 18:47:36 +01:00
parent f4a7e96aa2
commit 2d7b1bfe55
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
custom/fic.el
View file

@ -147,6 +147,9 @@
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "label{\\(.*\\)}\n«~\\([A-Z]\\)\\([a-z]*\\)" nil t) (while (re-search-forward "label{\\(.*\\)}\n«~\\([A-Z]\\)\\([a-z]*\\)" nil t)
(replace-match "label{\\1}\n\\\\lettrine{«~\\2}{\\3}")) (replace-match "label{\\1}\n\\\\lettrine{«~\\2}{\\3}"))
(goto-char (point-min))
(while (re-search-forward "~–”" nil t)
(replace-match "\\\\mbox{~–”}"))
(if ffx (if ffx
(progn (progn
(goto-char (point-min)) (goto-char (point-min))