tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox-ascii: Fix external id links 

* lisp/ox-ascii.el (org-ascii--describe-links): Fix export when id link
  targets an external file.

Reported-by: Samuel Wales <samologist@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/101978>
This commit is contained in:
Nicolas Goaziou 2015-10-18 00:02:31 +02:00
parent 9de1ee1b6f
commit d6a718a93f
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/ox-ascii.el
View File

@ -916,19 +916,23 @@ channel."
;; Id and custom-id links: Headlines refer to their numbering.
((member type '("custom-id" "id"))
(let ((dest (org-export-resolve-id-link link info)))
(concat
(org-ascii--fill-string
(format
"[%s] %s"
anchor
(if (not dest) (org-ascii--translate "Unknown reference" info)
(format
(org-ascii--translate "See section %s" info)
(if (org-export-numbered-headline-p dest info)
(mapconcat #'number-to-string
(org-export-get-headline-number dest info) ".")
(org-export-data (org-element-property :title dest) info)))))
width info) "\n\n")))
(if (concat
(org-ascii--fill-string
(format
"[%s] %s"
anchor
(if (stringp dest) ; External file.
dest
(format
(org-ascii--translate "See section %s" info)
(if (org-export-numbered-headline-p dest info)
(mapconcat #'number-to-string
(org-export-get-headline-number dest info)
".")
(org-export-data
(org-element-property :title dest) info)))))
width info)
"\n\n"))))
;; Do not add a link that cannot be resolved and doesn't have
;; any description: destination is already visible in the
;; paragraph.