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

View file

@ -7156,20 +7156,25 @@ and push them onto the =md= transcoders alist.
(org-html-latex-environment latex-environment contents info) (org-html-latex-environment latex-environment contents info)
"$$\n")) "$$\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, ;; We can't let this be immediately parsed and evaluated,
;; because eager macro-expansion tries to call as-of-yet ;; because eager macro-expansion tries to call as-of-yet
;; undefined functions. ;; undefined functions.
;; NOTE in the near future this shouldn't be required
(eval (eval
'(let ((md-latex-frag '(latex-fragment . org-md-latex-fragment)) '(dolist (extra-transcoder
(md-latex-env '(latex-environment . org-md-latex-environment)) '((latex-fragment . org-md-latex-fragment)
(md-transcoders (org-export-backend-transcoders (latex-environment . org-md-latex-environment)
(org-export-get-backend 'md)))) (entity . org-utf8-entity)))
(unless (member md-latex-frag md-transcoders) (unless (member extra-transcoder (org-export-backend-transcoders
(push md-latex-frag (org-export-backend-transcoders (org-export-get-backend 'md)))
(org-export-get-backend 'md)))) (push extra-transcoder (org-export-backend-transcoders
(unless (member md-latex-env md-transcoders) (org-export-get-backend 'md)))))))
(push md-latex-env (org-export-backend-transcoders
(org-export-get-backend 'md)))))))
#+end_src #+end_src
*** Babel *** Babel