%PDF-
%PDF-
Mini Shell
Mini Shell
;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\320\321& \210\310\322\312\313\323DD\324\320\325\326\327\307\304\316\330& \207" [require erc erc-networks custom-declare-group erc-services nil "Configuration for IRC services.\n\nOn some networks, there exists a special type of automated irc bot,\ncalled Services. Those usually allow you to register your nickname,\npost/read memos to other registered users who are currently offline,\nand do various other things.\n\nThis group allows you to set variables to somewhat automate\ncommunication with those Services." :group custom-declare-variable erc-nickserv-identify-mode funcall function #[0 "\300\207" [both] 1] "The mode which is used when identifying to Nickserv.\n\nPossible settings are:.\n\n`autodetect' - Identify when the real Nickserv sends an identify request.\n`nick-change' - Identify when you log in or change your nickname.\n`both' - Do the former if the network supports it, otherwise do the\n latter.\nnil - Disables automatic Nickserv identification.\n\nYou can also use \\[erc-nickserv-identify-mode] to change modes." :type (choice (const autodetect) (const nick-change) (const both) (const nil)) :set #[514 "L\210\300\301!\205
\302!\207" [featurep erc-services erc-nickserv-identify-mode] 4 "\n\n(fn SYM VAL)"] erc-services-mode #[0 "\300\207" [nil] 1] "Non-nil if Erc-Services mode is enabled.\nSee the `erc-services-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-services-mode'." custom-set-minor-mode :initialize custom-initialize-default boolean] 12)
#@250 Toggle ERC services mode.
With a prefix argument ARG, enable services if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode automates communication with services.
(fn &optional ARG)
(defalias 'erc-services-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-services-mode current-message set-default toggle default-value prefix-numeric-value 0 erc-services-enable erc-services-disable run-hooks erc-services-mode-hook erc-services-mode-on-hook erc-services-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Services mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 2184) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar erc-services-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-services-mode-map erc-services-mode-hook variable-documentation put "Hook run after entering or leaving `erc-services-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-services-mode nil boundp] 6)
#@27 Enable ERC services mode.
(defalias 'erc-services-enable #[0 "\302\303\304\"\210\305\301 !\207" [erc-services-mode erc-nickserv-identify-mode add-to-list erc-modules services t] 3 (#$ . 3598) nil])
#@28 Disable ERC services mode.
(defalias 'erc-services-disable #[0 "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\306\314\"\207" [erc-modules erc-services-mode delq services nil remove-hook erc-server-NOTICE-functions erc-nickserv-identify-autodetect erc-after-connect erc-nickserv-identify-on-connect erc-nick-changed-functions erc-nickserv-identify-on-nick-change erc-nickserv-identification-autodetect] 3 (#$ . 3803) nil])
(byte-code "\300\301\302\"\210\303\302\304\305#\210\303\306\304\305#\210\303\307\304\305#\207" [defalias erc-nickserv-mode erc-services-mode put definition-name services erc-services-enable erc-services-disable] 4)
#@70 Set up hooks according to which MODE the user has chosen.
(fn MODE)
(defalias 'erc-nickserv-identify-mode #[257 "\302\303\304\"\210\204\f \305 \210\211\306\267\202E \307\302\303\310\"\210\311\312\313\"\210\311\314\315\"\207\316\302\314\315\"\210\302\312\313\"\210\311\303\310\"\207\317\302\303\310\"\210\302\314\315\"\210\302\312\313\"\207\320\311\303\310\"\210\311\314\315\"\210\311\312\313\"\210\311\303\304\"\207" [erc-networks-mode erc-nickserv-identify-mode add-hook erc-server-NOTICE-functions erc-nickserv-identification-autodetect erc-networks-enable #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (autodetect 18 nick-change 35 both 52)) autodetect erc-nickserv-identify-autodetect remove-hook erc-nick-changed-functions erc-nickserv-identify-on-nick-change erc-after-connect erc-nickserv-identify-on-connect nick-change both nil] 4 (#$ . 4476) (byte-code "\300\301\302\303\304\305$!C\207" [intern completing-read "Choose Nickserv identify mode (RET to disable): " (("autodetect") ("nick-change") ("both")) nil t] 6)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\207" [custom-declare-variable erc-prompt-for-nickserv-password funcall function #[0 "\300\207" [t] 1] "Ask for the password when identifying to NickServ." :group erc-services :type boolean erc-nickserv-passwords #[0 "\300\207" [nil] 1] "Passwords used when identifying to NickServ automatically.\n\nExample of use:\n (setq erc-nickserv-passwords\n \\='((freenode ((\"nick-one\" . \"password\")\n (\"nick-two\" . \"password\")))\n (DALnet ((\"nick\" . \"password\")))))" (repeat (list :tag "Network" (choice :tag "Network name" (const Ars) (const Austnet) (const Azzurra) (const BitlBee) (const BRASnet) (const DALnet) (const freenode) (const GalaxyNet) (const GRnet) (const iip) (const OFTC) (const QuakeNet) (const Rizon) (const SlashNET) (symbol :tag "Network name")) (repeat :tag "Nickname and password" (cons :tag "Identity" (string :tag "Nick") (string :tag "Password" :secret 42))))) erc-nickserv-alist #[0 "\300\207" [((Ars nil nil "Census" "IDENTIFY" nil nil nil) (Austnet "NickOP!service@austnet.org" "/msg\\s-NickOP@austnet.org\\s-identify\\s-<password>" "nickop@austnet.org" "identify" nil nil nil) (Azzurra "NickServ!service@azzurra.org" "/ns\\s-IDENTIFY\\s-password" "NickServ" "IDENTIFY" nil nil nil) (BitlBee nil nil "&bitlbee" "identify" nil nil nil) (BRASnet "NickServ!services@brasnet.org" "/NickServ\\s-IDENTIFY\\s- senha " "NickServ" "IDENTIFY" nil "" nil) (DALnet "NickServ!service@dal.net" "/msg\\s-NickServ@services.dal.net\\s-IDENTIFY\\s-<password>" "NickServ@services.dal.net" "IDENTIFY" nil nil nil) (freenode "NickServ!NickServ@services." "This\\s-nickname\\s-is\\s-registered.\\s-Please\\s-choose" "NickServ" "IDENTIFY" nil nil "You\\s-are\\s-now\\s-identified\\s-for\\s-") (GalaxyNet "NS!nickserv@galaxynet.org" "Please\\s-change\\s-nicks\\s-or\\s-authenticate." "NS@services.galaxynet.org" "AUTH" t nil nil) (GRnet "NickServ!service@irc.gr" "This\\s-nickname\\s-is\\s-registered\\s-and\\s-protected." "NickServ" "IDENTIFY" nil nil "Password\\s-accepted\\s--\\s-you\\s-are\\s-now\\s-recognized.") (iip "Trent@anon.iip" "type\\s-/squery\\s-Trent\\s-identify\\s-<password>" "Trent@anon.iip" "IDENTIFY" nil "SQUERY" nil) (OFTC "NickServ!services@services.oftc.net" nil "NickServ" "IDENTIFY" nil nil "You\\s-are\\s-successfully\\s-identified\\s-as\\s-") (Rizon "NickServ!service@rizon.net" "This\\s-nickname\\s-is\\s-registered\\s-and\\s-protected." "NickServ" "IDENTIFY" nil nil "Password\\s-accepted\\s--\\s-you\\s-are\\s-now\\s-recognized.") (QuakeNet nil nil "Q@CServe.quakenet.org" "auth" t nil nil) (SlashNET "NickServ!services@services.slashnet.org" "/msg\\s-NickServ\\s-IDENTIFY\\s- password" "NickServ@services.slashnet.org" "IDENTIFY" nil nil nil))] 1] "Alist of NickServer details, sorted by network.\nEvery element in the list has the form\n (SYMBOL NICKSERV REGEXP NICK KEYWORD USE-CURRENT ANSWER SUCCESS-REGEXP)\n\nSYMBOL is a network identifier, a symbol, as used in `erc-networks-alist'.\nNICKSERV is the description of the nickserv in the form nick!user@host.\nREGEXP is a regular expression matching the message from nickserv.\nNICK is nickserv's nickname. Use nick@server where necessary/possible.\nKEYWORD is the keyword to use in the reply message to identify yourself.\nUSE-CURRENT indicates whether the current nickname must be used when\n identifying.\nANSWER is the command to use for the answer. The default is `privmsg'.\nSUCCESS-REGEXP is a regular expression matching the message nickserv\n sends when you've successfully identified.\nThe last two elements are optional." (repeat (list :tag "Nickserv data" (symbol :tag "Network name") (choice (string :tag "Nickserv's nick!user@host") (const :tag "No message sent by Nickserv" nil)) (choice (regexp :tag "Identify request sent by Nickserv") (const :tag "No message sent by Nickserv" nil)) (string :tag "Identify to") (string :tag "Identify keyword") (boolean :tag "Use current nick in identify message?") (choice :tag "Command to use (optional)" (string :tag "Command") (const :tag "No special command necessary" nil)) (choice :tag "Detect Success" (regexp :tag "Pattern to match") (const :tag "Do not try to detect success" nil))))] 8)
#@32
(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-sender #[513 "\211\206 \301\"A@\207" [erc-nickserv-alist assoc] 5 (#$ . 9895)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-sender compiler-macro erc-nickserv-alist-sender--inliner] 4)
#@45
(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-sender--inliner #[770 "\3002R \301!\203 \211\202 \302\303!\301!\203 \211\202 \302\304!\305\306\307\310\311EEE=\2035 \211\202< \312DC\"\266\203=\203H \211\202O \312DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 1 or assoc erc-nickserv-alist macroexp-let*] 14 (#$ . 10178)])
#@32
(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-regexp #[513 "\301\206 \302\"8\207" [erc-nickserv-alist 2 assoc] 6 (#$ . 10596)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-regexp compiler-macro erc-nickserv-alist-regexp--inliner] 4)
#@45
(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-regexp--inliner #[770 "\3002R \301!\203 \211\202 \302\303!\301!\203 \211\202 \302\304!\305\306\307\310\311EEE=\2035 \211\202< \312DC\"\266\203=\203H \211\202O \312DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 2 or assoc erc-nickserv-alist macroexp-let*] 14 (#$ . 10882)])
#@32
(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-nickserv #[513 "\301\206 \302\"8\207" [erc-nickserv-alist 3 assoc] 6 (#$ . 11300)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-nickserv compiler-macro erc-nickserv-alist-nickserv--inliner] 4)
#@45
(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-nickserv--inliner #[770 "\3002R \301!\203 \211\202 \302\303!\301!\203 \211\202 \302\304!\305\306\307\310\311EEE=\2035 \211\202< \312DC\"\266\203=\203H \211\202O \312DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 3 or assoc erc-nickserv-alist macroexp-let*] 14 (#$ . 11592)])
#@32
(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-ident-keyword #[513 "\301\206 \302\"8\207" [erc-nickserv-alist 4 assoc] 6 (#$ . 12012)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-ident-keyword compiler-macro erc-nickserv-alist-ident-keyword--inliner] 4)
#@45
(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-ident-keyword--inliner #[770 "\3002R \301!\203 \211\202 \302\303!\301!\203 \211\202 \302\304!\305\306\307\310\311EEE=\2035 \211\202< \312DC\"\266\203=\203H \211\202O \312DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 4 or assoc erc-nickserv-alist macroexp-let*] 14 (#$ . 12319)])
#@32
(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-use-nick-p #[513 "\301\206 \302\"8\207" [erc-nickserv-alist 5 assoc] 6 (#$ . 12744)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-use-nick-p compiler-macro erc-nickserv-alist-use-nick-p--inliner] 4)
#@45
(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-use-nick-p--inliner #[770 "\3002R \301!\203 \211\202 \302\303!\301!\203 \211\202 \302\304!\305\306\307\310\311EEE=\2035 \211\202< \312DC\"\266\203=\203H \211\202O \312DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 5 or assoc erc-nickserv-alist macroexp-let*] 14 (#$ . 13042)])
#@32
(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-ident-command #[513 "\301\206 \302\"8\207" [erc-nickserv-alist 6 assoc] 6 (#$ . 13464)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-ident-command compiler-macro erc-nickserv-alist-ident-command--inliner] 4)
#@45
(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-ident-command--inliner #[770 "\3002R \301!\203 \211\202 \302\303!\301!\203 \211\202 \302\304!\305\306\307\310\311EEE=\2035 \211\202< \312DC\"\266\203=\203H \211\202O \312DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 6 or assoc erc-nickserv-alist macroexp-let*] 14 (#$ . 13771)])
#@32
(fn NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-identified-regexp #[513 "\301\206 \302\"8\207" [erc-nickserv-alist 7 assoc] 6 (#$ . 14196)])
(byte-code "\300\301\302\303#\300\207" [function-put erc-nickserv-alist-identified-regexp compiler-macro erc-nickserv-alist-identified-regexp--inliner] 4)
#@45
(fn INLINE--FORM NETWORK &optional ENTRY)
(defalias 'erc-nickserv-alist-identified-regexp--inliner #[770 "\3002R \301!\203 \211\202 \302\303!\301!\203 \211\202 \302\304!\305\306\307\310\311EEE=\2035 \211\202< \312DC\"\266\203=\203H \211\202O \312DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "network" "entry" nth 7 or assoc erc-nickserv-alist macroexp-let*] 14 (#$ . 14515)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable erc-nickserv-identified-hook funcall function #[0 "\300\207" [nil] 1] "Run this hook when NickServ acknowledged successful identification.\nHooks are called with arguments (NETWORK NICK)." :group erc-services :type hook] 8)
#@258 Check for NickServ's successful identification notice.
Make sure it is the real NickServ for this network and that it has
specifically confirmed a successful identification attempt.
If this is the case, run `erc-nickserv-identified-hook'.
(fn PROC PARSED)
(defalias 'erc-nickserv-identification-autodetect #[514 "\303 \304\"A@\305\304\"8\306! >\204 \307\310\311D\"\210\312H\306! >\2041 \307\310\311D\"\210\313H@\306! >\204F \307\310\311D\"\210\314H\205n \232\205n \205n \315\"\205n \n\203f \316\317!\210\320\321#\210\322\207" [erc-nickserv-alist cl-struct-erc-response-tags erc-log-p erc-network assoc 7 type-of signal wrong-type-argument erc-response 2 4 5 string-match erc-log-aux "NickServ IDENTIFY success notification detected" run-hook-with-args erc-nickserv-identified-hook nil] 12 (#$ . 15256)])
#@272 Identify to NickServ when an identify request is received.
Make sure it is the real NickServ for this network.
If `erc-prompt-for-nickserv-password' is non-nil, prompt the user for the
password for this nickname, otherwise try to send it automatically.
(fn PROC PARSED)
(defalias 'erc-nickserv-identify-autodetect #[514 "?\205 ??\205x \305 \306\n\"A@\307\306\n\"8\310! >\204) \311\312\313D\"\210\307H\310! >\204< \311\312\313D\"\210\314H@\310! >\204Q \311\312\313D\"\210\315H\205v \232\205v \205v \316\"\205v \f\203q \317\320!\210\321!\210\322\266\206\207" [erc-nickserv-passwords erc-prompt-for-nickserv-password erc-nickserv-alist cl-struct-erc-response-tags erc-log-p erc-network assoc 2 type-of signal wrong-type-argument erc-response 4 5 string-match erc-log-aux "NickServ IDENTIFY request detected" erc-nickserv-call-identify-function nil] 11 (#$ . 16095)])
#@91 Identify to Nickserv after the connection to the server is established.
(fn SERVER NICK)
(defalias 'erc-nickserv-identify-on-connect #[514 "\204 ?\206 \n\304=\205 \305 \306\307 \"8\262?\205 \310!\207" [erc-nickserv-passwords erc-prompt-for-nickserv-password erc-nickserv-identify-mode erc-nickserv-alist both erc-network 2 assoc erc-nickserv-call-identify-function] 7 (#$ . 16991)])
#@70 Identify to Nickserv whenever your nick changes.
(fn NICK OLD-NICK)
(defalias 'erc-nickserv-identify-on-nick-change #[514 "\204 ?\206 \n\304=\205 \305 \306\307 \"8\262?\205 \310!\207" [erc-nickserv-passwords erc-prompt-for-nickserv-password erc-nickserv-identify-mode erc-nickserv-alist both erc-network 2 assoc erc-nickserv-call-identify-function] 7 (#$ . 17390)])
#@173 Call `erc-nickserv-identify'.
Either call it interactively or run it with NICKNAME's password,
depending on the value of `erc-prompt-for-nickserv-password'.
(fn NICKNAME)
(defalias 'erc-nickserv-call-identify-function #[257 "\203 \302\303!\207 \205 \303\304\304\305 \"A@\"A!\207" [erc-prompt-for-nickserv-password erc-nickserv-passwords call-interactively erc-nickserv-identify assoc erc-network] 7 (#$ . 17773)])
#@133 Send an "identify <PASSWORD>" message to NickServ.
When called interactively, read the password using `read-passwd'.
(fn PASSWORD)
(defalias 'erc-nickserv-identify #[257 "\211\205c \211\302\230?\205c \303\304 \305 \"\306\206 \305\303 \"8\206! \307\310\206* \305\303 \"8\206/ \311\312\2068 \305\303 \"8\203C \313 \314P\202D \302\315\206M \305\303 \"8\206R \316\317\314\314
\260\")\266\206\207" [erc-auto-discard-away erc-nickserv-alist "" nil erc-network assoc 3 "NickServ" 4 "IDENTIFY" 5 erc-current-nick " " 6 "PRIVMSG" erc-message] 15 (#$ . 18200) (byte-code "\300\301\302\303 \304 \203 \305\304 !\206 \306#!C\207" [read-passwd format "NickServ password for %s on %s (RET to cancel): " erc-current-nick erc-network symbol-name "Unknown network"] 6)])
(provide 'erc-services)
Zerion Mini Shell 1.0