mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

ox-publish: Publish "theindex.org" last

Browse Source 
* lisp/ox-publish.el (org-publish-projects): Publish "theindex.org"
  last, so that "theindex.inc" can be completed.
This commit is contained in:
Nicolas Goaziou 2013-02-18 19:46:42 +01:00
parent 875f5cc69b
commit 5c61a34e5b
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/ox-publish.el
View File

@ -675,17 +675,24 @@ If `:auto-sitemap' is set, publish the sitemap too. If
(preparation-function
(plist-get project-plist :preparation-function))
(completion-function (plist-get project-plist :completion-function))
(files (org-publish-get-base-files project exclude-regexp)) file)
(files (org-publish-get-base-files project exclude-regexp))
(theindex
(expand-file-name "theindex.org"
(plist-get project-plist :base-directory))))
(when preparation-function (run-hooks 'preparation-function))
(if sitemap-p (funcall sitemap-function project sitemap-filename))
(dolist (file files) (org-publish-file file project t))
;; Publish all files from PROJECT excepted "theindex.org". Its
;; publishing will be deferred until "theindex.inc" is
;; populated.
(dolist (file files)
(unless (equal file theindex)
(org-publish-file file project t)))
;; Populate "theindex.inc", if needed, and publish
;; "theindex.org".
(when (plist-get project-plist :makeindex)
(org-publish-index-generate-theindex
project (plist-get project-plist :base-directory))
(org-publish-file
(expand-file-name
"theindex.org" (plist-get project-plist :base-directory))
project t))
(org-publish-file theindex project t))
(when completion-function (run-hooks 'completion-function))
(org-publish-write-cache-file)))
(org-publish-expand-projects projects)))