[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 8fa7f0279e 1/2: org-html-link: Fix relative links w
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 8fa7f0279e 1/2: org-html-link: Fix relative links with :html-link-use-abs-url |
Date: |
Mon, 10 Jul 2023 06:58:18 -0400 (EDT) |
branch: externals/org
commit 8fa7f0279e69f72c51731bda5cdee27df634d651
Author: Akira Kyle <akira@akirakyle.com>
Commit: Ihor Radchenko <yantar92@posteo.net>
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
---
lisp/ox-html.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 543c7eac42..64fec544ad 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -3227,7 +3227,7 @@ INFO is a plist holding contextual information. See
(org-trim (plist-get info :html-link-home)))))
(when (and home
(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))))
;; Maybe turn ".org" into ".html".
(setq raw-path (funcall link-org-files-as-html-maybe raw-path info))