Mercurial > hg > egg-tcls
changeset 564:f85b5c572292
feeds: Add configuration setting feeds_cmd_name.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 09 Jul 2020 22:07:16 +0300 |
parents | 537df683836c |
children | cd5dd38466cf |
files | config.feeds.example feeds.tcl |
diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/config.feeds.example Thu Jul 09 13:41:46 2020 +0300 +++ b/config.feeds.example Thu Jul 09 22:07:16 2020 +0300 @@ -26,6 +26,10 @@ } +# Name of the command used for help texts +set feeds_cmd_name "!feeds" + + # Initialization proc called only by feeds.tcl proc feeds_init { } { # Bind commands
--- a/feeds.tcl Thu Jul 09 13:41:46 2020 +0300 +++ b/feeds.tcl Thu Jul 09 22:07:16 2020 +0300 @@ -54,8 +54,8 @@ proc feeds_smsg {apublic anick achan amsg {aargs {}}} { - global feeds_preferredmsg - set amsg [string map [list "@cmd@" "!feeds"] $amsg] + global feeds_preferredmsg feeds_cmd_name + set amsg [string map [list "@cmd@" $feeds_cmd_name] $amsg] utl_msg_args $feeds_preferredmsg $apublic $anick $achan $amsg $aargs }