diff options
Diffstat (limited to 'emacs/.emacs.d/site-lisp/oni-mowedline.el')
| -rw-r--r-- | emacs/.emacs.d/site-lisp/oni-mowedline.el | 22 |
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 |