mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
ox-html.el: No trailing dot when HTML extension is empty
* lisp/ox-html.el (org-html-export-to-html) (org-html-publish-to-html): Don't add a trailing dot when HTML extension is empty.
This commit is contained in:
parent
d0cc865623
commit
0c72a1c413
|
@ -3864,9 +3864,11 @@ file-local settings.
|
||||||
|
|
||||||
Return output file's name."
|
Return output file's name."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let* ((extension (concat "." (or (plist-get ext-plist :html-extension)
|
(let* ((extension (concat
|
||||||
org-html-extension
|
(when (> (length org-html-extension) 0) ".")
|
||||||
"html")))
|
(or (plist-get ext-plist :html-extension)
|
||||||
|
org-html-extension
|
||||||
|
"html")))
|
||||||
(file (org-export-output-file-name extension subtreep))
|
(file (org-export-output-file-name extension subtreep))
|
||||||
(org-export-coding-system org-html-coding-system))
|
(org-export-coding-system org-html-coding-system))
|
||||||
(org-export-to-file 'html file
|
(org-export-to-file 'html file
|
||||||
|
@ -3882,9 +3884,10 @@ publishing directory.
|
||||||
|
|
||||||
Return output file name."
|
Return output file name."
|
||||||
(org-publish-org-to 'html filename
|
(org-publish-org-to 'html filename
|
||||||
(concat "." (or (plist-get plist :html-extension)
|
(concat (when (> (length org-html-extension) 0) ".")
|
||||||
org-html-extension
|
(or (plist-get plist :html-extension)
|
||||||
"html"))
|
org-html-extension
|
||||||
|
"html"))
|
||||||
plist pub-dir))
|
plist pub-dir))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue