Mercurial > hg > egg-tcls

changeset 587:03d3ec856e4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add @nick@ token to messages.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 27 Jan 2021 10:24:44 +0200
parents 23f2c71fdb90
children dae8f6ad12c2
files feeds.tcl quotedb.tcl weather.tcl
diffstat 3 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/feeds.tcl	Sun Jan 24 23:13:41 2021 +0200
+++ b/feeds.tcl	Wed Jan 27 10:24:44 2021 +0200
@@ -56,6 +56,7 @@
 proc feeds_smsg {apublic anick achan amsg {aargs {}}} {
   global feeds_preferredmsg feeds_cmd_name
   set amsg [string map [list "@cmd@" $feeds_cmd_name] $amsg]
+  set amsg [string map [list "@nick@" $anick] $amsg]
   utl_msg_args $feeds_preferredmsg $apublic $anick $achan $amsg $aargs
 }
 
--- a/quotedb.tcl	Sun Jan 24 23:13:41 2021 +0200
+++ b/quotedb.tcl	Wed Jan 27 10:24:44 2021 +0200
@@ -60,6 +60,7 @@
 
   # Map constant tokens
   set amsg [string map [list "@cmd@" $acmd] $amsg]
+  set amsg [string map [list "@nick@" $anick] $amsg]
   set amsg [string map [list "@name@" $aname] $amsg]
 
   utl_msg_args $qdb_preferredmsg $apublic $anick $achan $amsg $aargs
--- a/weather.tcl	Sun Jan 24 23:13:41 2021 +0200
+++ b/weather.tcl	Wed Jan 27 10:24:44 2021 +0200
@@ -52,6 +52,7 @@
 proc weather_smsg {apublic anick achan amsg {aargs {}}} {
   global weather_preferredmsg weather_cmd_name
   set amsg [string map [list "@cmd@" $weather_cmd_name] $amsg]
+  set amsg [string map [list "@nick@" $anick] $amsg]
   utl_msg_args $weather_preferredmsg $apublic $anick $achan $amsg $aargs
 }