Mercurial > hg > egg-tcls

comparison utillib.tcl @ 467:b29b0db02649

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
utillib: Add unicode hyphen conversion to ascii.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 09 May 2018 20:04:44 +0300
parents 9c2cc740ec76
children 1255d524a919
comparison
equal deleted inserted replaced
466:a8eb80bbffa5 467:b29b0db02649
15 append utl_html_ent_str "|&#124;|-|&#8217;|'|&uuml;|ü|&Uuml;|Ü|&bull;|*|&euro;|€" 15 append utl_html_ent_str "|&#124;|-|&#8217;|'|&uuml;|ü|&Uuml;|Ü|&bull;|*|&euro;|€"
16 append utl_html_ent_str "|&rdquo;|\"|&#8216;|'|&#xe4;|ä|&#xb7;|*|&#174;|®|&acute;|'" 16 append utl_html_ent_str "|&rdquo;|\"|&#8216;|'|&#xe4;|ä|&#xb7;|*|&#174;|®|&acute;|'"
17 append utl_html_ent_str "|&#246;|ö|&#xf6;|ö|&#35;|#|&apos;|'|&shy;||–|-|”|\"" 17 append utl_html_ent_str "|&#246;|ö|&#xf6;|ö|&#35;|#|&apos;|'|&shy;||–|-|”|\""
18 append utl_html_ent_str "|&#x2026;|...|&hellip;|...|&#34;|\"|&#xad;||&#064;|#" 18 append utl_html_ent_str "|&#x2026;|...|&hellip;|...|&#34;|\"|&#xad;||&#064;|#"
19 append utl_html_ent_str "|&#xa0;| |&pound;|£|&#38;|&|&#158;|ž|&#196;|Ä|&#186;|º" 19 append utl_html_ent_str "|&#xa0;| |&pound;|£|&#38;|&|&#158;|ž|&#196;|Ä|&#186;|º"
20 append utl_html_ent_str "|&#8230;|...|&#47;|/|&#10;| |&#034;|\"" 20 append utl_html_ent_str "|&#8230;|...|&#47;|/|&#10;| |&#034;|\"|–|-"
21 set utl_html_ent_list [split [encoding convertfrom "utf-8" $utl_html_ent_str] "|"] 21 set utl_html_ent_list [split [encoding convertfrom "utf-8" $utl_html_ent_str] "|"]
22 22
23 23
24 # Convert given string, containing HTML/XML style entities into a normal 24 # Convert given string, containing HTML/XML style entities into a normal
25 # UTF-8 Unicode string, using the above entity->character mapping 25 # UTF-8 Unicode string, using the above entity->character mapping