mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 08:16:27 +00:00
Code Releases Activity

Handle :index-title property during publishing.

Browse source 
Patch from Manuel Hermenegildo.
This commit is contained in:
Carsten Dominik 2008-05-24 21:54:37 +02:00
parent 23bf79d0d4
commit 9dbaf463d8
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2008-05-24 Carsten Dominik <dominik@science.uva.nl>
* org-publish.el (org-publish-project-alist): Fix typo in
docstring.
(org-publish-project-alist): Handle :index-title property.
2008-05-21 Carsten Dominik <dominik@science.uva.nl>
* org-export-latex.el (org-export-as-latex): Make sure region

5
lisp/org-publish.el
View file

@ -196,7 +196,7 @@ file names you don't want to be published.
The :include property may be used to include extra files. Its
value may be a list of filenames to include. The filenames are
considered relative to the publishing directory.
considered relative to the base directory.
When both :include and :exclude properties are given values, the
exclusion step happens first.
@ -586,6 +586,8 @@ Default for INDEX-FILENAME is 'index.org'."
(exclude-regexp (plist-get project-plist :exclude))
(files (org-publish-get-base-files project exclude-regexp))
(index-filename (concat dir (or index-filename "index.org")))
(index-title (or (plist-get project-plist :index-title)
(concat "Index for project " (car project))))
(index-buffer (find-buffer-visiting index-filename))
(ifn (file-name-nondirectory index-filename))
file)
@ -593,6 +595,7 @@ Default for INDEX-FILENAME is 'index.org'."
(if index-buffer
(kill-buffer index-buffer))
(with-temp-buffer
(insert (concat index-title "\n\n"))
(while (setq file (pop files))
(let ((fn (file-name-nondirectory file)))
;; index shouldn't index itself