lotsa changes and inclusion of elpy
[emacs.git] / .emacs.d / config / gkar.ganneff.de.org
index 0ac6d4d..3020d6f 100644 (file)
@@ -1,7 +1,7 @@
 #+STARTUP: align fold nodlcheck hidestars oddeven lognotestate
 #+TITLE:     gkar.ganneff.de.org - Ganneffs configuration, host specific file for gkar
 #+DATE:      %Y-%m-%d
-#+SETUPFILE: ~/elisp/org-templates/level-0.org
+#+SETUPFILE: ~/.emacs.d/elisp/org-templates/level-0.org
 
 * Machine specific config
 ** Mail sending
@@ -52,10 +52,41 @@ On my desktop I have a notmuch instance running which I use instead of
 nnir or direct imap searches. It is much better, though for that it has
 its drawbacks - like building up an own database of mail. Which is the
 reason only my desktop uses it.
-#+BEGIN_SRC emacs-lisp
-  (require 'notmuch)
-  (add-hook 'gnus-group-mode-hook 'lld-notmuch-shortcut)
-  (define-key notmuch-show-mode-map (kbd "C-c C-c") 'lld-notmuch-goto-message-in-gnus)
+#+BEGIN_SRC emacs-lisp :tangle yes
+(require 'notmuch)
+(add-hook 'gnus-group-mode-hook 'lld-notmuch-shortcut)
+(define-key notmuch-show-mode-map (kbd "C-c C-c") 'lld-notmuch-goto-message-in-gnus)
+;(setq notmuch-fcc-dirs
+;      (quote
+;       (("da-manager@debian.org" . ".Sentmail.DAM")
+;        (".*" . ".Sentmail"))))
+(setq notmuch-saved-searches
+   (quote
+    (("inbox" . "tag:inbox")
+     ("unread" . "tag:unread")
+     ("personal unread" . "tag:inbox AND (to:joerg@ganneff.de OR to:joerg@debian.org OR to:joerg@debconf.org)"))))
+
+(defvar notmuch-hello-refresh-count 0)
+
+(defun notmuch-hello-refresh-status-message ()
+  (unless no-display
+    (let* ((new-count
+            (string-to-number
+             (car (process-lines notmuch-command "count"))))
+           (diff-count (- new-count notmuch-hello-refresh-count)))
+      (cond
+       ((= notmuch-hello-refresh-count 0)
+        (message "You have %s messages."
+                 (notmuch-hello-nice-number new-count)))
+       ((> diff-count 0)
+        (message "You have %s more messages since last refresh."
+                 (notmuch-hello-nice-number diff-count)))
+       ((< diff-count 0)
+        (message "You have %s fewer messages since last refresh."
+                 (notmuch-hello-nice-number (- diff-count)))))
+      (setq notmuch-hello-refresh-count new-count))))
+
+(add-hook 'notmuch-hello-refresh-hook 'notmuch-hello-refresh-status-message)
 #+END_SRC
 
 *** Outgoing mail copies