From ea385175fc5a5ea27499a81fe832a3a3fc6c01a3 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 23 Nov 2022 18:10:10 +0000
Subject: link-hint tweaks (no messages)

---
 custom/jao-custom-completion.el | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

(limited to 'custom/jao-custom-completion.el')

diff --git a/custom/jao-custom-completion.el b/custom/jao-custom-completion.el
index d4a0a9a..51522a7 100644
--- a/custom/jao-custom-completion.el
+++ b/custom/jao-custom-completion.el
@@ -376,7 +376,8 @@
 ;;; link-hint
 (use-package link-hint
   :ensure t
-  :init (setq link-hint-avy-style 'pre)
+  :init (setq link-hint-avy-style 'pre
+              link-hint-message nil)
 
   :config
   (defun jao-link-hint-open-link-ext ()
@@ -389,5 +390,24 @@
          ("C-S-l" . jao-link-hint-open-link-ext)
          ("C-x C-l" . recenter-top-bottom)))
 
+(with-eval-after-load "notmuch"
+  (defun jao-link-hint--notmuch-next-part (&optional bound)
+    (when-let (p (next-single-property-change (point) :notmuch-part nil bound))
+      (and (< p (or bound (point-max))) p)))
+
+  (defun jao-link-hint--notmuch-part-p ()
+    (and (get-text-property (point) :notmuch-part)
+         (when-let (b (button-at (point))) (button-label b))))
+
+  (link-hint-define-type 'notmuch-part
+    :next #'jao-link-hint--notmuch-next-part
+    :at-point-p #'jao-link-hint--notmuch-part-p
+    :vars '(notmuch-show-mode)
+    :open #'push-button
+    :open-message "Toggled"
+    :open-multiple t)
+
+  (push 'link-hint-notmuch-part link-hint-types))
+
 ;;; .
 (provide 'jao-custom-completion)
-- 
cgit v1.2.3