From 5c1eab535bca9b15da76c2644d5d7f7bfc5fbcd3 Mon Sep 17 00:00:00 2001 From: Jonathan Leech-Pepin Date: Thu, 13 Dec 2012 08:38:31 -0500 Subject: [PATCH] * contrib/lisp/org-e-texinfo.el: Provided export of info: links (org-e-texinfo-link): Parse info: links to allow linking to appropriate info nodes. --- contrib/lisp/org-e-texinfo.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/contrib/lisp/org-e-texinfo.el b/contrib/lisp/org-e-texinfo.el index 3c03b4b02..0ac5473cc 100644 --- a/contrib/lisp/org-e-texinfo.el +++ b/contrib/lisp/org-e-texinfo.el @@ -1208,6 +1208,12 @@ INFO is a plist holding contextual information. See (let ((path (org-export-solidify-link-text path))) (if (not desc) (format "@ref{%s}" path) (format "@ref{%s,,%s}" path desc))))))) + ((member type '("info")) + (let* ((info-path (split-string path ":")) + (info-manual (car info-path)) + (info-node (or (cadr info-path) "top")) + (title (or desc ""))) + (format "@ref{%s,%s,,%s,}" info-node title info-manual))) ((member type '("fuzzy")) (let ((destination (org-export-resolve-fuzzy-link link info))) (case (org-element-type destination)