Tkabber contrib

Check-in [42962ad511]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Allow "s #dddddd+" command with small letter 's'.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:42962ad511906201b6c3c7f079a68bcfd6966b62
User & Date: toktonada 2013-05-31 15:57:53
Context
2013-07-21
14:59
Juick plugin (svn branch): * Optimize 'expr' usage and few indent fixes. * Fix string comparison by 'expr'. check-in: d08be32dce user: toktonada tags: trunk
2013-05-31
15:57
Allow "s #dddddd+" command with small letter 's'. check-in: 42962ad511 user: toktonada tags: trunk
2013-03-12
12:13
Fixed bug with user disconnecting (den_po). check-in: b9d67b41b9 user: rejjin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to juick/juick.tcl.

355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
}

proc rewrite_send_juick_message {chatid user body type} {
    if {![is_juick $chatid] || ![string equal $type "chat"]} {
        return
    }

    if {[regexp {^S (#\d+)\+\s*$} $body -> thing]} {
        set xlib [chat::get_xlib $chatid]
        set jid [chat::get_jid $chatid]

        chat::add_message $chatid $user $type $body {}
        message::send_msg $xlib $jid -type chat -body "S $thing"
        message::send_msg $xlib $jid -type chat -body "$thing+"








|







355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
}

proc rewrite_send_juick_message {chatid user body type} {
    if {![is_juick $chatid] || ![string equal $type "chat"]} {
        return
    }

    if {[regexp {^[Ss] (#\d+)\+\s*$} $body -> thing]} {
        set xlib [chat::get_xlib $chatid]
        set jid [chat::get_jid $chatid]

        chat::add_message $chatid $user $type $body {}
        message::send_msg $xlib $jid -type chat -body "S $thing"
        message::send_msg $xlib $jid -type chat -body "$thing+"