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
>From 072fdb4c5377b9c0151963f24095bb2949b3be64 Mon Sep 17 00:00:00 2001
From: Gaizka Villate <[email protected]>
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
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
