From a070cca79d312ff2a3846ac557aa3fcbe28220e3 Mon Sep 17 00:00:00 2001
From: Sean Farley <sean@farley.io>
Date: Mon, 24 Feb 2020 13:32:52 -0800
Subject: [PATCH] mu4e-main: add new method for constructing the maildir list

This method is exactly like `mu4e~main-bookmarks' but for maildirs
instead of bookmarks.
---
 mu4e/mu4e-main.el | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/mu4e/mu4e-main.el b/mu4e/mu4e-main.el
index debcbf4d..ef0ef62c 100644
--- a/mu4e/mu4e-main.el
+++ b/mu4e/mu4e-main.el
@@ -125,6 +125,7 @@ clicked."
                               (cl-loop for q in queries
                                        when (string= (plist-get q :query) query)
                                        collect q))
+           when (not (plist-get bm :hide))
            concat (concat
                    ;; menu entry
                    (mu4e~main-action-str
@@ -144,6 +145,39 @@ clicked."
                    "\n")))
 
 
+(defun mu4e~main-maildirs ()
+  "Return a string of maildirs with their counts."
+  (cl-loop with mds = (mu4e~maildirs-with-query)
+           with longest = (mu4e~longest-of-maildirs-and-bookmarks)
+           with queries = (plist-get mu4e~server-props :queries)
+           for m in mds
+           for key = (string (plist-get m :key))
+           for name = (plist-get m :name)
+           for query = (plist-get m :query)
+           for qcounts = (and (stringp query)
+                              (cl-loop for q in queries
+                                       when (string= (plist-get q :query) query)
+                                       collect q))
+           when (not (plist-get m :hide))
+           concat (concat
+                   ;; menu entry
+                   (mu4e~main-action-str
+                    (concat "\t* [j" key "] " name)
+                    (concat "j" key))
+                   ;; append all/unread numbers, if available.
+                   (if qcounts
+                       (let ((unread (plist-get (car qcounts) :unread))
+                             (count  (plist-get (car qcounts) :count)))
+                         (format
+                          "%s (%s/%s)"
+                          (make-string (- longest (length name)) ? )
+                          (propertize (number-to-string unread)
+                                      'face 'mu4e-header-key-face)
+                          count))
+                     "")
+                   "\n")))
+
+
 (defun mu4e~key-val (key val &optional unit)
   "Return a key / value pair."
   (concat
@@ -195,6 +229,9 @@ When REFRESH is non nil refresh infos from server."
        (propertize "  Bookmarks\n\n" 'face 'mu4e-title-face)
        (mu4e~main-bookmarks)
        "\n"
+       (propertize "  Maildirs\n\n" 'face 'mu4e-title-face)
+       (mu4e~main-maildirs)
+       "\n"
        (propertize "  Misc\n\n" 'face 'mu4e-title-face)
 
        (mu4e~main-action-str "\t* [;]Switch context\n" 'mu4e-context-switch)