Mercurial > hg > egg-tcls
diff weather.tcl @ 562:15bc88a1477a
weather: Add setting weather_cmd_name for specifying the command name used for help texts.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 09 Jul 2020 13:28:54 +0300 |
parents | e0ff67318a99 |
children | 601ef87a1c42 |
line wrap: on
line diff
--- a/weather.tcl Thu Jul 09 13:25:09 2020 +0300 +++ b/weather.tcl Thu Jul 09 13:28:54 2020 +0300 @@ -50,8 +50,8 @@ proc weather_smsg {apublic anick achan amsg {aargs {}}} { - global weather_preferredmsg - set amsg [string map [list "@cmd@" "!sää"] $amsg] + global weather_preferredmsg weather_cmd_name + set amsg [string map [list "@cmd@" $weather_cmd_name] $amsg] utl_msg_args $weather_preferredmsg $apublic $anick $achan $amsg $aargs }