Nathan, I've just pushed a version of org-jekyll that should solve the problem, following Sebastian's suggestions, and it's available at http://github.com/juanre/org-jekyll. Sorry it's taken me so long to respond; I am pretty much off-line lately for personal reasons. And thanks for bringing it out.
Best, jm -- http://juanreyero.com On Wed, Jun 30, 2010 at 9:04 PM, Sebastian Rose <sebastian_r...@gmx.de> wrote: > > Nathan Neff <nathan.n...@gmail.com> writes: > > ... > > Below is the code where org-publish-initialize-files-alist is called > > in org-jekyll. > > It looks like in both cases, the code is trying to figure out what > > project the current > > file belongs to. Can anyone suggest a fix? I don't mean to push this > > on anyone, but I really don't know lisp that well. > > > ... > > > (defun org-jekyll-export-current-entry () > > (interactive) > > (save-excursion > > (org-publish-initialize-files-alist) ; <----------------here > > (let ((project-name (cdr (assoc (expand-file-name (buffer-file-name)) > > org-publish-files-alist)))) > > (org-back-to-heading t) > > (org-jekyll-export-entry project-name)))) > > I suppose `project-name' shall be the name of the project, i.e. a > string? > > > ;; Evtl. needed to keep compiler happy: > (declare-function org-publish-get-project-from-filename "org-publish" > (filename &optional up)) > > (defun org-jekyll-export-current-entry () > (interactive) > (save-excursion > (let ((project-name (org-publish-get-project-from-filename > buffer-file-name))) > (org-back-to-heading t) > (org-jekyll-export-entry project-name)))) > > > > > > > (defun org-jekyll-export-blog () > > "Export all entries in project files that have a :blog: keyword > > and an :on: datestamp. Property drawers are exported as > > front-matters, outline entry title is the exported document > > title. " > > (interactive) > > (save-excursion > > (org-publish-initialize-files-alist) ;; < -------------- here > > (setq org-jekyll-new-buffers nil) > > (mapc > > (lambda (jfile-project) > > (let ((jfile (car jfile-project)) > > (project (cdr jfile-project))) > > (if (string= (file-name-extension jfile) "org") > > (with-current-buffer (org-get-jekyll-file-buffer jfile) > > (org-map-entries (lambda () (org-jekyll-export-entry > > project)) > > "blog|BLOG"))))) > > (org-publish-get-files (org-publish-expand-projects > > (list (org-publish-get-project-from-filename > > (buffer-file-name) 'up))))) > > (org-release-buffers org-jekyll-new-buffers))) > > > (defun org-jekyll-export-blog () > "Export all entries in project files that have a :blog: keyword > and an :on: datestamp. Property drawers are exported as > front-matters, outline entry title is the exported document > title. " > (interactive) > (save-excursion > (setq org-jekyll-new-buffers nil) > (mapc > (lambda (jfile-project) > (let ((jfile (car jfile-project)) > (project (cdr jfile-project))) > (if (string= (file-name-extension jfile) "org") > (with-current-buffer (org-get-jekyll-file-buffer jfile) > (org-map-entries (lambda () (org-jekyll-export-entry project)) > "blog|BLOG"))))) > > ;; NOT SURE IF THIS WILL WORK HERE: > (org-publish-get-base-files > (list (org-publish-get-project-from-filename (buffer-file-name) 'up)))) > (org-release-buffers org-jekyll-new-buffers))) > > > > HTH > > Sebastian > > _______________________________________________ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode -- http://juanreyero.com/ http://unarueda.com _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode