# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1422025641 -7200
# Node ID 899128d7c4084e938f20017d76cdb87616a9d7b1
# Parent  259f093c95030a12045644ecb57bf8751fb4bf92
weather: Remove obsolete function, move one function around.

diff -r 259f093c9503 -r 899128d7c408 weather.tcl
--- a/weather.tcl	Fri Jan 23 16:59:59 2015 +0200
+++ b/weather.tcl	Fri Jan 23 17:07:21 2015 +0200
@@ -74,21 +74,6 @@
 }
 
 
-proc weather_translate_msg {amsg aargs} {
-  set aresult ""
-  foreach aitem $amsg {
-    set atmp $aitem
-    foreach {akey aval} [array get aargs] {
-      set atmp [string map [list "@${akey}@" $aval] $atmp]
-    }
-    if {$atmp != $aitem} {
-      append aresult $atmp
-    }
-  }
-  return $amsg
-}
-
-
 proc weather_ctime {utime} {
   return [clock format $utime -format "%H:%M"]
 }
@@ -152,12 +137,18 @@
 
 
 #-------------------------------------------------------------------------
-proc weather_item {udata uindex ufmt} {
-  if {[llength $udata] > $uindex && [lindex $udata $uindex] != ""} {
-    set utmp [lindex $udata $uindex]
-    return [string map [list "@@" $utmp] $ufmt]
+proc weather_translate_msg {amsg aargs} {
+  set aresult ""
+  foreach aitem $amsg {
+    set atmp $aitem
+    foreach {akey aval} [array get aargs] {
+      set atmp [string map [list "@${akey}@" $aval] $atmp]
+    }
+    if {$atmp != $aitem} {
+      append aresult $atmp
+    }
   }
-  return ""
+  return $amsg
 }