From: Carsten Dominik <carsten.dominik@gmail.com>
To: Bernt Hansen <bernt@norang.ca>
Cc: emacs-orgmode@gnu.org
Subject: Re: Bug: Publish cache files have invalid read syntax for Emacs 22 [6.36trans (release_6.36.98.g15539)]
Date: Tue, 25 May 2010 13:43:23 +0200 [thread overview]
Message-ID: <0C98C8BE-14AA-4C79-B833-39E3AE58F7E2@gmail.com> (raw)
In-Reply-To: <87aarolk5y.fsf@gollum.intra.norang.ca>
Hi Bernt,
I believe this is fixed now.
- Carsten
On May 25, 2010, at 5:44 AM, Bernt Hansen wrote:
>
> Remember to cover the basics, that is, what you expected to happen and
> what in fact did happen. You don't know how to make a good report?
> See
>
> http://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org-mode mailing list.
> ------------------------------------------------------------------------
>
> The cache files for publishing generated by org-mode are no longer
> readable by Emacs 22.
>
> ,----[ doc-org.cache ]
> | (setq org-publish-cache
> | #<hash-table 'equal nil 74/100 0x91e7e00>)
> `----
>
> Debugger entered--Lisp error: (invalid-read-syntax "#")
> eval-buffer(#<buffer *load*> nil "/home/bernt/.org-timestamps/doc-
> org.cache" nil t) ; Reading at buffer position 28
> load-with-code-conversion("/home/bernt/.org-timestamps/doc-
> org.cache" "/home/bernt/.org-timestamps/doc-org.cache" nil nil)
> load("/home/bernt/.org-timestamps/doc-org.cache" nil nil t)
> load-file("/home/bernt/.org-timestamps/doc-org.cache")
> (if cexists (load-file cache-file))
> (let* ((cache-file ...) (cexists ...)) (if cexists (load-file cache-
> file)) (unless org-publish-cache (setq org-publish-cache ...) (org-
> publish-cache-set ":project:" project-name) (org-publish-cache-set
> ":cache-file:" cache-file)) (unless cexists (org-publish-write-cache-
> file nil)))
> (if (and org-publish-cache (string= ... project-name)) nil (when
> org-publish-cache (org-publish-reset-cache)) (let* (... ...) (if
> cexists ...) (unless org-publish-cache ... ... ...) (unless
> cexists ...)))
> (unless (and org-publish-cache (string= ... project-name)) (when
> org-publish-cache (org-publish-reset-cache)) (let* (... ...) (if
> cexists ...) (unless org-publish-cache ... ... ...) (unless
> cexists ...)))
> org-publish-initialize-cache("doc-org")
> (lambda (project) (org-publish-initialize-cache (car project))
> (let* (... ... ... ... ... ... ... ... file) (when preparation-
> function ...) (if sitemap-p ...) (while ... ...) (when ... ... ...)
> (when completion-function ...) (org-publish-write-cache-file)))
> (("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-
> directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive
> t :section_numbers nil :table-of-contents nil :base-extension
> "org" :publishing-function (org-publish-org-to-html org-publish-org-
> to-org) :plain-source t :htmlized-source t :style-include-default
> nil :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/
> css\" />" :author-info nil :creator-info nil))
> mapc((lambda (project) (org-publish-initialize-cache (car project))
> (let* (... ... ... ... ... ... ... ... file) (when preparation-
> function ...) (if sitemap-p ...) (while ... ...) (when ... ... ...)
> (when completion-function ...) (org-publish-write-cache-file)))
> (("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-
> directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive
> t :section_numbers nil :table-of-contents nil :base-extension
> "org" :publishing-function (org-publish-org-to-html org-publish-org-
> to-org) :plain-source t :htmlized-source t :style-include-default
> nil :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/
> css\" />" :author-info nil :creator-info nil) ("doc-extra" :base-
> directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www
> :~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|
> gif" :publishing-function org-publish-attachment :recursive
> t :author nil) ("doc-org-mode" :base-directory "~/git/org-mode-
> doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/
> htdocs" :recursive t :section_numbers nil :table-of-contents
> nil :base-extension "org" :publishing-function (org-publish-org-to-
> html org-publish-org-to-org) :plain-source t :htmlized-source
> t :style-include-default nil :style "<link rel=\"stylesheet\" href=
> \"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
> nil) ("doc-org-mode-extra" :base-directory "~/git/org-mode-
> doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/
> htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-
> function org-publish-attachment :recursive t :author nil)))
> org-publish-projects((("doc" :components ("doc-org" "doc-extra"
> "doc-org-mode" "doc-org-mode-extra"))))
> (let* ((org-publish-use-timestamps-flag ...)) (org-publish-projects
> (list project)))
> (save-window-excursion (let* (...) (org-publish-projects ...)))
> org-publish(("doc" :components ("doc-org" "doc-extra" "doc-org-
> mode" "doc-org-mode-extra")))
> (let ((project ...) (org-publish-use-timestamps-flag ...)) (if (not
> project) (error "File %s is not part of any known project" ...))
> (org-publish project))
> (save-window-excursion (let (... ...) (if ... ...) (org-publish
> project)))
> org-publish-current-project()
> bh/save-then-publish()
> call-interactively(bh/save-then-publish)
> recursive-edit()
> byte-code("Æ\x10 @Ç=!ÈÉÊ\"ËÉ!\x1aA@)¢Ì=!ÈÍÊ\"Î\v!Ï Ð !\fcÑ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 (void-function string-match-p))
> (string-match-p "^//" str)
> (and type (string-match-p "^//" str))
> (if (and type (string-match-p "^//" str)) (concat type ":" str) str)
> (let ((str ...)) (if (and type ...) (concat type ":" str) str))
> (setq thefile (let (...) (if ... ... str)))
> (let* ((filename path) (components-1 ...) (components-2 ...)
> (type ...) (thefile ...)) (cond (... ...) (t)) (setq thefile
> (let ... ...)) (if (and may-inline-p ...) (progn ... ...) (concat
> "<a href=\"" thefile "\"" attr ">" ... "</a>")))
> (progn (let* (... ... ... ... ...) (cond ... ...) (setq
> thefile ...) (if ... ... ...)))
> (unwind-protect (progn (let* ... ... ... ...)) (set-match-data save-
> match-data-internal (quote evaporate)))
> (let ((save-match-data-internal ...)) (unwind-protect (progn ...)
> (set-match-data save-match-data-internal ...)))
> (save-match-data (let* (... ... ... ... ...) (cond ... ...) (setq
> thefile ...) (if ... ... ...)))
> org-html-make-link((:latex-image-options "width=10em" :exclude-tags
> ("noexport") :select-tags ("export") :email
> "bernt@norang.ca" :author "Bernt Hansen" :auto-postamble t :auto-
> preamble t :postamble nil :preamble nil :publishing-directory "/ssh:www-data@www
> :~/doc.norang.ca/htdocs" :timestamp nil :expand-quoted-html t :html-
> table-tag "<table border=\"2\" cellspacing=\"0\" cellpadding=\"6\"
> rules=\"groups\" frame=\"hsides\">" :xml-declaration (("html" . "<?
> xml version=\"1.0\" encoding=\"%s\"?>") ("php" . "<?php echo \"<?xml
> version=\\\"1.0\\\" encoding=\\\"%s\\\" ?>\"; ?>")) :html-extension
> "html" :inline-images t :convert-org-links t :agenda-style "" :style-
> extra "<link rel=\"stylesheet\" href=\"http://doc.norang.ca/org.css
> \" type=\"text/css\" />" :style "<link rel=\"stylesheet\" href=\"/
> org.css\" type=\"text/css\" />" :style-include-scripts t :style-
> include-default nil :table-auto-headline t :tables t :time-stamp-
> file t ...) "file"
> #("cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png" 0 4 (org-attr
> nil face org-link org-label nil org-attributes nil org-caption nil
> font-lock-fontified t fontified t org-protected t org-no-description
> t) 4 40 (org-attr nil face org-link org-label nil org-attributes nil
> org-caption nil org-protected t org-no-description t) 40 46 (org-
> attr nil face org-link org-label nil org-attributes nil org-caption
> nil org-protected t org-no-description t) 46 49 (org-attr nil face
> org-link org-label nil org-attributes nil org-caption nil font-lock-
> fontified t fontified t org-protected t org-no-description t)) nil
> #("cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png" 0 4 (face org-
> link fontified t font-lock-fontified t org-caption nil org-
> attributes nil org-label nil) 4 40 (face org-link org-caption nil
> org-attributes nil org-label nil) 40 46 (face org-link org-caption
> nil org-attributes nil org-label nil) 46 49 (face org-link fontified
> t font-lock-fontified t org-caption nil org-attributes nil org-label
> nil)) nil 45)
> (if (and (functionp link-validate) (not ...)) desc (org-html-make-
> link opt-plist "file" path-1 fragment-1 desc-2 attr (org-html-should-
> inline-p path-1 descp)))
> (setq rpl (if (and ... ...) desc (org-html-make-link opt-plist
> "file" path-1 fragment-1 desc-2 attr ...)))
> (let* ((components ...) (path-1 ...) (fragment-0 ...)
> (fragment-1 ...) (desc-2 ...)) (setq rpl (if ... desc ...)))
> (progn (let* (... ... ... ... ...) (setq rpl ...)))
> (unwind-protect (progn (let* ... ...)) (set-match-data save-match-
> data-internal (quote evaporate)))
> (let ((save-match-data-internal ...)) (unwind-protect (progn ...)
> (set-match-data save-match-data-internal ...)))
> (save-match-data (let* (... ... ... ... ...) (setq rpl ...)))
> (cond ((equal type "internal") (let ... ...)) ((and ... ...) (save-
> match-data ... ...)) ((member type ...) (setq rpl ...)) ((member
> type ...) (setq rpl ...)) ((string= type "coderef") (let* ... ...))
> ((functionp ...) (setq rpl ...)) ((string= type "file") (save-match-
> data ...)) (t (setq rpl ...)))
> (while (string-match org-bracket-link-analytic-regexp++ line start)
> (setq start (match-beginning 0)) (setq path (save-match-data ...))
> (setq type (cond ... ... ...)) (setq path (org-extract-
> attributes ...)) (setq attr (get-text-property 0 ... path)) (setq
> desc1 (if ... ...) desc2 (if ... ... path) descp (and desc1 ...)
> desc (or desc1 desc2)) (cond (... ...) (... ...) (... ...) (... ...)
> (... ...) (... ...) (... ...) (t ...)) (setq line (replace-match rpl
> t t line) start (+ start ...)))
> (catch (quote nextline) (when (and inquote ...) (insert "</pre>\n")
> (org-open-par) (setq inquote nil)) (when inquote (insert ... "\n")
> (throw ... nil)) (when (and org-export-with-fixed-width ...)
> (when ... ... ... ...) (insert ... "\n") (when ... ... ... ...)
> (throw ... nil)) (org-export-html-close-lists-maybe line) (when (get-
> text-property 0 ... line) (let ... ... ... ... ...) (throw ... nil))
> (when (equal "ORG-BLOCKQUOTE-START" line) (org-close-par-maybe)
> (insert "<blockquote>\n") (org-open-par) (throw ... nil)) (when
> (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe) (insert "\n</
> blockquote>\n") (org-open-par) (throw ... nil)) (when (equal "ORG-
> VERSE-START" line) (org-close-par-maybe) (insert "\n<p class=\"verse
> \">\n") (setq org-par-open t) (setq inverse t) (throw ... nil))
> (when (equal "ORG-VERSE-END" line) (insert "</p>\n") (setq org-par-
> open nil) (org-open-par) (setq inverse nil) (throw ... nil)) (when
> (equal "ORG-CENTER-START" line) (org-close-par-maybe) (insert
> "\n<div style=\"text-align: center\">") (org-open-par) (throw ...
> nil)) (when (equal "ORG-CENTER-END" line) (org-close-par-maybe)
> (insert "\n</div>") (org-open-par) (throw ... nil)) (run-hooks
> (quote org-export-html-after-blockquotes-hook)) (when inverse
> (let ... ... ...)) (setq start 0) (while (string-match "<<<?\\([^<>]*
> \\)>>>?\\((INVISIBLE)\\)?[ ]*\n?" line start)
> (cond ... ... ... ...)) (setq line (org-html-handle-time-stamps
> line)) (or (string-match org-table-hline-regexp line) (setq
> line ...)) (setq start 0) (while (string-match org-bracket-link-
> analytic-regexp++ line start) (setq start ...) (setq path ...) (setq
> type ...) (setq path ...) (setq attr ...) (setq desc1 ... desc2 ...
> descp ... desc ...) (cond ... ... ... ... ... ... ... ...) (setq
> line ... start ...)) (if (and ... ...) (setq line ...)) (when org-
> export-with-footnotes (setq start 0) (while ... ...)) (cond
> (... ... ... ... ... ... ... ...) (... ... ...) (... ... ... ...)
> (t ... ... ... ... ... ... ...)))
> (while (setq line (pop lines) origline line) (catch (quote
> nextline) (when ... ... ... ...) (when inquote ... ...)
> (when ... ... ... ... ...) (org-export-html-close-lists-maybe line)
> (when ... ... ...) (when ... ... ... ... ...)
> (when ... ... ... ... ...) (when ... ... ... ... ... ...)
> (when ... ... ... ... ... ...) (when ... ... ... ... ...)
> (when ... ... ... ... ...) (run-hooks ...) (when inverse ...) (setq
> start 0) (while ... ...) (setq line ...) (or ... ...) (setq start 0)
> (while ... ... ... ... ... ... ... ... ...) (if ... ...) (when org-
> export-with-footnotes ... ...) (cond ... ... ... ...)))
> (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc
> (lambda ... ...) org-export-plist-vars) (setq umax (if arg ... org-
> export-headline-levels)) (setq umax-toc (if ... ... umax)) (unless
> body-only (insert ...) (org-export-html-insert-plist-item opt-
> plist :preamble opt-plist) (when ... ...)) (if (and org-export-with-
> toc ...) (progn ... ... ... ... ... ... ...)) (setq head-count 0)
> (org-init-section-numbers) (org-open-par) (while (setq line ...
> origline line)
> (catch
> ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (when
> inquote (insert "</pre>\n") (org-open-par)) (when in-local-list
> (while local-list-type ... ... ...) (setq local-list-indent nil in-
> local-list nil)) (org-html-level-start 1 nil umax (and org-export-
> with-toc ...) head-count) (when (and ... first-heading-pos) (insert
> "</div>\n")) (save-excursion (goto-char ...) (while ... ... ...))
> (when footnotes (insert ... "\n")) (let (...) (when bib ...))
> (unless body-only (when ... ... ... ... ... ... ...) (if org-export-
> html-with-timestamp ...) (org-export-html-insert-plist-item opt-
> plist :postamble opt-plist) (insert "\n</div>\n</body>\n</html>\n"))
> (unless (plist-get opt-plist :buffer-will-be-killed) (normal-mode)
> (if ... ...)) (goto-char (point-min)) (when thetoc
> (if ... ... ... ...) (insert "<div id=\"table-of-contents\">\n")
> (mapc ... thetoc) (insert "</div>\n")) (goto-char (point-min))
> (while (re-search-forward "<p>[
> \n ]*</p>" nil t) (replace-match "")) (goto-char (point-min)) (while
> (re-search-forward "<li>[
> \n ]*</li>\n?" nil t) (replace-match "")) (goto-char (point-min))
> (while (re-search-forward "</ul>\\s-*<ul>\n?" nil t) (replace-match
> "")) (goto-char (point-min)) (let (beg end n)
> (while ... ... ... ... ...)) (goto-char (point-min)) (when (looking-
> at "\\s-+\n") (replace-match "")) (remove-text-properties (point-
> min) (point-max) (quote ...)) (run-hooks (quote org-export-html-
> final-hook)) (or to-buffer (save-buffer)) (goto-char (point-min))
> (or (org-export-push-to-kill-ring "HTML") (message "Exporting...
> done")) (if (eq to-buffer ...) (prog1 ... ...) (current-buffer)))
> (let* ((opt-plist ...) (body-only ...) (style ...) (html-
> extension ...) (link-validate ...) valid thetoc have-headings first-
> heading-pos (odd org-odd-levels-only) (region-p ...) (rbeg ...)
> (rend ...) (subtree-p ...) (level-offset ...) (opt-plist ...) (org-
> current-export-dir ...) (org-current-export-file buffer-file-name)
> (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil)
> (filename ...) (current-dir ...) (buffer ...) (org-levels-open ...)
> (date ...) (author ...) (title ...) (link-up ...) (link-home ...)
> (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...)
> (inquote nil) (infixed nil) (inverse nil) (in-local-list nil) (local-
> list-type nil) (local-list-indent nil) (llt org-plain-list-ordered-
> item-terminator) (email ...) (language ...) (keywords ...)
> (description ...) (lang-words nil) ...) (let (...) (org-
> unmodified ...)) (message "Exporting...") (setq org-min-level (org-
> get-min-level lines level-offset)) (setq org-last-level org-min-
> level) (org-init-section-numbers) (cond (... ...) (date) (t ...))
> (setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-
> buffer)) (fundamental-mode) (org-install-letbind) (and (fboundp ...)
> (set-buffer-file-coding-system coding-system-for-write)) (let
> (... ...) (mapc ... org-export-plist-vars) (setq umax ...) (setq
> umax-toc ...) (unless body-only ... ... ...) (if ... ...) (setq head-
> count 0) (org-init-section-numbers) (org-open-par) (while ... ...)
> (when inquote ... ...) (when in-local-list ... ...) (org-html-level-
> start 1 nil umax ... head-count) (when ... ...) (save-
> excursion ... ...) (when footnotes ...) (let ... ...) (unless body-
> only ... ... ... ...) (unless ... ... ...) (goto-char ...) (when
> thetoc ... ... ... ...) (goto-char ...) (while ... ...) (goto-
> char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-
> char ...) (let ... ...) (goto-char ...) (when ... ...) (remove-text-
> properties ... ... ...) (run-hooks ...) (or to-buffer ...) (goto-
> char ...) (or ... ...) (if ... ... ...)))
> org-export-as-html(nil nil (:buffer-will-be-killed t :base-
> directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www
> :~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-
> contents nil :base-extension "org" :publishing-function (org-publish-
> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source
> t :style-include-default nil :style "<link rel=\"stylesheet\" href=
> \"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
> nil) nil nil "/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/")
> funcall(org-export-as-html nil nil (:buffer-will-be-killed t :base-
> directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www
> :~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-
> contents nil :base-extension "org" :publishing-function (org-publish-
> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source
> t :style-include-default nil :style "<link rel=\"stylesheet\" href=
> \"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
> nil) nil nil "/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/")
> (setq export-buf-or-file (funcall (intern ...) (plist-get
> plist :headline-levels) nil plist nil nil pub-dir))
> (let* ((plist ...) (init-buf ...) (init-point ...) (init-buf-
> string ...) export-buf-or-file) (run-hooks (quote org-publish-before-
> export-hook)) (setq export-buf-or-file (funcall ... ... nil plist
> nil nil pub-dir)) (when (and ... ...) (set-buffer export-buf-or-
> file) (progn ... ...) (kill-buffer export-buf-or-file)) (set-buffer
> init-buf) (when (buffer-modified-p init-buf) (erase-buffer) (insert
> init-buf-string) (save-buffer) (goto-char init-point)) (unless
> visiting (kill-buffer init-buf)))
> (save-excursion (switch-to-buffer (or visiting ...)) (let*
> (... ... ... ... export-buf-or-file) (run-hooks ...) (setq export-
> buf-or-file ...) (when ... ... ... ...) (set-buffer init-buf)
> (when ... ... ... ... ...) (unless visiting ...)))
> (let ((visiting ...)) (save-excursion (switch-to-buffer ...)
> (let* ... ... ... ... ... ... ...)))
> org-publish-org-to("html" (:base-directory "~/git/
> doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/
> doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-
> contents nil :base-extension "org" :publishing-function (org-publish-
> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source
> t :style-include-default nil :style "<link rel=\"stylesheet\" href=
> \"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
> nil) "/home/bernt/git/doc.norang.ca/wiring.org" "/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/
> ")
> (let ((org-export-preprocess-after-headline-targets-hook ...)) (org-
> publish-org-to "html" plist filename pub-dir))
> (org-publish-with-aux-preprocess-maybe (org-publish-org-to "html"
> plist filename pub-dir))
> org-publish-org-to-html((:base-directory "~/git/
> doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/
> doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-
> contents nil :base-extension "org" :publishing-function (org-publish-
> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source
> t :style-include-default nil :style "<link rel=\"stylesheet\" href=
> \"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
> nil) "/home/bernt/git/doc.norang.ca/wiring.org" "/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/
> ")
> funcall(org-publish-org-to-html (:base-directory "~/git/
> doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/
> doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-
> contents nil :base-extension "org" :publishing-function (org-publish-
> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source
> t :style-include-default nil :style "<link rel=\"stylesheet\" href=
> \"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
> nil) "/home/bernt/git/doc.norang.ca/wiring.org" "/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/
> ")
> (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-
> update-timestamp filename pub-dir f))
> (if (org-publish-needed-p filename pub-dir f tmp-pub-dir) (progn
> (funcall f project-plist filename tmp-pub-dir) (org-publish-update-
> timestamp filename pub-dir f)))
> (when (org-publish-needed-p filename pub-dir f tmp-pub-dir)
> (funcall f project-plist filename tmp-pub-dir) (org-publish-update-
> timestamp filename pub-dir f))
> (lambda (f) (when (org-publish-needed-p filename pub-dir f tmp-pub-
> dir) (funcall f project-plist filename tmp-pub-dir) (org-publish-
> update-timestamp filename pub-dir f)))(org-publish-org-to-html)
> mapc((lambda (f) (when (org-publish-needed-p filename pub-dir f tmp-
> pub-dir) (funcall f project-plist filename tmp-pub-dir) (org-publish-
> update-timestamp filename pub-dir f))) (org-publish-org-to-html org-
> publish-org-to-org))
> (if (listp publishing-function) (mapc (lambda ... ...) publishing-
> function) (when (org-publish-needed-p filename pub-dir publishing-
> function tmp-pub-dir) (funcall publishing-function project-plist
> filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir
> publishing-function)))
> (let* ((project ...) (project-plist ...) (ftname ...) (publishing-
> function ...) (base-dir ...) (pub-dir ...) tmp-pub-dir) (unless no-
> cache (org-publish-initialize-cache ...)) (setq tmp-pub-dir (file-
> name-directory ...)) (if (listp publishing-function) (mapc ...
> publishing-function) (when ... ... ...)) (unless no-cache (org-
> publish-write-cache-file)))
> org-publish-file("/home/bernt/git/doc.norang.ca/wiring.org" ("doc-
> org" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www
> :~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-
> contents nil :base-extension "org" :publishing-function (org-publish-
> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source
> t :style-include-default nil :style "<link rel=\"stylesheet\" href=
> \"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
> nil) t)
> (while (setq file (pop files)) (org-publish-file file project t))
> (let* ((project-plist ...) (exclude-regexp ...) (sitemap-p ...)
> (sitemap-filename ...) (sitemap-function ...) (preparation-
> function ...) (completion-function ...) (files ...) file) (when
> preparation-function (run-hooks ...)) (if sitemap-p (funcall sitemap-
> function project sitemap-filename)) (while (setq file ...) (org-
> publish-file file project t)) (when (plist-get project-
> plist :makeindex) (org-publish-index-generate-theindex\.inc ...)
> (org-publish-file ... project t)) (when completion-function (run-
> hooks ...)) (org-publish-write-cache-file))
> (lambda (project) (org-publish-initialize-cache (car project))
> (let* (... ... ... ... ... ... ... ... file) (when preparation-
> function ...) (if sitemap-p ...) (while ... ...) (when ... ... ...)
> (when completion-function ...) (org-publish-write-cache-file)))
> (("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-
> directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive
> t :section_numbers nil :table-of-contents nil :base-extension
> "org" :publishing-function (org-publish-org-to-html org-publish-org-
> to-org) :plain-source t :htmlized-source t :style-include-default
> nil :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/
> css\" />" :author-info nil :creator-info nil))
> mapc((lambda (project) (org-publish-initialize-cache (car project))
> (let* (... ... ... ... ... ... ... ... file) (when preparation-
> function ...) (if sitemap-p ...) (while ... ...) (when ... ... ...)
> (when completion-function ...) (org-publish-write-cache-file)))
> (("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-
> directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive
> t :section_numbers nil :table-of-contents nil :base-extension
> "org" :publishing-function (org-publish-org-to-html org-publish-org-
> to-org) :plain-source t :htmlized-source t :style-include-default
> nil :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/
> css\" />" :author-info nil :creator-info nil) ("doc-extra" :base-
> directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www
> :~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|
> gif" :publishing-function org-publish-attachment :recursive
> t :author nil) ("doc-org-mode" :base-directory "~/git/org-mode-
> doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/
> htdocs" :recursive t :section_numbers nil :table-of-contents
> nil :base-extension "org" :publishing-function (org-publish-org-to-
> html org-publish-org-to-org) :plain-source t :htmlized-source
> t :style-include-default nil :style "<link rel=\"stylesheet\" href=
> \"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
> nil) ("doc-org-mode-extra" :base-directory "~/git/org-mode-
> doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/
> htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-
> function org-publish-attachment :recursive t :author nil)))
> org-publish-projects((("doc" :components ("doc-org" "doc-extra"
> "doc-org-mode" "doc-org-mode-extra"))))
> (let* ((org-publish-use-timestamps-flag ...)) (org-publish-projects
> (list project)))
> (save-window-excursion (let* (...) (org-publish-projects ...)))
> org-publish(("doc" :components ("doc-org" "doc-extra" "doc-org-
> mode" "doc-org-mode-extra")))
> (let ((project ...) (org-publish-use-timestamps-flag ...)) (if (not
> project) (error "File %s is not part of any known project" ...))
> (org-publish project))
> (save-window-excursion (let (... ...) (if ... ...) (org-publish
> project)))
> org-publish-current-project()
> bh/save-then-publish()
> call-interactively(bh/save-then-publish)
>
>
> Emacs : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
> of 2008-11-09 on raven, modified by Debian
> Package: Org-mode version 6.36trans (release_6.36.98.g15539)
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
- Carsten
next prev parent reply other threads:[~2010-05-25 11:43 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-05-25 3:44 Bug: Publish cache files have invalid read syntax for Emacs 22 [6.36trans (release_6.36.98.g15539)] Bernt Hansen
2010-05-25 11:43 ` Carsten Dominik [this message]
2010-05-25 12:24 ` Bernt Hansen
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=0C98C8BE-14AA-4C79-B833-39E3AE58F7E2@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
/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).