summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2008-03-05 14:29:39 +0000
committerBastien Guerry <bzg@altern.org>2008-03-05 14:31:19 +0000
commitdfa6bdb2f72ac8a3f47568e15b4be48251cb2996 (patch)
tree8633b45a8ae427c13eed98311f413f433719b517
parent3752a0f01dafeaac5e80a71e009e307354e2a145 (diff)
downloadorg-mode-dfa6bdb2f72ac8a3f47568e15b4be48251cb2996.tar.gz
New hook: `org-follow-link-hook'.
Also added "Component" as a tag for each item in a command serie.
-rw-r--r--ChangeLog7
-rw-r--r--org.el10
2 files changed, 15 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 9d83321..5695d61 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2008-03-05 Bastien Guerry <bzg@altern.org>
+
+ * org.el (org-follow-link-hook): New hook.
+ (org-agenda-custom-commands): Added "Component" as a tag for each
+ item in a command serie.
+ (org-open-at-point): Run `org-follow-link-hook'.
+
2008-03-04 Bastien Guerry <bzg@altern.org>
* org.el (org-agenda-schedule): Bugfix: don't display marker type
diff --git a/org.el b/org.el
index a6a94d8..9ff76fc 100644
--- a/org.el
+++ b/org.el
@@ -1246,6 +1246,11 @@ negates this setting for the duration of the command."
:tag "Org Follow Link"
:group 'org-link)
+(defcustom org-follow-link-hook nil
+ "Hook that is run after a link has been followed."
+ :group 'org-link-follow
+ :type 'hook)
+
(defcustom org-tab-follows-link nil
"Non-nil means, on links TAB will follow the link.
Needs to be set before org.el is loaded."
@@ -2486,7 +2491,7 @@ should provide a description for the prefix, like
(list :tag "Command series, all agenda files"
(string :tag "Access Key(s)")
(string :tag "Description ")
- (repeat
+ (repeat :tag "Component"
(choice
(const :tag "Agenda" (agenda))
(const :tag "TODO list" (alltodo))
@@ -12930,7 +12935,8 @@ optional argument IN-EMACS is non-nil, Emacs will visit the file."
(t
(browse-url-at-point)))))
- (move-marker org-open-link-marker nil))
+ (move-marker org-open-link-marker nil)
+ (run-hook-with-args 'org-follow-link-hook))
;;; File search