ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Fix links to radio targets." 

This reverts commit d2e7b1b5b1.
This commit is contained in:
Nicolas Goaziou 2014-03-17 10:05:52 +01:00
parent d2e7b1b5b1
commit 44095d483b
4 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ox-ascii.el
View File

@ -1385,9 +1385,12 @@ INFO is a plist holding contextual information."
(let ((ref (org-element-property :path link)))
(format (org-export-get-coderef-format ref desc)
(org-export-resolve-coderef ref info))))
;; Do not apply a special syntax on radio links.
;; Do not apply a special syntax on radio links. Though, use
;; transcoded target's contents as output.
((string= type "radio")
(org-element-property :path link))
(let ((destination (org-export-resolve-radio-link link info)))
(when destination
(org-export-data (org-element-contents destination) info))))
;; Do not apply a special syntax on fuzzy links pointing to
;; targets.
((string= type "fuzzy")

4
lisp/ox-beamer.el
View File

@ -690,8 +690,8 @@ used as a communication channel."
(when destination
(format "\\hyperlink%s{%s}{%s}"
(or (org-beamer--element-has-overlay-p link) "")
(org-export-data (org-element-contents destination) info)
(org-export-solidify-link-text path)))))
(org-export-solidify-link-text path)
(org-export-data (org-element-contents destination) info)))))
((and (member type '("custom-id" "fuzzy" "id"))
(let ((destination (if (string= type "fuzzy")
(org-export-resolve-fuzzy-link link info)

4
lisp/ox-html.el
View File

@ -2721,9 +2721,9 @@ INFO is a plist holding contextual information. See
(let ((destination (org-export-resolve-radio-link link info)))
(when destination
(format "<a href=\"#%s\"%s>%s</a>"
(org-export-data (org-element-contents destination) info)
(org-export-solidify-link-text path)
attributes
(org-export-solidify-link-text path)))))
(org-export-data (org-element-contents destination) info)))))
;; Links pointing to a headline: Find destination and build
;; appropriate referencing command.
((member type '("custom-id" "fuzzy" "id"))

4
lisp/ox-latex.el
View File

@ -1800,8 +1800,8 @@ INFO is a plist holding contextual information. See
(let ((destination (org-export-resolve-radio-link link info)))
(when destination
(format "\\hyperref[%s]{%s}"
(org-export-data (org-element-contents destination) info)
(org-export-solidify-link-text path)))))
(org-export-solidify-link-text path)
(org-export-data (org-element-contents destination) info)))))
;; Links pointing to a headline: Find destination and build
;; appropriate referencing command.
((member type '("custom-id" "fuzzy" "id"))