Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-notify.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\312\313\314DD\315\307\304\316\317&\210\310\320\312\313\321DD\322\307\304\316\323&\210\310\324\312\313\325DD\326\307\304\316\327\330\331& \210\310\332\312\313\333DD\334\307\304\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] "List of nicknames you want to be notified about online/offline\nstatus change." :type (repeat string) erc-notify-interval #[0 "\300\207" [60] 1] "Time interval (in seconds) for checking online status of notified\npeople." integer erc-notify-signon-hook #[0 "\300\207" [nil] 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] "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)
#@20
(fn SERVER NICK)
(defalias 'erc-notify-signon #[514 "\300\301#\207" [message "%s signed on at %s"] 6 (#$ . 1538)])
#@20
(fn SERVER NICK)
(defalias 'erc-notify-signoff #[514 "\300\301#\207" [message "%s signed off from %s"] 6 (#$ . 1663)])
#@60 Last ISON information received through `erc-notify-timer'.
(defvar erc-last-ison nil (#$ . 1792))
(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 (#$ . 1940))
(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 :group erc-notify :type boolean] 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 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\203\" \307 \210\202% \310 \210\311\312\304\300!\2031 \313\2022 \314\"\210\315\316!\203\\ \317\300!\210\301 \203J \211\301 \232\203\\ \320\321\322\304\300!\203W \323\202X \324#\266\210\325 \210\304\300!\207" [erc-notify-mode current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 7 (#$ . 2920) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar erc-notify-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode erc-notify-mode nil 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 (#$ . 4333) 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 (#$ . 4732) 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!\2059 r\211q\210 )\262\203e \315@\"\204^ \316\317@#\210\320\321\322\323@\324\325 &\210A\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 (#$ . 5287)])
#@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 (#$ . 6304)])
#@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 (#$ . 7071)])
#@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 \"\203O \313\n\"\203O \314\315!\316\317\320\321\322!\323\"\324\325%\262\n\"\326\327 \206> \f#\210\330\331\332\333\334\335 &\210\336\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 erc-delete-if erc-downcase make-byte-code 257 "\300\301!\230\207" vconcat vector [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 (#$ . 7813)])
#@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\2041 \302 \303!\205 r\211q\210)\262\211\204\" \304\305\306\307\310$\210\202- \304\305\306\307\311\312&\210\210\202\232 \211@\313\230\203I \304\305\306\307\314\312\315\316 \317#&\210\202\232 \211\203\214 \320@ \"\203~ \321@ \"\322 \211\203z \211@r\211q\210\323 \203r \321@\")A\266\202\202] \210\202\205 \324@! B\211A\262\202I \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 (#$ . 8711)])
(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)
Mini Shell