;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require jabber-util custom-declare-variable jabber-watch-alist nil "Alist of buddies for which an extra notification should be sent\nwhen they come online, with comment strings as values." :type (alist :key-type symbol :value-type string) :group jabber-watch] 8) #@227 Checks if one of your extra-important buddies comes online and sends a message if that happens. The buddies are stored in `jabber-watch-alist' and are added and removed by calling `jabber-watch-add' and `jabber-watch-remove.' (defalias 'jabber-presence-watch #[(who oldstatus newstatus statustext proposed-alert) "?\205J ??\205J\n \236\211\205I \203-\306\307 \fA\203(\310\311\fA\"\202)\312#\202I\313\310\314 \fA\203?\310\311\fA\"\202@\312#!?\205I\202-)\207" [oldstatus newstatus who jabber-watch-alist entry window-system message-box "%s%s" format ": %s" "" yes-or-no-p "%s%s Got that? " proposed-alert] 8 (#$ . 417)]) (defalias 'jabber-watch-add #[(buddy &optional comment) "\305>\204\n\306\307!\210\310 !\nG\311U?\205\nB\211\f\235\203\"\f\202' \fB\211)\207" [jabber-presence-hooks buddy comment #1=#:x jabber-watch-alist jabber-presence-watch error "jabber-presence-watch is not in jabber-presence-hooks" jabber-jid-symbol 0] 4 nil (list (jabber-read-jid-completing "Add buddy to watch list: ") (read-string "Comment: "))]) (defalias 'jabber-watch-remove #[(buddy) "\302\303! \236 \"\211\207" [buddy jabber-watch-alist delq jabber-jid-symbol] 3 nil (list (jabber-read-jid-completing "Remove buddy from watch list: " (or (mapcar 'car jabber-watch-alist) (error "Watch list is empty")) t))]) (provide 'jabber-watch)