Emacs lisp function to select a HTML entity from a filterable list and insert it at point. Based on Based on code by @emacs_gifs from https://emacsgifs.github.io/html-entities-helper
| ;; Licensed under GNU/GPL. https://emacsgifs.github.io/html-entities-helper | |
| (defun ct/html-entity-insert () | |
| "Select and insert an html entity. | |
| Uses the list from https://en.wikipedia.org/wiki/List_of_XML_and_HTML_character_entity_references." | |
| (interactive) | |
| (defvar _html-entity-list | |
| '("char: \" entity: " text: quotation mark (APL quote)" | |
| "char: & entity: & text: ampersand" | |
| "char: ' entity: ' text: apostrophe (apostrophe-quote); see below" | |
| "char: < entity: < text: less-than sign" | |
| "char: > entity: > text: greater-than sign" | |
| "char: entity: text: no-break space (non-breaking space)[d]" | |
| "char: ¡ entity: ¡ text: inverted exclamation mark" | |
| "char: ¢ entity: ¢ text: cent sign" | |
| "char: £ entity: £ text: pound sign" | |
| "char: ¤ entity: ¤ text: currency sign" | |
| "char: ¥ entity: ¥ text: yen sign (yuan sign)" | |
| "char: ¦ entity: ¦ text: broken bar (broken vertical bar)" | |
| "char: § entity: § text: section sign" | |
| "char: | entity: | text: vertical bar (unix pipe)" | |
| "char: ¨ entity: ¨ text: diaeresis (spacing diaeresis); see Germanic umlaut" | |
| "char: © entity: © text: copyright symbol" | |
| "char: ª entity: ª text: feminine ordinal indicator" | |
| "char: « entity: « text: left-pointing double angle quotation mark (left pointing guillemet)" | |
| "char: ¬ entity: ¬ text: not sign" | |
| "char: entity: ­ text: soft hyphen (discretionary hyphen)" | |
| "char: ® entity: ® text: registered sign (registered trademark symbol)" | |
| "char: ¯ entity: ¯ text: macron (spacing macron, overline, APL overbar)" | |
| "char: ° entity: ° text: degree symbol" | |
| "char: ± entity: ± text: plus-minus sign (plus-or-minus sign)" | |
| "char: ² entity: ² text: superscript two (superscript digit two, squared)" | |
| "char: ³ entity: ³ text: superscript three (superscript digit three, cubed)" | |
| "char: ´ entity: ´ text: acute accent (spacing acute)" | |
| "char: µ entity: µ text: micro sign" | |
| "char: ¶ entity: ¶ text: pilcrow sign (paragraph sign)" | |
| "char: · entity: · text: middle dot (Georgian comma, Greek middle dot)" | |
| "char: ¸ entity: ¸ text: cedilla (spacing cedilla)" | |
| "char: ¹ entity: ¹ text: superscript one (superscript digit one)" | |
| "char: º entity: º text: masculine ordinal indicator" | |
| "char: » entity: » text: right-pointing double angle quotation mark (right pointing guillemet)" | |
| "char: ¼ entity: ¼ text: vulgar fraction one quarter (fraction one quarter)" | |
| "char: ½ entity: ½ text: vulgar fraction one half (fraction one half)" | |
| "char: ¾ entity: ¾ text: vulgar fraction three quarters (fraction three quarters)" | |
| "char: ¿ entity: ¿ text: inverted question mark (turned question mark)" | |
| "char: ` entity: ` text: grave accent" | |
| "char: À entity: À text: Latin capital letter A with grave accent (Latin capital letter A grave)" | |
| "char: Á entity: Á text: Latin capital letter A with acute accent" | |
| "char: Â entity: Â text: Latin capital letter A with circumflex" | |
| "char: Ã entity: Ã text: Latin capital letter A with tilde" | |
| "char: Ä entity: Ä text: Latin capital letter A with diaeresis" | |
| "char: Å entity: Å text: Latin capital letter A with ring above (Latin capital letter A ring)" | |
| "char: Æ entity: Æ text: Latin capital letter AE (Latin capital ligature AE)" | |
| "char: Ç entity: Ç text: Latin capital letter C with cedilla" | |
| "char: È entity: È text: Latin capital letter E with grave accent" | |
| "char: É entity: É text: Latin capital letter E with acute accent" | |
| "char: Ê entity: Ê text: Latin capital letter E with circumflex" | |
| "char: Ë entity: Ë text: Latin capital letter E with diaeresis" | |
| "char: Ì entity: Ì text: Latin capital letter I with grave accent" | |
| "char: Í entity: Í text: Latin capital letter I with acute accent" | |
| "char: Î entity: Î text: Latin capital letter I with circumflex" | |
| "char: Ï entity: Ï text: Latin capital letter I with diaeresis" | |
| "char: Ð entity: Ð text: Latin capital letter Eth" | |
| "char: Ñ entity: Ñ text: Latin capital letter N with tilde" | |
| "char: Ò entity: Ò text: Latin capital letter O with grave accent" | |
| "char: Ó entity: Ó text: Latin capital letter O with acute accent" | |
| "char: Ô entity: Ô text: Latin capital letter O with circumflex" | |
| "char: Õ entity: Õ text: Latin capital letter O with tilde" | |
| "char: Ö entity: Ö text: Latin capital letter O with diaeresis" | |
| "char: × entity: × text: multiplication sign" | |
| "char: Ø entity: Ø text: Latin capital letter O with stroke (Latin capital letter O slash)" | |
| "char: Ù entity: Ù text: Latin capital letter U with grave accent" | |
| "char: Ú entity: Ú text: Latin capital letter U with acute accent" | |
| "char: Û entity: Û text: Latin capital letter U with circumflex" | |
| "char: Ü entity: Ü text: Latin capital letter U with diaeresis" | |
| "char: Ý entity: Ý text: Latin capital letter Y with acute accent" | |
| "char: Þ entity: Þ text: Latin capital letter THORN" | |
| "char: ß entity: ß text: Latin small letter sharp s (ess-zed); see German Eszett" | |
| "char: à entity: à text: Latin small letter a with grave accent" | |
| "char: á entity: á text: Latin small letter a with acute accent" | |
| "char: â entity: â text: Latin small letter a with circumflex" | |
| "char: ã entity: ã text: Latin small letter a with tilde" | |
| "char: ä entity: ä text: Latin small letter a with diaeresis" | |
| "char: å entity: å text: Latin small letter a with ring above" | |
| "char: æ entity: æ text: Latin small letter ae (Latin small ligature ae)" | |
| "char: ç entity: ç text: Latin small letter c with cedilla" | |
| "char: è entity: è text: Latin small letter e with grave accent" | |
| "char: é entity: é text: Latin small letter e with acute accent" | |
| "char: ê entity: ê text: Latin small letter e with circumflex" | |
| "char: ë entity: ë text: Latin small letter e with diaeresis" | |
| "char: ì entity: ì text: Latin small letter i with grave accent" | |
| "char: í entity: í text: Latin small letter i with acute accent" | |
| "char: î entity: î text: Latin small letter i with circumflex" | |
| "char: ï entity: ï text: Latin small letter i with diaeresis" | |
| "char: ð entity: ð text: Latin small letter eth" | |
| "char: ñ entity: ñ text: Latin small letter n with tilde" | |
| "char: ò entity: ò text: Latin small letter o with grave accent" | |
| "char: ó entity: ó text: Latin small letter o with acute accent" | |
| "char: ô entity: ô text: Latin small letter o with circumflex" | |
| "char: õ entity: õ text: Latin small letter o with tilde" | |
| "char: ö entity: ö text: Latin small letter o with diaeresis" | |
| "char: ÷ entity: ÷ text: division sign (obelus)" | |
| "char: ø entity: ø text: Latin small letter o with stroke (Latin small letter o slash)" | |
| "char: ù entity: ù text: Latin small letter u with grave accent" | |
| "char: ú entity: ú text: Latin small letter u with acute accent" | |
| "char: û entity: û text: Latin small letter u with circumflex" | |
| "char: ü entity: ü text: Latin small letter u with diaeresis" | |
| "char: ý entity: ý text: Latin small letter y with acute accent" | |
| "char: þ entity: þ text: Latin small letter thorn" | |
| "char: ÿ entity: ÿ text: Latin small letter y with diaeresis" | |
| "char: Πentity: Πtext: Latin capital ligature oe[e]" | |
| "char: œ entity: œ text: Latin small ligature oe[e]" | |
| "char: Š entity: Š text: Latin capital letter s with caron" | |
| "char: š entity: š text: Latin small letter s with caron" | |
| "char: Ÿ entity: Ÿ text: Latin capital letter y with diaeresis" | |
| "char: ƒ entity: ƒ text: Latin small letter f with hook (function, florin)" | |
| "char: ˆ entity: ˆ text: modifier letter circumflex accent" | |
| "char: ˜ entity: ˜ text: small tilde" | |
| "char: Α entity: Α text: Greek capital letter Alpha" | |
| "char: Β entity: Β text: Greek capital letter Beta" | |
| "char: Γ entity: Γ text: Greek capital letter Gamma" | |
| "char: Δ entity: Δ text: Greek capital letter Delta" | |
| "char: Ε entity: Ε text: Greek capital letter Epsilon" | |
| "char: Ζ entity: Ζ text: Greek capital letter Zeta" | |
| "char: Η entity: Η text: Greek capital letter Eta" | |
| "char: Θ entity: Θ text: Greek capital letter Theta" | |
| "char: Ι entity: Ι text: Greek capital letter Iota" | |
| "char: Κ entity: Κ text: Greek capital letter Kappa" | |
| "char: Λ entity: Λ text: Greek capital letter Lambda" | |
| "char: Μ entity: Μ text: Greek capital letter Mu" | |
| "char: Ν entity: Ν text: Greek capital letter Nu" | |
| "char: Ξ entity: Ξ text: Greek capital letter Xi" | |
| "char: Ο entity: Ο text: Greek capital letter Omicron" | |
| "char: Π entity: Π text: Greek capital letter Pi" | |
| "char: Ρ entity: Ρ text: Greek capital letter Rho" | |
| "char: Σ entity: Σ text: Greek capital letter Sigma" | |
| "char: Τ entity: Τ text: Greek capital letter Tau" | |
| "char: Υ entity: Υ text: Greek capital letter Upsilon" | |
| "char: Φ entity: Φ text: Greek capital letter Phi" | |
| "char: Χ entity: Χ text: Greek capital letter Chi" | |
| "char: Ψ entity: Ψ text: Greek capital letter Psi" | |
| "char: Ω entity: Ω text: Greek capital letter Omega" | |
| "char: α entity: α text: Greek small letter alpha" | |
| "char: β entity: β text: Greek small letter beta" | |
| "char: γ entity: γ text: Greek small letter gamma" | |
| "char: δ entity: δ text: Greek small letter delta" | |
| "char: ε entity: ε text: Greek small letter epsilon" | |
| "char: ζ entity: ζ text: Greek small letter zeta" | |
| "char: η entity: η text: Greek small letter eta" | |
| "char: θ entity: θ text: Greek small letter theta" | |
| "char: ι entity: ι text: Greek small letter iota" | |
| "char: κ entity: κ text: Greek small letter kappa" | |
| "char: λ entity: λ text: Greek small letter lambda" | |
| "char: μ entity: μ text: Greek small letter mu" | |
| "char: ν entity: ν text: Greek small letter nu" | |
| "char: ξ entity: ξ text: Greek small letter xi" | |
| "char: ο entity: ο text: Greek small letter omicron" | |
| "char: π entity: π text: Greek small letter pi" | |
| "char: ρ entity: ρ text: Greek small letter rho" | |
| "char: ς entity: ς text: Greek small letter final sigma" | |
| "char: σ entity: σ text: Greek small letter sigma" | |
| "char: τ entity: τ text: Greek small letter tau" | |
| "char: υ entity: υ text: Greek small letter upsilon" | |
| "char: φ entity: φ text: Greek small letter phi" | |
| "char: χ entity: χ text: Greek small letter chi" | |
| "char: ψ entity: ψ text: Greek small letter psi" | |
| "char: ω entity: ω text: Greek small letter omega" | |
| "char: ϑ entity: ϑ text: Greek theta symbol" | |
| "char: ϒ entity: ϒ text: Greek Upsilon with hook symbol" | |
| "char: ϖ entity: ϖ text: Greek pi symbol" | |
| "char: entity:   text: en space[d]" | |
| "char: entity:   text: em space[d]" | |
| "char: entity:   text: thin space[d]" | |
| "char: entity: ‌ text: zero-width non-joiner" | |
| "char: entity: ‍ text: zero-width joiner" | |
| "char: entity: ‎ text: left-to-right mark" | |
| "char: entity: ‏ text: right-to-left mark" | |
| "char: – entity: – text: en dash" | |
| "char: — entity: — text: em dash" | |
| "char: ‘ entity: ‘ text: left single quotation mark" | |
| "char: ’ entity: ’ text: right single quotation mark" | |
| "char: ‚ entity: ‚ text: single low-9 quotation mark" | |
| "char: “ entity: “ text: left double quotation mark" | |
| "char: ” entity: ” text: right double quotation mark" | |
| "char: „ entity: „ text: double low-9 quotation mark" | |
| "char: † entity: † text: dagger, obelisk" | |
| "char: ‡ entity: ‡ text: double dagger, double obelisk" | |
| "char: • entity: • text: bullet (black small circle)[f]" | |
| "char: … entity: … text: horizontal ellipsis (three dot leader)" | |
| "char: ‰ entity: ‰ text: per mille sign" | |
| "char: ′ entity: ′ text: prime (minutes, feet)" | |
| "char: ″ entity: ″ text: double prime (seconds, inches)" | |
| "char: ‹ entity: ‹ text: single left-pointing angle quotation mark[g]" | |
| "char: › entity: › text: single right-pointing angle quotation mark[g]" | |
| "char: ‾ entity: ‾ text: overline (spacing overscore)" | |
| "char: ⁄ entity: ⁄ text: fraction slash (solidus)" | |
| "char: € entity: € text: euro sign" | |
| "char: ℑ entity: ℑ text: black-letter capital I (imaginary part)" | |
| "char: ℘ entity: ℘ text: script capital P (power set, Weierstrass p)" | |
| "char: ℜ entity: ℜ text: black-letter capital R (real part symbol)" | |
| "char: ™ entity: ™ text: trademark symbol" | |
| "char: ℵ entity: ℵ text: alef symbol (first transfinite cardinal)[h]" | |
| "char: ← entity: ← text: leftwards arrow" | |
| "char: ↑ entity: ↑ text: upwards arrow" | |
| "char: → entity: → text: rightwards arrow" | |
| "char: ↓ entity: ↓ text: downwards arrow" | |
| "char: ↔ entity: ↔ text: left right arrow" | |
| "char: ↵ entity: ↵ text: downwards arrow with corner leftwards (carriage return)" | |
| "char: ⇐ entity: ⇐ text: leftwards double arrow[i]" | |
| "char: ⇑ entity: ⇑ text: upwards double arrow" | |
| "char: ⇒ entity: ⇒ text: rightwards double arrow[j]" | |
| "char: ⇓ entity: ⇓ text: downwards double arrow" | |
| "char: ⇔ entity: ⇔ text: left right double arrow" | |
| "char: ∀ entity: ∀ text: for all" | |
| "char: ∂ entity: ∂ text: partial differential" | |
| "char: ∃ entity: ∃ text: there exists" | |
| "char: ∅ entity: ∅ text: empty set (null set); see also U+8960, ⌀" | |
| "char: ∇ entity: ∇ text: del or nabla (vector differential operator)" | |
| "char: ∈ entity: ∈ text: element of" | |
| "char: ∉ entity: ∉ text: not an element of" | |
| "char: ∋ entity: ∋ text: contains as member" | |
| "char: ∏ entity: ∏ text: n-ary product (product sign)[k]" | |
| "char: ∑ entity: ∑ text: n-ary summation[l]" | |
| "char: − entity: − text: minus sign" | |
| "char: ∗ entity: ∗ text: asterisk operator" | |
| "char: √ entity: √ text: square root (radical sign)" | |
| "char: ∝ entity: ∝ text: proportional to" | |
| "char: ∞ entity: ∞ text: infinity" | |
| "char: ∠ entity: ∠ text: angle" | |
| "char: ∧ entity: ∧ text: logical and (wedge)" | |
| "char: ∨ entity: ∨ text: logical or (vee)" | |
| "char: ∩ entity: ∩ text: intersection (cap)" | |
| "char: ∪ entity: ∪ text: union (cup)" | |
| "char: ∫ entity: ∫ text: integral" | |
| "char: ∴ entity: ∴ text: therefore sign" | |
| "char: ∼ entity: ∼ text: tilde operator (varies with, similar to)[m]" | |
| "char: ≅ entity: ≅ text: congruent to" | |
| "char: ≈ entity: ≈ text: almost equal to (asymptotic to)" | |
| "char: ≠ entity: ≠ text: not equal to" | |
| "char: ≡ entity: ≡ text: identical to; sometimes used for 'equivalent to'" | |
| "char: ≤ entity: ≤ text: less-than or equal to" | |
| "char: ≥ entity: ≥ text: greater-than or equal to" | |
| "char: ⊂ entity: ⊂ text: subset of" | |
| "char: ⊃ entity: ⊃ text: superset of[n]" | |
| "char: ⊄ entity: ⊄ text: not a subset of" | |
| "char: ⊆ entity: ⊆ text: subset of or equal to" | |
| "char: ⊇ entity: ⊇ text: superset of or equal to" | |
| "char: ⊕ entity: ⊕ text: circled plus (direct sum)" | |
| "char: ⊗ entity: ⊗ text: circled times (vector product)" | |
| "char: ⊥ entity: ⊥ text: up tack (orthogonal to, perpendicular)[o]" | |
| "char: ⋅ entity: ⋅ text: dot operator[p]" | |
| "char: ⌈ entity: ⌈ text: left ceiling (APL upstile)" | |
| "char: ⌉ entity: ⌉ text: right ceiling" | |
| "char: ⌊ entity: ⌊ text: left floor (APL downstile)" | |
| "char: ⌋ entity: ⌋ text: right floor" | |
| "char: 〈 entity: ⟨ text: left-pointing angle bracket (bra)[q]" | |
| "char: 〉 entity: ⟩ text: right-pointing angle bracket (ket)[r]" | |
| "char: ◊ entity: ◊ text: lozenge" | |
| "char: ♠ entity: ♠ text: black spade suit[f]" | |
| "char: ♣ entity: ♣ text: black club suit (shamrock)[f]" | |
| "char: ♥ entity: ♥ text: black heart suit (valentine)[f]" | |
| "char: ♦ entity: ♦ text: black diamond suit[f]") | |
| "List of HTML entities with helpful text notes. | |
| Scraped from Wikipedia at https://en.wikipedia.org/wiki/List_of_XML_and_HTML_character_entity_references") | |
| (defun _html-entity-select () | |
| "Select an html entry from the list." | |
| (interactive) | |
| (completing-read "HTML Entity: " _html-entity-list)) | |
| (let ((entry (_html-entity-select))) | |
| (string-match "entity: \\(&.*?;\\)" entry) | |
| (insert (match-string 1 entry)))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment