diff options
| author | Jakob L. Kreuze | 2019-12-24 13:28:03 -0500 |
|---|---|---|
| committer | Jakob L. Kreuze | 2019-12-24 13:28:03 -0500 |
| commit | c00a3e547581f4a19f934a8486d83e07e23f13fb (patch) | |
| tree | e7b70c129b248df09a1272c3053ce7bc6ea75e80 | |
| parent | 08d35348118639429936bb7b3d6dfd2ac971638e (diff) | |
Get rid of `erc-status-sidebar'.
| -rw-r--r-- | jakob.org | 41 |
1 files changed, 3 insertions, 38 deletions
@@ -1752,8 +1752,7 @@ networks my bouncer is connected to. (dolist (network irc-autoconnect-networks) (if (string= network "bitlbee") (bitlbee-connect) - (connect-bouncer network))) - (erc-status-sidebar-open)) + (connect-bouncer network)))) (defun irc-quit () "Disconnects from and kills all buffers associated with ERC, @@ -1896,13 +1895,9 @@ Configure =erc-track= to ignore the less interesting message types. "324" "329" "332" "333" "353" "477")) #+END_SRC -Enable channel tracking, but disable the modeline element as I'm using -=erc-status-sidebar=. +Enable channel tracking. #+BEGIN_SRC elisp - :init - (setq erc-track-position-in-mode-line nil) - :config (erc-track-minor-mode 1) (erc-track-mode 1) @@ -1925,8 +1920,7 @@ upon reconnecting. ("C-c f" . (lambda () (interactive) (setq erc-modified-channels-alist nil) - (erc-modified-channels-update) - (erc-status-sidebar-refresh)))) + (erc-modified-channels-update)))) #+END_SRC Let =erc-fill= handle filling. @@ -1970,35 +1964,6 @@ Configure the =bitlbee= package for starting an inferior Bitlbee process. (setq bitlbee-user-directory "~/.config/bitlbee/")) #+END_SRC -Configure a custom channame format for =erc-status-sidebar=. - -#+BEGIN_SRC elisp -(use-package erc-status-sidebar - :init - (setq erc-status-sidebar-width 30) - - :config - (defun erc-reverse-chan-format (channame &optional num-messages erc-face) - "Format CHANNAME for display in the sidebar. - - If NUM-MESSAGES is non-nil, prepend 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." - (if num-messages - (let* ((padding-length (- 6 (length (format "[%d]" num-messages)))) - (padding (make-string padding-length ? ))) - (setq channame (format "[%d]%s%s" num-messages padding channame))) - (setq channame (format "%s%s" (make-string 6 ? ) channame))) - (when erc-face - (put-text-property 0 (length channame) 'face erc-face channame) - (when (eq erc-face 'erc-default-face) - (add-face-text-property 0 (length channame) 'bold t channame))) - channame) - - (setq erc-status-sidebar-channel-format #'erc-reverse-chan-format)) -#+END_SRC - Display a bar delimiting read and unread messages. Adapted from [[https://www.emacswiki.org/emacs/ErcBar][here]]. #+BEGIN_SRC elisp |