[PATCH] Add 2 customizations to org-annotation-helper: template-shortcut, auto-finalize-remember

[Gaizka Villate <gaizkav@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 622 bytes --]

Hi there!

I have added a couple of customization variables to org-annotation-helper:

    Add 2 customizations to org-annotation-helper: template-shortcut, auto-finalize-remember
    
    - org-annotation-helper-template-shortcut : So you can choose which
      shortcut to use with org-annotation (I already use ?w for "work"
      template)
    
    - org-annotation-helper-auto-finalize-remember:
      Set to true if you want org-annotation-helper to call org-remember-finalize after filling the template.


Maybe somebody is interested in applying the patch.

¡¡Thanks for org-mode!! ¡¡It's awesome!!

-- Gaizka

[-- Attachment #2: 0001-Add-2-customizations-to-org-annotation-helper-templ.patch --]
[-- Type: text/x-diff, Size: 2294 bytes --]

From 072fdb4c5377b9c0151963f24095bb2949b3be64 Mon Sep 17 00:00:00 2001
From: Gaizka Villate <gaizkav@gmail.com>
Date: Thu, 20 Aug 2009 16:28:09 +0200
Subject: [PATCH] Add 2 customizations to org-annotation-helper: template-shortcut, auto-finalize-remember

- org-annotation-helper-template-shortcut : So you can choose which
  shortcut to use with org-annotation (I already use ?w for "work"
  template)

- org-annotation-helper-auto-finalize-remember:
  Set to true if you want org-annotation-helper to call org-remember-finalize after filling the template.
---
 contrib/lisp/org-annotation-helper.el |   23 +++++++++++++++++++++--
 1 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/contrib/lisp/org-annotation-helper.el b/contrib/lisp/org-annotation-helper.el
index c90233f..e71ba2e 100644
--- a/contrib/lisp/org-annotation-helper.el
+++ b/contrib/lisp/org-annotation-helper.el
@@ -265,6 +265,23 @@
 
 (autoload 'url-unhex-string "url")
 
+(defgroup org-annotation nil
+  "Org annotation helper customization."
+  :tag "Org Annotation"
+  :group 'org)
+
+(defcustom org-annotation-helper-template-shortcut ?w
+  "Character shortcut for the remember template you want to use."
+  :group 'org-annotation
+  :type 'character)
+
+(defcustom org-annotation-helper-auto-finalize-remember nil
+  "Set to true if you want org-annotation-helper to call org-remember-finalize
+  after filling the template.
+  I use it that way, so I can create tasks automatically without human interaction"
+  :group 'org-annotation
+  :type 'boolean)
+
 (defun bzg/org-annotation-helper (info)
   "Process an externally passed remember:// style url.
 
@@ -307,8 +324,10 @@ annotation://   squirrel away a link of the form [[url][title]] that can
 	       (set-mark (point))
 	       (insert region)
                (exchange-point-and-mark t) ;; activate region.. not always on by default
-               (org-remember nil ?w)
-               (kill-buffer b)       
+               (org-remember nil org-annotation-helper-template-shortcut)
+               (kill-buffer b)
+			   (if org-annotation-helper-auto-finalize-remember
+				   (org-remember-finalize))
                )
               ((equal proto "annotation")
                (message "Copied '%s' to the kill-ring." orglink)
-- 
1.6.1.3


[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode