ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Show ERC status in modeline

Browse source
This commit is contained in:
Tom Willemse 2015-06-17 10:49:43 +02:00
parent db423b3ce2
commit 3933f42b39
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/.emacs.d/site-lisp/oni-smt.el
View file

@ -119,6 +119,11 @@
ispell-local-dictionary ispell-local-dictionary
flyspell-default-dictionary))))) flyspell-default-dictionary)))))
(smt/defwidget oni-smt-erc
:text (lambda (_)
(when (boundp 'erc-modified-channels-alist)
erc-modified-channels-object)))
(smt/defwidget oni-smt-position (smt/defwidget oni-smt-position
:text (lambda (_) (format-mode-line "%l/%c:%p"))) :text (lambda (_) (format-mode-line "%l/%c:%p")))
@ -146,10 +151,12 @@
(smt/defrow oni-smt-right (smt/defrow oni-smt-right
:prototype 'default-right :prototype 'default-right
:widgets '(oni-smt-jabber-activity :widgets '(oni-smt-jabber-activity
oni-smt-erc
major-mode major-mode
oni-smt-current-dictionary oni-smt-current-dictionary
oni-smt-flycheck-errors oni-smt-flycheck-errors
version-control minor-modes) version-control
minor-modes)
:margin 17) :margin 17)
(smt/defrow oni-smt-left (smt/defrow oni-smt-left