diff options
author | Jan Seeger <jan.seeger@thenybble.de> | 2011-01-07 18:42:22 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-01-26 11:03:20 +0100 |
commit | deb5f8df31072ea99a846efe1dafcb405362a196 (patch) | |
tree | 06c4b9b90f094be0efc81b98c0fcd78ddf56c5fb | |
parent | 156e6b1466826961bd2577a44ae38e852c724107 (diff) | |
download | org-mode-deb5f8df31072ea99a846efe1dafcb405362a196.tar.gz |
Always add sitemap file to project files if sitemap is requested
* lisp/org-publish.el (org-publish-get-base-files): Add sitemap file.
I noticed some wonkiness in getting my sitemap created on my webserver
when pushing my website, and the problem seems to lie in
org-publish-get-base-files only returning existing files, and not
picking up on the soon to be generated sitemap. My patch always adds
the sitemap file to the list of returned files if a sitemap is
requested, regardless of if it exists or not.
-rw-r--r-- | lisp/org-publish.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/org-publish.el b/lisp/org-publish.el index f29b402..c3f3370 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -434,6 +434,9 @@ matching filenames." ;; org-publish-compare-directory-files: (sitemap-requested (plist-get project-plist :auto-sitemap)) + (sitemap-filename + (or (plist-get project-plist :sitemap-filename) + "sitemap.org")) (sitemap-sort-folders (if (plist-member project-plist :sitemap-sort-folders) (plist-get project-plist :sitemap-sort-folders) @@ -454,6 +457,9 @@ matching filenames." (setq sitemap-sort-folders nil)) (setq org-publish-temp-files nil) + (if sitemap-requested + (pushnew (expand-file-name (concat base-dir sitemap-filename)) + org-publish-temp-files)) (org-publish-get-base-files-1 base-dir recurse match ;; FIXME distinguish exclude regexp ;; for skip-file and skip-dir? |