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

input/{chinese,japanese}: fix org-html-paragraph advice

Browse source
This commit is contained in:
Sunn Yao 2019-09-02 12:48:33 +08:00 • committed by Henrik Lissner
parent 05ab672ef9
commit 8f061eb6b8
2 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -36,15 +36,15 @@
when exporting org-mode to html." 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:]a-zA-Z0-9]") (let* ((fix-regexp "[[:multibyte:]]")
(origin-contents contents) (origin-contents
(replace-regexp-in-string
"<[Bb][Rr] */>"
""
contents))
(fixed-contents (fixed-contents
(replace-regexp-in-string (replace-regexp-in-string
(concat "\\(" (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)")
fix-regexp "\\1\\2"
"\\) *\\(<[Bb][Rr] */>\\)?\n *\\("
fix-regexp
"\\)")
"\\1\\3"
origin-contents))) origin-contents)))
(list paragraph fixed-contents info)))) (list paragraph fixed-contents info))))

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

@ -46,15 +46,15 @@
when exporting org-mode to html." 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:]a-zA-Z0-9]") (let* ((fix-regexp "[[:multibyte:]]")
(origin-contents contents) (origin-contents
(replace-regexp-in-string
"<[Bb][Rr] */>"
""
contents))
(fixed-contents (fixed-contents
(replace-regexp-in-string (replace-regexp-in-string
(concat "\\(" (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)")
fix-regexp "\\1\\2"
"\\) *\\(<[Bb][Rr] */>\\)?\n *\\("
fix-regexp
"\\)")
"\\1\\3"
origin-contents))) origin-contents)))
(list paragraph fixed-contents info)))) (list paragraph fixed-contents info))))