1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
# $Id: me_command.tcl 882 2007-01-26 17:55:57Z sergei $
proc handle_me {chatid from type body x} {
if {[cequal [crange $body 0 3] "/me "] || [cequal $body "/me"]} {
set body [crange $body 4 end]
if {[chat::is_our_jid $chatid $from]} {
set tag me
} else {
set tag they
}
set connid [chat::get_connid $chatid]
set chatw [chat::chat_win $chatid]
set nick [chat::get_nick $connid $from $type]
set cw [chat::winid $chatid]
$chatw insert end "* $nick" [list $tag NICK-$nick] " "
$chatw mark set MSGLEFT "end - 1 char"
$chatw mark gravity MSGLEFT left
if {[cequal $type groupchat]} {
set myjid [chat::our_jid $chatid]
set mynick [chat::get_nick $connid $myjid $type]
::richtext::property_add mynick $mynick
::richtext::render_message $chatw $body $tag
} else {
::richtext::render_message $chatw $body $tag
}
$chatw tag add NICKMSG-$nick MSGLEFT "end - 1 char"
if {![catch {::plugins::mucignore::is_ignored $connid $from $type} ignore] && \
$ignore != ""} {
$chatw tag add $ignore {MSGLEFT linestart} {end - 1 char}
}
return stop
}
}
hook::add draw_message_hook [namespace current]::handle_me 83
proc me_command_comp {chatid compsvar wordstart line} {
upvar 0 $compsvar comps
if {!$wordstart} {
lappend comps {/me }
}
}
hook::add generate_completions_hook [namespace current]::me_command_comp
|
