>From 37ba53526961f647794aff83f3e9d2c23bd7fea3 Mon Sep 17 00:00:00 2001
From: Morgan Veyret <address@hidden>
Date: Tue, 17 Feb 2009 13:55:37 +0100
Subject: [PATCH] Added maildir modeline formatters in contrib/.

This module allows to display number of e-mails (new,total,tmp)
of maildir mailboxes in the mode-line. See contrib/maildir.lisp
for details.
---
 contrib/maildir.lisp |  141 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 141 insertions(+), 0 deletions(-)
 create mode 100644 contrib/maildir.lisp

diff --git a/contrib/maildir.lisp b/contrib/maildir.lisp
new file mode 100644
index 0000000..f7fe2ea
--- /dev/null
+++ b/contrib/maildir.lisp
@@ -0,0 +1,141 @@
+;;; Maildir monitoring for stumpwm's modeline
+;;;
+;;; Copyright 2007 Morgan Veyret.
+;;;
+;;; Maintainer: Morgan Veyret
+;;;
+;;; This module is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2, or (at your option)
+;;; any later version.
+;;;
+;;; This module is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this software; see the file COPYING.  If not, write to
+;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+;;; Boston, MA 02111-1307 USA
+;;;
+
+;;; USAGE:
+;;;
+;;; Put:
+;;;
+;;;     (load-module "maildir")
+;;;
+;;; ...into your ~/.stumpwmrc
+;;;
+;;; Then you can use "%M" in your mode line format.
+;;; You can customize the modeline format (*maildir-modeline-fmt*). See the
+;;; documentation for *maildir-modeline-fmt* for more information.
+
+;;; TODO:
+;;;
+;;; - Add per mailbox formatter
+
+;;; CODE:
+
+(in-package :stumpwm)
+
+(dolist (a '((#\M maildir-modeline)))
+  (pushnew a *screen-mode-line-formatters* :test 'equal))
+
+(defvar *maildir-timer* nil)
+(defvar *maildir-update-time* 900
+  "Time between two updates of the maildir informations (in seconds).")
+
+(defun maildir-set-update-time (time-in-seconds)
+  "Set the maildir informations update interval."
+  (when *maildir-timer*
+    (cancel-timer *maildir-timer*))
+  (setf *maildir-update-time* time-in-seconds)
+  (setf *maildir-timer*
+        (run-with-timer *maildir-update-time* *maildir-update-time*
+                        'update-maildir-infos)))
+
+(defvar *maildir-path*
+  (merge-pathnames (make-pathname :directory '(:relative "Mail"))
+                   (user-homedir-pathname))
+  "Pathname to the mail directory. Defaults to ~/Mail.")
+
+(defun maildir-mailboxes (maildir)
+  "Returns a list of all mailboxes in *maildir-path*."
+   (directory (merge-pathnames (make-pathname :directory '(:relative :wild))
+                               maildir)))
+
+(defun maildir-mailbox-dir (mailbox dir-name)
+  "Returns the specified sub-directory pathname for the provided mailbox."
+  (merge-pathnames (make-pathname :directory (list :relative dir-name)
+                                  :name :wild)
+                   mailbox))
+
+
+(defvar *maildir-new* '()
+  "Number of new mails for each mailbox.")
+(defvar *maildir-cur* '()
+  "Number of mails for each mailbox.")
+(defvar *maildir-tmp* '()
+  "Number of tmp mails for each mailbox.")
+
+(defun update-maildir-infos ()
+  "Update mail counts for *maildir-path*."
+  (loop for m in (maildir-mailboxes *maildir-path*)
+     collect (length (directory (maildir-mailbox-dir m "new")))
+     into nb-new
+     collect (length (directory (maildir-mailbox-dir m "cur")))
+     into nb-cur
+     collect (length (directory (maildir-mailbox-dir m "tmp")))
+     into nb-tmp
+     finally (progn (setf *maildir-new* nb-new)
+                    (setf *maildir-cur* nb-cur)
+                    (setf *maildir-tmp* nb-tmp))))
+
+;; modeline formatter
+(defun maildir-modeline (ml)
+  (declare (ignore ml))
+  ;; setup a timer to check every *maildir-update-time* seconds
+  ;; disk access are slow and you obviously don't need to check
+  ;; emails every time the modeline gets updated
+  (unless *maildir-timer*
+    (update-maildir-infos)
+    (setf *maildir-timer*
+          (run-with-timer *maildir-update-time* *maildir-update-time*
+                          'update-maildir-infos)))
+  (format-expand *maildir-formatters-alist*
+                 *maildir-modeline-fmt*))
+
+(defun maildir-get-new ()
+  (let ((total-new (reduce #'+ *maildir-new*)))
+    (format nil "~D" total-new)))
+
+(defun maildir-get-cur ()
+  (let ((total-cur (reduce #'+ *maildir-cur*)))
+    (format nil "~D" total-cur)))
+
+(defun maildir-get-tmp ()
+  (let ((total-tmp (reduce #'+ *maildir-tmp*)))
+    (format nil "~D" total-tmp)))
+
+
+(defvar *maildir-formatters-alist*
+  '((#\n maildir-get-new)
+    (#\c maildir-get-cur)
+    (#\t maildir-get-tmp)))
+
+(defvar *maildir-modeline-fmt* "%n %c"
+  "The default value for displaying maildir information on the modeline.
+
address@hidden @asis
address@hidden %%
+A literal '%'
address@hidden %n
+New mails number
address@hidden %c
+Current mails number
address@hidden %t
+Temporary mails number
address@hidden table
+")
-- 
1.6.0.3