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

[Richard Riley]

Carsten Dominik <address@hidden> writes:

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

I'll take a look, but this is very strange since it works fine with the
release version. Its only the git version it falls over on.

Thanks,

r.


>
> - 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.

-- 
 important and urgent problems of the technology of today are no longer the 
satisfactions of the primary needs or of archetypal wishes, but the reparation 
of the evils and damages by the technology of yesterday.  ~Dennis Gabor, 
Innovations:  Scientific, Technological and Social, 1970