Mercurial > hg > egg-tcls

comparison urllog.tcl @ 123:785bf519b4ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Add some entity translations.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 09 Jan 2012 17:07:00 +0200
parents 7e4f2e93b564
children ac5b1efabace
comparison
equal deleted inserted replaced
122:7e4f2e93b564 123:785bf519b4ee
145 145
146 set urllog_ent_str "&#45;|-|&#39;|'|—|-|&rlm;||&#8212;|-|&#8211;|--|&#x202a;||&#x202c;||" 146 set urllog_ent_str "&#45;|-|&#39;|'|—|-|&rlm;||&#8212;|-|&#8211;|--|&#x202a;||&#x202c;||"
147 append urllog_ent_str "&lrm;||&aring;|å|&Aring;|Å|&eacute;|é|&#58;|:|&nbsp;| |" 147 append urllog_ent_str "&lrm;||&aring;|å|&Aring;|Å|&eacute;|é|&#58;|:|&nbsp;| |"
148 append urllog_ent_str "&#8221;|\"|&#8220;|\"|&laquo;|<<|&raquo;|>>|&quot;|\"|" 148 append urllog_ent_str "&#8221;|\"|&#8220;|\"|&laquo;|<<|&raquo;|>>|&quot;|\"|"
149 append urllog_ent_str "&auml;|ä|&ouml;|ö|&Auml;|Ä|&Ouml;|Ö|&amp;|&|&lt;|<|&gt;|>|" 149 append urllog_ent_str "&auml;|ä|&ouml;|ö|&Auml;|Ä|&Ouml;|Ö|&amp;|&|&lt;|<|&gt;|>|"
150 append urllog_ent_str "&#228;|ä|&#229;|ö" 150 append urllog_ent_str "&#228;|ä|&#229;|ö|&mdash;|-|&#039;|'|&ndash;|-"
151 set urllog_html_ent [split [encoding convertfrom "utf-8" $urllog_ent_str] "|"] 151 set urllog_html_ent [split [encoding convertfrom "utf-8" $urllog_ent_str] "|"]
152 152
153 ### Require packages 153 ### Require packages
154 package require sqlite3 154 package require sqlite3
155 package require http 155 package require http