TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add ERC active channels to mode-line

Browse source
This commit is contained in:
Swaroop C H 2015-04-15 17:55:27 -07:00 committed by syl20bnr
parent e5a4ebdfb7
commit 68e3833a95
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
spacemacs/packages.el
View file

@ -2276,6 +2276,13 @@ displayed in the mode-line.")
(list (spacemacs-powerline-minor-modes line-face 'l)
(powerline-raw mode-line-process line-face 'l)
(powerline-raw " " line-face)))
;; erc
(when (and active
(boundp 'erc-track-mode))
;; Copied from erc-track.el -> erc-modified-channels-display
(let* ((buffers (mapcar 'car erc-modified-channels-alist))
(long-names (mapcar #'(lambda (buf) (or (buffer-name buf) "")) buffers)))
long-names))
;; version control
(when (and active (or flycheckp spacemacs-mode-line-minor-modesp))
(list (funcall separator-left (if vc-face line-face face1) vc-face)))