Mercurial > hg > egg-tcls
changeset 574:2a1f3e0f0977
utillib: Adjust and add some HTML entity/Unicode conversions.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 20 Nov 2020 03:30:53 +0200 |
parents | d004944d6afd |
children | 3530d38071c4 |
files | utillib.tcl |
diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/utillib.tcl Sun Sep 27 14:58:55 2020 +0300 +++ b/utillib.tcl Fri Nov 20 03:30:53 2020 +0200 @@ -14,10 +14,12 @@ append utl_html_ent_str "|ä|ä|å|ö|—|--|'|'|–|-|"|\"" append utl_html_ent_str "|||-|’|'|ü|ü|Ü|Ü|•|*|€|€" append utl_html_ent_str "|”|\"|‘|'|ä|ä|·|*|®|®|´|'" -append utl_html_ent_str "|ö|ö|ö|ö|#|#|'|'|­||–|-|”|\"" +append utl_html_ent_str "|ö|ö|ö|ö|#|#|'|'|­||–|-" append utl_html_ent_str "|…|...|…|...|"|\"|­||@|#" append utl_html_ent_str "| | |£|£|&|&|ž|ž|Ä|Ä|º|º" -append utl_html_ent_str "|…|...|/|/| | |"|\"|–|-" +append utl_html_ent_str "|…|...|/|/| | |"|\"|'|\"" +append utl_html_ent_str "|‘|'|’|'|”|\"" + set utl_html_ent_list [split [encoding convertfrom "utf-8" $utl_html_ent_str] "|"]