summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJakob L. Kreuze2019-12-24 13:28:03 -0500
committerJakob L. Kreuze2019-12-24 13:28:03 -0500
commitc00a3e547581f4a19f934a8486d83e07e23f13fb (patch)
treee7b70c129b248df09a1272c3053ce7bc6ea75e80
parent08d35348118639429936bb7b3d6dfd2ac971638e (diff)
Get rid of `erc-status-sidebar'.
-rw-r--r--jakob.org41
1 files changed, 3 insertions, 38 deletions
diff --git a/jakob.org b/jakob.org
index 0646942..0d0ae25 100644
--- a/jakob.org
+++ b/jakob.org
@@ -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

© 2015 - 2026 Jakob L. Kreuze