1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
org-mode/lisp/org-entities.el

601 lines
29 KiB
EmacsLisp
Raw Normal View History

;;; org-entities.el --- Support for Special Entities -*- lexical-binding: t; -*-
2020-01-01 18:38:46 +00:00
;; Copyright (C) 2010-2020 Free Software Foundation, Inc.
;; Author: Carsten Dominik <carsten at orgmode dot org>,
;; Ulf Stegemann <ulf at zeitform dot de>
;; Keywords: outlines, calendar, wp
;; Homepage: https://orgmode.org
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;; Code:
(declare-function org-mode "org" ())
(declare-function org-toggle-pretty-entities "org" ())
(declare-function org-table-align "org-table" ())
2010-04-04 20:26:27 +00:00
(defgroup org-entities nil
"Options concerning entities in Org mode."
:tag "Org Entities"
:group 'org)
(defun org-entities--user-safe-p (v)
"Non-nil if V is a safe value for `org-entities-user'."
(pcase v
(`nil t)
(`(,(and (pred stringp)
(pred (string-match-p "\\`[a-zA-Z][a-zA-Z0-9]*\\'")))
,(pred stringp) ,(pred booleanp) ,(pred stringp)
,(pred stringp) ,(pred stringp) ,(pred stringp))
t)
(_ nil)))
(defcustom org-entities-user nil
"User-defined entities used in Org to produce special characters.
2010-05-01 02:35:50 +00:00
Each entry in this list is a list of strings. It associates the name
of the entity that can be inserted into an Org file as \\name with the
appropriate replacements for the different export backends. The order
2010-05-01 02:35:50 +00:00
of the fields is the following
name As a string, without the leading backslash.
LaTeX replacement In ready LaTeX, no further processing will take place.
LaTeX mathp Either t or nil. When t this entity needs to be in
math mode.
HTML replacement In ready HTML, no further processing will take place.
Usually this will be an &...; entity.
ASCII replacement Plain ASCII, no extensions.
Latin1 replacement Use the special characters available in latin1.
2010-05-01 02:35:50 +00:00
utf-8 replacement Use the special characters available in utf-8.
If you define new entities here that require specific LaTeX
packages to be loaded, add these packages to `org-latex-packages-alist'."
2010-04-07 11:41:40 +00:00
:group 'org-entities
:version "24.1"
:type '(repeat
(list
(string :tag "name ")
(string :tag "LaTeX ")
(boolean :tag "Require LaTeX math?")
(string :tag "HTML ")
(string :tag "ASCII ")
(string :tag "Latin1")
(string :tag "utf-8 ")))
:safe #'org-entities--user-safe-p)
(defconst org-entities
(append
'("* Letters"
"** Latin"
("Agrave" "\\`{A}" nil "&Agrave;" "A" "À" "À")
("agrave" "\\`{a}" nil "&agrave;" "a" "à" "à")
("Aacute" "\\'{A}" nil "&Aacute;" "A" "Á" "Á")
("aacute" "\\'{a}" nil "&aacute;" "a" "á" "á")
("Acirc" "\\^{A}" nil "&Acirc;" "A" "Â" "Â")
("acirc" "\\^{a}" nil "&acirc;" "a" "â" "â")
("Amacr" "\\bar{A}" nil "&Amacr;" "A" "Ã" "Ã")
("amacr" "\\bar{a}" nil "&amacr;" "a" "ã" "ã")
("Atilde" "\\~{A}" nil "&Atilde;" "A" "Ã" "Ã")
("atilde" "\\~{a}" nil "&atilde;" "a" "ã" "ã")
("Auml" "\\\"{A}" nil "&Auml;" "Ae" "Ä" "Ä")
("auml" "\\\"{a}" nil "&auml;" "ae" "ä" "ä")
("Aring" "\\AA{}" nil "&Aring;" "A" "Å" "Å")
("AA" "\\AA{}" nil "&Aring;" "A" "Å" "Å")
("aring" "\\aa{}" nil "&aring;" "a" "å" "å")
("AElig" "\\AE{}" nil "&AElig;" "AE" "Æ" "Æ")
("aelig" "\\ae{}" nil "&aelig;" "ae" "æ" "æ")
("Ccedil" "\\c{C}" nil "&Ccedil;" "C" "Ç" "Ç")
("ccedil" "\\c{c}" nil "&ccedil;" "c" "ç" "ç")
("Egrave" "\\`{E}" nil "&Egrave;" "E" "È" "È")
("egrave" "\\`{e}" nil "&egrave;" "e" "è" "è")
("Eacute" "\\'{E}" nil "&Eacute;" "E" "É" "É")
("eacute" "\\'{e}" nil "&eacute;" "e" "é" "é")
("Ecirc" "\\^{E}" nil "&Ecirc;" "E" "Ê" "Ê")
("ecirc" "\\^{e}" nil "&ecirc;" "e" "ê" "ê")
("Euml" "\\\"{E}" nil "&Euml;" "E" "Ë" "Ë")
("euml" "\\\"{e}" nil "&euml;" "e" "ë" "ë")
("Igrave" "\\`{I}" nil "&Igrave;" "I" "Ì" "Ì")
("igrave" "\\`{i}" nil "&igrave;" "i" "ì" "ì")
("Iacute" "\\'{I}" nil "&Iacute;" "I" "Í" "Í")
("iacute" "\\'{i}" nil "&iacute;" "i" "í" "í")
("Icirc" "\\^{I}" nil "&Icirc;" "I" "Î" "Î")
("icirc" "\\^{i}" nil "&icirc;" "i" "î" "î")
("Iuml" "\\\"{I}" nil "&Iuml;" "I" "Ï" "Ï")
("iuml" "\\\"{i}" nil "&iuml;" "i" "ï" "ï")
("Ntilde" "\\~{N}" nil "&Ntilde;" "N" "Ñ" "Ñ")
("ntilde" "\\~{n}" nil "&ntilde;" "n" "ñ" "ñ")
("Ograve" "\\`{O}" nil "&Ograve;" "O" "Ò" "Ò")
("ograve" "\\`{o}" nil "&ograve;" "o" "ò" "ò")
("Oacute" "\\'{O}" nil "&Oacute;" "O" "Ó" "Ó")
("oacute" "\\'{o}" nil "&oacute;" "o" "ó" "ó")
("Ocirc" "\\^{O}" nil "&Ocirc;" "O" "Ô" "Ô")
("ocirc" "\\^{o}" nil "&ocirc;" "o" "ô" "ô")
("Otilde" "\\~{O}" nil "&Otilde;" "O" "Õ" "Õ")
("otilde" "\\~{o}" nil "&otilde;" "o" "õ" "õ")
("Ouml" "\\\"{O}" nil "&Ouml;" "Oe" "Ö" "Ö")
("ouml" "\\\"{o}" nil "&ouml;" "oe" "ö" "ö")
("Oslash" "\\O" nil "&Oslash;" "O" "Ø" "Ø")
("oslash" "\\o{}" nil "&oslash;" "o" "ø" "ø")
("OElig" "\\OE{}" nil "&OElig;" "OE" "OE" "Œ")
("oelig" "\\oe{}" nil "&oelig;" "oe" "oe" "œ")
("Scaron" "\\v{S}" nil "&Scaron;" "S" "S" "Š")
("scaron" "\\v{s}" nil "&scaron;" "s" "s" "š")
("szlig" "\\ss{}" nil "&szlig;" "ss" "ß" "ß")
("Ugrave" "\\`{U}" nil "&Ugrave;" "U" "Ù" "Ù")
("ugrave" "\\`{u}" nil "&ugrave;" "u" "ù" "ù")
("Uacute" "\\'{U}" nil "&Uacute;" "U" "Ú" "Ú")
("uacute" "\\'{u}" nil "&uacute;" "u" "ú" "ú")
("Ucirc" "\\^{U}" nil "&Ucirc;" "U" "Û" "Û")
("ucirc" "\\^{u}" nil "&ucirc;" "u" "û" "û")
("Uuml" "\\\"{U}" nil "&Uuml;" "Ue" "Ü" "Ü")
("uuml" "\\\"{u}" nil "&uuml;" "ue" "ü" "ü")
("Yacute" "\\'{Y}" nil "&Yacute;" "Y" "Ý" "Ý")
("yacute" "\\'{y}" nil "&yacute;" "y" "ý" "ý")
("Yuml" "\\\"{Y}" nil "&Yuml;" "Y" "Y" "Ÿ")
("yuml" "\\\"{y}" nil "&yuml;" "y" "ÿ" "ÿ")
"** Latin (special face)"
("fnof" "\\textit{f}" nil "&fnof;" "f" "f" "ƒ")
("real" "\\Re" t "&real;" "R" "R" "")
("image" "\\Im" t "&image;" "I" "I" "")
("weierp" "\\wp" t "&weierp;" "P" "P" "")
("ell" "\\ell" t "&ell;" "ell" "ell" "")
("imath" "\\imath" t "&imath;" "[dotless i]" "dotless i" "ı")
("jmath" "\\jmath" t "&jmath;" "[dotless j]" "dotless j" "ȷ")
"** Greek"
("Alpha" "A" nil "&Alpha;" "Alpha" "Alpha" "Α")
("alpha" "\\alpha" t "&alpha;" "alpha" "alpha" "α")
("Beta" "B" nil "&Beta;" "Beta" "Beta" "Β")
("beta" "\\beta" t "&beta;" "beta" "beta" "β")
("Gamma" "\\Gamma" t "&Gamma;" "Gamma" "Gamma" "Γ")
("gamma" "\\gamma" t "&gamma;" "gamma" "gamma" "γ")
("Delta" "\\Delta" t "&Delta;" "Delta" "Delta" "Δ")
("delta" "\\delta" t "&delta;" "delta" "delta" "δ")
("Epsilon" "E" nil "&Epsilon;" "Epsilon" "Epsilon" "Ε")
("epsilon" "\\epsilon" t "&epsilon;" "epsilon" "epsilon" "ε")
("varepsilon" "\\varepsilon" t "&epsilon;" "varepsilon" "varepsilon" "ε")
("Zeta" "Z" nil "&Zeta;" "Zeta" "Zeta" "Ζ")
("zeta" "\\zeta" t "&zeta;" "zeta" "zeta" "ζ")
("Eta" "H" nil "&Eta;" "Eta" "Eta" "Η")
("eta" "\\eta" t "&eta;" "eta" "eta" "η")
("Theta" "\\Theta" t "&Theta;" "Theta" "Theta" "Θ")
("theta" "\\theta" t "&theta;" "theta" "theta" "θ")
("thetasym" "\\vartheta" t "&thetasym;" "theta" "theta" "ϑ")
("vartheta" "\\vartheta" t "&thetasym;" "theta" "theta" "ϑ")
("Iota" "I" nil "&Iota;" "Iota" "Iota" "Ι")
("iota" "\\iota" t "&iota;" "iota" "iota" "ι")
("Kappa" "K" nil "&Kappa;" "Kappa" "Kappa" "Κ")
("kappa" "\\kappa" t "&kappa;" "kappa" "kappa" "κ")
("Lambda" "\\Lambda" t "&Lambda;" "Lambda" "Lambda" "Λ")
("lambda" "\\lambda" t "&lambda;" "lambda" "lambda" "λ")
("Mu" "M" nil "&Mu;" "Mu" "Mu" "Μ")
("mu" "\\mu" t "&mu;" "mu" "mu" "μ")
("nu" "\\nu" t "&nu;" "nu" "nu" "ν")
("Nu" "N" nil "&Nu;" "Nu" "Nu" "Ν")
("Xi" "\\Xi" t "&Xi;" "Xi" "Xi" "Ξ")
("xi" "\\xi" t "&xi;" "xi" "xi" "ξ")
("Omicron" "O" nil "&Omicron;" "Omicron" "Omicron" "Ο")
("omicron" "\\textit{o}" nil "&omicron;" "omicron" "omicron" "ο")
("Pi" "\\Pi" t "&Pi;" "Pi" "Pi" "Π")
("pi" "\\pi" t "&pi;" "pi" "pi" "π")
("Rho" "P" nil "&Rho;" "Rho" "Rho" "Ρ")
("rho" "\\rho" t "&rho;" "rho" "rho" "ρ")
("Sigma" "\\Sigma" t "&Sigma;" "Sigma" "Sigma" "Σ")
("sigma" "\\sigma" t "&sigma;" "sigma" "sigma" "σ")
("sigmaf" "\\varsigma" t "&sigmaf;" "sigmaf" "sigmaf" "ς")
("varsigma" "\\varsigma" t "&sigmaf;" "varsigma" "varsigma" "ς")
("Tau" "T" nil "&Tau;" "Tau" "Tau" "Τ")
("Upsilon" "\\Upsilon" t "&Upsilon;" "Upsilon" "Upsilon" "Υ")
("upsih" "\\Upsilon" t "&upsih;" "upsilon" "upsilon" "ϒ")
("upsilon" "\\upsilon" t "&upsilon;" "upsilon" "upsilon" "υ")
("Phi" "\\Phi" t "&Phi;" "Phi" "Phi" "Φ")
("phi" "\\phi" t "&phi;" "phi" "phi" "ɸ")
("varphi" "\\varphi" t "&varphi;" "varphi" "varphi" "φ")
("Chi" "X" nil "&Chi;" "Chi" "Chi" "Χ")
("chi" "\\chi" t "&chi;" "chi" "chi" "χ")
("acutex" "\\acute x" t "&acute;x" "'x" "'x" "𝑥́")
("Psi" "\\Psi" t "&Psi;" "Psi" "Psi" "Ψ")
("psi" "\\psi" t "&psi;" "psi" "psi" "ψ")
("tau" "\\tau" t "&tau;" "tau" "tau" "τ")
("Omega" "\\Omega" t "&Omega;" "Omega" "Omega" "Ω")
("omega" "\\omega" t "&omega;" "omega" "omega" "ω")
("piv" "\\varpi" t "&piv;" "omega-pi" "omega-pi" "ϖ")
("varpi" "\\varpi" t "&piv;" "omega-pi" "omega-pi" "ϖ")
("partial" "\\partial" t "&part;" "[partial differential]" "[partial differential]" "")
"** Hebrew"
("alefsym" "\\aleph" t "&alefsym;" "aleph" "aleph" "")
("aleph" "\\aleph" t "&aleph;" "aleph" "aleph" "")
("gimel" "\\gimel" t "&gimel;" "gimel" "gimel" "")
("beth" "\\beth" t "&beth;" "beth" "beth" "ב")
("dalet" "\\daleth" t "&daleth;" "dalet" "dalet" "ד")
"** Icelandic"
("ETH" "\\DH{}" nil "&ETH;" "D" "Ð" "Ð")
("eth" "\\dh{}" nil "&eth;" "dh" "ð" "ð")
("THORN" "\\TH{}" nil "&THORN;" "TH" "Þ" "Þ")
("thorn" "\\th{}" nil "&thorn;" "th" "þ" "þ")
"* Punctuation"
"** Dots and Marks"
("dots" "\\dots{}" nil "&hellip;" "..." "..." "")
("cdots" "\\cdots{}" t "&ctdot;" "..." "..." "")
("hellip" "\\dots{}" nil "&hellip;" "..." "..." "")
("middot" "\\textperiodcentered{}" nil "&middot;" "." "·" "·")
("iexcl" "!`" nil "&iexcl;" "!" "¡" "¡")
("iquest" "?`" nil "&iquest;" "?" "¿" "¿")
"** Dash-like"
("shy" "\\-" nil "&shy;" "" "" "")
("ndash" "--" nil "&ndash;" "-" "-" "")
("mdash" "---" nil "&mdash;" "--" "--" "")
"** Quotations"
("quot" "\\textquotedbl{}" nil "&quot;" "\"" "\"" "\"")
("acute" "\\textasciiacute{}" nil "&acute;" "'" "´" "´")
("ldquo" "\\textquotedblleft{}" nil "&ldquo;" "\"" "\"" "")
("rdquo" "\\textquotedblright{}" nil "&rdquo;" "\"" "\"" "")
("bdquo" "\\quotedblbase{}" nil "&bdquo;" "\"" "\"" "")
("lsquo" "\\textquoteleft{}" nil "&lsquo;" "`" "`" "")
("rsquo" "\\textquoteright{}" nil "&rsquo;" "'" "'" "")
("sbquo" "\\quotesinglbase{}" nil "&sbquo;" "," "," "")
("laquo" "\\guillemotleft{}" nil "&laquo;" "<<" "«" "«")
("raquo" "\\guillemotright{}" nil "&raquo;" ">>" "»" "»")
("lsaquo" "\\guilsinglleft{}" nil "&lsaquo;" "<" "<" "")
("rsaquo" "\\guilsinglright{}" nil "&rsaquo;" ">" ">" "")
"* Other"
"** Misc. (often used)"
("circ" "\\^{}" nil "&circ;" "^" "^" "")
("vert" "\\vert{}" t "&vert;" "|" "|" "|")
("vbar" "|" nil "|" "|" "|" "|")
("brvbar" "\\textbrokenbar{}" nil "&brvbar;" "|" "¦" "¦")
("S" "\\S" nil "&sect;" "paragraph" "§" "§")
("sect" "\\S" nil "&sect;" "paragraph" "§" "§")
("amp" "\\&" nil "&amp;" "&" "&" "&")
("lt" "\\textless{}" nil "&lt;" "<" "<" "<")
("gt" "\\textgreater{}" nil "&gt;" ">" ">" ">")
("tilde" "\\textasciitilde{}" nil "~" "~" "~" "~")
("slash" "/" nil "/" "/" "/" "/")
("plus" "+" nil "+" "+" "+" "+")
("under" "\\_" nil "_" "_" "_" "_")
("equal" "=" nil "=" "=" "=" "=")
("asciicirc" "\\textasciicircum{}" nil "^" "^" "^" "^")
("dagger" "\\textdagger{}" nil "&dagger;" "[dagger]" "[dagger]" "")
("dag" "\\dag{}" nil "&dagger;" "[dagger]" "[dagger]" "")
("Dagger" "\\textdaggerdbl{}" nil "&Dagger;" "[doubledagger]" "[doubledagger]" "")
("ddag" "\\ddag{}" nil "&Dagger;" "[doubledagger]" "[doubledagger]" "")
"** Whitespace"
("nbsp" "~" nil "&nbsp;" " " "\x00A0" "\x00A0")
("ensp" "\\hspace*{.5em}" nil "&ensp;" " " " " "")
("emsp" "\\hspace*{1em}" nil "&emsp;" " " " " "")
("thinsp" "\\hspace*{.2em}" nil "&thinsp;" " " " " "")
"** Currency"
("curren" "\\textcurrency{}" nil "&curren;" "curr." "¤" "¤")
("cent" "\\textcent{}" nil "&cent;" "cent" "¢" "¢")
("pound" "\\pounds{}" nil "&pound;" "pound" "£" "£")
("yen" "\\textyen{}" nil "&yen;" "yen" "¥" "¥")
("euro" "\\texteuro{}" nil "&euro;" "EUR" "EUR" "")
("EUR" "\\texteuro{}" nil "&euro;" "EUR" "EUR" "")
("dollar" "\\$" nil "$" "$" "$" "$")
("USD" "\\$" nil "$" "$" "$" "$")
"** Property Marks"
("copy" "\\textcopyright{}" nil "&copy;" "(c)" "©" "©")
("reg" "\\textregistered{}" nil "&reg;" "(r)" "®" "®")
("trade" "\\texttrademark{}" nil "&trade;" "TM" "TM" "")
"** Science et al."
("minus" "\\minus" t "&minus;" "-" "-" "")
("pm" "\\textpm{}" nil "&plusmn;" "+-" "±" "±")
("plusmn" "\\textpm{}" nil "&plusmn;" "+-" "±" "±")
("times" "\\texttimes{}" nil "&times;" "*" "×" "×")
("frasl" "/" nil "&frasl;" "/" "/" "")
("colon" "\\colon" t ":" ":" ":" ":")
("div" "\\textdiv{}" nil "&divide;" "/" "÷" "÷")
("frac12" "\\textonehalf{}" nil "&frac12;" "1/2" "½" "½")
("frac14" "\\textonequarter{}" nil "&frac14;" "1/4" "¼" "¼")
("frac34" "\\textthreequarters{}" nil "&frac34;" "3/4" "¾" "¾")
("permil" "\\textperthousand{}" nil "&permil;" "per thousand" "per thousand" "")
("sup1" "\\textonesuperior{}" nil "&sup1;" "^1" "¹" "¹")
("sup2" "\\texttwosuperior{}" nil "&sup2;" "^2" "²" "²")
("sup3" "\\textthreesuperior{}" nil "&sup3;" "^3" "³" "³")
("radic" "\\sqrt{\\,}" t "&radic;" "[square root]" "[square root]" "")
("sum" "\\sum" t "&sum;" "[sum]" "[sum]" "")
("prod" "\\prod" t "&prod;" "[product]" "[n-ary product]" "")
("micro" "\\textmu{}" nil "&micro;" "micro" "µ" "µ")
("macr" "\\textasciimacron{}" nil "&macr;" "[macron]" "¯" "¯")
("deg" "\\textdegree{}" nil "&deg;" "degree" "°" "°")
("prime" "\\prime" t "&prime;" "'" "'" "")
("Prime" "\\prime{}\\prime" t "&Prime;" "''" "''" "")
("infin" "\\infty" t "&infin;" "[infinity]" "[infinity]" "")
("infty" "\\infty" t "&infin;" "[infinity]" "[infinity]" "")
("prop" "\\propto" t "&prop;" "[proportional to]" "[proportional to]" "")
("propto" "\\propto" t "&prop;" "[proportional to]" "[proportional to]" "")
("not" "\\textlnot{}" nil "&not;" "[angled dash]" "¬" "¬")
("neg" "\\neg{}" t "&not;" "[angled dash]" "¬" "¬")
("land" "\\land" t "&and;" "[logical and]" "[logical and]" "")
("wedge" "\\wedge" t "&and;" "[logical and]" "[logical and]" "")
("lor" "\\lor" t "&or;" "[logical or]" "[logical or]" "")
("vee" "\\vee" t "&or;" "[logical or]" "[logical or]" "")
("cap" "\\cap" t "&cap;" "[intersection]" "[intersection]" "")
("cup" "\\cup" t "&cup;" "[union]" "[union]" "")
("smile" "\\smile" t "&smile;" "[cup product]" "[cup product]" "")
("frown" "\\frown" t "&frown;" "[Cap product]" "[cap product]" "")
("int" "\\int" t "&int;" "[integral]" "[integral]" "")
("therefore" "\\therefore" t "&there4;" "[therefore]" "[therefore]" "")
("there4" "\\therefore" t "&there4;" "[therefore]" "[therefore]" "")
("because" "\\because" t "&because;" "[because]" "[because]" "")
("sim" "\\sim" t "&sim;" "~" "~" "")
("cong" "\\cong" t "&cong;" "[approx. equal to]" "[approx. equal to]" "")
("simeq" "\\simeq" t "&cong;" "[approx. equal to]" "[approx. equal to]" "")
("asymp" "\\asymp" t "&asymp;" "[almost equal to]" "[almost equal to]" "")
("approx" "\\approx" t "&asymp;" "[almost equal to]" "[almost equal to]" "")
("ne" "\\ne" t "&ne;" "[not equal to]" "[not equal to]" "")
("neq" "\\neq" t "&ne;" "[not equal to]" "[not equal to]" "")
("equiv" "\\equiv" t "&equiv;" "[identical to]" "[identical to]" "")
("triangleq" "\\triangleq" t "&triangleq;" "[defined to]" "[defined to]" "")
("le" "\\le" t "&le;" "<=" "<=" "")
("leq" "\\le" t "&le;" "<=" "<=" "")
("ge" "\\ge" t "&ge;" ">=" ">=" "")
("geq" "\\ge" t "&ge;" ">=" ">=" "")
("lessgtr" "\\lessgtr" t "&lessgtr;" "[less than or greater than]" "[less than or greater than]" "")
("lesseqgtr" "\\lesseqgtr" t "&lesseqgtr;" "[less than or equal or greater than or equal]" "[less than or equal or greater than or equal]" "")
("ll" "\\ll" t "&Lt;" "<<" "<<" "")
("Ll" "\\lll" t "&Ll;" "<<<" "<<<" "")
("lll" "\\lll" t "&Ll;" "<<<" "<<<" "")
("gg" "\\gg" t "&Gt;" ">>" ">>" "")
("Gg" "\\ggg" t "&Gg;" ">>>" ">>>" "")
("ggg" "\\ggg" t "&Gg;" ">>>" ">>>" "")
("prec" "\\prec" t "&pr;" "[precedes]" "[precedes]" "")
("preceq" "\\preceq" t "&prcue;" "[precedes or equal]" "[precedes or equal]" "")
("preccurlyeq" "\\preccurlyeq" t "&prcue;" "[precedes or equal]" "[precedes or equal]" "")
("succ" "\\succ" t "&sc;" "[succeeds]" "[succeeds]" "")
("succeq" "\\succeq" t "&sccue;" "[succeeds or equal]" "[succeeds or equal]" "")
("succcurlyeq" "\\succcurlyeq" t "&sccue;" "[succeeds or equal]" "[succeeds or equal]" "")
("sub" "\\subset" t "&sub;" "[subset of]" "[subset of]" "")
("subset" "\\subset" t "&sub;" "[subset of]" "[subset of]" "")
("sup" "\\supset" t "&sup;" "[superset of]" "[superset of]" "")
("supset" "\\supset" t "&sup;" "[superset of]" "[superset of]" "")
("nsub" "\\not\\subset" t "&nsub;" "[not a subset of]" "[not a subset of" "")
("sube" "\\subseteq" t "&sube;" "[subset of or equal to]" "[subset of or equal to]" "")
("nsup" "\\not\\supset" t "&nsup;" "[not a superset of]" "[not a superset of]" "")
("supe" "\\supseteq" t "&supe;" "[superset of or equal to]" "[superset of or equal to]" "")
("setminus" "\\setminus" t "&setminus;" "\" "\" "")
("forall" "\\forall" t "&forall;" "[for all]" "[for all]" "")
("exist" "\\exists" t "&exist;" "[there exists]" "[there exists]" "")
("exists" "\\exists" t "&exist;" "[there exists]" "[there exists]" "")
("nexist" "\\nexists" t "&exist;" "[there does not exists]" "[there does not exists]" "")
("nexists" "\\nexists" t "&exist;" "[there does not exists]" "[there does not exists]" "")
("empty" "\\emptyset" t "&empty;" "[empty set]" "[empty set]" "")
("emptyset" "\\emptyset" t "&empty;" "[empty set]" "[empty set]" "")
("isin" "\\in" t "&isin;" "[element of]" "[element of]" "")
("in" "\\in" t "&isin;" "[element of]" "[element of]" "")
("notin" "\\notin" t "&notin;" "[not an element of]" "[not an element of]" "")
("ni" "\\ni" t "&ni;" "[contains as member]" "[contains as member]" "")
("nabla" "\\nabla" t "&nabla;" "[nabla]" "[nabla]" "")
("ang" "\\angle" t "&ang;" "[angle]" "[angle]" "")
("angle" "\\angle" t "&ang;" "[angle]" "[angle]" "")
("perp" "\\perp" t "&perp;" "[up tack]" "[up tack]" "")
("parallel" "\\parallel" t "&parallel;" "||" "||" "")
("sdot" "\\cdot" t "&sdot;" "[dot]" "[dot]" "")
("cdot" "\\cdot" t "&sdot;" "[dot]" "[dot]" "")
("lceil" "\\lceil" t "&lceil;" "[left ceiling]" "[left ceiling]" "")
("rceil" "\\rceil" t "&rceil;" "[right ceiling]" "[right ceiling]" "")
("lfloor" "\\lfloor" t "&lfloor;" "[left floor]" "[left floor]" "")
("rfloor" "\\rfloor" t "&rfloor;" "[right floor]" "[right floor]" "")
("lang" "\\langle" t "&lang;" "<" "<" "")
("rang" "\\rangle" t "&rang;" ">" ">" "")
("langle" "\\langle" t "&lang;" "<" "<" "")
("rangle" "\\rangle" t "&rang;" ">" ">" "")
("hbar" "\\hbar" t "&hbar;" "hbar" "hbar" "")
("mho" "\\mho" t "&mho;" "mho" "mho" "")
"** Arrows"
("larr" "\\leftarrow" t "&larr;" "<-" "<-" "")
("leftarrow" "\\leftarrow" t "&larr;" "<-" "<-" "")
("gets" "\\gets" t "&larr;" "<-" "<-" "")
("lArr" "\\Leftarrow" t "&lArr;" "<=" "<=" "")
("Leftarrow" "\\Leftarrow" t "&lArr;" "<=" "<=" "")
("uarr" "\\uparrow" t "&uarr;" "[uparrow]" "[uparrow]" "")
("uparrow" "\\uparrow" t "&uarr;" "[uparrow]" "[uparrow]" "")
("uArr" "\\Uparrow" t "&uArr;" "[dbluparrow]" "[dbluparrow]" "")
("Uparrow" "\\Uparrow" t "&uArr;" "[dbluparrow]" "[dbluparrow]" "")
("rarr" "\\rightarrow" t "&rarr;" "->" "->" "")
("to" "\\to" t "&rarr;" "->" "->" "")
("rightarrow" "\\rightarrow" t "&rarr;" "->" "->" "")
("rArr" "\\Rightarrow" t "&rArr;" "=>" "=>" "")
("Rightarrow" "\\Rightarrow" t "&rArr;" "=>" "=>" "")
("darr" "\\downarrow" t "&darr;" "[downarrow]" "[downarrow]" "")
("downarrow" "\\downarrow" t "&darr;" "[downarrow]" "[downarrow]" "")
("dArr" "\\Downarrow" t "&dArr;" "[dbldownarrow]" "[dbldownarrow]" "")
("Downarrow" "\\Downarrow" t "&dArr;" "[dbldownarrow]" "[dbldownarrow]" "")
("harr" "\\leftrightarrow" t "&harr;" "<->" "<->" "")
("leftrightarrow" "\\leftrightarrow" t "&harr;" "<->" "<->" "")
("hArr" "\\Leftrightarrow" t "&hArr;" "<=>" "<=>" "")
("Leftrightarrow" "\\Leftrightarrow" t "&hArr;" "<=>" "<=>" "")
("crarr" "\\hookleftarrow" t "&crarr;" "<-'" "<-'" "")
("hookleftarrow" "\\hookleftarrow" t "&crarr;" "<-'" "<-'" "")
"** Function names"
("arccos" "\\arccos" t "arccos" "arccos" "arccos" "arccos")
("arcsin" "\\arcsin" t "arcsin" "arcsin" "arcsin" "arcsin")
("arctan" "\\arctan" t "arctan" "arctan" "arctan" "arctan")
("arg" "\\arg" t "arg" "arg" "arg" "arg")
("cos" "\\cos" t "cos" "cos" "cos" "cos")
("cosh" "\\cosh" t "cosh" "cosh" "cosh" "cosh")
("cot" "\\cot" t "cot" "cot" "cot" "cot")
("coth" "\\coth" t "coth" "coth" "coth" "coth")
("csc" "\\csc" t "csc" "csc" "csc" "csc")
("deg" "\\deg" t "&deg;" "deg" "deg" "deg")
("det" "\\det" t "det" "det" "det" "det")
("dim" "\\dim" t "dim" "dim" "dim" "dim")
("exp" "\\exp" t "exp" "exp" "exp" "exp")
("gcd" "\\gcd" t "gcd" "gcd" "gcd" "gcd")
("hom" "\\hom" t "hom" "hom" "hom" "hom")
("inf" "\\inf" t "inf" "inf" "inf" "inf")
("ker" "\\ker" t "ker" "ker" "ker" "ker")
("lg" "\\lg" t "lg" "lg" "lg" "lg")
("lim" "\\lim" t "lim" "lim" "lim" "lim")
("liminf" "\\liminf" t "liminf" "liminf" "liminf" "liminf")
("limsup" "\\limsup" t "limsup" "limsup" "limsup" "limsup")
("ln" "\\ln" t "ln" "ln" "ln" "ln")
("log" "\\log" t "log" "log" "log" "log")
("max" "\\max" t "max" "max" "max" "max")
("min" "\\min" t "min" "min" "min" "min")
("Pr" "\\Pr" t "Pr" "Pr" "Pr" "Pr")
("sec" "\\sec" t "sec" "sec" "sec" "sec")
("sin" "\\sin" t "sin" "sin" "sin" "sin")
("sinh" "\\sinh" t "sinh" "sinh" "sinh" "sinh")
("sup" "\\sup" t "&sup;" "sup" "sup" "sup")
("tan" "\\tan" t "tan" "tan" "tan" "tan")
("tanh" "\\tanh" t "tanh" "tanh" "tanh" "tanh")
"** Signs & Symbols"
("bull" "\\textbullet{}" nil "&bull;" "*" "*" "")
("bullet" "\\textbullet{}" nil "&bull;" "*" "*" "")
("star" "\\star" t "*" "*" "*" "")
("lowast" "\\ast" t "&lowast;" "*" "*" "")
("ast" "\\ast" t "&lowast;" "*" "*" "*")
("odot" "\\odot" t "o" "[circled dot]" "[circled dot]" "ʘ")
("oplus" "\\oplus" t "&oplus;" "[circled plus]" "[circled plus]" "")
("otimes" "\\otimes" t "&otimes;" "[circled times]" "[circled times]" "")
("check" "\\checkmark" t "&checkmark;" "[checkmark]" "[checkmark]" "")
("checkmark" "\\checkmark" t "&check;" "[checkmark]" "[checkmark]" "")
"** Miscellaneous (seldom used)"
("para" "\\P{}" nil "&para;" "[pilcrow]" "" "")
("ordf" "\\textordfeminine{}" nil "&ordf;" "_a_" "ª" "ª")
("ordm" "\\textordmasculine{}" nil "&ordm;" "_o_" "º" "º")
("cedil" "\\c{}" nil "&cedil;" "[cedilla]" "¸" "¸")
("oline" "\\overline{~}" t "&oline;" "[overline]" "¯" "")
("uml" "\\textasciidieresis{}" nil "&uml;" "[diaeresis]" "¨" "¨")
("zwnj" "\\/{}" nil "&zwnj;" "" "" "")
("zwj" "" nil "&zwj;" "" "" "")
("lrm" "" nil "&lrm;" "" "" "")
("rlm" "" nil "&rlm;" "" "" "")
"** Smilies"
("smiley" "\\ddot\\smile" t "&#9786;" ":-)" ":-)" "")
("blacksmile" "\\ddot\\smile" t "&#9787;" ":-)" ":-)" "")
("sad" "\\ddot\\frown" t "&#9785;" ":-(" ":-(" "")
("frowny" "\\ddot\\frown" t "&#9785;" ":-(" ":-(" "")
"** Suits"
("clubs" "\\clubsuit" t "&clubs;" "[clubs]" "[clubs]" "")
("clubsuit" "\\clubsuit" t "&clubs;" "[clubs]" "[clubs]" "")
("spades" "\\spadesuit" t "&spades;" "[spades]" "[spades]" "")
("spadesuit" "\\spadesuit" t "&spades;" "[spades]" "[spades]" "")
("hearts" "\\heartsuit" t "&hearts;" "[hearts]" "[hearts]" "")
("heartsuit" "\\heartsuit" t "&heartsuit;" "[hearts]" "[hearts]" "")
("diams" "\\diamondsuit" t "&diams;" "[diamonds]" "[diamonds]" "")
("diamondsuit" "\\diamondsuit" t "&diams;" "[diamonds]" "[diamonds]" "")
("diamond" "\\diamondsuit" t "&diamond;" "[diamond]" "[diamond]" "")
("Diamond" "\\diamondsuit" t "&diamond;" "[diamond]" "[diamond]" "")
("loz" "\\lozenge" t "&loz;" "[lozenge]" "[lozenge]" ""))
;; Add "\_ "-entity family for spaces.
(let (space-entities html-spaces (entity "_"))
(dolist (n (number-sequence 1 20) (nreverse space-entities))
(let ((spaces (make-string n ?\s)))
(push (list (setq entity (concat entity " "))
(format "\\hspace*{%sem}" (* n .5))
nil
(setq html-spaces (concat "&ensp;" html-spaces))
spaces
spaces
(make-string n ?\x2002))
space-entities)))))
"Default entities used in Org mode to produce special characters.
For details see `org-entities-user'.")
(defsubst org-entity-get (name)
"Get the proper association for NAME from the entity lists.
This first checks the user list, then the built-in list."
(or (assoc name org-entities-user)
(assoc name org-entities)))
;; Helpfunctions to create a table for orgmode.org/worg/org-symbols.org
(defun org-entities-create-table ()
"Create an Org mode table with all entities."
(interactive)
(let ((pos (point)))
(insert "|Name|LaTeX code|LaTeX|HTML code |HTML|ASCII|Latin1|UTF-8\n|-\n")
(dolist (e org-entities)
(pcase e
(`(,name ,latex ,mathp ,html ,ascii ,latin ,utf8)
Many small code improvements * lisp/org-capture.el (org-capture-member): Make obsolete; the old definition was identical to ‘org-capture-get’ anyway. (org-capture-mode-map): Move the calls to ‘define-key’ up to where the variable is defined. (org-capture-mode-hook): Small docstring tweak. (org-capture-mode): Fix typo in mode lighter. (org-capture-set-target-location, org-capture-place-item): (org-capture-place-plain-text, org-capture-narrow): (org-capture-empty-lines-after): (org-capture-import-remember-templates): ‘if’ without else -> ‘when’ * lisp/org-colview.el (org-columns-edit-value): Change an error to a user-error. (org-columns-uncompile-format): Improve docstring. * lisp/org-compat.el (org-remove-from-invisibility-spec): Make obsolete, the underlying emacs function exists since 1997, commit 31aa282e. (org-in-invisibility-spec-p, org-count-lines): ‘if’ without else -> ‘when’. * lisp/org-element.el (org-element-swap-A-B): * lisp/org-entities.el (org-entities-create-table): * lisp/org-list.el (org-insert-item): * lisp/org-macs.el (org-with-point-at, org-base-buffer): (org-preserve-local-variables, org-overlay-display): (org-overlay-before-string): ‘if’ without else -> ‘when’. * lisp/org-eshell.el (org-eshell-open): Fix docstring typo. * lisp/org-pcomplete.el (pcomplete/org-mode/file-option/language): (pcomplete/org-mode/file-option/startup): (pcomplete/org-mode/file-option/options): (pcomplete/org-mode/file-option/infojs_opt): (pcomplete/org-mode/link, pcomplete/org-mode/tex): (pcomplete/org-mode/todo, pcomplete/org-mode/searchhead): (pcomplete/org-mode/tag, pcomplete/org-mode/prop): Avoid the formerly misspelled ‘pcomplete-uniqify-list’ function. It has a defalias in emacs >= 27; we add our own for older emacsen. (pcomplete/org-mode/file-option/bind): ‘if’ without else -> ‘when’. * lisp/org-protocol.el (org-protocol-capture): (org-protocol-convert-query-to-plist): ‘if’ without else -> ‘when’. (org-protocol-do-capture): Pacify byte compiler, simplify conditional logic. * lisp/org-table.el (org-table-create-with-table.el): Simplify conditional logic. (org-table-create, org-table-convert-region, org-table-next-field): (org-table-beginning-of-field, org-table-end-of-field): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): ‘if’ without else -> ‘when’. * lisp/org.el (org-babel-do-load-languages, org-previous-link): (org-refile): Use ‘(foo ...)’ instead of ‘(funcall 'foo ...)’. (org-add-log-note): Convert a long cond into a cl-case. (org-priority): Improve docstring, show a deprecation warning if the ‘show’ argument is passed (which was previously silently ignored). Also, use ?\s instead of ?\ as a character literal for space. (org-fast-tag-insert): Fix docstring typo. (org-fill-element): ‘if’ without else -> ‘when’. (org-on-target-p): Remove ancient compatibility alias.
2018-05-10 01:02:35 +00:00
(when (equal ascii "|") (setq ascii "\\vert"))
(when (equal latin "|") (setq latin "\\vert"))
(when (equal utf8 "|") (setq utf8 "\\vert"))
(when (equal ascii "=>") (setq ascii "= >"))
(when (equal latin "=>") (setq latin "= >"))
(insert "|" name
"|" (format "=%s=" latex)
"|" (format (if mathp "$%s$" "$\\mbox{%s}$") latex)
"|" (format "=%s=" html) "|" html
"|" ascii "|" latin "|" utf8
"|\n"))))
(goto-char pos)
(org-table-align)))
(defvar org-pretty-entities) ;; declare defcustom from org
(defun org-entities-help ()
"Create a Help buffer with all available entities."
(interactive)
(with-output-to-temp-buffer "*Org Entity Help*"
(princ "Org mode entities\n=================\n\n")
(let ((ll (append '("* User-defined additions (variable org-entities-user)")
org-entities-user
org-entities))
(lastwasstring t)
(head (concat
"\n"
" Symbol Org entity LaTeX code HTML code\n"
" -----------------------------------------------------------\n")))
(dolist (e ll)
(pcase e
(`(,name ,latex ,_ ,html ,_ ,_ ,utf8)
(when lastwasstring
(princ head)
(setq lastwasstring nil))
(princ (format " %-8s \\%-16s %-22s %-13s\n"
utf8 name latex html)))
((pred stringp)
(princ e)
(princ "\n")
(setq lastwasstring t))))))
(with-current-buffer "*Org Entity Help*"
(org-mode)
(when org-pretty-entities
(org-toggle-pretty-entities)))
(select-window (get-buffer-window "*Org Entity Help*")))
(provide 'org-entities)
;; Local variables:
;; coding: utf-8
;; End:
;;; org-entities.el ends here