Current File : //kunden/usr/share/emacs/27.2/lisp/erc/erc-list.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%\207" [require erc custom-declare-group erc-list nil "Support for the /list command." :group] 6)
(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)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable erc-list-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Erc-List mode is enabled.\nSee the `erc-list-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-list-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group erc-list :type boolean] 12)
#@236 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.

(fn &optional ARG)
(defalias 'erc-list-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-list-mode current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 7 (#$ . 1281) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar erc-list-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [erc-list-mode-map erc-list-mode-hook variable-documentation put "Hook run after entering or leaving `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.)" add-minor-mode erc-list-mode nil boundp] 6)
#@23 Enable ERC list mode.
(defalias 'erc-list-enable #[0 "\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 (#$ . 2629) nil])
#@24 Disable ERC list mode.
(defalias 'erc-list-disable #[0 "\302\303\"\304\211\305\306\307\310\"\"\266\311\312\313\314#\210\311\315\316\314#\207" [erc-modules erc-list-mode delq list nil erc-open-server-buffer-p mapcar #[257 "r\211q\210\300\301\302\303#)\207" [remove-hook erc-server-322-functions erc-list-handle-322 t] 5 "\n\n(fn BUFFER)"] erc-buffer-list add-hook erc-server-321-functions erc-server-321-message t erc-server-322-functions erc-server-322-message] 8 (#$ . 2925) 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)
#@28 

(fn CHANNEL USERS TOPIC)
(defalias 'erc-list-make-string #[771 "\302\303\304\305\306E\307\310%\302\303\304\305\306	E\307\310%\260\207" [erc-list-nusers-column erc-list-topic-column erc-propertize " " display space :align-to face fixed-pitch] 12 (#$ . 3573)])
#@28 

(fn CHANNEL USERS TOPIC)
(defalias 'erc-list-insert-item #[771 "\212\301db\210\302#\303\261*\207" [buffer-read-only nil erc-list-make-string "\n"] 7 (#$ . 3845)])
#@42 Join the irc channel named on this line.
(defalias 'erc-list-join #[0 "m?\205\301 \210\302\303!\204\304\305!\210\306\307!rq\210\310
!)\262
\207" [erc-list-server-buffer beginning-of-line looking-at "\\([&#+!][^ \n]+\\)" error "Not looking at channel name?" match-string 1 erc-join-channel] 3 (#$ . 4021) nil])
#@35 Kill the current ERC list buffer.
(defalias 'erc-list-kill #[0 "\300p!\207" [kill-buffer] 2 (#$ . 4342) nil])
#@31 Refresh the list of channels.
(defalias 'erc-list-revert #[0 "rq\210\302	!)\207" [erc-list-server-buffer erc-list-last-argument erc-cmd-LIST] 2 (#$ . 4458) nil])
#@67 Sort the channel list by the column clicked on.

(fn &optional E)
(defalias 'erc-list-menu-sort-by-column #[256 "\211\203\301
!\210\302
!\211\211\303
8\262
\206\304
!\262
\211\203(\305
A\306@#\202.\305\307!\306\"\310\211\311U\203>\312
ed#\202C\313
ed#)\207" [buffer-read-only mouse-select-window event-start 7 posn-string get-text-property column-number posn-point nil 1 sort-fields sort-numeric-fields] 8 (#$ . 4627) (list last-input-event)])
#@43 Local keymap for `erc-list-mode' buffers.
(defvar erc-list-menu-mode-map (byte-code "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312\313#\210\303
\314\315#\210\211\207" [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] 5) (#$ . 5088))
#@54 Local keymap for ERC list menu mode sorting buttons.
(defvar erc-list-menu-sort-button-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\211\207" [make-sparse-keymap define-key [header-line mouse-1] erc-list-menu-sort-by-column [follow-link] mouse-face] 5) (#$ . 5460))
#@21 

(fn TITLE COLUMN)
(defalias 'erc-list-button #[514 "\301\302\303\304\305\306\307&	\207" [erc-list-menu-sort-button-map erc-propertize column-number help-echo "mouse-1: sort by column" mouse-face header-line-highlight keymap] 12 (#$ . 5744)])
(defvar erc-list-menu-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [erc-list-menu-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar erc-list-menu-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [erc-list-menu-mode-abbrev-table 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 (lambda (#1=#:def-tmp-var) (defvar erc-list-menu-mode-syntax-table #1#)) make-syntax-table "Syntax table for `erc-list-menu-mode'." (lambda (#1#) (defvar erc-list-menu-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `erc-list-menu-mode'." derived-mode-parent special-mode] 5)
#@255 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 or penultimate step
during initialization.

\{erc-list-menu-mode-map}
(defalias 'erc-list-menu-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
(=\204R\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 erc-list-menu-mode-abbrev-table 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 local-abbrev-table header-line-format truncate-lines] 6 (#$ . 7239) nil])
(put 'erc-list-menu-mode 'mode-class 'special)
#@20 

(fn PROC PARSED)
(defalias 'erc-list-handle-322 #[514 "\302
!>\204\303\304\305D\"\210\211\306HA\211@
A@\302!>\204(\303\304\305D\"\210\307H\310	!\203<r	q\210\311#\210)\266\312\207" [cl-struct-erc-response-tags erc-list-buffer type-of signal wrong-type-argument erc-response 4 5 buffer-live-p erc-list-insert-item t] 10 (#$ . 8547)])
#@22 

(fn SERVER-BUFFER)
(defalias 'erc-list-install-322-handler #[257 "r\211q\210\304\305\306\307\211$\210\310\311\312\"\210\313\301!\210\314\315\316Q!r	q\210\317 \210\320\321 \210\313\303!\210\211\307)\322	!\210)\307\207" [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 #[514 "\300\301\302\303#\207" [remove-hook erc-server-322-functions erc-list-handle-322 t] 6 "\n\n(fn PROC PARSED)"] make-local-variable get-buffer-create "*Channels of " "*" erc-list-menu-mode nil erase-buffer pop-to-buffer] 6 (#$ . 8902)])
#@360 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.

(fn &optional LINE)
(defalias 'erc-cmd-LIST #[256 "\301 \302
!\203&r\211q\210\303\300!\210
\304\305p\306\307\310\311\312!\313\"\314\315%\262
\"\210)\210\316\317\2034\320\321\"\2065\322P!\207" [erc-list-last-argument erc-server-buffer buffer-live-p make-local-variable erc-once-with-server-event 321 make-byte-code 514 "\301\300!\207" vconcat vector [erc-list-install-322-handler] 4 "\n\n(fn PROC PARSED)" erc-server-send "LIST :" substring 1 ""] 11 (#$ . 9546)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put erc-cmd-LIST do-not-parse-args t provide erc-list] 4)