;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\327\330\331&\210\310\332\312\313\333DD\334\316\327\330\335&\207" [require erc erc-networks custom-declare-group erc-notify nil "Track online status of certain nicknames." :group custom-declare-variable erc-notify-list funcall function #[0 "\300\207" [nil] 1 #1=""] "List of nicknames you want to be notified about online/offline status change." :type (repeat string) erc-notify-interval #[0 "\300\207" [60] 1 #1#] "Time interval (in seconds) for checking online status of notified people." integer erc-notify-signon-hook #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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)] 8)
#@20 

(fn SERVER NICK)
(defalias 'erc-notify-signon #[514 "\300\301#\207" [message "%s signed on at %s"] 6 (#$ . 1195)])
#@20 

(fn SERVER NICK)
(defalias 'erc-notify-signoff #[514 "\300\301#\207" [message "%s signed off from %s"] 6 (#$ . 1320)])
#@60 Last ISON information received through `erc-notify-timer'.
(defvar erc-last-ison nil (#$ . 1449))
(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 (#$ . 1597))
(make-variable-buffer-local 'erc-last-ison-time)
(defalias 'erc-notify-install-message-catalogs #[0 "\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])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable erc-notify-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Notify mode is enabled.\nSee the `erc-notify-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-notify-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group erc-notify] 12)
#@275 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.

(fn &optional ARG)
(defalias 'erc-notify-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-notify-mode current-message set-default toggle default-value 1 nil t boundp delq 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%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 2580) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-notify-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-notify-mode-map erc-notify-mode-hook variable-documentation put "Hook run after entering or leaving `erc-notify-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-notify-mode boundp] 6)
#@25 Enable ERC notify mode.
(defalias 'erc-notify-enable #[0 "\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 (#$ . 4188) nil])
#@26 Disable ERC notify mode.
(defalias 'erc-notify-disable #[0 "\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 (#$ . 4587) 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)
#@12 

(fn NOW)
(defalias 'erc-notify-timer #[257 "\205#	\205#\304\n\"V\205#\305\306\307\"\210\310\311\312\313	\314#P!\210\211\211\207" [erc-server-connected erc-notify-list erc-last-ison-time erc-notify-interval erc-time-diff erc-once-with-server-event 303 #[514 "\302
!>\204\303\304\305D\"\210\211\306H\307\310\311\302!>\204%\303\304\305D\"\210\312H!\"\211\313 \314
!\2059r\211q\210	)\262

\203e\315@\"\204^\316\317@#\210\320\321\322\323@\324\325 &\210
A\262\202;\211\203\217\315
@\"\204\210\316\326@#\210\320\321\327\323@\324\325 &\210\211A\262
\202e\330\207" [cl-struct-erc-response-tags erc-last-ison type-of signal wrong-type-argument erc-response 2 delete "" split-string 5 erc-server-buffer buffer-live-p erc-member-ignore-case run-hook-with-args erc-notify-signon-hook erc-display-message notice notify_on 110 109 erc-network-name erc-notify-signoff-hook notify_off t] 15 "\n\n(fn PROC PARSED)"] erc-server-send "ISON " mapconcat identity " "] 7 (#$ . 5142)])
#@229 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.

(fn PROC PARSED)
(defalias 'erc-notify-JOIN #[514 "\305\306!>\204\307\310\311D\"\210
\312H!\313
	\"\203I\313
\n\"\204I\211\n\235\203-\n\210\2021\211\nB\314\315\2068\f#\210\316\317\320\321\322\323 &\210\324\207" [cl-struct-erc-response-tags erc-notify-list erc-last-ison erc-server-announced-name erc-session-server erc-extract-nick type-of signal wrong-type-argument erc-response 2 erc-member-ignore-case run-hook-with-args erc-notify-signon-hook erc-display-message notice notify_on 110 109 erc-network-name nil] 12 (#$ . 6159)])
#@223 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.

(fn PROC PARSED)
(defalias 'erc-notify-NICK #[514 "\305
!>\204\306\307\310D\"\210\211\311H\312
	\"\203G\312
\n\"\204G\211\n\235\203+\n\210\202/\211\nB\313\314\2066\f#\210\315\316\317\320\321\322 &\210\323\207" [cl-struct-erc-response-tags erc-notify-list erc-last-ison erc-server-announced-name erc-session-server type-of signal wrong-type-argument erc-response 5 erc-member-ignore-case run-hook-with-args erc-notify-signon-hook erc-display-message notice notify_on 110 109 erc-network-name nil] 12 (#$ . 6926)])
#@224 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.

(fn PROC PARSED)
(defalias 'erc-notify-QUIT #[514 "\305\306!>\204\307\310\311D\"\210
\312H!\313
	\"\203G\313
\n\"\203G\314\315!\316\317\"\262
\n\"\320\321\2066\f#\210\322\323\324\325\326\327 &\210\330\207" [cl-struct-erc-response-tags erc-notify-list erc-last-ison erc-server-announced-name erc-session-server erc-extract-nick type-of signal wrong-type-argument erc-response 2 erc-member-ignore-case cl-delete-if erc-downcase make-closure #[257 "\300\301!\230\207" [V0 erc-downcase] 4 "\n\n(fn EL)"] run-hook-with-args erc-notify-signoff-hook erc-display-message notice notify_off 110 109 erc-network-name nil] 12 (#$ . 7668)])
#@193 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.

(fn &rest ARGS)
(defalias 'erc-cmd-NOTIFY #[128 "\211\2042\302 \303
!\205r\211q\210)\262
\211\204#\304\305\306\307\310$\266\202\233\304\305\306\307\311\312&\266\202\233\211@\313\230\203J\304\305\306\307\314\312\315\316	\317#&\210\202\233\211\203\215\320
@	\"\203\321
@	\"\322 \211\203{\211@r\211q\210\323 \203s\321@\")
A\266\202\202^\210\202\206\324
@!	B\211A\262
\202J\304\305\306\307\314\312\315\316	\317#&\210\325\207" [erc-last-ison erc-notify-list 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] 11 (#$ . 8528)])
(autoload 'pcomplete-erc-all-nicks "erc-pcomplete")
(defalias 'pcomplete/erc-mode/NOTIFY #[0 "\300\301!\210\302\303\304\211\211$\207" [require pcomplete pcomplete--here #[0 "\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)