# $Id: disco.tcl 1560 2008-10-19 06:23:58Z sergei $

namespace eval cdisco {}

proc cdisco::handle_disco_command {chatid user body type} {
    set xlib [chat::get_xlib $chatid]
    set jid [chat::get_jid $chatid]
    set bjid [::xmpp::jid::stripResource $jid]

    if {![chat::is_groupchat [chat::chatid $xlib $bjid]]} {
	set jid $bjid
    }

    set body [string trim $body]

    if {[string equal [string range $body 0 6] "/disco "]} {
	set jid [string range $body 7 end]
    } elseif {![string equal $body "/disco"]} {
	return
    }

    disco::browser::open_win $xlib $jid
    return stop
}

hook::add chat_send_message_hook \
    [namespace current]::cdisco::handle_disco_command 50

proc cdisco::disco_command_comp {chatid compsvar wordstart line} {
    upvar 0 $compsvar comps

    if {!$wordstart} {
	lappend comps {/disco }
    }
}

hook::add generate_completions_hook \
	  [namespace current]::cdisco::disco_command_comp

