;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\303%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\320%\210\311\324\313\314\325DD\326\317\320%\210\311\327\313\314\330DD\331\317\320%\207" [require ibuffer ibuf-ext erc custom-declare-group erc-ibuffer nil "The Ibuffer group for ERC." :group custom-declare-variable erc-ibuffer-keyword-char funcall function #[0 "\300\207" [107] 1 #1=""] "Char indicating a channel which had keyword traffic lately (hidden)." :type character erc-ibuffer-pal-char #[0 "\300\207" [112] 1 #1#] "Char indicating a channel which had pal traffic lately (hidden)." erc-ibuffer-fool-char #[0 "\300\207" [102] 1 #1#] "Char indicating a channel which had fool traffic lately (hidden)." erc-ibuffer-dangerous-host-char #[0 "\300\207" [100] 1 #1#] "Char indicating a channel which had dangerous-host traffic lately (hidden)."] 6)
#@82 Toggle current view to buffers which are related to ERC servers.

(fn QUALIFIER)
(defalias 'ibuffer-filter-by-erc-server #[257 "\300
B\301
!\204\302\303\"\207\302\304\"\210\305\306\307\"\207" [erc-server ibuffer-push-filter message "Filter by erc servers already applied:  %s" "Filter by erc servers added:  %s" ibuffer-update nil t] 5 (#$ . 984) (byte-code "\300\301!\211\302\230\203
\303\202\211\262
C\207" [read-from-minibuffer "Limit by server (regexp) (RET for all): " "" ".*"] 3)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist erc-server "erc servers" #[514 "\3031r
q\210\304=\205\305
	\206\n\")0\207\210\306 \210\307\207" [major-mode erc-server-announced-name erc-session-server (error) erc-mode string-match ibuffer-pop-filter nil] 5 "\n\n(fn BUF QUALIFIER)"]] 3)
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-modified #[514 "r
q\210\306\300!\203c\203cp	\236\211\203]\211A\203V\211A@\307=\203(\310\n!\202^\211A@\311=\2036\310!\202^\211A@\312=\203D\310\f!\202^\211A@\313=\203R\310
!\202^\314\202^\310!\202^\315\262
\202d\315)\207" [erc-track-mode erc-modified-channels-alist erc-ibuffer-pal-char erc-ibuffer-fool-char erc-ibuffer-keyword-char erc-ibuffer-dangerous-host-char boundp pal string fool keyword dangerous-host "$" " " ibuffer-modified-char] 5 (#$ . 1794)])
(put 'ibuffer-make-column-erc-modified 'ibuffer-column-name "M")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-server-name #[514 "r
q\210\203*\303!\203*\304!\305
!\203$r\211q\210	\206 \n)\202%\306\262
\206+\307)\207" [erc-server-process erc-server-announced-name erc-session-server processp process-buffer buffer-live-p "(closed)" ""] 5 (#$ . 2395)])
(put 'ibuffer-make-column-erc-server-name 'ibuffer-column-name "Server")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-target #[514 "r
q\210\304=\203D	\203&\305	!\203&p\306	!=\203&\307\n\310\311!R\202F\312\313 !\2034\313 \260
\202F\313 \203@\314\313 P\202F\315\202F\316 )\207" [major-mode erc-server-process erc-session-server erc-session-port erc-mode processp process-buffer "Server " ":" erc-port-to-string erc-channel-p erc-default-target "Query: " "(parted)" buffer-name] 7 (#$ . 2777)])
(put 'ibuffer-make-column-erc-target 'ibuffer-column-name "Target")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-topic #[514 "r
q\210\302=\203	\203\303	!\202\304)\207" [major-mode erc-channel-topic erc-mode erc-controls-interpret ""] 4 (#$ . 3291)])
(put 'ibuffer-make-column-erc-topic 'ibuffer-column-name "Topic")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-members #[514 "r
q\210\302=\203&\303\301!\203&\304	!\203&\305	!\306V\203&\307\305	!!\202'\310)\207" [major-mode erc-channel-users erc-mode boundp hash-table-p hash-table-size 0 number-to-string ""] 5 (#$ . 3561)])
(put 'ibuffer-make-column-erc-members 'ibuffer-column-name "Users")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-away #[514 "r
q\210\203\301!\203\302 \203\303\202\304)\207" [erc-server-process processp erc-away-time "A" " "] 4 (#$ . 3909)])
(put 'ibuffer-make-column-erc-away 'ibuffer-column-name "A")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-op #[514 "r
q\210\303=\203T\304 \211\205K\305	!\205K\306\307!	\"\211\205I\211A\205I\310
A!\203=\211AG\311Y\203=\211A\312H\n>\204E\313\314\315AD\"\210\211A\316H\262
\262
\203T\317\202U\320)\207" [major-mode erc-channel-users cl-struct-erc-channel-user-tags erc-mode erc-current-nick hash-table-p gethash erc-downcase vectorp 7 0 signal wrong-type-argument erc-channel-user 3 "@" " "] 8 (#$ . 4168)])
(put 'ibuffer-make-column-erc-op 'ibuffer-column-name "O")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-voice #[514 "r
q\210\303=\203T\304 \211\205K\305	!\205K\306\307!	\"\211\205I\211A\205I\310
A!\203=\211AG\311Y\203=\211A\312H\n>\204E\313\314\315AD\"\210\211A\316H\262
\262
\203T\317\202U\320)\207" [major-mode erc-channel-users cl-struct-erc-channel-user-tags erc-mode erc-current-nick hash-table-p gethash erc-downcase vectorp 7 0 signal wrong-type-argument erc-channel-user 1 "+" " "] 8 (#$ . 4699)])
(put 'ibuffer-make-column-erc-voice 'ibuffer-column-name "V")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-channel-modes #[514 "r
q\210\304=\203+	G\305V\204\n\203+\306\307\310	#\n\203%\311\312\n\"\202&\313\314Q\202;\315\304!\204:\316\317\211p$\202;\313)\207" [major-mode erc-channel-modes erc-channel-user-limit mode-name erc-mode 0 apply concat "(+" format "l %d" "" ")" derived-mode-p format-mode-line nil] 7 (#$ . 5236)])
(put 'ibuffer-make-column-erc-channel-modes 'ibuffer-column-name "Mode")
#@20 

(fn BUFFER MARK)
(defalias 'ibuffer-make-column-erc-nick #[514 "r
q\210\301=\203\302 \202\303)\207" [major-mode erc-mode erc-current-nick ""] 4 (#$ . 5698)])
(put 'ibuffer-make-column-erc-nick 'ibuffer-column-name "Nick")
(defvar erc-ibuffer-formats '((mark erc-modified erc-away erc-op erc-voice " " (erc-nick 8 8) " " (erc-target 18 40) (erc-members 5 5 :center) (erc-channel-modes 6 16 :center) " " (erc-server-name 20 30) " " (erc-topic 10 -1)) (mark erc-modified erc-away erc-op erc-voice " " (erc-target 18 40) (erc-members 5 5 :center) (erc-channel-modes 9 20 :center) " " (erc-topic 10 -1))))
(byte-code "\302	\"\302\207" [ibuffer-formats erc-ibuffer-formats append] 3)
#@48 Prefix keymap to use for ERC related limiting.
(defvar erc-ibuffer-limit-map nil (#$ . 6391))
(byte-code "\301\302!\210\303\302\304\305#\210\303\306\302#\210\307\310!\207" [ibuffer-mode-map define-prefix-command erc-ibuffer-limit-map define-key "s" ibuffer-limit-by-erc-server "/" provide erc-ibuffer] 4)