From 3933f42b393aea0d816f54d6c767fe034e0efd76 Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Wed, 17 Jun 2015 10:49:43 +0200
Subject: [PATCH] Show ERC status in modeline

---
 emacs/.emacs.d/site-lisp/oni-smt.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/emacs/.emacs.d/site-lisp/oni-smt.el b/emacs/.emacs.d/site-lisp/oni-smt.el
index 4557b6b..48f15fb 100644
--- a/emacs/.emacs.d/site-lisp/oni-smt.el
+++ b/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