From 255c596f3768ac34e75f2507846578c5dc4cbe08 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 24 Jan 2013 16:09:12 +0100 Subject: [PATCH] org-man.el (org-man-export): New function to export links of type "man" * org-man.el (org-man-export): New function to export links of type "man". --- contrib/lisp/org-man.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-man.el b/contrib/lisp/org-man.el index 27e8cca24..484f255e2 100644 --- a/contrib/lisp/org-man.el +++ b/contrib/lisp/org-man.el @@ -27,7 +27,7 @@ (require 'org) -(org-add-link-type "man" 'org-man-open) +(org-add-link-type "man" 'org-man-open 'org-man-export) (add-hook 'org-store-link-functions 'org-man-store-link) (defcustom org-man-command 'man @@ -59,6 +59,16 @@ PATH should be a topic that can be thrown at the man command." (match-string 1 (buffer-name)) (error "Cannot create link to this man page"))) +(defun org-man-export (link description format) + "Export a man page link from Org files." + (let ((path (format "http://man.he.net/?topic=%s§ion=all" link)) + (desc (or description link))) + (cond + ((eq format 'html) (format "%s" path desc)) + ((eq format 'latex) (format "\href{%s}{%s}" path desc)) + ((eq format 'ascii) (format "%s (%s)" desc path)) + (t path)))) + (provide 'org-man) ;;; org-man.el ends here