From 601cc0d1e6695a38fa6847995e47aa6ef52c4314 Mon Sep 17 00:00:00 2001 From: TEC Date: Wed, 17 Feb 2021 02:55:24 +0800 Subject: [PATCH] Org: Use utf-8 symbols in Markdown export HTML-escaped is more correct, but works in less places that I'm pasting markdown. --- config.org | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/config.org b/config.org index 2f4e9c1..7a86c91 100644 --- a/config.org +++ b/config.org @@ -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