;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316\317\320\321\322\306\303& \207" [require erc custom-declare-group erc-page nil "React to CTCP PAGE messages." :group custom-declare-variable erc-page-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Page mode is enabled.\nSee the `erc-page-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-page-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)#@230 Toggle ERC page mode. With a prefix argument ARG, enable page if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Process CTCP PAGE requests from IRC. (fn &optional ARG) (defalias 'erc-page-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!\203{\323\301!\210\302 \203j\211\302 \232\203{\324\325\326\305\301!\203w\327\202x\330\331$\210\210\332 \210\305\301!\207" [global-minor-modes erc-page-mode current-message set-default toggle default-value 1 nil t boundp delq erc-page-enable erc-page-disable run-hooks erc-page-mode-hook erc-page-mode-on-hook erc-page-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Erc-Page mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 721) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar erc-page-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-page-mode-map erc-page-mode-hook variable-documentation put "Hook run after entering or leaving `erc-page-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-page-mode boundp] 6)#@23 Enable ERC page mode. (defalias 'erc-page-enable #[0 "\302>\203 \210\202\302B\303\211\207" [erc-modules erc-page-mode page t] 2 (#$ . 2265) nil])#@24 Disable ERC page mode. (defalias 'erc-page-disable #[0 "\302\303\"\304\211\207" [erc-modules erc-page-mode delq page nil] 3 (#$ . 2424) nil]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\302\304\305#\210\303\302\306\305#\210\303\307\306\305#\210\303\310\306\305#\210\311\312\313\314#\210\315\316\317\320\321DD\322\323\324%\210\315\325\317\320\326DD\327\323\330%\207" [defalias erc-ctcp-page-mode erc-page-mode put erc-module page definition-name erc-page-enable erc-page-disable erc-define-catalog-entry english CTCP-PAGE "Page from %n (%u@%h): %m" custom-declare-variable erc-page-function funcall function #[0 "\300\207" [nil] 1 #1=""] "A function to process a \"page\" request.\nIf nil, this prints the page message in the minibuffer and calls\n`beep'. If non-nil, it must be a function that takes two arguments:\nSENDER and MSG, both strings.\n\nExample for your init file:\n\n(setq erc-page-function\n (lambda (sender msg)\n (play-sound-file \"/home/alex/elisp/erc/sounds/ni.wav\")\n (message \"IRC Page from %s: %s\" sender msg)))" :type (choice (const nil) (function)) erc-ctcp-query-PAGE-hook #[0 "\300C\207" [erc-ctcp-query-PAGE] 1 #1#] "List of functions to be called when a CTCP PAGE is received.\nThis is called from `erc-process-ctcp-query'. The functions are called\nwith six arguments: PROC NICK LOGIN HOST TO MSG. Note that you can\nalso set `erc-page-function' to a function, which only gets two arguments,\nSENDER and MSG, so that might be easier to use." (repeat function)] 6)#@268 Deal with an CTCP PAGE query, if `erc-page-mode' is non-nil. This will call `erc-page-function', if defined, or it will just print a message and `beep'. In addition to that, the page message is also inserted into the server buffer. (fn PROC NICK LOGIN HOST TO MSG) (defalias 'erc-ctcp-query-PAGE #[1542 "\203W\302\303\"\203W\304\305\"\211\203\306\305\307O!\202\310\307\203(\305\307O\262\311\312\313\n\314 \315\f\316\n& \262 \203G \"\210\202O\317\320\"\210\321 \210\322\307\323\307$\266\307\207" [erc-page-mode erc-page-function string-match "PAGE\\(\\s-+.*\\)?$" match-string 1 erc-controls-interpret nil "[no message]" erc-format-message CTCP-PAGE 110 117 104 109 message "%s" beep erc-display-message notice] 19 (#$ . 3948)])#@196 Send a CTCP page to the user given as the first word in LINE. The rest of LINE is the message to send. Note that you will only receive pages if `erc-page-mode' is on. (fn LINE &optional FORCE) (defalias 'erc-cmd-PAGE #[513 "\300\301\"\205\302\303\"\302\304\"\305\306#\266\202\207" [string-match "^\\s-*\\(\\S-+\\) ?\\(.*\\)" match-string 1 2 erc-cmd-CTCP "PAGE"] 8 (#$ . 4711)]) (byte-code "\300\301\302\303#\210\304\305!\207" [put erc-cmd-PAGE do-not-parse-args t provide erc-page] 4)