Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-page.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\302\303\304\305\306\307\310\311\312\313\314\315& \207" [require erc custom-declare-variable erc-page-mode nil "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 :group erc-page :type boolean] 12)
#@210 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.
(defalias 'erc-page-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-page-mode local current-message set-default toggle default-value prefix-numeric-value 0 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 "Erc-Page mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 911) (list (or current-prefix-arg 'toggle))])
(defvar erc-page-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode erc-page-mode nil boundp] 6)
#@23 Enable ERC page mode.
(defalias 'erc-page-enable #[nil "\301\302\303\"\210\304\211\207" [erc-page-mode add-to-list erc-modules page t] 3 (#$ . 2244) nil])
#@24 Disable ERC page mode.
(defalias 'erc-page-disable #[nil "\302\303\"\304\211\207" [erc-modules erc-page-mode delq page nil] 3 (#$ . 2406) nil])
(byte-code "\300\301\302\"\210\303\302\304\305#\210\303\306\304\305#\210\303\307\304\305#\210\310\311\312\313#\210\314\315\316\317\320\321%\210\322\323\316\324\320\315\325\326&\210\322\327\330\331\320\315\325\332&\207" [defalias erc-ctcp-page-mode erc-page-mode put definition-name page erc-page-enable erc-page-disable erc-define-catalog-entry english CTCP-PAGE "Page from %n (%u@%h): %m" custom-declare-group erc-page nil "React to CTCP PAGE messages." :group erc custom-declare-variable erc-page-function "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 '(erc-ctcp-query-PAGE) "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)] 8)
#@234 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.
(defalias 'erc-ctcp-query-PAGE #[(proc nick login host to msg) "\203W \306\307 \"\203W \310\311 \"\211\203 \312\313\n\311\"!\202 \314\315 \n\203* \313\n\311\"\316\317\320
\321\322\323 & \203G
\"\210\202O \324\325\f\"\210\326 \210\327\315\330\315\f$\210+\315\207" [erc-page-mode msg m page-msg text nick string-match "PAGE\\(\\s-+.*\\)?$" match-string 1 erc-controls-interpret substring "[no message]" nil erc-format-message CTCP-PAGE 110 117 104 109 message "%s" beep erc-display-message notice login host erc-page-function] 11 (#$ . 3914)])
#@169 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.
(defalias 'erc-cmd-PAGE #[(line &optional force) "\303\304\"\205 \305\306\"\305\307\"\310\n\311 #*\207" [line msg nick string-match "^\\s-*\\(\\S-+\\) ?\\(.*\\)" match-string 1 2 erc-cmd-CTCP "PAGE"] 4 (#$ . 4713)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put erc-cmd-PAGE do-not-parse-args t provide erc-page] 4)
Mini Shell