I think the API has changed a bit. Patch attched:--- a/lisp/org-blog.el +++ b/lisp/org-blog.el @@ -170,11 +170,12 @@ Follow up with org-publish-all to upload to the site."
;; pluggable index generation function for org-publish. -(defun org-publish-blog-index (plist &optional index-filename) +(defun org-publish-blog-index (project &optional index-filename) "Publish an index of all finished blog posts. This function is suitable for use in the :index-function keyword of org-publish-project-alist." - (let* ((posts (nreverse (sort (org-publish-get-base-files plist "*~") 'string<))) + (let* ((plist (cdr project)) + (posts (nreverse (sort (org-publish-get-base-files project "*~") 'string<))) (base-directory (file-name-as-directory (or org-blog-directory (plist-get plist :base-directory)))) (blog-base-url (file-name-as-directory (plist-get plist :blog-base-url))) (blog-title (plist-get plist :blog-title)) - Levin
_______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode