From: Mark Walters <markwalters1009@gmail.com>
To: notmuch@notmuchmail.org
Subject: [PATCH 08/11] contrib: pick: close window function
Date: Fri, 5 Jul 2013 19:11:15 +0100 [thread overview]
Message-ID: <1373047878-20822-9-git-send-email-markwalters1009@gmail.com> (raw)
In-Reply-To: <1373047878-20822-1-git-send-email-markwalters1009@gmail.com>
---
contrib/notmuch-pick/notmuch-pick.el | 12 ++++++++++++
1 files changed, 12 insertions(+), 0 deletions(-)
diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el
index 77b257d..4ad6ef6 100644
--- a/contrib/notmuch-pick/notmuch-pick.el
+++ b/contrib/notmuch-pick/notmuch-pick.el
@@ -208,6 +208,18 @@ This function does not give an error if there is no button."
(let ((button (or button (button-at (point)))))
(when button (button-activate button))))
+(defun notmuch-pick-close-message-pane-and (func)
+ "Close message pane and execute FUNC.
+
+This function returns a function (so can be used as a keybinding)
+which closes the message pane if open and then executes function
+FUNC."
+ `(lambda ()
+ ,(concat "(Close message pane and) " (documentation func t))
+ (interactive)
+ (notmuch-pick-close-message-window)
+ (funcall #',func)))
+
(defvar notmuch-pick-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [mouse-1] 'notmuch-pick-show-message)
--
1.7.9.1
next prev parent reply other threads:[~2013-07-05 18:12 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-07-05 18:11 [PATCH 00/11] contrib: pick: keybindings Mark Walters
2013-07-05 18:11 ` [PATCH 01/11] contrib: pick: override notmuch-show-get-prop Mark Walters
2013-07-05 18:11 ` [PATCH 02/11] contrib: pick: Link in notmuch-show-pipe-message Mark Walters
2013-07-05 18:11 ` [PATCH 03/11] contrib: pick: Link in attachment functions straight from notmuch-show Mark Walters
2013-07-05 18:11 ` [PATCH 04/11] contrib: pick: Link in stash map " Mark Walters
2013-07-05 18:11 ` [PATCH 05/11] contrib: pick: add in to-message-window function Mark Walters
2013-07-05 18:11 ` [PATCH 06/11] contrib: pick: add button press helper Mark Walters
2013-07-05 18:11 ` [PATCH 07/11] contrib: pick: pass tab through to the message pane Mark Walters
2013-07-05 18:11 ` Mark Walters [this message]
2013-07-05 18:11 ` [PATCH 09/11] contrib: pick: make help close the message pane first Mark Walters
2013-07-05 18:11 ` [PATCH 10/11] contrib: pick: add in binding to view raw message Mark Walters
2013-07-05 18:11 ` [PATCH 11/11] contrib: pick: use close-message-pane for reply etc Mark Walters
2013-07-06 8:33 ` [PATCH 00/11] contrib: pick: keybindings Tomi Ollila
2013-07-21 8:36 ` Mark Walters
2013-08-24 9:33 ` David Bremner
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=1373047878-20822-9-git-send-email-markwalters1009@gmail.com \
--to=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).