emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix #3654: prevent org-export-to-html removing line-breaks

Browse source 
When either :input chinese or :input japanese is enabled, due to
overzealous advice.
This commit is contained in:
Henrik Lissner 2020-08-02 01:33:51 -04:00
parent de343fd314
commit ffbd7b63bf
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 2 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/input/chinese/config.el
View file

@ -40,14 +40,9 @@ when exporting org-mode to html."
:filter-args #'org-html-paragraph :filter-args #'org-html-paragraph
(cl-destructuring-bind (paragraph contents info) args (cl-destructuring-bind (paragraph contents info) args
(let* ((fix-regexp "[[:multibyte:]]") (let* ((fix-regexp "[[:multibyte:]]")
(origin-contents
(replace-regexp-in-string
"<[Bb][Rr] */>"
""
contents))
(fixed-contents (fixed-contents
(replace-regexp-in-string (replace-regexp-in-string
(concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)") (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)")
"\\1\\2" "\\1\\2"
origin-contents))) contents)))
(list paragraph fixed-contents info)))) (list paragraph fixed-contents info))))

7
modules/input/japanese/config.el
View file

@ -47,14 +47,9 @@ when exporting org-mode to html."
:filter-args #'org-html-paragraph :filter-args #'org-html-paragraph
(cl-destructuring-bind (paragraph contents info) args (cl-destructuring-bind (paragraph contents info) args
(let* ((fix-regexp "[[:multibyte:]]") (let* ((fix-regexp "[[:multibyte:]]")
(origin-contents
(replace-regexp-in-string
"<[Bb][Rr] */>"
""
contents))
(fixed-contents (fixed-contents
(replace-regexp-in-string (replace-regexp-in-string
(concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)") (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)")
"\\1\\2" "\\1\\2"
origin-contents))) contents)))
(list paragraph fixed-contents info)))) (list paragraph fixed-contents info))))