bbdb layout, gnus layouts

1 files changed, 57 insertions, 47 deletions

diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index e62b249..9ff71aa 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -46,45 +46,47 @@
 
 (setq calendar-left-margin 6)
 
-(if jao-gnus-use-three-panes
-    (let ((side-bar `(vertical 1.0
-                               ("inbox.org" 0.4)
-                               ("*Org Agenda*" 1.0)
-                               ("*Calendar*" ,(jao-d-l 9 8))))
-          (wide-len jao-gnus-wide-width)
-          (groups-len jao-gnus-groups-width)
-          (summary-len (- jao-gnus-wide-width jao-gnus-groups-width)))
-      (gnus-add-configuration
-       `(article
-         (horizontal 1.0
-                     (vertical ,groups-len (group 1.0))
-                     (vertical ,summary-len
-                               (summary 0.25 point)
-                               (article 1.0))
-                     ,side-bar)))
-
-      (gnus-add-configuration
-       `(group (horizontal 1.0 (group ,wide-len point) ,side-bar)))
-
-      (gnus-add-configuration
-       `(message (horizontal 1.0 (message ,wide-len point) ,side-bar)))
-
-      (gnus-add-configuration
-       `(reply-yank (horizontal 1.0 (message ,wide-len point) ,side-bar)))
-
-      (gnus-add-configuration
-       `(summary
-         (horizontal 1.0
-                     (vertical ,groups-len (group 1.0))
-                     (vertical ,summary-len (summary 1.0 point))
-                     ,side-bar)))
-
-      (gnus-add-configuration
-       `(reply
-         (horizontal 1.0
-                     (message ,(- wide-len 100) point)
-                     (article 100)
-                     ,side-bar))))
+(defun jao-gnus-use-three-panes ()
+  (let ((side-bar `(vertical 1.0
+                             ("inbox.org" 0.4)
+                             ("*Org Agenda*" 1.0)
+                             ("*Calendar*" ,(jao-d-l 9 8))))
+        (wide-len jao-gnus-wide-width)
+        (groups-len jao-gnus-groups-width)
+        (summary-len (- jao-gnus-wide-width jao-gnus-groups-width)))
+    (gnus-add-configuration
+     `(article
+       (horizontal 1.0
+                   (vertical ,groups-len (group 1.0))
+                   (vertical ,summary-len
+                             (summary 0.25 point)
+                             (article 1.0))
+                   ,side-bar)))
+
+    (gnus-add-configuration
+     `(group (horizontal 1.0 (group ,wide-len point) ,side-bar)))
+
+    (gnus-add-configuration
+     `(message (horizontal 1.0 (message ,wide-len point) ,side-bar)))
+
+    (gnus-add-configuration
+     `(reply-yank (horizontal 1.0 (message ,wide-len point) ,side-bar)))
+
+    (gnus-add-configuration
+     `(summary
+       (horizontal 1.0
+                   (vertical ,groups-len (group 1.0))
+                   (vertical ,summary-len (summary 1.0 point))
+                   ,side-bar)))
+
+    (gnus-add-configuration
+     `(reply
+       (horizontal 1.0
+                   (message ,(- wide-len 100) point)
+                   (article 100)
+                   ,side-bar)))))
+
+(defun jao-gnus-use-two-panes ()
   (let ((wide-len jao-gnus-wide-width)
         (groups-len jao-gnus-groups-width)
         (summary-len (- jao-gnus-wide-width jao-gnus-groups-width)))
@@ -97,13 +99,15 @@
                              (article 1.0)))))
 
     ;; (gnus-add-configuration
-    ;;  `(group (horizontal 1.0 (group ,wide-len point))))
+    ;;  `(group (horizontal 1.0
+    ;;                      (group 0.5 point)
+    ;;                      ("*notmuch-hello*" 1.0))))
 
-    (gnus-add-configuration
-     `(message (horizontal 1.0 (message ,wide-len point))))
+    ;; (gnus-add-configuration
+    ;;  `(message (horizontal 1.0 (message 1.0 point))))
 
-    (gnus-add-configuration
-     `(reply-yank (horizontal 1.0 (message ,wide-len point))))
+    ;; (gnus-add-configuration
+    ;;  `(reply-yank (horizontal 1.0 (message 1.0 point))))
 
     (gnus-add-configuration
      `(summary
@@ -117,6 +121,10 @@
                    (message ,(- wide-len 100) point)
                    (article 100))))))
 
+(if jao-gnus-use-three-panes
+    (jao-gnus-use-three-panes)
+  (jao-gnus-use-two-panes))
+
 ;;;; no blue icon
 (advice-add 'gnus-mode-line-buffer-identification :override #'identity)
 (setq gnus-mode-line-image-cache nil)
@@ -627,6 +635,7 @@
 (defun jao-gnus--scan ()
   (let ((inhibit-message t))
     (gnus-demon-scan-news)
+    (jao-shell-exec "notmuch-gnus-tags.sh")
     (jao-gnus--notify)))
 
 (defun jao-gnus--scan-local-mail ()
@@ -656,7 +665,8 @@
 (defvar jao-gnus-tracked-groups
   (let ((feeds (thread-first
                  (directory-files mail-source-directory nil "feeds\\.[^e]")
-                 (seq-difference '("feeds.trove")))))
+                 (seq-difference
+                  '("feeds.trove" "feeds.emacs" "feeds.emacs-devel")))))
     `(
       ;; ("nnml:bigml\\.inbox" "B" jao-themes-f00)
       ;; ("nnml:bigml\\.alba" "A" jao-themes-f00)
@@ -668,10 +678,10 @@
       ("nnml:jao\\.\\(inbox\\|trove\\)" "I" jao-themes-f01)
       ("nnml:jao.hunting" "H" jao-themes-f02)
       ("nnml:jao.write" "W" jao-themes-warning)
-      ("nnml:jao.[^ithw]" "J" jao-themes-dimm)
+      ("nnml:jao.[^ithwb]" "J" jao-themes-dimm)
       ("nnml:jao.hacking" "J" jao-themes-dimm)
       (,(format "^nnml:%s" (regexp-opt feeds)) "F" jao-themes-dimm)
-      ;; ("feeds\\.e" "E" jao-themes-dimm)
+      ("feeds\\.emacs" "E" jao-themes-dimm)
       ("nnml:local" "l" jao-themes-dimm)
       ("nnrss:.*" "R" jao-themes-dimm)
       ("^\\(gwene\\|gmane\\)\\." "N" jao-themes-dimm))))