kuanyui/html-entities-convert.el

## html-entities-convert.el
(defun html-entities-convert (string)
  "Replace html entities.
Example:
(html-enetities-convert \"&gt\;\")
=> \">\""
  (map 'array (lambda (x)
    (if (string-match (aref x 0) string)
        (setq string (replace-regexp-in-string (aref x 0) (aref x 1) string))
    ))
                           [
                            ["&#39;" "'"]
                            ["&nbsp;" ""]
                            ["&iexcl;" "¡"]
                            ["&cent;" "¢"]
                            ["&pound;" "£"]
                            ["&curren;" "¤"]
                            ["&yen;" "¥"]
                            ["&brvbar;" "¦"]
                            ["&sect;" "§"]
                            ["&uml;" "¨"]
                            ["&copy;" "©"]
                            ["&ordf;" "ª"]
                            ["&laquo;" "«"]
                            ["&not;" "¬"]
                            ["&reg;" "®"]
                            ["&macr;" "¯"]
                            ["&deg;" "°"]
                            ["&plusmn;" "±"]
                            ["&sup2;" "²"]
                            ["&sup3;" "³"]
                            ["&acute;" "´"]
                            ["&micro;" "µ"]
                            ["&para;" "¶"]
                            ["&middot;" "·"]
                            ["&cedil;" "¸"]
                            ["&sup1;" "¹"]
                            ["&ordm;" "º"]
                            ["&raquo;" "»"]
                            ["&frac14;" "¼"]
                            ["&frac12;" "½"]
                            ["&frac34;" "¾"]
                            ["&iquest;" "¿"]
                            ["&Agrave;" "À"]
                            ["&Aacute;" "Á"]
                            ["&Acirc;" "Â"]
                            ["&Atilde;" "Ã"]
                            ["&Auml;" "Ä"]
                            ["&Aring;" "Å"]
                            ["&AElig;" "Æ"]
                            ["&Ccedil;" "Ç"]
                            ["&Egrave;" "È"]
                            ["&Eacute;" "É"]
                            ["&Ecirc;" "Ê"]
                            ["&Euml;" "Ë"]
                            ["&Igrave;" "Ì"]
                            ["&Iacute;" "Í"]
                            ["&Icirc;" "Î"]
                            ["&Iuml;" "Ï"]
                            ["&ETH;" "Ð"]
                            ["&Ntilde;" "Ñ"]
                            ["&Ograve;" "Ò"]
                            ["&Oacute;" "Ó"]
                            ["&Ocirc;" "Ô"]
                            ["&Otilde;" "Õ"]
                            ["&Ouml;" "Ö"]
                            ["&times;" "×"]
                            ["&Oslash;" "Ø"]
                            ["&Ugrave;" "Ù"]
                            ["&Uacute;" "Ú"]
                            ["&Ucirc;" "Û"]
                            ["&Uuml;" "Ü"]
                            ["&Yacute;" "Ý"]
                            ["&THORN;" "Þ"]
                            ["&szlig;" "ß"]
                            ["&agrave;" "à"]
                            ["&aacute;" "á"]
                            ["&acirc;" "â"]
                            ["&atilde;" "ã"]
                            ["&auml;" "ä"]
                            ["&aring;" "å"]
                            ["&aelig;" "æ"]
                            ["&ccedil;" "ç"]
                            ["&egrave;" "è"]
                            ["&eacute;" "é"]
                            ["&ecirc;" "ê"]
                            ["&euml;" "ë"]
                            ["&igrave;" "ì"]
                            ["&iacute;" "í"]
                            ["&icirc;" "î"]
                            ["&iuml;" "ï"]
                            ["&eth;" "ð"]
                            ["&ntilde;" "ñ"]
                            ["&ograve;" "ò"]
                            ["&oacute;" "ó"]
                            ["&ocirc;" "ô"]
                            ["&otilde;" "õ"]
                            ["&ouml;" "ö"]
                            ["&divide;" "÷"]
                            ["&oslash;" "ø"]
                            ["&ugrave;" "ù"]
                            ["&uacute;" "ú"]
                            ["&ucirc;" "û"]
                            ["&uuml;" "ü"]
                            ["&yacute;" "ý"]
                            ["&thorn;" "þ"]
                            ["&yuml;" "ÿ"]
                            ["&fnof;" "ƒ"]
                            ["&Alpha;" "Α"]
                            ["&Beta;" "Β"]
                            ["&Gamma;" "Γ"]
                            ["&Delta;" "Δ"]
                            ["&Epsilon;" "Ε"]
                            ["&Zeta;" "Ζ"]
                            ["&Eta;" "Η"]
                            ["&Theta;" "Θ"]
                            ["&Iota;" "Ι"]
                            ["&Kappa;" "Κ"]
                            ["&Lambda;" "Λ"]
                            ["&Mu;" "Μ"]
                            ["&Nu;" "Ν"]
                            ["&Xi;" "Ξ"]
                            ["&Omicron;" "Ο"]
                            ["&Pi;" "Π"]
                            ["&Rho;" "Ρ"]
                            ["&Sigma;" "Σ"]
                            ["&Tau;" "Τ"]
                            ["&Upsilon;" "Υ"]
                            ["&Phi;" "Φ"]
                            ["&Chi;" "Χ"]
                            ["&Psi;" "Ψ"]
                            ["&Omega;" "Ω"]
                            ["&alpha;" "α"]
                            ["&beta;" "β"]
                            ["&gamma;" "γ"]
                            ["&delta;" "δ"]
                            ["&epsilon;" "ε"]
                            ["&zeta;" "ζ"]
                            ["&eta;" "η"]
                            ["&theta;" "θ"]
                            ["&iota;" "ι"]
                            ["&kappa;" "κ"]
                            ["&lambda;" "λ"]
                            ["&mu;" "μ"]
                            ["&nu;" "ν"]
                            ["&xi;" "ξ"]
                            ["&omicron;" "ο"]
                            ["&pi;" "π"]
                            ["&rho;" "ρ"]
                            ["&sigmaf;" "ς"]
                            ["&sigma;" "σ"]
                            ["&tau;" "τ"]
                            ["&upsilon;" "υ"]
                            ["&phi;" "φ"]
                            ["&chi;" "χ"]
                            ["&psi;" "ψ"]
                            ["&omega;" "ω"]
                            ["&thetasym;" "ϑ"]
                            ["&upsih;" "ϒ"]
                            ["&piv;" "ϖ"]
                            ["&bull;" "•"]
                            ["&hellip;" "…"]
                            ["&prime;" "′"]
                            ["&Prime;" "″"]
                            ["&oline;" "‾"]
                            ["&frasl;" "⁄"]
                            ["&weierp;" "℘"]
                            ["&image;" "ℑ"]
                            ["&real;" "ℜ"]
                            ["&trade;" "™"]
                            ["&alefsym;" "ℵ"]
                            ["&larr;" "←"]
                            ["&uarr;" "↑"]
                            ["&rarr;" "→"]
                            ["&darr;" "↓"]
                            ["&harr;" "↔"]
                            ["&crarr;" "↵"]
                            ["&lArr;" "⇐"]
                            ["&uArr;" "⇑"]
                            ["&rArr;" "⇒"]
                            ["&dArr;" "⇓"]
                            ["&hArr;" "⇔"]
                            ["&forall;" "∀"]
                            ["&part;" "∂"]
                            ["&exist;" "∃"]
                            ["&empty;" "∅"]
                            ["&nabla;" "∇"]
                            ["&isin;" "∈"]
                            ["&notin;" "∉"]
                            ["&ni;" "∋"]
                            ["&prod;" "∏"]
                            ["&sum;" "∑"]
                            ["&minus;" "−"]
                            ["&lowast;" "∗"]
                            ["&radic;" "√"]
                            ["&prop;" "∝"]
                            ["&infin;" "∞"]
                            ["&ang;" "∠"]
                            ["&and;" "∧"]
                            ["&or;" "∨"]
                            ["&cap;" "∩"]
                            ["&cup;" "∪"]
                            ["&int;" "∫"]
                            ["&there4;" "∴"]
                            ["&sim;" "∼"]
                            ["&cong;" "≅"]
                            ["&asymp;" "≈"]
                            ["&ne;" "≠"]
                            ["&equiv;" "≡"]
                            ["&le;" "≤"]
                            ["&ge;" "≥"]
                            ["&sub;" "⊂"]
                            ["&sup;" "⊃"]
                            ["&nsub;" "⊄"]
                            ["&sube;" "⊆"]
                            ["&supe;" "⊇"]
                            ["&oplus;" "⊕"]
                            ["&otimes;" "⊗"]
                            ["&perp;" "⊥"]
                            ["&sdot;" "⋅"]
                            ["&lceil;" "⌈"]
                            ["&rceil;" "⌉"]
                            ["&lfloor;" "⌊"]
                            ["&rfloor;" "⌋"]
                            ["&lang;" "〈"]
                            ["&rang;" "〉"]
                            ["&loz;" "◊"]
                            ["&spades;" "♠"]
                            ["&clubs;" "♣"]
                            ["&hearts;" "♥"]
                            ["&diams;" "♦"]
                            ["&quot;" "\""]
                            ["&amp;" "&"]
                            ["&lt;" "<"]
                            ["&gt;" ">"]
                            ["&OElig;" "Œ"]
                            ["&oelig;" "œ"]
                            ["&Scaron;" "Š"]
                            ["&scaron;" "š"]
                            ["&Yuml;" "Ÿ"]
                            ["&circ;" "ˆ"]
                            ["&tilde;" "˜"]
                            ["&ensp;" ""]
                            ["&emsp;" ""]
                            ["&thinsp;" ""]
                            ["&zwnj;" ""]
                            ["&zwj;" ""]
                            ["&lrm;" ""]
                            ["&rlm;" ""]
                            ["&ndash;" "–"]
                            ["&mdash;" "—"]
                            ["&lsquo;" "‘"]
                            ["&rsquo;" "’"]
                            ["&sbquo;" "‚"]
                            ["&ldquo;" "“"]
                            ["&rdquo;" "”"]
                            ["&bdquo;" "„"]
                            ["&dagger;" "†"]
                            ["&Dagger;" "‡"]
                            ["&permil;" "‰"]
                            ["&lsaquo;" "‹"]
                            ["&rsaquo;" "›"]
                            ["&euro;" "€"]
                            ]
                           )
string
)
(provide 'html-entities-convert)
	(defun html-entities-convert (string)
	"Replace html entities.
	Example:
	(html-enetities-convert \"&gt\;\")
	=> \">\""
	(map 'array (lambda (x)
	(if (string-match (aref x 0) string)
	(setq string (replace-regexp-in-string (aref x 0) (aref x 1) string))
	))
	[
	["'" "'"]
	[" " ""]
	["¡" "¡"]
	["¢" "¢"]
	["£" "£"]
	["¤" "¤"]
	["¥" "¥"]
	["¦" "¦"]
	["§" "§"]
	["¨" "¨"]
	["©" "©"]
	["ª" "ª"]
	["«" "«"]
	["¬" "¬"]
	["®" "®"]
	["¯" "¯"]
	["°" "°"]
	["±" "±"]
	["²" "²"]
	["³" "³"]
	["´" "´"]
	["µ" "µ"]
	["¶" "¶"]
	["·" "·"]
	["¸" "¸"]
	["¹" "¹"]
	["º" "º"]
	["»" "»"]
	["¼" "¼"]
	["½" "½"]
	["¾" "¾"]
	["¿" "¿"]
	["À" "À"]
	["Á" "Á"]
	["Â" "Â"]
	["Ã" "Ã"]
	["Ä" "Ä"]
	["Å" "Å"]
	["Æ" "Æ"]
	["Ç" "Ç"]
	["È" "È"]
	["É" "É"]
	["Ê" "Ê"]
	["Ë" "Ë"]
	["Ì" "Ì"]
	["Í" "Í"]
	["Î" "Î"]
	["Ï" "Ï"]
	["Ð" "Ð"]
	["Ñ" "Ñ"]
	["Ò" "Ò"]
	["Ó" "Ó"]
	["Ô" "Ô"]
	["Õ" "Õ"]
	["Ö" "Ö"]
	["×" "×"]
	["Ø" "Ø"]
	["Ù" "Ù"]
	["Ú" "Ú"]
	["Û" "Û"]
	["Ü" "Ü"]
	["Ý" "Ý"]
	["Þ" "Þ"]
	["ß" "ß"]
	["à" "à"]
	["á" "á"]
	["â" "â"]
	["ã" "ã"]
	["ä" "ä"]
	["å" "å"]
	["æ" "æ"]
	["ç" "ç"]
	["è" "è"]
	["é" "é"]
	["ê" "ê"]
	["ë" "ë"]
	["ì" "ì"]
	["í" "í"]
	["î" "î"]
	["ï" "ï"]
	["ð" "ð"]
	["ñ" "ñ"]
	["ò" "ò"]
	["ó" "ó"]
	["ô" "ô"]
	["õ" "õ"]
	["ö" "ö"]
	["÷" "÷"]
	["ø" "ø"]
	["ù" "ù"]
	["ú" "ú"]
	["û" "û"]
	["ü" "ü"]
	["ý" "ý"]
	["þ" "þ"]
	["ÿ" "ÿ"]
	["&fnof;" "ƒ"]
	["Α" "Α"]
	["Β" "Β"]
	["Γ" "Γ"]
	["Δ" "Δ"]
	["Ε" "Ε"]
	["Ζ" "Ζ"]
	["Η" "Η"]
	["Θ" "Θ"]
	["Ι" "Ι"]
	["Κ" "Κ"]
	["Λ" "Λ"]
	["Μ" "Μ"]
	["Ν" "Ν"]
	["Ξ" "Ξ"]
	["Ο" "Ο"]
	["Π" "Π"]
	["Ρ" "Ρ"]
	["Σ" "Σ"]
	["Τ" "Τ"]
	["Υ" "Υ"]
	["Φ" "Φ"]
	["Χ" "Χ"]
	["Ψ" "Ψ"]
	["Ω" "Ω"]
	["α" "α"]
	["β" "β"]
	["γ" "γ"]
	["δ" "δ"]
	["ε" "ε"]
	["ζ" "ζ"]
	["η" "η"]
	["θ" "θ"]
	["ι" "ι"]
	["κ" "κ"]
	["λ" "λ"]
	["μ" "μ"]
	["ν" "ν"]
	["ξ" "ξ"]
	["ο" "ο"]
	["π" "π"]
	["ρ" "ρ"]
	["&sigmaf;" "ς"]
	["σ" "σ"]
	["τ" "τ"]
	["υ" "υ"]
	["φ" "φ"]
	["χ" "χ"]
	["ψ" "ψ"]
	["ω" "ω"]
	["&thetasym;" "ϑ"]
	["&upsih;" "ϒ"]
	["ϖ" "ϖ"]
	["•" "•"]
	["…" "…"]
	["′" "′"]
	["″" "″"]
	["&oline;" "‾"]
	["&frasl;" "⁄"]
	["&weierp;" "℘"]
	["&image;" "ℑ"]
	["&real;" "ℜ"]
	["™" "™"]
	["&alefsym;" "ℵ"]
	["←" "←"]
	["↑" "↑"]
	["→" "→"]
	["↓" "↓"]
	["↔" "↔"]
	["&crarr;" "↵"]
	["⇐" "⇐"]
	["&uArr;" "⇑"]
	["⇒" "⇒"]
	["&dArr;" "⇓"]
	["⇔" "⇔"]
	["∀" "∀"]
	["∂" "∂"]
	["∃" "∃"]
	["∅" "∅"]
	["∇" "∇"]
	["∈" "∈"]
	["∉" "∉"]
	["&ni;" "∋"]
	["∏" "∏"]
	["∑" "∑"]
	["−" "−"]
	["&lowast;" "∗"]
	["√" "√"]
	["&prop;" "∝"]
	["∞" "∞"]
	["&ang;" "∠"]
	["&and;" "∧"]
	["&or;" "∨"]
	["∩" "∩"]
	["∪" "∪"]
	["∫" "∫"]
	["&there4;" "∴"]
	["&sim;" "∼"]
	["&cong;" "≅"]
	["≈" "≈"]
	["≠" "≠"]
	["&equiv;" "≡"]
	["≤" "≤"]
	["≥" "≥"]
	["⊂" "⊂"]
	["⊃" "⊃"]
	["&nsub;" "⊄"]
	["&sube;" "⊆"]
	["&supe;" "⊇"]
	["&oplus;" "⊕"]
	["&otimes;" "⊗"]
	["&perp;" "⊥"]
	["⋅" "⋅"]
	["&lceil;" "⌈"]
	["&rceil;" "⌉"]
	["&lfloor;" "⌊"]
	["&rfloor;" "⌋"]
	["&lang;" "〈"]
	["&rang;" "〉"]
	["&loz;" "◊"]
	["&spades;" "♠"]
	["&clubs;" "♣"]
	["&hearts;" "♥"]
	["&diams;" "♦"]
	[""" "\""]
	["&" "&"]
	["<" "<"]
	[">" ">"]
	["&OElig;" "Œ"]
	["&oelig;" "œ"]
	["&Scaron;" "Š"]
	["&scaron;" "š"]
	["&Yuml;" "Ÿ"]
	["&circ;" "ˆ"]
	["&tilde;" "˜"]
	["&ensp;" ""]
	["&emsp;" ""]
	[" " ""]
	["&zwnj;" ""]
	["&zwj;" ""]
	["&lrm;" ""]
	["&rlm;" ""]
	["–" "–"]
	["—" "—"]
	["‘" "‘"]
	["’" "’"]
	["&sbquo;" "‚"]
	["“" "“"]
	["”" "”"]
	["&bdquo;" "„"]
	["&dagger;" "†"]
	["&Dagger;" "‡"]
	["&permil;" "‰"]
	["&lsaquo;" "‹"]
	["&rsaquo;" "›"]
	["€" "€"]
	]
	)
	string
	)
	(provide 'html-entities-convert)