ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add mail update routines for mowedline

Browse source
This commit is contained in:
Tom Willemse 2015-06-17 10:43:35 +02:00
parent 739f89bace
commit 5c05caf196
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/.emacs.d/init.el
View file

@ -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))))