Re: [emacs-wiki-discuss] Re: How to publish the literal "<<" or ">>" with planner-calendar-prev-date-href-from-page?

[赵雷]

Now I use "«" and "» " instead, and remove "&" from
muse-xml-markup-specials (according to previous discussion about the
problem of month link of calender in this mailing list).

Now comes up another question. I use <calendar arrows="t">. When
publishing, it shows the following warning and nothing is published:

Warning (muse): An error occurred while publishing 2006.09.22:
(wrong-type-argument stringp nil)

A similiar error is reported in the previous discussion:
http://lists.nongnu.org/archive/html/emacs-wiki-discuss/2006-05/msg00045.html
, but that error is occured for index page.

muse Version: 3.02.92 (3.03 RC2)
planner Version: 3.41
The backtrace begin with planner-publish-calendar-tag is below:
=======================
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
 file-name-directory(nil)
 (let ((dir ...)) (when dir (setq page ...)) (let (... ...) (if dir
... ... ...)))
 muse-project-page-file(nil "Plans")
 planner-page-file(nil)
 (and (planner-page-file page) (not (planner-private-p ...)))
 (if (and (planner-page-file page) (not ...)) (planner-link-href page
(or name page)) (or name page))
 planner-calendar-published-file-href(nil "\x00bb" t)
 (let ((next-date ...) (muse-publish-desc-transforms nil))
(planner-calendar-published-file-href
(planner-calendar-date-to-filename next-date) name nop))
 planner-calendar-next-month-href(9 2006 "\x00bb" t)
 (concat "<th>" (planner-calendar-next-month-href month year
planner-calendar-next-month-button planner-calendar-nop-buttons-flag)
"</th>\n")
 (progn (concat "<th>" (planner-calendar-next-month-href month year
planner-calendar-next-month-button planner-calendar-nop-buttons-flag)
"</th>\n"))
 (if arrows (progn (concat "<th>" ... "</th>\n")))
 (when arrows (concat "<th>" (planner-calendar-next-month-href month
year planner-calendar-next-month-button
planner-calendar-nop-buttons-flag) "</th>\n"))
 (concat "<table class=\"month-calendar\">\n" "<tr
class=\"month-calendar-head\">\n" (if arrows (concat "<th>" ...
"</th>\n" "<th colspan=\"5\">\n") "<th colspan=\"7\">\n") (format "%s
%d" (calendar-month-name month) year) "</th>\n" (when arrows (concat
"<th>" ... "</th>\n")) "</tr>\n" "<tr>\n" (planner-calendar-render i 0
6 "th" "month-calendar-day-head" (calendar-day-name day
planner-calendar-day-header-chars t)) "</tr>\n" "<tr>\n"
(planner-calendar-render i 0 (1- blank-days) "td"
"month-calendar-day-noday" "&nbsp;") (planner-calendar-render i
blank-days (+ last blank-days -1) "td" (if ...
"month-calendar-day-link" "month-calendar-day-nolink")
(planner-calendar-published-file-href ... ...
planner-calendar-nop-buttons-flag)) (unless (zerop ...)
(planner-calendar-render i ... ... "td" "month-calendar-day-noday"
"&nbsp;")) "</tr>\n" "</table>\n")
 (let* ((blank-days ...) (last ...) (pad-days ...) (string ...)) string)
 planner-calendar(9 2006 "t")
 (let ((year ...) (month ...)) (planner-calendar month year arrows))
 (progn (let (... ...) (planner-calendar month year arrows)))
 (if (and (stringp page) (save-match-data ...)) (progn (let ... ...)))
 (when (and (stringp page) (save-match-data ...)) (let (... ...)
(planner-calendar month year arrows)))
 planner-calendar-from-page("t" nil)
 (let* ((arrows ...) (page ...) (calendar ...)) (delete-region beg
end) (when calendar (planner-insert-markup "<div
class=\"calendar\">\n") (planner-insert-markup calendar)
(planner-insert-markup "</div>\n")))
 planner-publish-calendar-tag(839 #<marker at 839 in  *muse-temp*>
(("arrows" . "t")))
...
=======================