Mercurial > hg > egg-tcls
changeset 540:3174701325c0
weather: Fixes to the help.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 07 Jul 2020 22:28:30 +0300 |
parents | c9dc79874939 |
children | 8e02d736bcc3 |
files | config.weather.example weather.tcl |
diffstat | 2 files changed, 19 insertions(+), 26 deletions(-) [+] |
line wrap: on
line diff
--- 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."
--- 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