Tkabber

2016-08-18  Sergei Golovan  <sgolovan@nes.ru>

	* hooks.tcl: Changed the meaning of omitted priority argument for
	  hook::remove. Now it means 'remove all matched scripts from a hook'
	  instead of 'remove matched script with priority 50'.

2016-07-09  Sergei Golovan  <sgolovan@nes.ru>

	* plugins/general/gpgme.tcl: Show the last 16 hexadecimal digits as
	  keyid for GPG keys instead of 8 because of existing examples of
	  keys with the same short keyids.

2016-06-30  Sergei Golovan  <sgolovan@nes.ru>

        set F(flags,$hook) {}
    }

    lappend $hook [list $func $seq]
    set $hook [lsort -real -index 1 [lsort -unique [set $hook]]]
}

proc hook::remove {hook func {seq ""}} {
    variable $hook

    if {$seq ne ""} {
        set idx [lsearch -exact [set $hook] [list $func $seq]]
        set $hook [lreplace [set $hook] $idx $idx]
    } else {
        foreach idx [lsearch -all -exact -index 0 [set $hook] $func] {
            set $hook [lreplace [set $hook] $idx $idx]
        }
    }
}

proc hook::is_empty {hook} {
    variable $hook

    if {![info exists $hook] || [llength [set $hook]] == 0} {
        return 1