tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Org: Use utf-8 symbols in Markdown export 

HTML-escaped is more correct, but works in less places that I'm pasting
markdown.
This commit is contained in:
TEC 2021-02-17 02:55:24 +08:00
parent 433d98ccb4
commit 601cc0d1e6
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
config.org
View File

@ -7156,20 +7156,25 @@ and push them onto the =md= transcoders alist.
(org-html-latex-environment latex-environment contents info)
"$$\n"))
(defun org-utf8-entity (entity _contents _info)
"Transcode an ENTITY object from Org to utf-8.
CONTENTS are the definition itself. INFO is a plist holding
contextual information."
(org-element-property :utf-8 entity))
;; We can't let this be immediately parsed and evaluated,
;; because eager macro-expansion tries to call as-of-yet
;; undefined functions.
;; NOTE in the near future this shouldn't be required
(eval
'(let ((md-latex-frag '(latex-fragment . org-md-latex-fragment))
(md-latex-env '(latex-environment . org-md-latex-environment))
(md-transcoders (org-export-backend-transcoders
(org-export-get-backend 'md))))
(unless (member md-latex-frag md-transcoders)
(push md-latex-frag (org-export-backend-transcoders
(org-export-get-backend 'md))))
(unless (member md-latex-env md-transcoders)
(push md-latex-env (org-export-backend-transcoders
(org-export-get-backend 'md)))))))
'(dolist (extra-transcoder
'((latex-fragment . org-md-latex-fragment)
(latex-environment . org-md-latex-environment)
(entity . org-utf8-entity)))
(unless (member extra-transcoder (org-export-backend-transcoders
(org-export-get-backend 'md)))
(push extra-transcoder (org-export-backend-transcoders
(org-export-get-backend 'md)))))))
#+end_src
*** Babel