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

master
trémeur 7 months ago
parent f4a7e96aa2
commit 2d7b1bfe55

@ -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))

Loading…
Cancel
Save