contrib/lisp/org-man.el

   1 ;;; org-man.el - Support for links to manpages in Org-mode
   2 ;;
   3 ;; Author: Carsten Dominik <carsten at orgmode dot org>
   4 ;; Keywords: outlines, hypermedia, calendar, wp
   5 ;; Homepage: http://orgmode.org
   6 ;; Version: 1.0
   7 ;;
   8 ;; This file is not yet part of GNU Emacs.
   9 ;;
  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)
  13 ;; any later version.
  14
  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.
  19
  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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  23 ;;
  24 ;;; Commentary:
  25
  26 (require 'org)
  27
  28 (org-link-set-parameters "man"
  29                          :follow #'org-man-open
  30                          :export #'org-man-export
  31                          :store #'org-man-store-link)
  32
  33 (defcustom org-man-command 'man
  34   "The Emacs command to be used to display a man page."
  35   :group 'org-link
  36   :type '(choice (const man) (const woman)))
  37
  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))
  42
  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)))
  50       (org-store-link-props
  51        :type "man"
  52        :link link
  53        :description description))))
  54
  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")))
  61
  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&section=all" link))
  65         (desc (or description link)))
  66     (cond
  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))
  71      (t path))))
  72
  73 (provide 'org-man)
  74
  75 ;;; org-man.el ends here