proc clear_chat_bindings chatid type bind chat input_win chatid Contro

proc clear_chat_bindings {chatid type} {
    bind [::chat::input_win $chatid] <Control-e> \
        [list ::plugins::clear::clear_chat_win $chatid]
}

hook::add open_chat_post_hook clear_chat_binding