[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emacs-wiki-discuss] Re: Planner: calendar code now works better
From: |
René |
Subject: |
[emacs-wiki-discuss] Re: Planner: calendar code now works better |
Date: |
Fri, 28 Apr 2006 10:19:47 +0000 (UTC) |
User-agent: |
Loom/3.14 (http://gmane.org/) |
Michael Olson <mwolson <at> gnu.org> writes:
> Instead of all the hook-adding cruft, now all you have to do
> is put the "<calendar>" tag exactly where you want the calendar to be
> published, whether that's the header, footer, or day page template.
I just tried it and it works although it leads to the following error when
publishing the page:
Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
insert(nil)
apply(insert nil)
muse-insert-markup(nil)
apply(muse-insert-markup nil)
(if (fboundp (quote muse-insert-markup)) (apply (quote muse-insert-markup)
args) (let (...) (apply ... args) (muse-publish-mark-read-only beg ...)))
planner-insert-markup(nil)
(let ((arrows ...) (wiki ...)) (delete-region beg end) (planner-insert-markup
"<div class=\"calendar\">\n") (planner-insert-markup (planner-calendar-from-wiki
arrows wiki)) (planner-insert-markup "</div>\n"))
planner-publish-calendar-tag(1925 #<marker at 1925 in *muse-temp*<2>
0xa92a114> nil)
apply(planner-publish-calendar-tag (1925 #<marker at 1925 in *muse-temp*<2>
0xa92a114> nil))
muse-publish-markup-tag()
muse-publish-markup("finalizing Planner page" ((200 "<\\(calendar\\)>" 0
muse-publish-markup-tag)))
planner-publish-finalize-buffer()
apply(planner-publish-finalize-buffer nil)
byte-code("..." [keyword elem list direct value style assoc signal
muse-assertion-failed (consp style) t apply throw handled :base nil muse-style
muse-get-keyword muse-style-element base muse-publishing-current-style
muse-publishing-styles func args] 6)
muse-style-run-hooks(:after (:base "my-planner-xhtml" :path
"~/muse-target/agenda"))
muse-publish-markup-buffer("index" (:base "my-planner-xhtml" :path
"~/muse-target/agenda"))
muse-publish-file("/home/jlk/muse-source/agenda/index.muse" (:base
"my-planner-xhtml" :path "~/muse-target/agenda") "~/muse-target/agenda" t)
muse-project-publish-file("/home/jlk/muse-source/agenda/index.muse" ((:base
"my-planner-xhtml" :path "~/muse-target/agenda")) t)
#<compiled-function (project &optional force) "...(223)" [pair forced-files
value muse-publishing-styles styles project muse-project-of-file assoc signal
muse-assertion-failed (consp project) nil 1 completing-read "Publish with style:
" t error "Cannot find a project to publish" muse-project-save-buffers
run-hook-with-args muse-before-project-publish-hook :force-publish
muse-project-file-alist muse-project-publish-file delete
muse-after-project-publish-hook message "All pages in %s have been published."
"No pages in %s need publishing at this time." --dolist-temp--73911
--dolist-temp--73912 published file-alist file muse-current-project direct list
muse-project-alist keyword force] 7
("/usr/share/xemacs21/site-lisp/muse-el/muse-project.elc" . 15741) (list
(muse-read-project "Publish project: " nil t)
current-prefix-arg)>(("WikiPlanner" ("~/muse-source/agenda" :default
"WelcomePage" :force-publish ("index") :major-mode planner-mode :visit-link
planner-visit-link) (:base "my-planner-xhtml" :path "~/muse-target/agenda"))
nil)
call-interactively(muse-project-publish)
recursive-edit()
byte-code("..." [buffer-read-only noninteractive debugger-buffer middlestart
debugger-args debugger-batch-max-lines pop-to-buffer debugger-mode
debugger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs
debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit
standard-output] 3)
debug(error (wrong-type-argument char-or-string-p nil))
insert(nil)
apply(insert nil)
muse-insert-markup(nil)
apply(muse-insert-markup nil)
(if (fboundp (quote muse-insert-markup)) (apply (quote muse-insert-markup)
args) (let (...) (apply ... args) (muse-publish-mark-read-only beg ...)))
planner-insert-markup(nil)
(let ((arrows ...) (wiki ...)) (delete-region beg end) (planner-insert-markup
"<div class=\"calendar\">\n") (planner-insert-markup (planner-calendar-from-wiki
arrows wiki)) (planner-insert-markup "</div>\n"))
planner-publish-calendar-tag(1925 #<marker at 1925 in *muse-temp* 0xa1e8e0c>
nil)
apply(planner-publish-calendar-tag (1925 #<marker at 1925 in *muse-temp*
0xa1e8e0c> nil))
muse-publish-markup-tag()
muse-publish-markup("finalizing Planner page" ((200 "<\\(calendar\\)>" 0
muse-publish-markup-tag)))
planner-publish-finalize-buffer()
apply(planner-publish-finalize-buffer nil)
byte-code("..." [keyword elem list direct value style assoc signal
muse-assertion-failed (consp style) t apply throw handled :base nil muse-style
muse-get-keyword muse-style-element base muse-publishing-current-style
muse-publishing-styles func args] 6)
muse-style-run-hooks(:after (:base "my-planner-xhtml" :path
"~/muse-target/agenda"))
muse-publish-markup-buffer("index" (:base "my-planner-xhtml" :path
"~/muse-target/agenda"))
muse-publish-file("/home/jlk/muse-source/agenda/index.muse" (:base
"my-planner-xhtml" :path "~/muse-target/agenda") "~/muse-target/agenda" t)
muse-project-publish-file("/home/jlk/muse-source/agenda/index.muse" ((:base
"my-planner-xhtml" :path "~/muse-target/agenda")) t)
muse-project-publish(("WikiPlanner" ("~/muse-source/agenda" :default
"WelcomePage" :force-publish ("index") :major-mode planner-mode :visit-link
planner-visit-link) (:base "my-planner-xhtml" :path "~/muse-target/agenda"))
nil)
--
René