-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Michael Olson wrote:
> "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> writes:
>
>> Hello!
>>
>> Thanks for planner!
>>
>> In order to publish plan-files at all I have to publish in html format
>> ( (:base "html" ...) instead of planner-html format. The bare html
>> format does not make new lines between tasks. Read somewhere that
>> Planner 3.41 and Muse 3.03 not was compatible. Which versions are
>> compatible? Where can I get them? Also read that there is bug fix for
>> this i debian package. I do not use Debian. Can anyone help me with
>> this.
>
> All is explained at
> <http://emacswiki.org/cgi-bin/wiki/PlannerModeQuickStart>.
>
- -
Hello and thanks for your answer!
I am sorry to say but I still got the same error when using the
devlopment version of planner + muse 3.03 + emacs22 on windows and using
publishing format planner-html. Pubslishing in format "html" still works
the same way as before.
Backtrace (with paths changed):
"Debugger entered--Lisp error: (wrong-type-argument integerp nil)
char-syntax(nil)
(eq 32 (char-syntax (char-after)))
(while (eq 32 (char-syntax ...)) (delete-char 1))
(save-restriction (narrow-to-region beg end) (goto-char (point-min))
(while (eq 32 ...) (delete-char 1)) (while (< ... ...) (insert "> ")
(forward-line)) (if (eq 32 ...) (delete-char -1)))
(save-excursion (save-restriction (narrow-to-region beg end)
(goto-char ...) (while ... ...) (while ... ... ...) (if ... ...)))
muse-publish-verse-tag(64 #<marker at 65 in *muse-temp*>)
(save-excursion (goto-char beg) (planner-insert-markup
(muse-markup-text ...)) (forward-line 1) (muse-publish-verse-tag (point)
end) (goto-char end) (planner-insert-markup (muse-markup-text ...)))
planner-publish-diary-section-tag(1 #<marker at 65 in *muse-temp*>)
apply(planner-publish-diary-section-tag (1 #<marker at 65 in
*muse-temp*>))
(let ((muse-inhibit-style-tags nil)) (apply (nth 4 tag-info) args))
(let ((args ...)) (if (nth 2 tag-info) (nconc args ...)) (let (...)
(apply ... args)))
(progn (setq end (point-marker)) (delete-region start beg) (goto-char
start) (let (...) (if ... ...) (let ... ...)))
(if tag-info (progn (setq end ...) (delete-region start beg)
(goto-char start) (let ... ... ...)))
(when tag-info (setq end (point-marker)) (delete-region start beg)
(goto-char start) (let (...) (if ... ...) (let ... ...)))
(let ((closed-tag ...) (start ...) (beg ...) end attrs) (when (nth 2
tag-info) (let ... ...)) (if (and ... ...) (if ... ... ...)) (when
tag-info (setq end ...) (delete-region start beg) (goto-char start) (let
... ... ...)))
(progn (let (... ... ... end attrs) (when ... ...) (if ... ...) (when
tag-info ... ... ... ...)))
(if (and tag-info (not ...)) (progn (let ... ... ... ...)))
(when (and tag-info (not ...)) (let (... ... ... end attrs) (when ...
...) (if ... ...) (when tag-info ... ... ... ...)))
(let ((tag-info ...)) (when (and tag-info ...) (let ... ... ... ...)))
muse-publish-markup-tag()
funcall(muse-publish-markup-tag)
(cond ((and ... ...) (funcall func)) ((functionp repl) (funcall repl))
((symbolp repl) (symbol-value repl)) (t repl))
(let* (func (text ...)) (if (stringp text) (replace-match text t)))
(if (and (> ... 0) (match-beginning group) (get-text-property ...
...)) nil (let* (func ...) (if ... ...)))
(unless (and (> ... 0) (match-beginning group) (get-text-property ...
...)) (let* (func ...) (if ... ...)))
(while (and regexp (setq pos ...)) (if (and verbose ...) (message
"Publishing %s...%d%%" name ...)) (unless (and ... ... ...) (let* ...
...)) (if (and muse-publishing-last-position ...) (if ... ... ...))
(setq muse-publishing-last-position pos))
(let ((regexp ...) (group ...) (repl ...) pos) (setq
muse-publishing-last-position nil) (if (symbolp regexp) (setq regexp
...)) (if (and verbose ...) (message "Publishing %s...%d%%" name ...))
(while (and regexp ...) (if ... ...) (unless ... ...) (if ... ...) (setq
muse-publishing-last-position pos)))
(while rules (goto-char (point-min)) (let (... ... ... pos) (setq
muse-publishing-last-position nil) (if ... ...) (if ... ...) (while ...
... ... ... ...)) (setq rules (cdr rules) base (+ base ...)))
(let* ((case-fold-search nil) (inhibit-read-only t) (limit ...)
(verbose ...) (base 0)) (while rules (goto-char ...) (let ... ... ...
... ...) (setq rules ... base ...)) (if (and verbose ...) (message
"Publishing %s...done" name)))
muse-publish-markup("2007.07.30" ((1000 "\\(\\`\n+\\|\n+\\'\\)" 0 "")
(1100 "[[:blank:]]+$" 0 "") (1200 "\\`#\\([a-zA-Z-]+\\)\\s-+\\(.+\\)\n+"
0 directive) (1250 "^;\\(?:[[:blank:]]+\\(.+\\)\\|$\\|'\\)" 0 comment)
(1270 planner-id-regexp 0 "") (1275
"^#\\([A-C]\\)\\([0-9]*\\)\\s-*\\([_oXDCP]\\)\\s-*\\(.+\\)" 0 task)
(1280 "^\\.#[0-9]+\\s-*" 0 note) (1300 muse-tag-regexp 0 tag) (1400
muse-explicit-link-regexp 0 muse-publish-mark-link) (1600
"\\(^\\|[-[[:blank:]<('`\"\n]\\)\\(=[^=[:blank:]\n]\\|_[^_[:blank:]\n]\\|\\*+[^*[:blank:]\n]\\)"
2 word) (1700 "^\\(\\*+\\)\\s-+" 0 heading) (1800 "\\.\\.\\.\\." 0
enddots) (1850 "\\.\\.\\." 0 dots) (1900 "^----+" 0 rule) (1950 "~~" 0
no-break-space) (2000 "^Footnotes:?\\s-*" 0 fn-sep) (2100
"\\[\\([1-9][0-9]*\\)\\]" 0 footnote) (2200
"^[[:blank:]]*\\(\\([^\n[:blank:]].*?\\)?::\\(?:[[:blank:]]+\\|$\\)\\|[[:blank:]]-[[:blank:]]*\\|[[:blank:]][0-9]+\\.[[:blank:]]*\\)"
0 list) (2300
"[[:blank:]]*\\+\\(-*\\+\\)+[[:blank:]]*\n\\(\\(.*[[:blank:]]+\\(|+\\)\\(?:[[:blank:]]\\|$\\).*\n\\)+\\([[:blank:]]*\\+\\(-*\\+\\)+[[:blank:]]*\\)\\(\n\\|\\'\\)\\)+"
0 table-el) (2350
"\\(\\([[:blank:]]*\n\\)?\\(\\(?:.*[[:blank:]]+\\(|+\\)\\(?:[[:blank:]]\\|$\\).*\\|[[:blank:]]*|[-+]+|[[:blank:]]*\\)\\(?:\n\\|\\'\\)\\)\\)+"
0 table) (2400 "^\\([[:blank:]]+\\).+" 0 quote) (2500
"\\(^\\|[[:blank:]]*\\)--\\($\\|[[:blank:]]*\\)" 0 emdash) (2600
"^[[:blank:]]*> " 0 verse) (2700 "^\\(\\W*\\)#\\(\\S-+\\)\\s-*" 0
anchor) (2900 muse-explicit-link-regexp 0 link) (3000 muse-url-regexp 0
url) (3100 muse-wiki-interwiki-regexp 0 link) (3200
muse-wiki-wikiword-regexp 0 link) (3200 planner-date-regexp 0 link)
(3250 muse-wiki-project-file-regexp 0 link) (3300 "''''" 0 "") (3500
"\\([^[]\\)[EMAIL PROTECTED]([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" 0
email) (10000
"\\(\\(\n\\(?:[[:blank:]]*\n\\)*\\([[:blank:]]*\n\\)\\)\\|\\`\\s-*\\|\\s-*\\'\\)"
3 muse-html-markup-paragraph)))
(let ((muse-publish-generate-contents nil)) (unless
muse-publish-inhibit-style-hooks (muse-style-run-hooks :before style))
(muse-publish-markup title (sort ... ...)) (unless
muse-publish-inhibit-style-hooks (muse-style-run-hooks :before-end
style)) (muse-publish-escape-specials (point-min) (point-max) nil (quote
document)))
(save-restriction (narrow-to-region beg end) (let (...) (unless
muse-publish-inhibit-style-hooks ...) (muse-publish-markup title ...)
(unless muse-publish-inhibit-style-hooks ...)
(muse-publish-escape-specials ... ... nil ...)) (goto-char (point-max)))
muse-publish-markup-region(1 129 "2007.07.30" (:base "planner-html"
:path "c:/pathtopublishplace/Wiki"))
(let ((style-header ...) (style-footer ...)
(muse-publishing-current-style style) (muse-publishing-directives ...)
(muse-publishing-p t) (inhibit-read-only t)) (run-hooks (quote
muse-update-values-hook)) (run-hooks (quote muse-before-publish-hook))
(muse-publish-markup-region (point-min) (point-max) title style)
(goto-char (point-min)) (when style-header (muse-insert-file-or-string
style-header title)) (goto-char (point-max)) (when style-footer
(muse-insert-file-or-string style-footer title)) (muse-style-run-hooks
:after style) (run-hooks (quote muse-after-publish-hook)))
muse-publish-markup-buffer("2007.07.30" (:base "planner-html" :path
"c:/pathtopublishplace/Wiki"))
(save-current-buffer (set-buffer temp-buffer) (insert-file-contents
file) (muse-publish-markup-buffer (muse-page-name file) style) (let
(...) (write-file output-path)) (muse-style-run-hooks :final style file
output-path target))
(with-current-buffer temp-buffer (insert-file-contents file)
(muse-publish-markup-buffer (muse-page-name file) style) (let (...)
(write-file output-path)) (muse-style-run-hooks :final style file
output-path target))
(if debug-on-error (with-current-buffer temp-buffer
(insert-file-contents file) (muse-publish-markup-buffer ... style) (let
... ...) (muse-style-run-hooks :final style file output-path target))
(condition-case err (with-current-buffer temp-buffer ... ... ... ...)
(error ...)))
(unwind-protect (if debug-on-error (with-current-buffer temp-buffer
... ... ... ...) (condition-case err ... ...)) (when (buffer-live-p
temp-buffer) (with-current-buffer temp-buffer ...) (unless
debug-on-error ...)))
(let ((temp-buffer ...)) (unwind-protect (if debug-on-error ... ...)
(when ... ... ...)))
(muse-with-temp-buffer (insert-file-contents file)
(muse-publish-markup-buffer (muse-page-name file) style) (let (...)
(write-file output-path)) (muse-style-run-hooks :final style file
output-path target))
(progn (if (and muse-publish-report-threshhold ...) (message
"Publishing %s ..." file)) (muse-with-temp-buffer (insert-file-contents
file) (muse-publish-markup-buffer ... style) (let ... ...)
(muse-style-run-hooks :final style file output-path target)) t)
(if (or force (file-newer-than-file-p file target)) (progn (if ...
...) (muse-with-temp-buffer ... ... ... ...) t))
(when (or force (file-newer-than-file-p file target)) (if (and
muse-publish-report-threshhold ...) (message "Publishing %s ..." file))
(muse-with-temp-buffer (insert-file-contents file)
(muse-publish-markup-buffer ... style) (let ... ...)
(muse-style-run-hooks :final style file output-path target)) t)
(if (not threshhold) (message "Please save %s before publishing" file)
(when (or force ...) (if ... ...) (muse-with-temp-buffer ... ... ...
...) t))
(let* ((output-path ...) (output-suffix ...)
(muse-publishing-current-file file) (muse-publishing-current-output-path
output-path) (target ...) (threshhold ...)) (if (not threshhold)
(message "Please save %s before publishing" file) (when ... ... ... t)))
muse-publish-file("c:/pathtoplans/Plans/2007.07.30" (:base
"planner-html" :path "c:/pathtopublishplace/Wiki")
"c:/pathtopublishplace/Wiki" nil)
muse-project-publish-file-default("c:/pathtoplans/Plans/2007.07.30"
(:base "planner-html" :path "c:/pathtopublishplace/Wiki")
"c:/pathtopublishplace/Wiki" nil)
funcall(muse-project-publish-file-default
"c:/pathtoplans/Plans/2007.07.30" (:base "planner-html" :path
"c:/pathtopublishplace/Wiki") "c:/pathtopublishplace/Wiki" nil)
(if (funcall fun file style output-dir force) (progn (setq published t)))
(when (funcall fun file style output-dir force) (setq published t))
(let ((output-dir ...) (muse-current-output-style style) (fun ...))
(when (funcall fun file style output-dir force) (setq published t)))
(if (or (not ...) (not ...)) (muse-display-warning (concat "Skipping
malformed muse-project-alist style." "\nPlease double-check your
configuration,")) (let (... ... ...) (when ... ...)))
(while --cl-dolist-temp-- (setq style (car --cl-dolist-temp--)) (if
(or ... ...) (muse-display-warning ...) (let ... ...)) (setq
- --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- styles) style) (while --cl-dolist-temp--
(setq style ...) (if ... ... ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... style) (while
- --cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... style) (while --cl-dolist-temp-- ... ... ...) nil))
(dolist (style styles) (if (or ... ...) (muse-display-warning ...)
(let ... ...)))
(let (published) (dolist (style styles) (if ... ... ...)) published)
muse-project-publish-file("c:/pathtoplans/Plans/2007.07.30" ((:base
"planner-html" :path "c:/pathtopublishplace/Wiki")) nil)
(if (muse-project-publish-file (cdr pair) styles force) (progn (setq
forced-files ...) (setq published t)))
(when (muse-project-publish-file (cdr pair) styles force) (setq
forced-files (delete ... forced-files)) (setq published t))
(while --cl-dolist-temp-- (setq pair (car --cl-dolist-temp--)) (when
(muse-project-publish-file ... styles force) (setq forced-files ...)
(setq published t)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- file-alist) pair) (while --cl-dolist-temp--
(setq pair ...) (when ... ... ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... pair) (while
- --cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... pair) (while --cl-dolist-temp-- ... ... ...) nil))
(dolist (pair file-alist) (when (muse-project-publish-file ... styles
force) (setq forced-files ...) (setq published t)))
(let ((forced-files ...) (file-alist ...)) (dolist (pair file-alist)
(when ... ... ...)) (dolist (file forced-files)
(muse-project-publish-file ... styles t)))
(let ((published nil)) (let (... ...) (dolist ... ...) (dolist ...
...)) (run-hook-with-args (quote muse-after-project-publish-hook)
project) (if published (message "All pages in %s have been published."
...) (message "No pages in %s need publishing at this time." ...)))
muse-project-publish-default(("WikiPlanner" ("c:/pathtoplans/Plans"
:default "index" :major-mode planner-mode :visit-link
planner-visit-link) (:base "planner-html" :path
"c:/pathtopublishplace/Wiki")) ((:base "planner-html" :path
"c:/pathtopublishplace/Wiki")) nil)
funcall(muse-project-publish-default ("WikiPlanner"
("c:/pathtoplans/Plans" :default "index" :major-mode planner-mode
:visit-link planner-visit-link) (:base "planner-html" :path
"c:/pathtopublishplace/Wiki")) ((:base "planner-html" :path
"c:/pathtopublishplace/Wiki")) nil)
(let ((fun ...)) (funcall fun project styles force))
(let ((styles ...) (muse-current-project project)) (unless styles
(setq styles ...)) (unless project (error "Cannot find a project to
publish")) (muse-project-save-buffers project) (run-hook-with-args
(quote muse-before-project-publish-hook) project) (let (...) (funcall
fun project styles force)))
muse-project-publish(("WikiPlanner" ("c:/pathtoplans/Plans" :default
"index" :major-mode planner-mode :visit-link planner-visit-link) (:base
"planner-html" :path "c:/pathtopublishplace/Wiki")) nil)
call-interactively(muse-project-publish)
"
Best wishes
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFGpyWLSAoi+pXAbh0RApSPAKCzImgA1r+ykiA9t9EjlTMEELRVnACffCDn
oNbGp/++e2dieMv2OoZXxBM=
=244I
-----END PGP SIGNATURE-----
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
