Current File : //usr/share/emacs/24.3/lisp/erc/erc-list.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:41 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-list.el
;;; in Emacs version 24.3.1
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'erc)
(defconst erc-list-nusers-column 25)
(defconst erc-list-topic-column (+ erc-list-nusers-column 10))
(defvar erc-list-buffer nil)
(defvar erc-list-last-argument nil)
(defvar erc-list-server-buffer nil)
#@260 Non-nil if Erc-List mode is enabled.
See the command `erc-list-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-list-mode'.
(custom-declare-variable 'erc-list-mode nil '(#$ . 772) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-list :type 'boolean)
#@216 Toggle ERC list mode.
With a prefix argument ARG, enable list if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
List channels nicely in a separate buffer.
(defalias 'erc-list-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307 \210\202!\310 \210\311\312\n\203+\313\202,\314\"\210\315\316!\203Q\317\302!\210\303 \203D\303 \232\203Q\320\321\n\203N\322\202O\323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-list-mode current-message toggle prefix-numeric-value 0 erc-list-enable erc-list-disable run-hooks erc-list-mode-hook erc-list-mode-on-hook erc-list-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-List mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1194) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [erc-list-mode-map add-minor-mode erc-list-mode nil boundp] 6)
#@23 Enable ERC list mode.
(defalias 'erc-list-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\311\"\207" [erc-list-mode add-to-list erc-modules list t remove-hook erc-server-321-functions erc-server-321-message erc-server-322-functions erc-server-322-message] 3 (#$ . 2157) nil])
#@24 Disable ERC list mode.
(defalias 'erc-list-disable #[nil "\304\305\"\306\211\307\310\311\312\n\"\"\210*\313\314\315\316#\210\313\317\320\316#\207" [erc-modules erc-list-mode #1=#:pro #2=#:pre delq list nil erc-open-server-buffer-p mapcar #[(buffer) "rq\210\301\302\303\304#)\207" [buffer remove-hook erc-server-322-functions erc-list-handle-322 t] 4] erc-buffer-list add-hook erc-server-321-functions erc-server-321-message t erc-server-322-functions erc-server-322-message] 6 (#$ . 2455) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-list-mode definition-name list erc-list-enable erc-list-disable] 4)
(defalias 'erc-list-make-string #[(channel users topic) "\305\306\307\310\311	E\312\313%\n\305\306\307\310\311E\312\313%\f\260\207" [channel erc-list-nusers-column users erc-list-topic-column topic erc-propertize " " display space :align-to face fixed-pitch] 9])
(defalias 'erc-list-insert-item #[(channel users topic) "\212\304db\210\305	\n#\306\261*\207" [buffer-read-only channel users topic nil erc-list-make-string "\n"] 4])
#@42 Join the irc channel named on this line.
(defalias 'erc-list-join #[nil "m?\205\302 \210\303\304!\204\305\306!\210\307\310!r	q\210\311!*\207" [chan erc-list-server-buffer beginning-of-line looking-at "\\([&#+!][^ \n]+\\)" error "Not looking at channel name?" match-string 1 erc-join-channel] 2 (#$ . 3553) nil])
#@35 Kill the current ERC list buffer.
(defalias 'erc-list-kill #[nil "\300p!\207" [kill-buffer] 2 (#$ . 3877) nil])
#@31 Refresh the list of channels.
(defalias 'erc-list-revert #[nil "rq\210\302	!)\207" [erc-list-server-buffer erc-list-last-argument erc-cmd-LIST] 2 (#$ . 3995) nil])
#@49 Sort the channel list by the column clicked on.
(defalias 'erc-list-menu-sort-by-column #[(&optional e) "\203\306!\210\307!\211\211\310\n8)\206\n\311\n8))\211\203-\312A\313@#\202J\312	\314\n8\206G\nA@:\203D\nA@@\202G\nA@)\313\"\315\f\316U\203[\317\fed#\202`\320\fed#,\207" [e pos position obj col buffer-read-only mouse-select-window event-start 7 4 get-text-property column-number 5 nil 1 sort-fields sort-numeric-fields] 5 (#$ . 4166) (list last-input-event)])
#@43 Local keymap for `erc-list-mode' buffers.
(defvar erc-list-menu-mode-map (byte-code "\302 \303	\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210)\207" [map special-mode-map make-keymap set-keymap-parent define-key "k" erc-list-kill "j" erc-list-join "g" erc-list-revert "n" next-line "p" previous-line] 4) (#$ . 4659))
#@54 Local keymap for ERC list menu mode sorting buttons.
(defvar erc-list-menu-sort-button-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key [header-line mouse-1] erc-list-menu-sort-by-column [follow-link] mouse-face] 4) (#$ . 5034))
(defalias 'erc-list-button #[(title column) "\303\304	\305\306\307\310\311\n&	\207" [title column erc-list-menu-sort-button-map erc-propertize column-number help-echo "mouse-1: sort by column" mouse-face highlight keymap] 10])
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [erc-list-menu-mode-hook variable-documentation put purecopy "Hook run when entering ERC-List mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp erc-list-menu-mode-map definition-name erc-list-menu-mode] 5)
(defvar erc-list-menu-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [erc-list-menu-mode-map variable-documentation put purecopy "Keymap for `erc-list-menu-mode'." boundp erc-list-menu-mode-syntax-table definition-name erc-list-menu-mode] 5)
(defvar erc-list-menu-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [erc-list-menu-mode-syntax-table variable-documentation put purecopy "Syntax table for `erc-list-menu-mode'." erc-list-menu-mode-abbrev-table definition-name erc-list-menu-mode] 5)
(defvar erc-list-menu-mode-abbrev-table (progn (define-abbrev-table 'erc-list-menu-mode-abbrev-table nil) erc-list-menu-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [erc-list-menu-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `erc-list-menu-mode'." erc-list-menu-mode derived-mode-parent special-mode] 5)
#@240 Major mode for editing a list of irc channels.

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `erc-list-menu-mode-hook', as the final step
during initialization.

\{erc-list-menu-mode-map}
(defalias 'erc-list-menu-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324(\325\"\204V()=\204V\326(\325)C#\210\327!\210\330\f!\210()\331\332\333\334\335\336%\337\340\341\342\"\340\343\344\"\345#P*\307+)\346\347!\207" [delay-mode-hooks major-mode mode-name erc-list-menu-mode-map erc-list-menu-mode-syntax-table parent make-local-variable t special-mode erc-list-menu-mode "ERC-List" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table erc-propertize " " display (space :align-to 0) face fixed-pitch erc-list-make-string erc-list-button "Channel" 1 "# Users" 2 "Topic" run-mode-hooks erc-list-menu-mode-hook erc-list-menu-mode-abbrev-table local-abbrev-table header-line-format truncate-lines] 7 (#$ . 6971) nil])
(put 'erc-list-menu-mode 'mode-class 'special)
(defalias 'erc-list-handle-322 #[(proc parsed) "\306H	>\204\307\310\311\312#\210\313HA\211@\nA@\306H	>\204(\307\310\314\312#\210\315H\316!\203?rq\210\317\f
#\210),\320\207" [parsed cl-struct-erc-response-tags args channel nusers topic 0 error "%s accessing a non-%s" erc-response\.command-args erc-response 4 erc-response\.contents 5 buffer-live-p erc-list-insert-item t erc-list-buffer] 5])
(defalias 'erc-list-install-322-handler #[(server-buffer) "rq\210\305\306\307\310\211$\210\311\312\313\"\210\314\302!\210\315\316	\317Q!r\nq\210\320 \210\321\322 \210\314\304!\210\310)\323\n!\210)\310\207" [server-buffer erc-server-announced-name erc-list-buffer buffer-read-only erc-list-server-buffer add-hook erc-server-322-functions erc-list-handle-322 t erc-once-with-server-event 323 (progn (remove-hook 'erc-server-322-functions 'erc-list-handle-322 t)) make-local-variable get-buffer-create "*Channels of " "*" erc-list-menu-mode nil erase-buffer pop-to-buffer] 5])
#@339 Show a listing of channels on the current server in a separate window.

If LINE is specified, include it with the /LIST command.  It
should usually be one or more channels, separated by commas.

Please note that this function only works with IRC servers which conform
to RFC and send the LIST header (#321) at start of list transmission.
(defalias 'erc-cmd-LIST #[(&optional line) "\303 \304!\203rq\210\305\302!\210	\306\307\310\311pDD\"\210))\312\313	\203+	\314\315O\206,\316P!\207" [#1=#:buffer line erc-list-last-argument erc-server-buffer buffer-live-p make-local-variable erc-once-with-server-event 321 progn erc-list-install-322-handler erc-server-send "LIST :" 1 nil ""] 5 (#$ . 9262)])
(put 'erc-cmd-LIST 'do-not-parse-args t)