gnus' gravitational pull is strong

4 files changed, 34 insertions, 23 deletions

diff --git a/email.org b/email.org
index 57d5de0..74920d3 100644
--- a/email.org
+++ b/email.org
@@ -248,11 +248,22 @@
     (bbdb-initialize 'message 'pgp 'mail)
    #+end_src
 * gnus
-  #+begin_src emacs-lisp
-    (setq gnus-init-file "~/.emacs.d/gnus.el"
-          gnus-home-directory "~/.emacs.d/gnus"
-          gnus-directory gnus-home-directory)
-  #+end_src
+*** Directories
+    #+begin_src emacs-lisp
+      (setq gnus-init-file "~/.emacs.d/gnus.el"
+            gnus-home-directory "~/.emacs.d/gnus"
+            gnus-directory gnus-home-directory)
+    #+end_src
+*** Notifications
+    #+begin_src emacs-lisp
+      (defun jao-gnus-notify ()
+        (interactive)
+        (when (fboundp 'jao-gnus--notify)
+          (unless (derived-mode-p 'gnus-summary-mode
+                                  'gnus-article-mode
+                                  'gnus-group-mode)
+            (gnus-demon-scan-news))))
+    #+end_src
 * notmuch
 *** local path
     #+begin_src emacs-lisp
@@ -402,7 +413,8 @@
                            " "))
           (jao-minibuffer-refresh)))
 
-      (jao-minibuffer-add-variable 'jao-notmuch-minibuffer-string -20)
+      (when (eq jao-afio-mail-function 'notmuch)
+        (jao-minibuffer-add-variable 'jao-notmuch-minibuffer-string -20))
 
     #+end_src
 *** searches
@@ -619,18 +631,18 @@
         :init (setq notmuch-fcc-dirs
                     '((".*@bigml.com" . "bigml/sent +bigml +sent -new")
                       (".*" . "jao/sent +jao +sent -new"))
-                    notmuch-maildir-use-notmuch-insert t)
-        :config (setq message-directory "~/var/mail/"
-                      message-auto-save-directory
-                      (expand-file-name "drafts" message-directory))
-        :bind (:map message-mode-map
-                    (("C-c C-d" . notmuch-draft-postpone))))
-
+                    notmuch-maildir-use-notmuch-insert t))
+
+      (when (eq jao-afio-mail-function 'notmuch)
+        (setq message-directory "~/var/mail/"
+              message-auto-save-directory nil)
+        (eval-after-load "notmuch-message"
+          '(define-key message-mode-map (kbd "C-c C-d")
+             #'notmuch-draft-postpone)))
     #+end_src
 *** main
     #+begin_src emacs-lisp
       (use-package notmuch
-        :demand t
         :init
         (setq notmuch-crypto-process-mime t
               notmuch-show-mark-read-tags '("-new" "-unread")
diff --git a/eww.org b/eww.org
index cc15fce..7bac07d 100644
--- a/eww.org
+++ b/eww.org
@@ -25,10 +25,10 @@
     (defun jao-eww-html-renderer (handle)
       (let ((shr-use-colors nil)
             (shr-use-fonts nil)
-            (mm-html-blocked-images nil)
+            ;; (mm-html-blocked-images nil)
             (fill-column (min (window-width) 110)))
         (mm-shr handle)))
-    ;; (setq mm-text-html-renderer 'jao-eww-html-renderer)
+    (setq mm-text-html-renderer 'jao-eww-html-renderer)
   #+end_src
 * Buffer names
   #+begin_src emacs-lisp
@@ -71,14 +71,12 @@
   #+end_src
 
 * Images
-
   #+begin_src emacs-lisp
     (defun jao-eww-next-image ()
       (interactive nil eww-mode)
       (when-let (p (text-property-search-forward 'image-displayer nil nil t))
         (goto-char (prop-match-beginning p))))
   #+end_src
-
 * Close page and reopen
 
   #+begin_src emacs-lisp
@@ -191,6 +189,7 @@
                (shr-use-fonts nil)
                (shr-max-width 130)
                (shr-blocked-images ".*")
+               (shr-inhibit-images t)
                (shr-max-image-proportion 0.9))
 
       :config
diff --git a/attic/gnus.org b/gnus.org
index 5631aec..5631aec 100644
--- a/attic/gnus.org
+++ b/gnus.org
diff --git a/init.org b/init.org
index b8c02cf..7a00fe6 100644
--- a/init.org
+++ b/init.org
@@ -106,7 +106,7 @@
 *** Custom location of custom.el and co.
     #+begin_src emacs-lisp
       (setq custom-file (jao-site-el "custom"))
-      (load custom-file)
+      ;; (load custom-file)
       (setq custom-unlispify-tag-names nil)
       (setq custom-buffer-done-kill t)
       (setq custom-raised-buttons nil)
@@ -165,7 +165,7 @@
     #+begin_src emacs-lisp
       (use-package jao-minibuffer
         :commands (jao-minibuffer-add-variable jao-minibuffer-refresh))
-      (setq enable-recursive-minibuffers t)
+      ;; (setq enable-recursive-minibuffers t)
     #+end_src
 *** Sleep/awake
     #+begin_src emacs-lisp
@@ -1597,7 +1597,7 @@
     #+end_src
 * Email
   #+begin_src emacs-lisp
-    (setq jao-afio-mail-function 'notmuch ;; 'gnus 'mu4e
+    (setq jao-afio-mail-function 'gnus ;; 'notmuch 'gnus 'mu4e
           jao-afio-notmuch-in-web nil)
     (jao-load-org "email")
   #+end_src
@@ -2047,7 +2047,7 @@
         (add-hook 'magit-status-sections-hook #'forge-insert-issues t))
     #+end_src
 *** Other git packages
-    #+BEGIN_SRC emacs-lisp
+    #+begin_src emacs-lisp
       (use-package git-messenger
         :ensure t
         :bind (("C-x v p" . git-messenger:popup-message)))
@@ -2085,7 +2085,7 @@
           "Quit"
           (("Q" bury-buffer "Bury buffer")
            ("k" kill-buffer "Kill buffer")))))
-    #+END_SRC
+    #+end_src
 *** Jenkins
     [[https://github.com/rmuslimov/jenkins.el][GitHub - rmuslimov/jenkins.el: Jenkins plugin for emacs]]
     #+BEGIN_SRC emacs-lisp