Mercurial > hg > egg-tcls
comparison tj.tcl @ 620:47b15186373f
tj: Clarify some comments.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Wed, 10 Feb 2021 15:25:31 +0200 |
| parents | 3b1fdba9a95c |
| children | a1efc28ef5a4 |
comparison
equal
deleted
inserted
replaced
| 619:cccf72482667 | 620:47b15186373f |
|---|---|
| 215 foreach ukey $tj_messages(help_full) { | 215 foreach ukey $tj_messages(help_full) { |
| 216 tj_msg $upublic $unick $uchan $ukey | 216 tj_msg $upublic $unick $uchan $ukey |
| 217 } | 217 } |
| 218 return 1 | 218 return 1 |
| 219 } elseif {[tj_cmd_match "set" $rcmd]} { | 219 } elseif {[tj_cmd_match "set" $rcmd]} { |
| 220 # !tj set [#id] <[-/+]days [[+/-]<hours>] | dd.mm.yyyy [hh:mm]> [<desc>] | 220 # !tj set [#<id>] <[-/+]days [[+/-]<hours>] | dd.mm.yyyy [hh:mm]> [<desc>] |
| 221 if {![utl_arg_get $rarglist rindex rarg 0]} { | 221 if {![utl_arg_get $rarglist rindex rarg 0]} { |
| 222 tj_msg $upublic $unick $uchan "help_set" | 222 tj_msg $upublic $unick $uchan "help_set" |
| 223 return 1 | 223 return 1 |
| 224 } | 224 } |
| 225 | 225 |
| 368 tj_msg $upublic $unick $uchan "tj_updated" [list $cid $uid $uhand $rdesc $udate $utjstr] | 368 tj_msg $upublic $unick $uchan "tj_updated" [list $cid $uid $uhand $rdesc $udate $utjstr] |
| 369 tj_log "tj_updated $cid:$uid:$uhand:$rdesc:$rdate:$udate" | 369 tj_log "tj_updated $cid:$uid:$uhand:$rdesc:$rdate:$udate" |
| 370 } | 370 } |
| 371 | 371 |
| 372 } elseif {[tj_cmd_match "remind" $rcmd]} { | 372 } elseif {[tj_cmd_match "remind" $rcmd]} { |
| 373 # !tj remind <#id> <<dd.mm.yyyy [hh:mm]>|<message>> | 373 # !tj remind #<id> <<dd.mm.yyyy [hh:mm]>|<message>> |
| 374 # !tj remind <#id> <<dd.mm [hh:mm]>|<message>> | 374 # !tj remind #<id> <<dd.mm [hh:mm]>|<message>> |
| 375 if {[llength $rarglist] < 3} { | 375 if {[llength $rarglist] < 3} { |
| 376 tj_msg $upublic $unick $uchan "help_add" | 376 tj_msg $upublic $unick $uchan "help_add" |
| 377 return 1 | 377 return 1 |
| 378 } | 378 } |
| 379 | 379 |
| 422 return 1 | 422 return 1 |
| 423 } | 423 } |
| 424 | 424 |
| 425 tj_msg $upublic $unick $uchan "items_deleted" [list $uid $nitems] | 425 tj_msg $upublic $unick $uchan "items_deleted" [list $uid $nitems] |
| 426 } elseif {[tj_cmd_match "show" $rcmd]} { | 426 } elseif {[tj_cmd_match "show" $rcmd]} { |
| 427 # !tj show [#id] <name> | 427 # !tj show [#<id>] <name> |
| 428 # Check for #id prefix | 428 # Check for #id prefix |
| 429 if {[utl_arg_get $rarglist rindex rarg 0]} { | 429 if {[utl_arg_get $rarglist rindex rarg 0]} { |
| 430 tj_get_id $rarg rindex uid | 430 tj_get_id $rarg rindex uid |
| 431 } | 431 } |
| 432 | 432 |
| 441 return 1 | 441 return 1 |
| 442 } | 442 } |
| 443 | 443 |
| 444 tj_display_tjs $upublic $unick $uchan $uname $uid | 444 tj_display_tjs $upublic $unick $uchan $uname $uid |
| 445 } else { | 445 } else { |
| 446 # !tj [#id] [name] | 446 # !tj [#<id>] [name] |
| 447 set uname $uhand | 447 set uname $uhand |
| 448 set rindex 0 | 448 set rindex 0 |
| 449 if {[utl_arg_get $rarglist rindex rarg 0]} { | 449 if {[utl_arg_get $rarglist rindex rarg 0]} { |
| 450 # Check for #id prefix | 450 # Check for #id prefix |
| 451 tj_get_id $rarg rindex uid | 451 tj_get_id $rarg rindex uid |