Update tracked buffers to mowedline in realtime

1 files changed, 15 insertions, 7 deletions

diff --git a/emacs/.emacs.d/site-lisp/oni-mowedline.el b/emacs/.emacs.d/site-lisp/oni-mowedline.el
index 5b2772f..51e6ecb 100644
--- a/emacs/.emacs.d/site-lisp/oni-mowedline.el
+++ b/emacs/.emacs.d/site-lisp/oni-mowedline.el
@@ -24,6 +24,8 @@
 
 ;;; Code:
 
+(require 's)
+(require 'shorten)
 (require 'tracking)
 
 (require 'mowedline "~/projects/ext/mowedline/mowedline.el")
@@ -31,17 +33,23 @@
 (defvar oni:mowedline--shown-buffers nil)
 
 ;;;###autoload
-(defun oni:update-mowedline-irclist ()
-  (let ((irclist
-         (with-temp-buffer
-           (insert (format-mode-line tracking-mode-line-buffers))
-           (buffer-substring-no-properties (point-min) (point-max)))))
-    (mowedline-update 'irclist irclist)))
+(defun oni:mowedline-buffer-added ()
+  (setq oni:mowedline--shown-buffers
+        (cons (buffer-name) oni:mowedline--shown-buffers))
+  (let ((irclist (shorten-strings oni:mowedline--shown-buffers)))
+    (mowedline-update 'irclist (s-join "," (mapcar #'cdr irclist)))))
+
+;;;###autoload
+(defun oni:mowedline-buffer-removed ()
+  (setq oni:mowedline--shown-buffers
+        (delete (buffer-name) oni:mowedline--shown-buffers))
+  (let ((irclist (shorten-strings oni:mowedline--shown-buffers)))
+    (mowedline-update 'irclist (s-join "," (mapcar #'cdr irclist)))))
 
 ;;;###autoload
 (defun oni:update-mailcount ()
   "Update the mailcount in the wm."
-  (shell-command-to-string "new-mail-mowedline"))
+  (shell-command-to-string "~/usr/bin/new-mail-mowedline"))
 
 (provide 'oni-mowedline)
 ;;; oni-mowedline.el ends here