diff options
author | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2012-12-13 08:38:31 -0500 |
---|---|---|
committer | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2012-12-13 08:38:31 -0500 |
commit | 5c1eab535bca9b15da76c2644d5d7f7bfc5fbcd3 (patch) | |
tree | 15c82b13e8ff4c681df356fde3698653e9cdf5ec | |
parent | 31d24aa2134e27670e15b059d597505673c0d0e2 (diff) | |
download | org-mode-5c1eab535bca9b15da76c2644d5d7f7bfc5fbcd3.tar.gz |
* 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.
-rw-r--r-- | contrib/lisp/org-e-texinfo.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/contrib/lisp/org-e-texinfo.el b/contrib/lisp/org-e-texinfo.el index 3c03b4b..0ac5473 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) |