# HG changeset patch # User Matti Hamalainen # Date 1605835853 -7200 # Node ID 2a1f3e0f09778653f22317f6c778fa48438f9c03 # Parent d004944d6afdb4238b9da86a321ab23cb305499a utillib: Adjust and add some HTML entity/Unicode conversions. diff -r d004944d6afd -r 2a1f3e0f0977 utillib.tcl --- 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] "|"]