possible Bug: non-interactive publishing (emacs 22.1)

possible Bug: non-interactive publishing (emacs 22.1)

[orgmode]

Hi Carsten,

when using org to publish non-interactively under 22.3.1 I get  
sometimes an error, depending on which publishing function I call.   
This does not happen during interactive calling of the publishing  
function (i.e. M-x org-publish ).

no error:
emacs -q -batch -l ../org-init.el --eval='(org-publish-all)'

with error:
emacs -q -batch -l ../org-init.el --eval='(org-publish "h-rd.org" t)'

(obviously the project h-rd.org exists, and is published without error  
and all components from org-publish-all)
error message:

Starting emacs
Loading subst-ksc...
Loading subst-gb2312...
Loading subst-big5...
Loading subst-jis...
Debugger entered--Lisp error: (wrong-type-argument listp "h-rd.org")
   cdr("h-rd.org")
   (plist-get (cdr p) :components)
   (setq components (plist-get (cdr p) :components))
   (if (setq components (plist-get ... :components)) (setq rest  
(append ... rest)                                                       
          ) (push p rtn))
   (while (setq p (pop rest)) (if (setq components ...) (setq rest  
...) (push p r                                                          
       tn)))
   (let ((rest projects-alist) rtn p components) (while (setq p ...)  
(if ... ...                                                             
     ...)) (nreverse (org-publish-delete-dups ...)))
   org-publish-expand-projects(("h-rd.org"))
   (mapc (lambda (project) (let* ... ... ... ... ... ...))  
(org-publish-expand-pr                                                  
               ojects projects))
   org-publish-projects(("h-rd.org"))
   (let* ((org-publish-use-timestamps-flag ...)) (org-publish-projects  
(list proj                                                              
   ect)))
   (save-window-excursion (let* (...) (org-publish-projects ...)))
   org-publish("h-rd.org" t)
   eval((org-publish "h-rd.org" t))
   command-line-1(("-l" "../org-init.el" "--eval=(org-publish  
\"h-rd.org\" t)"))
   command-line()
   normal-top-level()

emacs finished


greetings.

Re: possible Bug: non-interactive publishing (emacs 22.1)

[Sebastian Rose]

[-- Attachment #1: Type: text/plain, Size: 2109 bytes --]

"orgmode@h-rd.org" <orgmode@h-rd.org> writes:
> Hi Carsten,
>
> when using org to publish non-interactively under 22.3.1 I get  sometimes an
> error, depending on which publishing function I call.   This does not happen
> during interactive calling of the publishing  function (i.e. M-x org-publish ).
>
> no error:
> emacs -q -batch -l ../org-init.el --eval='(org-publish-all)'
>
> with error:
> emacs -q -batch -l ../org-init.el --eval='(org-publish "h-rd.org" t)'
>
> (obviously the project h-rd.org exists, and is published without error  and all
> components from org-publish-all)
> error message:
>
> Starting emacs
> Loading subst-ksc...
> Loading subst-gb2312...
> Loading subst-big5...
> Loading subst-jis...
> Debugger entered--Lisp error: (wrong-type-argument listp "h-rd.org")
>   cdr("h-rd.org")
>   (plist-get (cdr p) :components)
>   (setq components (plist-get (cdr p) :components))
>   (if (setq components (plist-get ... :components)) (setq rest  (append
> ... rest)                                                              ) (push p
> rtn))
>   (while (setq p (pop rest)) (if (setq components ...) (setq rest  ...) (push p
> r                                                              tn)))
>   (let ((rest projects-alist) rtn p components) (while (setq p ...)  (if ... ...
> ...)) (nreverse (org-publish-delete-dups ...)))
>   org-publish-expand-projects(("h-rd.org"))
>   (mapc (lambda (project) (let* ... ... ... ... ... ...))
> (org-publish-expand-pr
> ojects projects))
>   org-publish-projects(("h-rd.org"))
>   (let* ((org-publish-use-timestamps-flag ...)) (org-publish-projects  (list
> proj                                                              ect)))
>   (save-window-excursion (let* (...) (org-publish-projects ...)))
>   org-publish("h-rd.org" t)
>   eval((org-publish "h-rd.org" t))
>   command-line-1(("-l" "../org-init.el" "--eval=(org-publish  \"h-rd.org\" t)"))
>   command-line()
>   normal-top-level()
>
> emacs finished
>
>
> greetings.




And here is a fix for publishing in batch-mode. Please test. It works
here, but I use emacs 24 only currently...



[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-publish-batch-mode.patch --]
[-- Type: text/x-diff, Size: 668 bytes --]

diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index fc18a9a..3f24863 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -756,7 +756,12 @@ Default for SITEMAP-FILENAME is 'sitemap.org'."
   (save-window-excursion
     (let* ((org-publish-use-timestamps-flag
 	    (if force nil org-publish-use-timestamps-flag)))
-      (org-publish-projects (list project)))))
+      (org-publish-projects
+       (if (stringp project)
+	   ;; If this function is called in batch mode,
+	   ;; project is still a string here.
+	   (list (assoc project org-publish-project-alist))
+	   (list project))))))
 
 ;;;###autoload
 (defun org-publish-all (&optional force)

[-- Attachment #3: Type: text/plain, Size: 34 bytes --]




Best wishes


    Sebastian




[-- Attachment #4: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: [Patch] possible Bug: non-interactive publishing (emacs 22.1)

[Sebastian Rose]

[-- Attachment #1: Type: text/plain, Size: 276 bytes --]



Sorry for the reply to my own mail.
But as Carsten is on vacation, I thought it might make sense to add the
`[Patch]' to the subject.


This patch fixes batch-mode publishing. Tested in emacs24 like this:

   sh$   emacs -q -batch --eval='(org-publish "PROJECT_NAME" t)'




[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-publish-batch-mode.patch --]
[-- Type: text/x-diff, Size: 668 bytes --]

diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index fc18a9a..3f24863 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -756,7 +756,12 @@ Default for SITEMAP-FILENAME is 'sitemap.org'."
   (save-window-excursion
     (let* ((org-publish-use-timestamps-flag
 	    (if force nil org-publish-use-timestamps-flag)))
-      (org-publish-projects (list project)))))
+      (org-publish-projects
+       (if (stringp project)
+	   ;; If this function is called in batch mode,
+	   ;; project is still a string here.
+	   (list (assoc project org-publish-project-alist))
+	   (list project))))))
 
 ;;;###autoload
 (defun org-publish-all (&optional force)

[-- Attachment #3: Type: text/plain, Size: 25 bytes --]




Regards

   Sebastian

[-- Attachment #4: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: [Solved] [Patch] possible Bug: non-interactive publishing (emacs 22.1)

[orgmode]

Quoting Sebastian Rose <sebastian_rose@gmx.de>:

>
>
> Sorry for the reply to my own mail.
> But as Carsten is on vacation, I thought it might make sense to add the
> `[Patch]' to the subject.
>
>
> This patch fixes batch-mode publishing. Tested in emacs24 like this:
>
>    sh$   emacs -q -batch --eval='(org-publish "PROJECT_NAME" t)'
>
>
>
>
Hi Sebastian,

thanks, the patch works great (emacs 22)!!!
That was fast.