Mercurial > hg > egg-tcls

comparison weather.tcl @ 562:15bc88a1477a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
561:bdccc83a1c22 562:15bc88a1477a
48 } 48 }
49 } 49 }
50 50
51 51
52 proc weather_smsg {apublic anick achan amsg {aargs {}}} { 52 proc weather_smsg {apublic anick achan amsg {aargs {}}} {
53 global weather_preferredmsg 53 global weather_preferredmsg weather_cmd_name
54 set amsg [string map [list "@cmd@" "!sää"] $amsg] 54 set amsg [string map [list "@cmd@" $weather_cmd_name] $amsg]
55 utl_msg_args $weather_preferredmsg $apublic $anick $achan $amsg $aargs 55 utl_msg_args $weather_preferredmsg $apublic $anick $achan $amsg $aargs
56 } 56 }
57 57
58 58
59 proc weather_msg {apublic anick achan aid {aargs {}}} { 59 proc weather_msg {apublic anick achan aid {aargs {}}} {