From 072fdb4c5377b9c0151963f24095bb2949b3be64 Mon Sep 17 00:00:00 2001 From: Gaizka Villate 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