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

ox-html.el (org-html-link): Minor code clean-up

Browse source 
* ox-html.el (org-html-link): Minor code clean-up.
This commit is contained in:
Bastien Guerry 2013-03-13 12:05:15 +01:00
parent 9f17654913
commit ab33f3cfac
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ox-html.el
View file

@ -2465,7 +2465,7 @@ standalone images, do the following.
DESC is the description part of the link, or the empty string. DESC is the description part of the link, or the empty string.
INFO is a plist holding contextual information. See INFO is a plist holding contextual information. See
`org-export-data'." `org-export-data'."
(let* ((--link-org-files-as-html-maybe (let* ((link-org-files-as-html-maybe
(function (function
(lambda (raw-path info) (lambda (raw-path info)
"Treat links to `file.org' as links to `file.html', if needed. "Treat links to `file.org' as links to `file.html', if needed.
@ -2488,7 +2488,7 @@ INFO is a plist holding contextual information. See
((string= type "file") ((string= type "file")
;; Treat links to ".org" files as ".html", if needed. ;; Treat links to ".org" files as ".html", if needed.
(setq raw-path (setq raw-path
(funcall --link-org-files-as-html-maybe raw-path info)) (funcall link-org-files-as-html-maybe raw-path info))
;; If file path is absolute, prepend it with protocol ;; If file path is absolute, prepend it with protocol
;; component - "file://". ;; component - "file://".
(when (file-name-absolute-p raw-path) (when (file-name-absolute-p raw-path)
@ -2556,7 +2556,7 @@ INFO is a plist holding contextual information. See
(plain-text (plain-text
(let ((fragment (concat "ID-" path)) (let ((fragment (concat "ID-" path))
;; Treat links to ".org" files as ".html", if needed. ;; Treat links to ".org" files as ".html", if needed.
(path (funcall --link-org-files-as-html-maybe (path (funcall link-org-files-as-html-maybe
destination info))) destination info)))
(format "<a href=\"%s#%s\"%s>%s</a>" (format "<a href=\"%s#%s\"%s>%s</a>"
path fragment attributes (or desc destination)))) path fragment attributes (or desc destination))))