# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1594150110 -10800
# Node ID 3174701325c02560ff7d99c012731e47c96cbe5a
# Parent  c9dc79874939e613d87c82337114e0056c9ed944
weather: Fixes to the help.

diff -r c9dc79874939 -r 3174701325c0 config.weather.example
--- a/config.weather.example	Tue Jul 07 22:08:43 2020 +0300
+++ b/config.weather.example	Tue Jul 07 22:28:30 2020 +0300
@@ -115,35 +115,35 @@
 
 array set weather_messages {
 
-  "usage_prefix_1" "Käyttö: !sää "
-  "usage_prefix_2" "        !sää "
+  "usage_single" "@cmd@ \[paikka\]"
+  "usage_full" {"usage_single" "usage_stations" "usage_def_set" "usage_alias" "usage_unalias" "usage_nearest"}
 
   "list_nearest" $weather_msg_list_station
-  "usage_nearest" "lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
-  "usage_nearest_invalid" "lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
   "nearest_stations" "Lähimmät mittausasemat (@1@, @2@): @3@"
-
+  "usage_nearest" "@cmd@ lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
+  "nearest_invalid" "@cmd@ lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
 
-  "usage_def_set" "vakio <paikka>\[;<paikka2>\] -- asettaa vakiohavaintoaseman\nvakio -- näyttää nykyisen"
-  "usage_alias" "alias <alias> = <nimi> (Lisää alias-nimen, esim. alias perse = turku)"
-  "usage_unalias" "unalias <alias> (Poistaa aliaksen)"
-
-  "usage_stations" "asemat <patterni> -- listaa mittausasemat joiden nimi matsaa patternin kanssa"
-
-  "usage_full" "\[paikka\]\n$weather_msg_usage_def_set\n$weather_msg_usage_alias\n$weather_msg_usage_unalias\n$weather_msg_usage_stations"
+  "temp_min" "Min: @1@"
+  "temp_max" "Max: @1@"
+  "temp_minmax" "Min: @1@\nMax: @2@"
 
   "def_set_to" "Vakio-havaintoasemiksi asetettu: \002@1@\002."
   "def_value" "Käyttäjän \002@1@\002 vakio-havaintoasemat ovat: \002@2@\002."
   "def_not_set" "Vakio-havaintoasemia ei asetettu käyttäjälle \002@1@\002."
+  "usage_def_set" "@cmd@ vakio <paikka>\[;<paikka2>\] -- asettaa vakiohavaintoaseman\n@cmd@ vakio -- näyttää nykyisen"
 
-  "aliased" "Aliasoitiin \002@1@\002 = \002@2@\002."
-  "unaliased" "Unaliasoitiin \002@1@\002."
-  "aliases" "Aliakset: @1@"
+  "alias_set" "Aliasoitiin \002@1@\002 = \002@2@\002."
+  "alias_unset" "Unaliasoitiin \002@1@\002."
+  "alias_item" "\002'@1@' = '@2@'\002"
+  "alias_list" "Aliakset: @1@"
+  "usage_alias" "@cmd@ alias <alias> = <nimi> -- lisää alias-nimen, esim. alias perse = turku"
+  "usage_unalias" "@cmd@ unalias <alias> -- poistaa aliaksen"
 
   "user_not_known" "Tuntematon käyttäjä."
   "no_access" "Ei oikeuksia muuttaa asetuksia."
 
-  "stations" "Mittausasemat: @1@"
+  "stations_list" "Mittausasemat: @1@"
+  "usage_stations" "@cmd@ asemat <patterni> -- listaa mittausasemat joiden nimi matsaa patternin kanssa"
 
   "no_results" "\002@1@\002: Ei mittaustietoja."
   "no_data_for_location" "\002@1@\002: Paikkakunnan tietoja ei saatu."
diff -r c9dc79874939 -r 3174701325c0 weather.tcl
--- a/weather.tcl	Tue Jul 07 22:08:43 2020 +0300
+++ b/weather.tcl	Tue Jul 07 22:28:30 2020 +0300
@@ -325,16 +325,9 @@
   set rcmd [lindex $rarglist 0]
 
   if {$rcmd == "?" || $rcmd == "help" || $rcmd == "apua"} {
-    set help_full {}
-
-    # FIXME
-    foreach {ukey uvalue} [array get weather_messages] {
-      if {[string match "usage_*" $ukey]} {
-        lappend help_full $uvalue
-      }
+    foreach ukey $weather_messages(usage_full) {
+      weather_msg $upublic $unick $uchan $ukey
     }
-
-    weather_msg $upublic $unick $uchan "usage_full" $help_full
     return 0
   }
 
@@ -388,7 +381,7 @@
     # Create a result list for few best/first matches
     set uresult {}
     foreach {uval} [lrange $usorted 0 2] {
-      lappend uresult [weather_get_str $weather_data([lindex $uval 0]) $weather_msg_list_nearest]
+      lappend uresult [weather_get_str $weather_data([lindex $uval 0]) $weather_msg_list_station]
     }
 
     # Print out the result