publish: Fix site-map file name

* lisp/ox-publish.el (org-publish-sitemap): Use `expand-file-name' to
build site-map file name.

Reported-by: juanjose.garcia.ripoll@csic.es (Juan José García Ripoll)
<http://lists.gnu.org/r/emacs-orgmode/2020-04/msg00280.html>
This commit is contained in:
Nicolas Goaziou 2020-04-18 18:22:28 +02:00
parent bb9dfdafeb
commit c7063b05f7
1 changed files with 2 additions and 1 deletions

View File

@ -754,7 +754,8 @@ Default for SITEMAP-FILENAME is `sitemap.org'."
(let* ((root (expand-file-name
(file-name-as-directory
(org-publish-property :base-directory project))))
(sitemap-filename (concat root (or sitemap-filename "sitemap.org")))
(sitemap-filename (expand-file-name (or sitemap-filename "sitemap.org")
root))
(title (or (org-publish-property :sitemap-title project)
(concat "Sitemap for project " (car project))))
(style (or (org-publish-property :sitemap-style project)