Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
erc
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: erc-ibuffer.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\300\303!\210\304\305\306\307\310\303%\210\311\312\313\314\310\305\315\316&\210\311\317\320\321\310\305\315\316&\210\311\322\323\324\310\305\315\316&\210\311\325\326\327\310\305\315\316&\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 107 "Char used to indicate a channel which had keyword traffic lately (hidden)." :type character erc-ibuffer-pal-char 112 "Char used to indicate a channel which had pal traffic lately (hidden)." erc-ibuffer-fool-char 102 "Char used to indicate a channel which had fool traffic lately (hidden)." erc-ibuffer-dangerous-host-char 100 "Char used to indicate a channel which had dangerous-host traffic lately\n(hidden)."] 8) #@66 Toggle current view to buffers which are related to ERC servers. (defalias 'ibuffer-filter-by-erc-server #[(qualifier) "\303B\304\n!\204 \305\306 \"\202 \305\307 \"\210\310\311\312\"*\207" [qualifier #1=#:ibuffer-qualifier-str #2=#:ibuffer-filter erc-server ibuffer-push-filter message "Filter by erc servers already applied: %s" "Filter by erc servers added: %s" ibuffer-update nil t] 3 (#$ . 1214) (list (let ((regexp (read-from-minibuffer "Limit by server (regexp) (RET for all): "))) (if (string= regexp "") ".*" regexp)))]) (byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist erc-server "erc servers" #[(buf qualifier) "\3051 rq\210 \306=\205 \307\n \206 \f\")0\207\210\310 \210\311\207" [buf major-mode qualifier erc-server-announced-name erc-session-server (error) erc-mode string-match ibuffer-pop-filter nil] 3]] 3) (defalias 'ibuffer-make-column-erc-modified #[(buffer mark) "\210r q\210\306\302!\203j \n\203j p \236\211 \203e \fG\307V\203^ \fA@\310=\203- \311 !\202f \fA@\312=\203< \311!\202f \fA@\313=\203K \311!\202f \fA@\314=\203Z \311!\202f \315\202f \311!\202f \316)\202k \316)\207" [mark buffer erc-track-mode erc-modified-channels-alist entry erc-ibuffer-pal-char boundp 1 pal string fool keyword dangerous-host "$" " " erc-ibuffer-fool-char erc-ibuffer-keyword-char erc-ibuffer-dangerous-host-char ibuffer-modified-char] 3]) (put 'ibuffer-make-column-erc-modified 'ibuffer-column-name "M") (defalias 'ibuffer-make-column-erc-server-name #[(buffer mark) "\210r q\210\n\203 \305\n!\203 r\306\n!q\210 \206 \f)\202 \307)\207" [mark buffer erc-server-process erc-server-announced-name erc-session-server processp process-buffer ""] 2]) (put 'ibuffer-make-column-erc-server-name 'ibuffer-column-name "Server") (defalias 'ibuffer-make-column-erc-target #[(buffer mark) "\210r q\210\n\306=\203F \203( \307 !\203( p\310 !=\203( \311\f\312\313 !R\202H \314\315 !\2036 \315 \260\202H \315 \203B \316\315 P\202H \317\202H \320 )\207" [mark buffer 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] 5]) (put 'ibuffer-make-column-erc-target 'ibuffer-column-name "Target") (defalias 'ibuffer-make-column-erc-topic #[(buffer mark) "\210r q\210\n\304=\203 \203 \305 !\202 \306)\207" [mark buffer major-mode erc-channel-topic erc-mode erc-controls-interpret ""] 2]) (put 'ibuffer-make-column-erc-topic 'ibuffer-column-name "Topic") (defalias 'ibuffer-make-column-erc-members #[(buffer mark) "\210r q\210\n\304=\203( \305\303!\203( \306 !\203( \307 !\310V\203( \311\307 !!\202) \312)\207" [mark buffer major-mode erc-channel-users erc-mode boundp hash-table-p hash-table-size 0 number-to-string ""] 3]) (put 'ibuffer-make-column-erc-members 'ibuffer-column-name "Users") (defalias 'ibuffer-make-column-erc-away #[(buffer mark) "\210r q\210\n\203 \303\n!\203 \304 \203 \305\202 \306)\207" [mark buffer erc-server-process processp erc-away-time "A" " "] 2]) (put 'ibuffer-make-column-erc-away 'ibuffer-column-name "A") (defalias 'ibuffer-make-column-erc-op #[(buffer mark) "\210r q\210\n\306=\203H \307 \211\205@ \310\f!\205@ \311\312 !\f\"\211 \205? A\205? A\313H>\204; \314\315\316 AD\"\210 A\317H))\203H \320\202I \321)\207" [mark buffer major-mode #1=#:nick erc-channel-users cdata erc-mode erc-current-nick hash-table-p gethash erc-downcase 0 signal wrong-type-argument erc-channel-user 3 "@" " " cl-struct-erc-channel-user-tags] 5]) (put 'ibuffer-make-column-erc-op 'ibuffer-column-name "O") (defalias 'ibuffer-make-column-erc-voice #[(buffer mark) "\210r q\210\n\306=\203H \307 \211\205@ \310\f!\205@ \311\312 !\f\"\211 \205? A\205? A\313H>\204; \314\315\316 AD\"\210 A\317H))\203H \320\202I \321)\207" [mark buffer major-mode #1=#:nick erc-channel-users cdata erc-mode erc-current-nick hash-table-p gethash erc-downcase 0 signal wrong-type-argument erc-channel-user 1 "+" " " cl-struct-erc-channel-user-tags] 5]) (put 'ibuffer-make-column-erc-voice 'ibuffer-column-name "V") (defalias 'ibuffer-make-column-erc-channel-modes #[(buffer mark) "\210r q\210\n\306=\203- G\307V\204 \f\203- \310\311\312 #\f\203' \313\314\f\"\202( \315\316Q\202= \317\306!\204< \320 \321\211p$\202= \315)\207" [mark buffer 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] 5]) (put 'ibuffer-make-column-erc-channel-modes 'ibuffer-column-name "Mode") (defalias 'ibuffer-make-column-erc-nick #[(buffer mark) "\210r q\210\n\303=\203 \304 \202 \305)\207" [mark buffer major-mode erc-mode erc-current-nick ""] 2]) (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 (#$ . 6449)) (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)