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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312%\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\322%\210\313\326\315\316\327DD\330\321\331%\210\313\332\315\316\333DD\334\321\335%\210\313\336\315\316\337DD\340\321\316%\210\313\341\315\316\342DD\343\321\316%\207" [require erc erc-track fringe seq custom-declare-group erc-status-sidebar nil "A sidebar for ERC channel status." :group convenience custom-declare-variable erc-status-sidebar-buffer-name funcall function #[0 "\300\207" ["*ERC Status*"] 1 #1=""] "Name of the sidebar buffer." :type string erc-status-sidebar-mode-line-format #[0 "\300\207" ["ERC Status"] 1 #1#] "Mode line format for the status sidebar." erc-status-sidebar-header-line-format #[0 "\300\207" [nil] 1 #1#] "Header line format for the status sidebar." (choice (const :tag "No header line" nil) string) erc-status-sidebar-width #[0 "\300\207" [15] 1 #1#] "Default width of the sidebar (in columns)." number erc-status-sidebar-channel-sort #[0 "\300\207" [erc-status-sidebar-default-chansort] 1 #1#] "Sorting function used to determine order of channels in the sidebar." erc-status-sidebar-channel-format #[0 "\300\207" [erc-status-sidebar-default-chan-format] 1 #1#] "Function used to format channel names for display in the sidebar."] 6)
#@69 Display the status buffer in a side window.  Return the new window.
(defalias 'erc-status-sidebar-display-window #[0 "\301\302 \303\304\305BE\"\207" [erc-status-sidebar-width display-buffer erc-status-sidebar-get-buffer display-buffer-in-side-window (side . left) window-width] 6 (#$ . 1415)])
#@149 Return the created/existing window displaying the status buffer.

If NO-CREATION is non-nil, the window is not created.

(fn &optional NO-CREATION)
(defalias 'erc-status-sidebar-get-window #[256 "\302!\211\204E
\204Er\303 q\210\304\301!\210\305)\306 \262
\307
\310\"\210\311
\312\310#\210\311
\313\310#\210\314
\305\"\210\315
\316\211#\210\317 \320\"\210\321
\322\323#\266\207" [erc-status-sidebar-buffer-name vertical-scroll-bar get-buffer-window erc-status-sidebar-get-buffer make-local-variable nil erc-status-sidebar-display-window set-window-dedicated-p t set-window-parameter no-delete-other-windows no-other-window internal-show-cursor set-window-fringes 0 make-display-table set-window-display-table set-display-table-slot truncation 32] 7 (#$ . 1717)])
#@37 Check if the sidebar buffer exists.
(defalias 'erc-status-sidebar-buffer-exists-p #[0 "\301!\207" [erc-status-sidebar-buffer-name get-buffer] 2 (#$ . 2492)])
#@61 Return the sidebar buffer, creating it if it doesn't exist.
(defalias 'erc-status-sidebar-get-buffer #[0 "\301!\207" [erc-status-sidebar-buffer-name get-buffer-create] 2 (#$ . 2657)])
#@282 Close the sidebar.

If called with prefix argument (ALL-FRAMES non-nil), the sidebar
will be closed on all frames.

The erc-status-sidebar buffer is left alone, but the window
containing it on the current frame is closed.  See
`erc-status-sidebar-kill'.

(fn &optional ALL-FRAMES)
(defalias 'erc-status-sidebar-close #[256 "\300\301\302\303 \304\205\305#\"\207" [mapcar delete-window get-buffer-window-list erc-status-sidebar-get-buffer nil t] 7 (#$ . 2849) "P"])
#@72 Make the status buffer writable while executing BODY.

(fn &rest BODY)
(defalias 'erc-status-sidebar-writable '(macro . #[128 "\300\301BB\207" [let ((buffer-read-only nil))] 4 (#$ . 3322)]))
#@27 Open or create a sidebar.
(defalias 'erc-status-sidebar-open #[0 "\212\300 \301 
?\205r\211q\210\302 \210\303 )\266\202)\207" [erc-status-sidebar-buffer-exists-p erc-status-sidebar-get-buffer erc-status-sidebar-mode erc-status-sidebar-refresh] 3 (#$ . 3520) nil])
#@54 Toggle the sidebar open/closed on the current frame.
(defalias 'erc-status-sidebar-toggle #[0 "\301\302\"\203\n\303 \207\304 \207" [erc-status-sidebar-buffer-name get-buffer-window nil erc-status-sidebar-close erc-status-sidebar-open] 3 (#$ . 3792) nil])
#@77 Return name of BUFFER with all leading "#" characters removed.

(fn BUFFER)
(defalias 'erc-status-sidebar-get-channame #[257 "\300
!\301\302\"\203\303\304\305\211$\262
\211\227\207" [buffer-name string-match "^#\\{1,2\\}" replace-match "" t] 7 (#$ . 4055)])
#@77 Sort CHANLIST case-insensitively for display in the sidebar.

(fn CHANLIST)
(defalias 'erc-status-sidebar-default-chansort #[257 "\300
\301\"\207" [sort #[514 "\300!\300!\231\207" [erc-status-sidebar-get-channame] 5 "\n\n(fn X Y)"]] 4 (#$ . 4323)])
#@303 Format CHANNAME for display in the sidebar.

If NUM-MESSAGES is non-nil, append it to the channel name.  If
ERC-FACE is non-nil, apply it to channel name.  If it is equal to
`erc-default-face', also apply bold property to make the channel
name stand out.

(fn CHANNAME &optional NUM-MESSAGES ERC-FACE)
(defalias 'erc-status-sidebar-default-chan-format #[769 "
\203\300\301#\262\211\203)\302\303G\304%\210\211\305=\203)\306\303G\307\310%\210\207" [format "%s [%d]" put-text-property 0 face erc-default-face add-face-text-property bold t] 9 (#$ . 4581)])
#@36 Update the content of the sidebar.
(defalias 'erc-status-sidebar-refresh #[0 "\304\305!!r\306 q\210\305ed|\210eb\210\211\211\205a\211@\307\310\311\"\n\"\211\205(\211A@
\205/
AA\312!#\211G\313\314\315	%\210\313\314\316\317%\210\313\314\320\321%\210
\322\261\266
A\266\202\202\262
*\207" [erc-status-sidebar-channel-sort buffer-read-only erc-modified-channels-alist erc-status-sidebar-channel-format erc-channel-list nil erc-status-sidebar-get-buffer seq-find make-closure #[257 "\211@\300=\207" [V0] 3 "\n\n(fn TUP)"] buffer-name put-text-property 0 erc-buf mouse-face highlight help-echo "mouse-1: switch to buffer in other window" "\n"] 14 (#$ . 5155) nil])
#@46 Close the ERC status sidebar and its buffer.
(defalias 'erc-status-sidebar-kill #[0 "\3011	\302!0\207\210\303\207" [erc-status-sidebar-buffer-name (error) kill-buffer nil] 2 (#$ . 5844) nil])
#@66 Handle click EVENT in `erc-status-sidebar-mode-map'.

(fn EVENT)
(defalias 'erc-status-sidebar-click #[257 "\212\300
!\211@\262
\301\300!!\302!q\210\303
\304\"\211\205!\305!\210\306
!\262
\266\202)\207" [event-end posn-point window-buffer get-text-property erc-buf select-window switch-to-buffer-other-window] 6 (#$ . 6044) "e"])
(defvar erc-status-sidebar-mode-map (byte-code "\301 \302
\"\210\303
\304\305#\210\207" [special-mode-map make-sparse-keymap set-keymap-parent define-key [mouse-1] erc-status-sidebar-click] 5))
(defvar erc-status-sidebar-refresh-triggers '(erc-track-list-changed-hook erc-join-hook erc-part-hook erc-kill-buffer-hook erc-kill-channel-hook erc-kill-server-hook erc-kick-hook erc-disconnected-hook erc-quit-hook))
#@195 Schedule sidebar refresh for execution after command stack is cleared.

Ignore arguments in IGNORE, allowing this function to be added to
hooks that invoke it with arguments.

(fn &rest IGNORE)
(defalias 'erc-status-sidebar--post-refresh #[128 "\300\301\302\303#\207" [run-at-time 0 nil erc-status-sidebar-refresh] 5 (#$ . 6798)])
#@54 Remove hooks installed by `erc-status-sidebar-mode'.
(defalias 'erc-status-sidebar-mode--unhook #[0 "\211\203\211@\301
\302\"\210
A\266\202\202
\210\301\303\304\"\207" [erc-status-sidebar-refresh-triggers remove-hook erc-status-sidebar--post-refresh window-configuration-change-hook erc-status-sidebar-set-window-preserve-size] 5 (#$ . 7135)])
#@249 Tell Emacs to preserve the current height/width of the ERC sidebar window.

Note that preserve status needs to be reset when the window is
manually resized, so `erc-status-sidebar-mode' adds this function
to the `window-configuration-change-hook'.
(defalias 'erc-status-sidebar-set-window-preserve-size #[0 "\300 \301 =\205\302\303!\205\304 \305\306\307\"=?\205\303\300 \307\211#\207" [selected-window erc-status-sidebar-get-window fboundp window-preserve-size window-total-width window-min-size nil t] 4 (#$ . 7490)])
(defvar erc-status-sidebar-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-status-sidebar-mode-hook variable-documentation put "Hook run after entering ERC Sidebar 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-status-sidebar-mode-map definition-name erc-status-sidebar-mode] 4)
(defvar erc-status-sidebar-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-status-sidebar-mode-abbrev-table erc-status-sidebar-mode-map variable-documentation put purecopy "Keymap for `erc-status-sidebar-mode'." boundp erc-status-sidebar-mode-syntax-table definition-name erc-status-sidebar-mode (lambda (#1=#:def-tmp-var) (defvar erc-status-sidebar-mode-syntax-table #1#)) make-syntax-table "Syntax table for `erc-status-sidebar-mode'." (lambda (#1#) (defvar erc-status-sidebar-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `erc-status-sidebar-mode'." derived-mode-parent special-mode] 5)
#@253 Major mode for ERC status sidebar.

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

\{erc-status-sidebar-mode-map}
(defalias 'erc-status-sidebar-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
$\306\331!\210\332\211%\307&'()*\333 \210\334\335\333\332\307$\210+\211\203\220\211@\334
\336\"\210
A\266\202\202~\210\334\337\340\332\307$\210\334\341\340\332\307$\210)\342\343!\207" [delay-mode-hooks major-mode mode-name erc-status-sidebar-mode-map erc-status-sidebar-mode-syntax-table erc-status-sidebar-mode-abbrev-table make-local-variable t special-mode erc-status-sidebar-mode "ERC Sidebar" 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 auto-hscroll-mode nil erc-status-sidebar-set-window-preserve-size add-hook window-configuration-change-hook erc-status-sidebar--post-refresh change-major-mode-hook erc-status-sidebar-mode--unhook kill-buffer-hook run-mode-hooks erc-status-sidebar-mode-hook local-abbrev-table cursor-type buffer-read-only erc-status-sidebar-mode-line-format mode-line-format erc-status-sidebar-header-line-format header-line-format erc-status-sidebar-refresh-triggers] 6 (#$ . 9336) nil])
(provide 'erc-status-sidebar)