1 ;;; org-info.el --- Support for links to Info nodes from within Org-Mode
3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 ;; Author: Carsten Dominik <carsten at orgmode dot org>
6 ;; Keywords: outlines, hypermedia, calendar, wp
7 ;; Homepage: http://orgmode.org
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 ;; This file implements links to Info nodes from within Org-mode.
29 ;; Org-mode loads this module by default - if this is not what you want,
30 ;; configure the variable `org-modules'.
36 ;; Declare external functions and variables
38 (declare-function Info-find-node
"info" (filename nodename
39 &optional no-going-back
))
40 (defvar Info-current-file
)
41 (defvar Info-current-node
)
43 ;; Install the link type
44 (org-add-link-type "info" 'org-info-open
)
45 (add-hook 'org-store-link-functions
'org-info-store-link
)
48 (defun org-info-store-link ()
49 "Store a link to an Info file and node."
50 "Store a link to an INFO folder or message."
51 (when (eq major-mode
'Info-mode
)
53 (setq link
(org-make-link "info:"
54 (file-name-nondirectory Info-current-file
)
55 ":" Info-current-node
))
56 (setq desc
(concat (file-name-nondirectory Info-current-file
)
57 ":" Info-current-node
))
58 (org-store-link-props :type
"info" :file Info-current-file
59 :node Info-current-node
60 :link link
:desc desc
)
63 (defun org-info-open (path)
64 "Follow an Info file and node link specified by PATH."
65 (org-info-follow-link path
))
68 (defun org-info-follow-link (name)
69 "Follow an Info file and node link specified by NAME."
70 (if (or (string-match "\\(.*\\)::?\\(.*\\)" name
)
71 (string-match "\\(.*\\)" name
))
74 (if (match-string 2 name
) ; If there isn't a node, choose "Top"
75 (Info-find-node (match-string 1 name
) (match-string 2 name
))
76 (Info-find-node (match-string 1 name
) "Top")))
77 (message "Could not open: %s" name
)))
81 ;; arch-tag: 1e289f54-7176-487f-b575-dd4854bab15e
83 ;;; org-info.el ends here