Georg C. F. Greve [EMAIL PROTECTED] writes:
On Sat, 04 Aug 2007 21:44:48 -0400
Xiao-Yong Jin [EMAIL PROTECTED] wrote:
xj Perhaps we should actually suggest Carsten build nnir support in
xj org-mode and at the same time persuade the maintainer of nnir.el to
xj support mairix? ;-)
I think this could be a clean solution to the problem.
Here is a patch against latest org-mode 5.04 as a first attempt of
implementing custom link-types (stored in `org-link-custom-types'.)
diff --git a/org.el b/org.el
index 1fc081e..c139be1 100644
--- a/org.el
+++ b/org.el
@@ -968,6 +968,23 @@ Automatically means, when TAB or RET or C-c C-c are pressed in the line.
The value of this is taken from the #+LINK lines.)
(make-variable-buffer-local 'org-link-abbrev-alist-local)
+(defcustom org-link-custom-types nil
+ Alist of recognized link types.
+This types are appended to `org-link-types'.
+Each cell is of the form
+
+ \(\type\ \(follow-function store-function major-mode\)\)
+
+where \type\ is the string defining the type, follow-function
+is the function that Org will call to follow these links,
+store-function the function that Org will use to store these link
+and major-mode the major mode where it's active.
+ :group 'org-link
+ :type '(repeat (list (string :tag Type (string) )
+ (function :tag Follow function )
+ (function :tag Store function )
+ (function :tag Active in major mode
+
(defcustom org-link-abbrev-alist nil
Alist of link abbreviations.
The car of each element is a string, to be replaced at the start of a link.
@@ -4140,8 +4157,11 @@ that will be added to PLIST. Returns the string that was modified.
(require 'font-lock)
(defconst org-non-link-chars ]\t\n\r)
-(defconst org-link-types '(http https ftp mailto file news bbdb vm
- wl mhe rmail gnus shell info elisp))
+(defconst org-link-types
+ (append (list http https ftp mailto file news bbdb vm
+ wl mhe rmail gnus shell info elisp)
+ (delq nil (mapcar (lambda(x) (car x)) org-link-custom-types
+
(defconst org-link-re-with-space
(concat
?\\( (mapconcat 'identity org-link-types \\|) \\):
@@ -10410,9 +10430,13 @@ For links to usenet articles, arg negates `org-usenet-links-prefer-google'.
For file links, arg negates `org-context-in-file-links'.
(interactive P)
(setq org-store-link-plist nil) ; reset
- (let (link cpltxt desc description search txt)
+ (let (link cpltxt desc description search txt cus)
(cond
+ ((setq cus (assq major-mode (mapcar '(lambda(e) (reverse e))
+ org-link-custom-types)))
+ (funcall (nth 1 cus)))
+
((eq major-mode 'bbdb-mode)
(let ((name (bbdb-record-name (bbdb-current-record)))
(company (bbdb-record-getprop (bbdb-current-record) 'company)))
@@ -11006,7 +11030,7 @@ optional argument IN-EMACS is non-nil, Emacs will visit the file.
(org-remove-occur-highlights nil nil t)
(if (org-at-timestamp-p t)
(org-follow-timestamp-link)
-(let (type path link line search (pos (point)))
+(let (type path link line search (pos (point)) cus)
(catch 'match
(save-excursion
(skip-chars-forward ^]\n\r)
@@ -11177,7 +11201,10 @@ optional argument IN-EMACS is non-nil, Emacs will visit the file.
(message %s = %s cmd (eval (read cmd)))
(error Abort
- (t
+ ((setq cus (assoc type org-link-custom-types))
+ (funcall (nth 1 cus) path))
+
+ (t
(browse-url-at-point)
(move-marker org-open-link-marker nil))
It lets you define an alist of custom link-types. See the docstring of
`org-link-custom-types'.
Then you need to define the follow/store functions by yourself. Here are
the defuns I use (in addition to Georg's mairix.el):
org-mairix.el
Description: application/emacs-lisp
I think the nnir.el support could be provided via custom link types,
instead of being hardcoded within org.el.
Please test it and give me feedback!
PS: i started to have a look at nnir.el to make it aware of mairix. But
i'm not sure i'll have time for this till the end of the week.
--
Bastien
___
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
