1 ;;; org-man.el - Support for links to manpages in Org-mode
3 ;; Author: Carsten Dominik <carsten at orgmode dot org>
4 ;; Keywords: outlines, hypermedia, calendar, wp
5 ;; Homepage: http://orgmode.org
8 ;; This file is not yet part of GNU Emacs.
10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 3, or (at your option)
15 ;; This program is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
22 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 (org-link-set-parameters "man"
29 :follow
#'org-man-open
30 :export
#'org-man-export
31 :store
#'org-man-store-link
)
33 (defcustom org-man-command
'man
34 "The Emacs command to be used to display a man page."
36 :type
'(choice (const man
) (const woman
)))
38 (defun org-man-open (path)
39 "Visit the manpage on PATH.
40 PATH should be a topic that can be thrown at the man command."
41 (funcall org-man-command path
))
43 (defun org-man-store-link ()
44 "Store a link to a README file."
45 (when (memq major-mode
'(Man-mode woman-mode
))
46 ;; This is a man page, we do make this link
47 (let* ((page (org-man-get-page-name))
48 (link (concat "man:" page
))
49 (description (format "Manpage for %s" page
)))
53 :description description
))))
55 (defun org-man-get-page-name ()
56 "Extract the page name from the buffer name."
57 ;; This works for both `Man-mode' and `woman-mode'.
58 (if (string-match " \\(\\S-+\\)\\*" (buffer-name))
59 (match-string 1 (buffer-name))
60 (error "Cannot create link to this man page")))
62 (defun org-man-export (link description format
)
63 "Export a man page link from Org files."
64 (let ((path (format "http://man.he.net/?topic=%s§ion=all" link
))
65 (desc (or description link
)))
67 ((eq format
'html
) (format "<a target=\"_blank\" href=\"%s\">%s</a>" path desc
))
68 ((eq format
'latex
) (format "\\href{%s}{%s}" path desc
))
69 ((eq format
'texinfo
) (format "@uref{%s,%s}" path desc
))
70 ((eq format
'ascii
) (format "%s (%s)" desc path
))
75 ;;; org-man.el ends here