x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

maildir: Simplified some default variables and behaviors

Browse source
This commit is contained in:
Philip K 2019-01-02 18:06:02 +01:00
parent 04783344b0
commit cec1d958b2
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
modeline/maildir/maildir.lisp
View file

@ -32,7 +32,7 @@
(user-homedir-pathname))))
"Alist of pathnames to the mail directories with names. Defaults to just ~/Mail.")
(defvar *maildir-modeline-fmt* "[%l: %n] "
(defvar *maildir-modeline-fmt* "%l: %n "
"The Default Value For Displaying Maildir information on the modeline.
@table @asis
@ -52,8 +52,9 @@ Temporary mails number
(defun maildir-mailboxes (maildir)
"Returns a list of all mailboxes in *maildir-path*."
(directory (merge-pathnames (make-pathname :directory '(:relative :wild))
maildir)))
(cons maildir (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."
@ -84,8 +85,8 @@ Temporary mails number
(run-with-timer 0 *maildir-update-time* #'update-maildir-infos)))
(loop for (label . info) in *maildir-info*
collect (stumpwm:format-expand `((#\l ,(constantly label))
(#\n ,(lambda () (format nil "^[~A~D^]"
(if (plusp (getf info :new)) "^B" "")
(#\n ,(lambda () (format nil "^[~@[^B~*~]~D^]"
(plusp (getf info :new))
(getf info :new))))
(#\c ,(lambda () (format nil "~D" (getf info :cur))))
(#\t ,(lambda () (format nil "~D" (getf info :tmp)))))