[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-watch.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\a\207" [require jabber-util custom-declare-variable jabber-watch-alist funcall function #[0 "\300\207" [nil] 1 ""] "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)
#@255 Send a message if one of your extra-important buddies comes online.
The buddies are stored in `jabber-watch-alist' and are added and removed by
calling `jabber-watch-add' and `jabber-watch-remove'.

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT PROPOSED-ALERT)\1f
(defalias 'jabber-presence-watch #[1285 "\ 3?\205I\0\ 2??\205I\0\ 4\b\236\211\205G\0	\203+\0\302\303\ 3\ 3A\203&\0\304\305\ 5A\"\202'\0\306#\202G\0\307\304\310\ 4\ 4A\203=\0\304\305\ 6\ 6A\"\202>\0\306#!?\205G\0\202+\0\262\ 1\207" [jabber-watch-alist window-system message-box "%s%s" format ": %s" "" yes-or-no-p "%s%s  Got that? "] 13 (#$ . 464)])
#@32 

(fn BUDDY &optional COMMENT)\1f
(defalias 'jabber-watch-add #[513 "\301\b>\204\n\0\302\303!\210\304\305\306\ 4!\ 3G\307U?\205\18\0\ 3B\"\207" [jabber-presence-hooks jabber-presence-watch error "The jabber-presence-watch function is not in jabber-presence-hooks" add-to-list jabber-watch-alist jabber-jid-symbol 0] 7 (#$ . 1039) (byte-code "\300\301!\302\303!D\207" [jabber-read-jid-completing "Add buddy to watch list: " read-string "Comment: "] 3)])
#@14 

(fn BUDDY)\1f
(defalias 'jabber-watch-remove #[257 "\301\302\ 2!\b\236\b\"\211\10\207" [jabber-watch-alist delq jabber-jid-symbol] 4 (#$ . 1484) (byte-code "\301\302\303\304\b\"\206\f\0\305\306!\307#C\207" [jabber-watch-alist jabber-read-jid-completing "Remove buddy from watch list: " mapcar car error "Watch list is empty" t] 5)])
(provide 'jabber-watch)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\a\207" [require jabber-util custom-declare-variable jabber-watch-alist funcall function #[0 "\300\207" [nil] 1 ""] "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)
	9	#@255 Send a message if one of your extra-important buddies comes online.
	10	The buddies are stored in `jabber-watch-alist' and are added and removed by
	11	calling `jabber-watch-add' and `jabber-watch-remove'.
	12
	13	(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT PROPOSED-ALERT)\1f
	14	(defalias 'jabber-presence-watch #[1285 "\ 3?\205I\0\ 2??\205I\0\ 4\b\236\211\205G\0 \203+\0\302\303\ 3\ 3A\203&\0\304\305\ 5A\"\202'\0\306#\202G\0\307\304\310\ 4\ 4A\203=\0\304\305\ 6\ 6A\"\202>\0\306#!?\205G\0\202+\0\262\ 1\207" [jabber-watch-alist window-system message-box "%s%s" format ": %s" "" yes-or-no-p "%s%s Got that? "] 13 (#$ . 464)])
	15	#@32
	16
	17	(fn BUDDY &optional COMMENT)\1f
	18	(defalias 'jabber-watch-add #[513 "\301\b>\204\n\0\302\303!\210\304\305\306\ 4!\ 3G\307U?\205\18\0\ 3B\"\207" [jabber-presence-hooks jabber-presence-watch error "The jabber-presence-watch function is not in jabber-presence-hooks" add-to-list jabber-watch-alist jabber-jid-symbol 0] 7 (#$ . 1039) (byte-code "\300\301!\302\303!D\207" [jabber-read-jid-completing "Add buddy to watch list: " read-string "Comment: "] 3)])
	19	#@14
	20
	21	(fn BUDDY)\1f
	22	(defalias 'jabber-watch-remove #[257 "\301\302\ 2!\b\236\b\"\211\10\207" [jabber-watch-alist delq jabber-jid-symbol] 4 (#$ . 1484) (byte-code "\301\302\303\304\b\"\206\f\0\305\306!\307#C\207" [jabber-watch-alist jabber-read-jid-completing "Remove buddy from watch list: " mapcar car error "Watch list is empty" t] 5)])
	23	(provide 'jabber-watch)