diff options
| author |  Tom Willemse | 2015-06-17 10:43:35 +0200 |
|---|---|---|
| committer | Tom Willemse | 2015-06-17 10:43:35 +0200 |
| commit | 5c05caf1964256c017001a4c6689af42109f34c1 (patch) | |
| tree | 0bc9d0dfd52d6265f0756f5506b6512084878c59 /emacs/.emacs.d/init.el | |
| parent | 739f89bace4edad306b19f74919335715154858d (diff) | |
| download | dotfiles-5c05caf1964256c017001a4c6689af42109f34c1.tar.gz dotfiles-5c05caf1964256c017001a4c6689af42109f34c1.zip | |
Add mail update routines for mowedline
Diffstat (limited to 'emacs/.emacs.d/init.el')
| -rw-r--r-- | emacs/.emacs.d/init.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index 829644e..81e243d 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -182,6 +182,10 @@ But only if it is a maildir inbox." (when (and (boundp 'gnus-newsgroup-name) gnus-newsgroup-name) (awesome-update-mailbox gnus-newsgroup-name))) +(defun update-mailcount () + "Update the mailcount in the wm." + (shell-command-to-string "new-mail-mowedline")) + (defun oni:before-save-func () "Function for `before-save-hook'." (if (eq major-mode 'html-mode) @@ -1305,8 +1309,8 @@ from myaethon2.core.decorators import ( (add-hook 'diary-display-hook 'oni:diary-display-func) (add-hook 'flycheck-mode-hook #'flycheck-cask-setup) (add-hook 'git-commit-mode-hook #'oni:set-ispell-local-en-dict) -(add-hook 'gnus-exit-group-hook 'awesome-update-current-mailbox) -(add-hook 'gnus-exit-gnus-hook 'awesome-update-current-mailbox) +(add-hook 'gnus-exit-group-hook 'update-mailcount) +(add-hook 'gnus-exit-gnus-hook 'update-mailcount) (add-hook 'haskell-mode-hook 'oni:haskell-mode-func) (add-hook 'outline-minor-mode-hook #'oni:set-tab-maybe-toggle-outline) (add-hook 'scheme-mode-hook (lambda () (setq ac-sources '(ac-source-geiser)))) |