From ea385175fc5a5ea27499a81fe832a3a3fc6c01a3 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 23 Nov 2022 18:10:10 +0000 Subject: link-hint tweaks (no messages) --- custom/jao-custom-notmuch.el | 20 -------------------- 1 file changed, 20 deletions(-) (limited to 'custom/jao-custom-notmuch.el') diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 1ee851b..ad1bcf9 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -651,25 +651,5 @@ (add-to-list 'consult-recoll-open-fns '("message/rfc822" . jao-notmuch-open-file)))) -;;; link hint -(with-eval-after-load "link-hint" - (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-notmuch) -- cgit v1.2.3