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

[Richard Riley]

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.