# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1612957016 -7200
# Node ID ce7a666991e3acf3cb3460851dd224525c48ef85
# Parent  20dba2c757de5ae69fbe3a56d55a0ffcd6e4199e
tj: Cleanup, set rindex only once.

diff -r 20dba2c757de -r ce7a666991e3 tj.tcl
--- a/tj.tcl	Wed Feb 10 13:36:31 2021 +0200
+++ b/tj.tcl	Wed Feb 10 13:36:56 2021 +0200
@@ -208,6 +208,7 @@
   # Check and handle arguments
   set rarglist [::textutil::split::splitx $uargs {\s+}]
   set rcmd [lindex $rarglist 0]
+  set rindex 1
 
   if {[tj_cmd_match "help" $rcmd]} {
     # Show help
@@ -217,7 +218,6 @@
     return 1
   } elseif {[tj_cmd_match "set" $rcmd]} {
     # !tj set [#id] <[-/+]days [[+/-]<hours>] | dd.mm.yyyy [hh:mm]> [<desc>]
-    set rindex 1
     if {![utl_arg_get $rarglist rindex rarg 0]} {
       tj_msg $upublic $unick $uchan "help_set"
       return 1
@@ -407,7 +407,6 @@
   } elseif {[tj_cmd_match "show" $rcmd]} {
     # !tj show [#id] <name>
     # Check for #id prefix
-    set rindex 1
     if {[utl_arg_get $rarglist rindex rarg 0]} {
       tj_get_id $rarg rindex uid
     }