From b5527e20515643e07eec2d291ebd451ef2096066 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 20 Jan 2022 20:24:15 +0000
Subject: jao-notmuch clean-ups

---
 attic/misc.org | 12 ++++++++++++
 attic/w3m.org  | 27 +++++++++++++++++++++++++++
 2 files changed, 39 insertions(+)

(limited to 'attic')

diff --git a/attic/misc.org b/attic/misc.org
index 39b1cc8..3aac8c7 100644
--- a/attic/misc.org
+++ b/attic/misc.org
@@ -891,3 +891,15 @@
              ("C-c B" . bookmark-set)))
 
   #+end_src
+* notmuch
+  #+begin_src emacs-lisp
+    (defun jao-notmuch--show-hidden-html ()
+      (when (save-excursion
+              (goto-char (point-min))
+              (re-search-forward "^\\[ text/html (hidden) \\]" nil t))
+        (jao-notmuch--toggle-mime)))
+
+    (defun jao-notmuch-show-prefer-html ()
+      (add-hook 'notmuch-show-hook #'jao-notmuch--show-hidden-html))
+
+  #+end_src
diff --git a/attic/w3m.org b/attic/w3m.org
index 6bfbaca..3689c8e 100644
--- a/attic/w3m.org
+++ b/attic/w3m.org
@@ -43,6 +43,33 @@
       (require 'ol-w3m nil t)
       (define-key org-mode-map "\C-cW" 'jao-insert-w3m-link))
   #+end_src
+* notmuch integration
+  #+begin_src emacs-lisp
+    (defvar-local jao-notmuch--showing-images nil)
+
+    (defun jao-notmuch--setup-w3m-images (&optional activate)
+      (when (eq mm-text-html-renderer 'w3m)
+        (setq-local w3m-ignored-image-url-regexp
+                    (unless jao-notmuch--showing-images
+                      notmuch-show-text/html-blocked-images))
+        (when activate
+          (setq-local scroll-margin 0)
+          (w3m-toggle-inline-images (if jao-notmuch--showing-images t 'turnoff)))))
+
+    (defun jao-notmuch--w3m-toggle-images ()
+      (save-window-excursion
+        (when (or (derived-mode-p 'notmuch-show-mode)
+                  (jao-notmuch-goto-message-buffer nil t))
+          (goto-char (point-min))
+          (when (re-search-forward "^\\[ text/html " nil t)
+            (when (looking-at-p "(hidden)")
+              (notmuch-show-toggle-part-invisibility))
+            (forward-line 1)
+            (setq jao-notmuch--showing-images (not jao-notmuch--showing-images))
+            (jao-notmuch--setup-w3m-images t)))))
+
+    (add-hook 'notmuch-show-mode-hook #'jao-notmuch--setup-w3m-images)
+  #+end_src
 * Capture page
   #+begin_src emacs-lisp
     (defun jao-w3m-capture-page ()
-- 
cgit v1.2.3