From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: [Accepted] Re: Clean capture from command line? Date: Sat, 27 Nov 2010 07:56:06 +0100 (CET) Message-ID: <20101127065606.5428177B7A9@carsten-dominiks-macbook-pro.local> References: <874obebkqi.fsf@ufl.edu> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=44267 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PNes4-0006m4-5s for emacs-orgmode@gnu.org; Wed, 01 Dec 2010 00:05:09 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PNOdj-0003Qp-0d for emacs-orgmode@gnu.org; Tue, 30 Nov 2010 06:45:00 -0500 Received: from wirenat2.strw.leidenuniv.nl ([132.229.223.6]:50062 helo=carsten-dominiks-macbook-pro.local) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PNOdi-0003QG-Kq for emacs-orgmode@gnu.org; Tue, 30 Nov 2010 06:44:54 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Patch 390 (http://patchwork.newartisans.com/patch/390/) is now "Accepted". Maintainer comment: No comment This relates to the following submission: http://mid.gmane.org/%3C874obebkqi.fsf%40ufl.edu%3E Here is the original message containing the patch: > Content-Type: text/plain; charset="utf-8" > MIME-Version: 1.0 > Content-Transfer-Encoding: 7bit > Subject: [Orgmode] Re: Clean capture from command line? > Date: Thu, 18 Nov 2010 22:32:53 -0000 > From: Allen S. Rout > X-Patchwork-Id: 390 > Message-Id: <874obebkqi.fsf@ufl.edu> > To: emacs-orgmode@gnu.org > > Friedrich Delgado writes: > > > I use zsh and I already use this: > > > > ,----[ ~/bin/uriescapepwd.pl ] > > #!/usr/bin/perl -w > > use URI::Escape qw/ uri_escape uri_escape_utf8 /; > > use Cwd qw/getcwd abs_path/; > > $pwd = abs_path(getcwd); > > print uri_escape_utf8($pwd); > > `---- > > Woot, one step. > > Then I also did a quick filter. > > --- > use URI::Escape qw/ uri_escape uri_escape_utf8 /; > use Cwd qw/getcwd abs_path/; > > print uri_escape_utf8(<>); > --- > > At that point, I could do: > > --- > > emacsclient -c org-protocol://capture:/I/file:`~/bin/uriescapepwd`/`~/bin/uriescapepwd`/`/usr/bin/zenity --entry --text="New TODO" |~/bin/uriescape` > > ---- > > The 'I' selects template, in which I'm using :immediate-finish. That's > one. > > For the 'Close the client frame' purpose, I applied the attached patch, > and then I could, in my own myorg.el file: > > ----- > > ( defun asr-org-capture-finalize () > "If we set the correct property in the capture template, then delete frame." > ( if (org-capture-get :asr-delete-frame-on-finalize) > (delete-frame) > ) > ) > > > (add-hook 'org-capture-after-finalize-hook 'asr-org-capture-finalize ) > > ----- > > > which lets me define a capture template with property > > :asr-delete-frame-on-finalize 1 > > and then use that template. > > Thanks, Eric and Friedrich... > > > - Allen S. Rout > > >From 2086fe4be30d5383b9db4d5db91da6b03357c128 Mon Sep 17 00:00:00 2001 > From: Allen S. Rout > Date: Wed, 17 Nov 2010 12:52:02 -0500 > Subject: [PATCH 3/3] Add post-finalize hook > > --- > lisp/org-capture.el | 8 ++++++++ > 1 files changed, 8 insertions(+), 0 deletions(-) > > diff --git a/lisp/org-capture.el b/lisp/org-capture.el > index 2abe5c7..5d2f8d3 100644 > --- a/lisp/org-capture.el > +++ b/lisp/org-capture.el > @@ -313,6 +313,12 @@ The remember buffer is still current when this hook runs." > :group 'org-capture > :type 'hook) > > +(defcustom org-capture-after-finalize-hook nil > + "Hook that is run right after a capture process is finalized. > + Suitable for window cleanup" > + :group 'org-capture > + :type 'hook) > + > ;;; The property list for keeping information about the capture process > > (defvar org-capture-plist nil > @@ -548,6 +554,8 @@ bypassed." > > ;; Restore the window configuration before capture > (set-window-configuration return-wconf)) > + > + (run-hooks 'org-capture-after-finalize-hook) > (when abort-note > (cond > ((equal abort-note 'clean) > -- > 1.7.0.4 > >