[patch]org-blog.el: fix broken org-publish-blog-index

[patch]org-blog.el: fix broken org-publish-blog-index

[Levin Du]

[-- Attachment #1.1: Type: text/plain, Size: 945 bytes --]

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

[-- Attachment #1.2: Type: text/html, Size: 1492 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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