WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/erc
Viewing File: /usr/share/emacs/24.3/lisp/erc/erc-notify.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:54 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-notify.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\305\312\307\304\313\314&\210\310\315\316\317\307\304\313\320&\210\310\321\305\322\307\304\313\323\324\325&	\210\310\326\305\327\307\304\313\323\324\330&	\207" [require erc erc-networks custom-declare-group erc-notify nil "Track online status of certain nicknames." :group custom-declare-variable erc-notify-list "List of nicknames you want to be notified about online/offline\nstatus change." :type (repeat string) erc-notify-interval 60 "Time interval (in seconds) for checking online status of notified\npeople." integer erc-notify-signon-hook "Hook run after someone on `erc-notify-list' has signed on.\nTwo arguments are passed to the function, SERVER and NICK, both\nstrings." hook :options (erc-notify-signon) erc-notify-signoff-hook "Hook run after someone on `erc-notify-list' has signed off.\nTwo arguments are passed to the function, SERVER and NICK, both\nstrings." (erc-notify-signoff)] 10)
(defalias 'erc-notify-signon #[(server nick) "\302\303	#\207" [nick server message "%s signed on at %s"] 4])
(defalias 'erc-notify-signoff #[(server nick) "\302\303	#\207" [nick server message "%s signed off from %s"] 4])
#@60 Last ISON information received through `erc-notify-timer'.
(defvar erc-last-ison nil (#$ . 1762))
(make-variable-buffer-local 'erc-last-ison)
#@62 Last time ISON was sent to the server in `erc-notify-timer'.
(defvar erc-last-ison-time 0 (#$ . 1910))
(make-variable-buffer-local 'erc-last-ison-time)
(defalias 'erc-notify-install-message-catalogs #[nil "\300\301\302\"\207" [erc-define-catalog english ((notify_current . "Notified people online: %l") (notify_list . "Current notify list: %l") (notify_on . "Detected %n on IRC network %m") (notify_off . "%n has left IRC network %m"))] 3])
#@266 Non-nil if Erc-Notify mode is enabled.
See the command `erc-notify-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-notify-mode'.
(custom-declare-variable 'erc-notify-mode nil '(#$ . 2358) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-notify :type 'boolean)
#@255 Toggle ERC notify mode.
With a prefix argument ARG, enable notify if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
Periodically check for the online status of certain users and report
changes.
(defalias 'erc-notify-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307 \210\202!\310 \210\311\312\n\203+\313\202,\314\"\210\315\316!\203Q\317\302!\210\303 \203D\303 \232\203Q\320\321\n\203N\322\202O\323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-notify-mode current-message toggle prefix-numeric-value 0 erc-notify-enable erc-notify-disable run-hooks erc-notify-mode-hook erc-notify-mode-on-hook erc-notify-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Notify mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2791) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [erc-notify-mode-map add-minor-mode erc-notify-mode nil boundp] 6)
#@25 Enable ERC notify mode.
(defalias 'erc-notify-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-notify-mode add-to-list erc-modules notify t add-hook erc-timer-hook erc-notify-timer erc-server-JOIN-functions erc-notify-JOIN erc-server-NICK-functions erc-notify-NICK erc-server-QUIT-functions erc-notify-QUIT] 3 (#$ . 3813) nil])
#@26 Disable ERC notify mode.
(defalias 'erc-notify-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-modules erc-notify-mode delq notify nil remove-hook erc-timer-hook erc-notify-timer erc-server-JOIN-functions erc-notify-JOIN erc-server-NICK-functions erc-notify-NICK erc-server-QUIT-functions erc-notify-QUIT] 3 (#$ . 4214) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-notify-mode definition-name notify erc-notify-enable erc-notify-disable] 4)
(defalias 'erc-notify-timer #[(now) "\205#	\205#\305\n\"\fV\205#\306\307\310\"\210\311\312\313\314	\315#P!\210\211\207" [erc-server-connected erc-notify-list erc-last-ison-time now erc-notify-interval erc-time-diff erc-once-with-server-event 303 (let* ((server (erc-response\.sender parsed)) (ison-list (delete "" (split-string (erc-response\.contents parsed)))) (new-list ison-list) (old-list (erc-with-server-buffer erc-last-ison))) (while new-list (when (not (erc-member-ignore-case (car new-list) old-list)) (run-hook-with-args 'erc-notify-signon-hook server (car new-list)) (erc-display-message parsed 'notice proc 'notify_on 110 (car new-list) 109 (erc-network-name))) (setq new-list (cdr new-list))) (while old-list (when (not (erc-member-ignore-case (car old-list) ison-list)) (run-hook-with-args 'erc-notify-signoff-hook server (car old-list)) (erc-display-message parsed 'notice proc 'notify_off 110 (car old-list) 109 (erc-network-name))) (setq old-list (cdr old-list))) (setq erc-last-ison ison-list) t) erc-server-send "ISON " mapconcat identity " "] 6])
#@211 Check if channel joiner is on `erc-notify-list' and not on `erc-last-ison'.
If this condition is satisfied, produce a notify_on message and add the nick
to `erc-last-ison' to prevent any further notifications.
(defalias 'erc-notify-JOIN #[(proc parsed) "\306\307H	>\204\310\311\312\313#\210\314H!\315\n\"\203@\315\n\f\"\204@\316\304\n\"\210\317\320
\206/\n#\210\321\322\323\324\n\325\326 &\210)\327\207" [parsed cl-struct-erc-response-tags nick erc-notify-list erc-last-ison erc-server-announced-name erc-extract-nick 0 error "%s accessing a non-%s" erc-response\.sender erc-response 2 erc-member-ignore-case add-to-list run-hook-with-args erc-notify-signon-hook erc-display-message notice notify_on 110 109 erc-network-name nil erc-session-server proc] 9 (#$ . 5847)])
#@205 Check if new nick is on `erc-notify-list' and not on `erc-last-ison'.
If this condition is satisfied, produce a notify_on message and add the nick
to `erc-last-ison' to prevent any further notifications.
(defalias 'erc-notify-NICK #[(proc parsed) "\306H	>\204\307\310\311\312#\210\313H\314\n\"\203>\314\n\f\"\204>\315\304\n\"\210\316\317
\206-\n#\210\320\321\322\323\n\324\325 &\210)\326\207" [parsed cl-struct-erc-response-tags nick erc-notify-list erc-last-ison erc-server-announced-name 0 error "%s accessing a non-%s" erc-response\.contents erc-response 5 erc-member-ignore-case add-to-list run-hook-with-args erc-notify-signon-hook erc-display-message notice notify_on 110 109 erc-network-name nil erc-session-server proc] 9 (#$ . 6639)])
#@206 Check if quitter is on `erc-notify-list' and on `erc-last-ison'.
If this condition is satisfied, produce a notify_off message and remove the
nick from `erc-last-ison' to prevent any further notifications.
(defalias 'erc-notify-QUIT #[(proc parsed) "\306\307H	>\204\310\311\312\313#\210\314H!\315\n\"\203I\315\n\f\"\203I\316\317\320\321\322\n!\323BBE\f\"\324\325
\2068\n#\210\326\327\330\331\n\332\333 &\210)\334\207" [parsed cl-struct-erc-response-tags nick erc-notify-list erc-last-ison erc-server-announced-name erc-extract-nick 0 error "%s accessing a non-%s" erc-response\.sender erc-response 2 erc-member-ignore-case erc-delete-if lambda (el) string= erc-downcase ((erc-downcase el)) run-hook-with-args erc-notify-signoff-hook erc-display-message notice notify_off 110 109 erc-network-name nil erc-session-server proc] 9 (#$ . 7405)])
#@176 Change `erc-notify-list' or list current notify-list members online.
Without args, list the current list of notified people online,
with args, toggle notify status of people.
(defalias 'erc-cmd-NOTIFY #[(&rest args) "\2041\306 \307	!\205r	q\210\n))\211\204#\310\311\312\313\314$\210\202-\310\311\312\313\315\316&\210)\202\242@\317\230\203I\310\311\312\313\320\316\321\322\f\323#&\210\202\242\203\224\324@\f\"\203\206\325@\f\"\326 \311\211\203\202@r
q\210\327 \203x\325@\n\")A\211\204e*\202\215\330@!\fBA\211\204M\310\311\312\313\320\316\321\322\f\323#&\210\331\207" [args #1=#:buffer erc-last-ison ison erc-notify-list buf erc-server-buffer buffer-live-p erc-display-message nil notice active "No ison-list yet!" notify_current 108 "-l" notify_list mapconcat identity " " erc-member-ignore-case delete erc-buffer-list erc-server-buffer-p erc-string-no-properties t --dolist-tail--] 11 (#$ . 8268)])
(autoload 'pcomplete-erc-all-nicks "erc-pcomplete")
(defalias 'pcomplete/erc-mode/NOTIFY #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\300 \207" [pcomplete-erc-all-nicks] 1] nil] 5])
(byte-code "\300 \210\301\302!\207" [erc-notify-install-message-catalogs provide erc-notify] 2)
F1l3 Manager
