|
; http://dev.adiirc.com/boards/5/topics/511
|
|
; Bell icon on menubar for new PM notification
|
|
; v0.1.1 by pereba
|
|
|
|
alias clearbell {
|
|
if ($hget(unreadpms)) hfree $v1
|
|
if ($menubar(bell).name) menubar -d $v1
|
|
}
|
|
|
|
on *:Nick: {
|
|
; transfer old nick data to new one
|
|
if ($hget(unreadpms,$nick).data && $query($newnick)) {
|
|
hdel unreadpms $nick | hadd -m unreadpms $newnick $v1
|
|
}
|
|
}
|
|
|
|
On *:Text:*:?: {
|
|
if ($nick != $active) {
|
|
$update($v1,$wid).add
|
|
}
|
|
}
|
|
|
|
On *:Active:?: {
|
|
if ($window($active).type != query) return
|
|
$update($active).clean
|
|
}
|
|
|
|
On *:Close:?: $update($target).clean
|
|
|
|
alias -l update {
|
|
if ($prop == add) {
|
|
hinc -m unreadpms $total | hadd -m unreadpms $1 $calc($gettok($hget(unreadpms,$1).data,1,32) +1) $2
|
|
}
|
|
elseif ($hget(unreadpms,$total) && $prop == clean) {
|
|
hadd unreadpms $total $calc($v1 - $gettok($hget(unreadpms,$1),1,32))
|
|
hdel unreadpms $1
|
|
}
|
|
if ($hget(unreadpms,$total)) menubar $iif($menubar(bell),-t bell,-a bell bell) $iif($osmajor < 7 && $osminor < 2,💬,🔔) $+ $supnumbers($hget(unreadpms,$total))
|
|
elseif ($menubar(bell).name) menubar -d $v1
|
|
}
|
|
|
|
alias -l supnumbers {
|
|
return $replace($1,0,⁰,1,¹,2,²,3,³,4,⁴,5,⁵,6,⁶,7,⁷,8,⁸,9,⁹)
|
|
}
|
|
|
|
alias -l total return total $+ $chr(44)
|
|
|
|
menu bell {
|
|
$submenu($bellmenu($1))
|
|
-
|
|
Clear All $chr(9) $chr(10008): /clearbell
|
|
}
|
|
|
|
alias -l bellmenu {
|
|
while ($1 <= $hget(unreadpms,0).item) {
|
|
if ($hget(unreadpms,$1).item == $total) return -
|
|
return $v1 $chr(9) $chr(40) $+ $gettok($hget(unreadpms,$1).data,1,32) $+ $chr(41) : window -a @ $+ $gettok($hget(unreadpms,$1).data,2,32)
|
|
}
|
|
}
|
