mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 03:32:51 +00:00
org-html-link: Fix relative links with :html-link-use-abs-url
* lisp/ox-html.el (org-html-link): When publishing relative links with both :html-link-use-abs-url and :html-link-home, ensure the correct link is constructed. Never append `home' to absolute paths. TINYCHANGE
This commit is contained in:
parent
879ba22ef6
commit
8fa7f0279e
|
@ -3227,7 +3227,7 @@ INFO is a plist holding contextual information. See
|
||||||
(org-trim (plist-get info :html-link-home)))))
|
(org-trim (plist-get info :html-link-home)))))
|
||||||
(when (and home
|
(when (and home
|
||||||
(plist-get info :html-link-use-abs-url)
|
(plist-get info :html-link-use-abs-url)
|
||||||
(file-name-absolute-p raw-path))
|
(not (file-name-absolute-p raw-path)))
|
||||||
(setq raw-path (concat (file-name-as-directory home) raw-path))))
|
(setq raw-path (concat (file-name-as-directory home) raw-path))))
|
||||||
;; Maybe turn ".org" into ".html".
|
;; Maybe turn ".org" into ".html".
|
||||||
(setq raw-path (funcall link-org-files-as-html-maybe raw-path info))
|
(setq raw-path (funcall link-org-files-as-html-maybe raw-path info))
|
||||||
|
|
Loading…
Reference in a new issue