Re: [Orgmode] Re: publish not working in git version

[Carsten Dominik]

Hi Richard, the new backtrace shows that your project does not define  
a base directory.

- Carsten

On Dec 2, 2008, at 5:32 PM, Richard Riley wrote:

> Bernt Hansen <address@hidden> writes:
>
> > Carsten Dominik <address@hidden> writes:
> >
> > > Anyone else having trouble with publishing recently?
> >
> > Publishing seems to work for me.
>
> Hi Carsten,
>
> Still the same. I removed the elc from org code as you requested.
>
> Latest git, following a publish file "C-c C-e f":
>
> ,----
> | Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
> |   file-truename(nil)
> |   (file-name-as-directory (file-truename (plist-get project- 
> plist :base-directory)))
> |   (let* ((project ...) (project-plist ...) (ftname ...)  
> (publishing-function ...) (base-dir ...) (pub-dir ...) tmp-pub-dir)  
> (setq tmp-pub-dir (file-name-directory ...)) (if (listp publishing- 
> function) (mapc ... publishing-function) (funcall publishing- 
> function project-plist filename tmp-pub-dir)))
> |   (progn (let* (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub- 
> dir ...) (if ... ... ...)) (org-publish-update-timestamp filename))
> |   (if (org-publish-needed-p filename) (progn (let* ... ... ...)  
> (org-publish-update-timestamp filename)))
> |   (when (org-publish-needed-p filename) (let*  
> (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub-dir ...)  
> (if ... ... ...)) (org-publish-update-timestamp filename))
> |   org-publish-file("/home/shamrock/webs/richardriley/index.org")
> |   (let ((org-publish-use-timestamps-flag ...)) (org-publish-file  
> (buffer-file-name)))
> |   (save-window-excursion (let (...) (org-publish-file ...)))
> |   org-publish-current-file(nil)
> |   call-interactively(org-publish-current-file)
> |   (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set- 
> process-sentinel p ...) (message "Background process \"%s\":  
> started" p)) (call-interactively (nth 1 ass)))
> |   (let* ((bg ...) (help "[t]   insert the export option template 
> \n[v]   limit export to visible part of outline tree\n\n[a] export  
> as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary  
> buffer\n[R] export region as HTML\n[b] export as HTML and browse  
> immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[p] export  
> as LaTeX and process to PDF\n[d] export as LaTeX, process to PDF,  
> and open the resulting PDF document\n[L] export as LaTeX to  
> temporary buffer\n\n[i] export current file as iCalendar file\n[I]  
> export all agenda files as iCalendar files\n[c] export agenda files  
> into combined iCalendar file\n\n[F] publish current file\n[P]  
> publish current project\n[X] publish... (project will be prompted  
> for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-window- 
> excursion (delete-other-windows) (with-output-to-temp-buffer "*Org  
> Export/Publishing Help*" ...) (org-fit-window-to-buffer ...)  
> (message "Select command: ") (setq r1 ...)) (setq r2 (if ... ...  
> r1)) (unless (setq ass ...) (error "No command associated with key  
> %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (call- 
> interactively ...)))
> |   org-export(nil)
> |   call-interactively(org-export nil nil)
> |   recursive-edit()
> |   byte-code("Æ  @Ç=ƒ!ÈÉÊ\"ˆËÉ!‰A@)¢Ì=ƒ!ÈÍÊ\"ˆÎ!ˆÏ ˆÐ        !ˆ\fƒdÑed\"
> VƒWebˆÒ
> ¥yˆ`dbˆÒ
> ¥
> Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ×Æ!ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+ه" [unread-command- 
> char debugger-args x debugger-buffer noninteractive debugger-batch- 
> max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop- 
> to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n"  
> message "%s" buffer-string kill-emacs "" nil recursive-edit  
> middlestart buffer-read-only standard-output] 4)
> |   debug(error (wrong-type-argument arrayp nil))
> |   file-truename(nil)
> |   (file-name-as-directory (file-truename (plist-get project- 
> plist :base-directory)))
> |   (let* ((project ...) (project-plist ...) (ftname ...)  
> (publishing-function ...) (base-dir ...) (pub-dir ...) tmp-pub-dir)  
> (setq tmp-pub-dir (file-name-directory ...)) (if (listp publishing- 
> function) (mapc ... publishing-function) (funcall publishing- 
> function project-plist filename tmp-pub-dir)))
> |   (progn (let* (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub- 
> dir ...) (if ... ... ...)) (org-publish-update-timestamp filename))
> |   (if (org-publish-needed-p filename) (progn (let* ... ... ...)  
> (org-publish-update-timestamp filename)))
> |   (when (org-publish-needed-p filename) (let*  
> (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub-dir ...)  
> (if ... ... ...)) (org-publish-update-timestamp filename))
> |   org-publish-file("/home/shamrock/webs/richardriley/index.org")
> |   (let ((org-publish-use-timestamps-flag ...)) (org-publish-file  
> (buffer-file-name)))
> |   (save-window-excursion (let (...) (org-publish-file ...)))
> |   org-publish-current-file(nil)
> |   call-interactively(org-publish-current-file)
> |   (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set- 
> process-sentinel p ...) (message "Background process \"%s\":  
> started" p)) (call-interactively (nth 1 ass)))
> |   (let* ((bg ...) (help "[t]   insert the export option template 
> \n[v]   limit export to visible part of outline tree\n\n[a] export  
> as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary  
> buffer\n[R] export region as HTML\n[b] export as HTML and browse  
> immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[p] export  
> as LaTeX and process to PDF\n[d] export as LaTeX, process to PDF,  
> and open the resulting PDF document\n[L] export as LaTeX to  
> temporary buffer\n\n[i] export current file as iCalendar file\n[I]  
> export all agenda files as iCalendar files\n[c] export agenda files  
> into combined iCalendar file\n\n[F] publish current file\n[P]  
> publish current project\n[X] publish... (project will be prompted  
> for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-window- 
> excursion (delete-other-windows) (with-output-to-temp-buffer "*Org  
> Export/Publishing Help*" ...) (org-fit-window-to-buffer ...)  
> (message "Select command: ") (setq r1 ...)) (setq r2 (if ... ...  
> r1)) (unless (setq ass ...) (error "No command associated with key  
> %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (call- 
> interactively ...)))
> |   org-export(nil)
> |   call-interactively(org-export nil nil)
> `----
>
>
> My project lists are:
>
> ,----
> | (setq org-publish-project-alist
> |       `(
> |       ("web-extra"
> |        :base-directory ,rgr-source
> |        :publishing-directory ,rgr-publish
> |        :base-extension "gif\\|jpg\\|jpeg\\|png\\|css"
> |        :publishing-function org-publish-attachment
> |          :recursive t
> |        )
> |       ("web-org"
> |        :base-directory ,rgr-source
> |        :publishing-directory ,rgr-publish
> |        :base-extension "org"
> |        :publishing-function org-publish-org-to-html
> |          :recursive t
> |        :section-numbers nil
> |        :style "<link rel=stylesheet
> |                      href=\"./style.css\"
> |                      type=\"text/css\">"
> |        :auto-preamble t
> |        :auto-postamble t
> | 	 :preamble ,(format "<div id='Content'><a href='../'>Back</a> -  
> <a href='%s'>Home</a>" rgr-home)
> |        :postamble "</div>"
> |        :author nil
> |        )
> |       ("web"
> |        :components("web-org" "web-extra")
> |        )
> |       )
> |       )
> |
> `----
>
> And as I say, the latest official release works fine.
>
> regards
>
> Richard.