Browse Source

New hook: `org-follow-link-hook'.

Also added "Component" as a tag for each item in a command serie.
Bastien Guerry 11 years ago
parent
commit
dfa6bdb2f7
2 changed files with 15 additions and 2 deletions
  1. 7 0
      ChangeLog
  2. 8 2
      org.el

+ 7 - 0
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

+ 8 - 2
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