From: Austin Clements <aclements@csail.mit.edu>
To: Mark Walters <markwalters1009@gmail.com>, notmuch@notmuchmail.org
Subject: Re: [PATCH 3/3] emacs: show: add invisibility button action
Date: Mon, 10 Dec 2012 23:06:48 -0500 [thread overview]
Message-ID: <87r4mxnsfb.fsf@awakening.csail.mit.edu> (raw)
In-Reply-To: <1354663662-20524-4-git-send-email-markwalters1009@gmail.com>
On Tue, 04 Dec 2012, Mark Walters <markwalters1009@gmail.com> wrote:
> This adds a button action to show hidden parts. In this version "t"
> toggles the visibility of a part. In addition "RET" on a non-shown
> part shows it.
>
> The button is used to hide parts when appropriate (eg text/html in
> multipart/alternative).
> ---
> emacs/notmuch-show.el | 36 +++++++++++++++++++++++++++++++++++-
> 1 files changed, 35 insertions(+), 1 deletions(-)
>
> diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
> index 3215ebc..a4daff8 100644
> --- a/emacs/notmuch-show.el
> +++ b/emacs/notmuch-show.el
> @@ -478,6 +478,7 @@ message at DEPTH in the current thread."
> (define-key map "v" 'notmuch-show-part-button-view)
> (define-key map "o" 'notmuch-show-part-button-interactively-view)
> (define-key map "|" 'notmuch-show-part-button-pipe)
> + (define-key map "t" 'notmuch-show-toggle-invisible-part-action)
> map)
> "Submap for button commands")
> (fset 'notmuch-show-part-button-map notmuch-show-part-button-map)
> @@ -555,6 +556,31 @@ message at DEPTH in the current thread."
> (let ((handle (mm-make-handle (current-buffer) (list content-type))))
> (mm-pipe-part handle))))
>
> +;; This is taken from notmuch-wash: maybe it should be unified?
> +(defun notmuch-show-toggle-invisible-part-action (&optional button no-redisplay)
> + (interactive)
> + (let* ((button (or button (button-at (point))))
> + (overlay (button-get button 'overlay))
> + (invis-spec (button-get button 'invisibility-spec))
> + (show (invisible-p invis-spec)))
> + (when overlay
> + (if show
> + (remove-from-invisibility-spec invis-spec)
> + (add-to-invisibility-spec invis-spec))
> + (let* ((new-start (button-start button))
> + (button-label (button-get button :base-label))
> + (old-point (point))
> + (inhibit-read-only t))
> + (goto-char new-start)
> + (insert "[ " button-label (if show " ]" " (not shown) ]"))
s/not shown/hidden/?
> + (let ((old-end (button-end button)))
> + (move-overlay button new-start (point))
> + (delete-region (point) old-end))
> + (goto-char (min old-point (1- (button-end button)))))
> + (unless no-redisplay
> + (force-window-update)
> + (redisplay t)))))
Is the t argument necessary? Actually, are either (force-window-update)
or (redisplay) necessary?
> +
> (defun notmuch-show-multipart/*-to-list (part)
> (mapcar (lambda (inner-part) (plist-get inner-part :content-type))
> (plist-get part :content)))
> @@ -867,6 +893,11 @@ message at DEPTH in the current thread."
>
> (button-put button 'invisibility-spec invis-spec)
> (button-put button 'overlay overlay))
> +
> + ;; We toggle the button for hidden parts as that gets the
> + ;; button label right.
> + (when not-shown
> + (notmuch-show-toggle-invisible-part-action button t))
> (goto-char (point-max)))))
>
> (defun notmuch-show-insert-bodypart (msg part depth &optional not-shown)
> @@ -1996,7 +2027,10 @@ the user (see `notmuch-show-stash-mlarchive-link-alist')."
>
> (defun notmuch-show-part-button-default (&optional button)
> (interactive)
> - (notmuch-show-part-button-internal button notmuch-show-part-button-default-action))
> + (let ((button (or button (button-at (point)))))
> + (if (invisible-p (button-get button 'invisibility-spec))
> + (notmuch-show-toggle-invisible-part-action button)
> + (notmuch-show-part-button-internal button notmuch-show-part-button-default-action))))
>
> (defun notmuch-show-part-button-save (&optional button)
> (interactive)
> --
> 1.7.9.1
next prev parent reply other threads:[~2012-12-11 4:06 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-12-04 23:27 [PATCH 0/3] Use invisibility to toggle display of all parts including multipart Mark Walters
2012-12-04 23:27 ` [PATCH 1/3] emacs: show: modify insert-part-header to save the button text Mark Walters
2012-12-11 0:22 ` Austin Clements
2012-12-04 23:27 ` [PATCH 2/3] emacs: show: add overlays for each part Mark Walters
2012-12-11 3:59 ` Austin Clements
2012-12-13 8:54 ` Mark Walters
2012-12-15 5:16 ` Austin Clements
2012-12-04 23:27 ` [PATCH 3/3] emacs: show: add invisibility button action Mark Walters
2012-12-05 9:41 ` [PATCH] emacs: show: make RET always toggle parts where plausible Mark Walters
2012-12-11 4:07 ` Austin Clements
2012-12-11 4:06 ` Austin Clements [this message]
2012-12-13 8:57 ` [PATCH 3/3] emacs: show: add invisibility button action Mark Walters
2012-12-05 17:24 ` [PATCH 0/3] Use invisibility to toggle display of all parts including multipart Jani Nikula
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://notmuchmail.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87r4mxnsfb.fsf@awakening.csail.mit.edu \
--to=aclements@csail.mit.edu \
--cc=markwalters1009@gmail.com \
--cc=notmuch@notmuchmail.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://yhetil.org/notmuch.git/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).