Show ERC status in modeline

emacs/.emacs.d/site-lisp/oni-smt.el

@@ -119,6 +119,11 @@
                               ispell-local-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
   :text (lambda (_) (format-mode-line "%l/%c:%p")))
 
@@ -146,10 +151,12 @@
 (smt/defrow oni-smt-right
   :prototype 'default-right
   :widgets '(oni-smt-jabber-activity
+             oni-smt-erc
              major-mode
              oni-smt-current-dictionary
              oni-smt-flycheck-errors
-             version-control minor-modes)
+             version-control
+             minor-modes)
   :margin 17)
 
 (smt/defrow oni-smt-left