From mboxrd@z Thu Jan 1 00:00:00 1970 From: Richard Riley Subject: Re: Re: publish not working in git version Date: Tue, 02 Dec 2008 17:32:18 +0100 Message-ID: <49356349.0437560a.18b1.ffffc64d@mx.google.com> References: <4932c543.170e660a.26c3.ffff87fa@mx.google.com> <878wqybo5b.fsf@gollum.intra.norang.ca> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1L7YBZ-0000eh-L1 for emacs-orgmode@gnu.org; Tue, 02 Dec 2008 11:33:17 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1L7YBZ-0000eF-9E for emacs-orgmode@gnu.org; Tue, 02 Dec 2008 11:33:17 -0500 Received: from [199.232.76.173] (port=43580 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1L7YBY-0000e9-LB for emacs-orgmode@gnu.org; Tue, 02 Dec 2008 11:33:16 -0500 Received: from ug-out-1314.google.com ([66.249.92.169]:45895) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1L7YBX-00010f-VS for emacs-orgmode@gnu.org; Tue, 02 Dec 2008 11:33:16 -0500 Received: by ug-out-1314.google.com with SMTP id 36so3427537uga.17 for ; Tue, 02 Dec 2008 08:33:13 -0800 (PST) In-Reply-To: <878wqybo5b.fsf@gollum.intra.norang.ca> (Bernt Hansen's message of "Tue, 02 Dec 2008 10:19:28 -0500") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bernt Hansen Cc: org-mode , Richard Riley Bernt Hansen writes: > Carsten Dominik 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-d= irectory))) | (let* ((project ...) (project-plist ...) (ftname ...) (publishing-funct= ion ...) (base-dir ...) (pub-dir ...) tmp-pub-dir) (setq tmp-pub-dir (file-= name-directory ...)) (if (listp publishing-function) (mapc ... publishing-f= unction) (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-publ= ish-update-timestamp filename))) | (when (org-publish-needed-p filename) (let* (... ... ... ... ... ... tm= p-pub-dir) (setq tmp-pub-dir ...) (if ... ... ...)) (org-publish-update-tim= estamp 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-se= ntinel p ...) (message "Background process \"%s\": started" p)) (call-inter= actively (nth 1 ass))) | (let* ((bg ...) (help "[t] insert the export option template\n[v] l= imit export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] e= xport 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 LaT= eX, process to PDF, and open the resulting PDF document\n[L] export as LaTe= X to temporary buffer\n\n[i] export current file as iCalendar file\n[I] exp= ort all agenda files as iCalendar files\n[c] export agenda files into combi= ned 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-t= o-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("=C6=10 @=C7=3D=83!=00=C8=C9=CA\"=88=CB=C9!=89=1AA@)=A2=CC=3D= =83!=00=C8=CD=CA\"=88=CE=0B!=88=CF =88=D0 !=88\f=83d=00=D1ed\"=0DV=83W=00eb= =88=D2=0D=A5y=88`=1E=1Bdb=88=D2=0D=A5=0DZy=88=0E=1B`|=88)=D3c=88eb=88=D4=D5= =D6 \"=88=D7=C6!=88=D4=D8!=88=D9=CA=1E=1C=1E=1D=D4=D8!=88=8A=DA =88+=D9=87"= [unread-command-char debugger-args x debugger-buffer noninteractive debugg= er-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 po= p-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" messa= ge "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-r= ead-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-d= irectory))) | (let* ((project ...) (project-plist ...) (ftname ...) (publishing-funct= ion ...) (base-dir ...) (pub-dir ...) tmp-pub-dir) (setq tmp-pub-dir (file-= name-directory ...)) (if (listp publishing-function) (mapc ... publishing-f= unction) (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-publ= ish-update-timestamp filename))) | (when (org-publish-needed-p filename) (let* (... ... ... ... ... ... tm= p-pub-dir) (setq tmp-pub-dir ...) (if ... ... ...)) (org-publish-update-tim= estamp 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-se= ntinel p ...) (message "Background process \"%s\": started" p)) (call-inter= actively (nth 1 ass))) | (let* ((bg ...) (help "[t] insert the export option template\n[v] l= imit export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] e= xport 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 LaT= eX, process to PDF, and open the resulting PDF document\n[L] export as LaTe= X to temporary buffer\n\n[i] export current file as iCalendar file\n[I] exp= ort all agenda files as iCalendar files\n[c] export agenda files into combi= ned 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-t= o-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 "" | :auto-preamble t | :auto-postamble t | :preamble ,(format "
Back - Home" rgr-home) | :postamble "
" | :author nil | ) | ("web" | :components("web-org" "web-extra") | ) | ) | ) |=20 `---- And as I say, the latest official release works fine. regards Richard.