Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-capab.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\301%\210\307\310\311\312\306\303\313\314&\210\315\316\317\320\306\303\306\321&\210\307\322\304\323\324\325\326\327\306\330\313\331& \207" [require erc custom-declare-group erc-capab nil "Support for dancer-ircd's CAPAB settings." :group custom-declare-variable erc-capab-identify-prefix "*" "The prefix used for unidentified users.\n\nIf you change this from the default \"*\", be sure to use a\ncharacter not found in IRC nicknames to avoid confusion." :type (choice string (const nil)) custom-declare-face erc-capab-identify-unidentified ((t)) "Face to use for `erc-capab-identify-prefix'." erc-faces erc-capab-identify-mode "Non-nil if Erc-Capab-Identify mode is enabled.\nSee the `erc-capab-identify-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-capab-identify-mode'." :set custom-set-minor-mode :initialize custom-initialize-default erc-capab-identify boolean] 12)
#@252 Toggle ERC capab-identify mode.
With a prefix argument ARG, enable capab-identify if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
Handle dancer-ircd's CAPAB IDENTIFY-MSG and IDENTIFY-CTCP.
(defalias 'erc-capab-identify-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-capab-identify-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-capab-identify-enable erc-capab-identify-disable run-hooks erc-capab-identify-mode-hook erc-capab-identify-mode-on-hook erc-capab-identify-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Capab-Identify mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1477) (list (or current-prefix-arg 'toggle))])
(defvar erc-capab-identify-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-capab-identify-mode-map erc-capab-identify-mode-hook variable-documentation put "Hook run after entering or leaving `erc-capab-identify-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-capab-identify-mode nil boundp] 6)
#@33 Enable ERC capab-identify mode.
(defalias 'erc-capab-identify-enable #[nil "\301\302\303\"\210\304\305\306\307\304#\210\305\310\311\"\210\305\312\313\"\210\305\314\313\"\210\305\315\316\304#\210\317\320\321\322!\"\207" [erc-capab-identify-mode add-to-list erc-modules capab-identify t add-hook erc-server-005-functions erc-capab-identify-setup erc-server-290-functions erc-capab-identify-activate erc-server-PRIVMSG-functions erc-capab-identify-remove/set-identified-flag erc-server-NOTICE-functions erc-insert-modify-hook erc-capab-identify-add-prefix mapc #[(buffer) "\205 rq\210\301 )\207" [buffer erc-capab-identify-setup] 1] erc-buffer-list erc-open-server-buffer-p] 4 (#$ . 2983) nil])
#@34 Disable ERC capab-identify mode.
(defalias 'erc-capab-identify-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\207" [erc-modules erc-capab-identify-mode delq capab-identify nil remove-hook erc-server-005-functions erc-capab-identify-setup erc-server-290-functions erc-capab-identify-activate erc-insert-modify-hook erc-capab-identify-add-prefix] 3 (#$ . 3685) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-capab-identify-mode definition-name capab-identify erc-capab-identify-enable erc-capab-identify-disable] 4)
#@40 CAPAB IDENTIFY-MSG has been activated.
(defvar erc-capab-identify-activated nil (#$ . 4286))
(make-variable-buffer-local 'erc-capab-identify-activated)
#@63 CAPAB IDENTIFY-MSG and IDENTIFY-CTCP messages have been sent.
(defvar erc-capab-identify-sent nil (#$ . 4444))
(make-variable-buffer-local 'erc-capab-identify-sent)
#@267 Set up CAPAB IDENTIFY on the current server.
Optional argument PROC is the current server's process.
Optional argument PARSED is the current message, a response struct.
These arguments are sent to this function when called as a hook in
`erc-server-005-functions'.
(defalias 'erc-capab-identify-setup #[(&optional proc parsed) "?\205 \301 \207" [erc-capab-identify-sent erc-capab-identify-send-messages] 1 (#$ . 4616)])
#@57 Send CAPAB IDENTIFY messages if the server supports it.
(defalias 'erc-capab-identify-send-messages #[nil ";\205& \304\305\"\205& \306\307 \"\205& \n\203 \310\311!\210\312\313!\210\312\314!\210\315\211\207" [erc-server-version erc-server-parameters erc-log-p erc-capab-identify-sent string-match "^\\(dancer-ircd\\|hyperion\\)" assoc "CAPAB" erc-log-aux "Sending CAPAB IDENTIFY-MSG and IDENTIFY-CTCP" erc-server-send "CAPAB IDENTIFY-MSG" "CAPAB IDENTIFY-CTCP" t] 3 (#$ . 5045)])
#@153 Set `erc-capab-identify-activated' and display an activation message.
PROC is the current server's process.
PARSED is an `erc-parsed' response struct.
(defalias 'erc-capab-identify-activate #[(proc parsed) "\303! >\204 \304\305\306D\"\210\307H\310\230\204. \303! >\204& \304\305\306D\"\210\307H\311\230\205J \312\313\314\315\316\317\303! >\204E \304\305\306D\"\210\307H\"$\207" [parsed cl-struct-erc-response-tags erc-capab-identify-activated type-of signal wrong-type-argument erc-response 5 "IDENTIFY-MSG" "IDENTIFY-CTCP" t erc-display-message notice active format "%s activated"] 10 (#$ . 5535)])
#@159 Remove PARSED message's id flag and add the `erc-identified' text property.
PROC is the current server's process.
PARSED is an `erc-parsed' response struct.
(defalias 'erc-capab-identify-remove/set-identified-flag #[(proc parsed) "\306! >\204 \307\310\311D\"\210\312H \205U \313\314\n\"\205U \306! >\204- \307\310\311D\"\210\211 \312
\203M \315\316\317\n\"\320\316\321\n\"\322\230\203H \321\202I \323#\202Q \316\317\n\"I\210)\324)\207" [parsed cl-struct-erc-response-tags msg erc-capab-identify-activated #1=#:v erc-capab-identify-mode type-of signal wrong-type-argument erc-response 5 string-match "^\\([-\\+]\\)\\(.+\\)$" erc-propertize match-string 2 erc-identified 1 "+" 0 nil] 9 (#$ . 6155)])
#@70 Add `erc-capab-identify-prefix' to nickname if user is unidentified.
(defalias 'erc-capab-identify-add-prefix #[nil "\205C \304 \305 !\205 r q\210\n))\205C \306 \206 eb\210\307\310`!!\211\205B eb\205B \311\312 !\313\314#\205B \315\224b\210\316\317\320#c)\207" [erc-capab-identify-prefix #1=#:buffer erc-capab-identify-activated nickname erc-server-buffer buffer-live-p erc-find-parsed-property erc-capab-identify-get-unidentified-nickname erc-get-parsed-vector re-search-forward regexp-quote nil t 0 erc-propertize font-lock-face erc-capab-identify-unidentified] 5 (#$ . 6868)])
#@93 Return the nickname of the user if unidentified.
PARSED is an `erc-parsed' response struct.
(defalias 'erc-capab-identify-get-unidentified-nickname #[(parsed) "\303! >\2050 \304\305\306\303! >\204 \307\310\311D\"\210\312H#\305\232\2050 \313!\211\205/ \314\n!@)\207" [parsed cl-struct-erc-response-tags nickuserhost type-of get-text-property 0 erc-identified signal wrong-type-argument erc-response 5 erc-get-parsed-vector-nick erc-parse-user] 8 (#$ . 7459)])
(provide 'erc-capab)
Mini Shell