gnus tweaks

1 files changed, 18 insertions, 20 deletions

diff --git a/gnus.org b/gnus.org
index e3619c8..86c71eb 100644
--- a/gnus.org
+++ b/gnus.org
@@ -95,8 +95,8 @@
           (gnus-add-configuration
            `(summary
              (horizontal 1.0
-                         (vertical 63 (group 1.0))
-                         (vertical 127 (summary 1.0 point))
+                         (vertical 60 (group 1.0))
+                         (vertical 130 (summary 1.0 point))
                          ,side-bar)))
 
           (gnus-add-configuration
@@ -191,17 +191,6 @@
                    '(nnmaildir "gmail" (directory "/home/jao/var/maildir/gmail/"))))
 
   #+end_src
-* RSS servers
-  #+begin_src emacs-lisp
-    (setq nnrss-use-local nil
-          nnrss-directory (jao-gnus-dir "rss"))
-    (setq nnrss-wash-html-in-text-plain-parts t)
-    (setq nnrss-ignore-article-fields '(description
-                                        comments
-                                        dc:date
-                                        slash:comments
-                                        slash:description))
-  #+end_src
 * Demons and notifications
   #+begin_src emacs-lisp
     (setq mail-user-agent 'gnus-user-agent)
@@ -219,13 +208,15 @@
 
     (defvar jao-gnus-tracked-groups
       '(("^nnimap:\\(bigml\\|jao\\)" "" default)
+        ("nnimap:bigml/inbox" "B" jao-themes-f00)
         ("nnimap:bigml/bugs" "b" jao-themes-error)
         ("nnimap:bigml/support" "S" default)
-        ("nnimap:jao/inbox" "I" default)
+        ("nnimap:jao/inbox" "I" jao-themes-f01)
         ("nnimap:bigml" "W" jao-themes-dimm)
         ("nnimap:jao" "J" jao-themes-dimm)
-        ("nnimap:feeds" "F" jao-themes-dimm)
-        ("^gmane" "N" jao-themes-f00)))
+        ("nnimap:feeds/[^e]" "F" jao-themes-dimm)
+        ("^gmane\\.emacs\\|nnimap:feeds/emacs" "E" jao-themes-dimm)
+        ("^gmane\\.[^e]" "N" jao-themes-dimm)))
 
     (defun jao-gnus--unread-counts ()
       (seq-reduce (lambda (r g)
@@ -335,7 +326,7 @@
                      ("C-c r" . #'gnus-recent))))
     #+end_src
 * Groups buffer
-  #+BEGIN_SRC emacs-lisp
+  #+begin_src emacs-lisp
     ;; (setq gnus-group-line-format " %m%S%p%P:%~(pad-right 35)c %3y %B\n")
     (setq gnus-group-line-format " %m%S%p%3y%P%* %~(pad-right 45)G %B\n")
     (setq gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n")
@@ -375,19 +366,26 @@
 
     (define-key gnus-group-mode-map "Z" #'jao-gnus-restart-servers)
     (define-key gnus-group-mode-map "Gg" #'consult-notmuch)
-    #+END_SRC
+
+    (defun jao-gnus--first-group ()
+      (when (derived-mode-p 'gnus-group-mode)
+        (gnus-group-first-unread-group)))
+
+    (with-eval-after-load "jao-afio"
+      (add-hook 'jao-afio-switch-hook #'jao-gnus--first-group))
+    #+end_src
 * Group parameters
   #+begin_src emacs-lisp
     (setq jao-gnus-expirable
           (format (concat "^nnimap:\\("
                           "\\(\\(bigml\\|bml\\)/%s\\)\\|"
-                          "\\(\\(jao\\|pm\\)/%s\\)\\|"
+                          "\\(jao/%s\\)\\|"
                           "\\(feeds/.+\\)\\|trash\\|spam"
                           "\\)")
                   (regexp-opt '("support" "reports" "deploys"
                                 "lists" "drivel" "bugs"))
                   (regexp-opt '("books" "think" "local" "drivel"
-                                "lists" "emacs" "lobsters"))))
+                                "lists" "emacs" "bills" "gnu"))))
 
     (setq gnus-permanently-visible-groups "^nnselect")