tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox-publish: Preserve order in files when building the index 

* lisp/ox-publish.el (org-publish-index-generate-theindex): Preserve
  order in file.
This commit is contained in:
Nicolas Goaziou 2013-02-17 01:40:53 +01:00
parent 8e2318a722
commit adc01ecf37
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/ox-publish.el
View File

@ -947,17 +947,15 @@ publishing directory."
(let ((all-files (org-publish-get-base-files
project (plist-get (cdr project) :exclude)))
full-index)
;; Compile full index.
(mapc
(lambda (file)
(let ((index (org-publish-cache-get-file-property file :index)))
(dolist (term index)
(unless (member term full-index) (push term full-index)))))
all-files)
;; Sort it alphabetically.
(setq full-index
(sort full-index (lambda (a b) (string< (downcase (car a))
(downcase (car b))))))
;; Compile full index and sort it alphabetically.
(dolist (file all-files
(setq full-index
(sort (nreverse full-index)
(lambda (a b) (string< (downcase (car a))
(downcase (car b)))))))
(let ((index (org-publish-cache-get-file-property file :index)))
(dolist (term index)
(unless (member term full-index) (push term full-index)))))
;; Write "theindex.inc" in DIRECTORY.
(with-temp-file (expand-file-name "theindex.inc" directory)
(insert "* Index\n")