Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-join.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\305\312\313\314\315\316\307\304\317\320& \207" [require erc auth-source custom-declare-group erc-autojoin nil "Enable autojoining." :group custom-declare-variable erc-autojoin-mode "Non-nil if Erc-Autojoin mode is enabled.\nSee the `erc-autojoin-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-autojoin-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)
#@228 Toggle ERC autojoin mode.
With a prefix argument ARG, enable autojoin if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
Makes ERC autojoin on connects and reconnects.
(defalias 'erc-autojoin-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-autojoin-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-autojoin-enable erc-autojoin-disable run-hooks erc-autojoin-mode-hook erc-autojoin-mode-on-hook erc-autojoin-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Autojoin mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1028) (list (or current-prefix-arg 'toggle))])
(defvar erc-autojoin-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-autojoin-mode-map erc-autojoin-mode-hook variable-documentation put "Hook run after entering or leaving `erc-autojoin-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-autojoin-mode nil boundp] 6)
#@27 Enable ERC autojoin mode.
(defalias 'erc-autojoin-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-autojoin-mode add-to-list erc-modules autojoin t add-hook erc-after-connect erc-autojoin-channels erc-nickserv-identified-hook erc-autojoin-after-ident erc-server-JOIN-functions erc-autojoin-add erc-server-PART-functions erc-autojoin-remove] 3 (#$ . 2432) nil])
#@28 Disable ERC autojoin mode.
(defalias 'erc-autojoin-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-modules erc-autojoin-mode delq autojoin nil remove-hook erc-after-connect erc-autojoin-channels erc-nickserv-identified-hook erc-autojoin-after-ident erc-server-JOIN-functions erc-autojoin-add erc-server-PART-functions erc-autojoin-remove] 3 (#$ . 2866) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\311\312\313\314\315&\210\306\316\317\320\312\313\321\322\314\323& \210\306\324\325\326\312\313\321\322\314\327& \210\306\330\331\332\312\313\314\333&\207" [put erc-autojoin-mode definition-name autojoin erc-autojoin-enable erc-autojoin-disable custom-declare-variable erc-autojoin-channels-alist nil "Alist of channels to autojoin on IRC networks.\nEvery element in the alist has the form (SERVER . CHANNELS).\nSERVER is a regexp matching the server, and channels is the\nlist of channels to join.\n\nIf the channel(s) require channel keys for joining, the passwords\nare found via auth-source. For instance, if you use ~/.authinfo\nas your auth-source backend, then put something like the\nfollowing in that file:\n\nmachine irc.example.net login \"#fsf\" password sEcReT\n\nCustomize this variable to set the value for your first connect.\nOnce you are connected and join and part channels, this alist\nkeeps track of what channels you are on, and will join them\nagain when you get disconnected. When you restart Emacs, however,\nthose changes are lost, and the customization you saved the last\ntime is used again." :group erc-autojoin :type (repeat (cons :tag "Server" (regexp :tag "Name") (repeat :tag "Channels" (string :tag "Name")))) erc-autojoin-timing 'connect "When ERC should attempt to autojoin a channel.\nIf the value is `connect', autojoin immediately on connecting.\nIf the value is `ident', autojoin after successful NickServ\nidentification, or after `erc-autojoin-delay' seconds.\nAny other value means the same as `connect'." :version "24.1" (choice (const :tag "On Connection" connect) (const :tag "When Identified" ident)) erc-autojoin-delay 30 "Number of seconds to wait before attempting to autojoin channels.\nThis only takes effect if `erc-autojoin-timing' is `ident'.\nIf NickServ identification occurs before this delay expires, ERC\nautojoins immediately at that time." integer erc-autojoin-domain-only t "Truncate host name to the domain name when joining a server.\nIf non-nil, and a channel on the server a.b.c is joined, then\nonly b.c is used as the server for `erc-autojoin-channels-alist'.\nThis is important for networks that redirect you to other\nservers, presumably in the same domain." boolean] 10)
(defvar erc--autojoin-timer nil)
(make-variable-buffer-local 'erc--autojoin-timer)
#@94 Attempt to autojoin channels.
This is called from a timer set up by `erc-autojoin-channels'.
(defalias 'erc-autojoin-channels-delayed #[(server nick buffer) "\203 \306!r q\210\307\310\f\203 \311\312!\210\313
\f\"+\207" [erc--autojoin-timer buffer erc-autojoin-timing erc-autojoin-delay erc-log-p server erc-cancel-timer -1 connect erc-log-aux "Delayed autojoin started (no ident success detected yet)" erc-autojoin-channels nick] 3 (#$ . 5711)])
#@111 Autojoin channels in `erc-autojoin-channels-alist'.
This function is run from `erc-nickserv-identified-hook'.
(defalias 'erc-autojoin-after-ident #[(network nick) "\203 \306! \307=\203j \n\206 \310\311\312\f!\" \313 \211 \203i @\314@\"\203` A\313 \211 \203_ @\315
\"\204V \316\"\210A\211\204B *A\211\204' ,\313\207" [erc--autojoin-timer erc-autojoin-timing erc-session-server erc-server-announced-name erc-server-process joined erc-cancel-timer ident mapcar #[(buf) "rq\210\301 )\207" [buf erc-default-target] 1] erc-channel-list nil string-match erc-member-ignore-case erc-server-join-channel server erc-autojoin-channels-alist l --dolist-tail-- chan] 6 (#$ . 6172)])
#@53 Autojoin channels in `erc-autojoin-channels-alist'.
(defalias 'erc-autojoin-channels #[(server nick) "\306=\203 \307V\203\206 \310 \311\312\n p&\202\206
\311 \211 \203\205 @\313@\n\"\203| \2068 A\311 \211 \203{ @\314!\211 \203k \313@\315!\"\203k rq\210\316 )\204q \317\n\"\210)A\211\204E +A\211\204# *\311\207" [erc-autojoin-timing erc-autojoin-delay server nick erc--autojoin-timer erc-autojoin-channels-alist ident 0 run-with-timer nil erc-autojoin-channels-delayed string-match erc-get-buffer process-name erc-server-process-alive erc-server-join-channel l --dolist-tail-- erc-session-server erc-server-announced-name chan buffer erc-server-process] 8 (#$ . 6890)])
#@64 Add the channel being joined to `erc-autojoin-channels-alist'.
(defalias 'erc-autojoin-add #[(proc parsed) "\306! >\204 \307\310\311D\"\210\312H\313\306! >\204# \307\310\311D\"\210\314H!@r\315\f!q\210
\2065 ) \316 !\203| \203R \317\320\"\203R \321\322\"\323\"\211 \203r \nA\235\204{ \nAB\241\210\202{ \nDB)+\324\207" [parsed cl-struct-erc-response-tags chnl nick proc erc-session-server type-of signal wrong-type-argument erc-response 5 erc-parse-user 2 process-buffer erc-current-nick-p string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" match-string 1 assoc nil erc-server-announced-name server erc-autojoin-domain-only erc-autojoin-channels-alist elem] 6 (#$ . 7611)])
#@67 Remove the channel being left from `erc-autojoin-channels-alist'.
(defalias 'erc-autojoin-remove #[(proc parsed) "\306! >\204 \307\310\311D\"\210\312H@\313\306! >\204$ \307\310\311D\"\210\314H!@r\315\f!q\210
\2066 ) \316 !\203x \203S \317\320\"\203S \321\322\"\323\"\211 \203w \324\nA\"\241\210A\204w \324\")+\325\207" [parsed cl-struct-erc-response-tags chnl nick proc erc-session-server type-of signal wrong-type-argument erc-response 4 erc-parse-user 2 process-buffer erc-current-nick-p string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" match-string 1 assoc delete nil erc-server-announced-name server erc-autojoin-domain-only erc-autojoin-channels-alist elem] 6 (#$ . 8325)])
(provide 'erc-join)
Mini Shell