Mercurial > hg > egg-tcls

comparison weather.tcl @ 280:3893192d7aff rel-0_1_0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Fix a WTF.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 23 Jan 2015 12:32:06 +0200
parents f6dc673adfa1
children 259f093c9503
comparison
equal deleted inserted replaced
279:f6dc673adfa1 280:3893192d7aff
145 return "" 145 return ""
146 } 146 }
147 147
148 148
149 # Produce one location of weather data as a string 149 # Produce one location of weather data as a string
150 proc weather_get_data {udata ukey} {
150 set str "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 2]]: \002[lindex $udata 3]°C\002" 151 set str "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 2]]: \002[lindex $udata 3]°C\002"
151 proc weather_get_data {udata ukey} {
152 if {[lindex $udata 1] == 0} { 152 if {[lindex $udata 1] == 0} {
153 append str [weather_item $udata 5 ", @@"] 153 append str [weather_item $udata 5 ", @@"]
154 append str [weather_item $udata 6 ", keli @@"] 154 append str [weather_item $udata 6 ", keli @@"]
155 append str [weather_item $udata 4 ", tien pinta @@°C"] 155 append str [weather_item $udata 4 ", tien pinta @@°C"]
156 } else { 156 } else {