emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Levin Du
Subject: [Orgmode] [patch]org-blog.el: fix broken org-publish-blog-index
Date: Wed, 28 May 2008 15:23:10 +0800

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]