Re: Org-jekyll - org-publish-initialize-files-alist

[Juan Reyero <joanmg@gmail.com>]

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_rose@gmx.de> wrote:
>
> Nathan Neff <nathan.neff@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