tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox-texinfo: Improve entities handling 

* lisp/ox-texinfo.el (org-texinfo-entity): Use Texinfo specific
  commands whenever possible.
This commit is contained in:
Nicolas Goaziou 2017-06-08 23:26:26 +02:00
parent a138fedfd2
commit 9fdc77a3cd
1 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lisp/ox-texinfo.el
View File

@ -733,7 +733,43 @@ holding contextual information."
(defun org-texinfo-entity (entity _contents _info)
"Transcode an ENTITY object from Org to Texinfo."
(org-element-property :utf-8 entity))
;; Since there is not specific Texinfo entry in entities, use
;; Texinfo-specific commands whenever possible, and fallback to
;; UTF-8 otherwise.
(pcase (org-element-property :name entity)
("AElig" "@AE{}")
("aelig" "@ae{}")
((or "bull" "bullet") "@bullet{}")
("copy" "@copyright{}")
((or "dots" "hellip") "@dots{}")
("equiv" "@equiv{}")
((or "euro" "EUR") "@euro{}")
((or "ge" "geq") "@geq{}")
("laquo" "@guillemetleft{}")
("iexcl" "@exclamdown{}")
("imath" "@dotless{i}")
("iquest" "@questiondown{}")
("jmath" "@dotless{j}")
((or "le" "leq") "@leq{}")
("lsaquo" "@guilsinglleft{}")
("mdash" "---")
("minus" "@minus{}")
("nbsp" "@tie{}")
("ndash" "--")
("OElig" "@OE{}")
("oelig" "@oe{}")
("ordf" "@ordf{}")
("ordm" "@ordm{}")
("pound" "@pound{}")
("raquo" "@guillemetright{}")
((or "rArr" "Rightarrow") "@result{}")
((or "rightarrow" "to" "rarr") "@arrow{}")
("rsaquo" "@guilsinglright{}")
("thorn" "@th{}")
("THORN" "@TH{}")
((and (pred (string-prefix-p "_")) name) ;spacing entities.
(format "@w{%s}" (substring name 1)))
(_ (org-element-property :utf-8 entity))))
;;;; Example Block