From: Carsten Dominik <dominik@science.uva.nl>
To: Richard Riley <rileyrgdev@googlemail.com>
Cc: Bernt Hansen <bernt@norang.ca>, org-mode <emacs-orgmode@gnu.org>
Subject: Re: Re: publish not working in git version
Date: Tue, 2 Dec 2008 17:56:27 +0100 [thread overview]
Message-ID: <09E83650-D2E2-433F-8543-8237F89C34D1@uva.nl> (raw)
In-Reply-To: <49356349.0437560a.18b1.ffffc64d@mx.google.com>
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 <bernt@norang.ca> writes:
>
>> Carsten Dominik <dominik@science.uva.nl> 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("Æ\x10 @Ç=!ÈÉÊ\"ËÉ!\x1aA@)¢Ì=!ÈÍÊ\"Î\v!Ï Ð !\fdÑed\"
> VWebÒ
> ¥y`\x1e^[dbÒ
> ¥
> Zy\x0e^[`|)ÓcebÔÕÖ \"×Æ!ÔØ!ÙÊ\x1e\x1c\x1e\x1dÔØ!Ú +Ù" [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.
next prev parent reply other threads:[~2008-12-02 16:56 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-11-30 16:53 publish not working in git version Richard Riley
2008-12-02 15:10 ` Carsten Dominik
2008-12-02 15:19 ` Bernt Hansen
2008-12-02 16:32 ` Richard Riley
2008-12-02 16:56 ` Carsten Dominik [this message]
2008-12-02 17:17 ` Richard Riley
2008-12-02 20:09 ` Sebastian Rose
2008-12-02 22:06 ` Richard Riley
2008-12-02 22:26 ` Bernt Hansen
2008-12-03 11:33 ` Sebastian Rose
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=09E83650-D2E2-433F-8543-8237F89C34D1@uva.nl \
--to=dominik@science.uva.nl \
--cc=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
--cc=rileyrgdev@googlemail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).