[emacs-wiki-discuss] Deleting day page causes trouble with planner

[caldwell]

Hi folks,

I'm a newbie to planner.  I am using sacha-dev.tar.gz of 11/25/2005.  I
was playing with setq planner-day-page-template in my .emacs and decided
to delete the 2005.11.29 page, to make sure it regenerated the file.
That was a bad thing, because now M-x plan fails with : "There is no
page 2005.11.29 in project nil."

I've tried:
- moving my default Plans directory away
- reverting to sacha-stable.  M-x plan. Then retry muse.

Sacha-stable 'works' but doesn't bring the dates from the project pages.
After restoring the muse .emacs I still get the error.  Is there some
bad state somewhere that is causing this error?  

Thanks,
bruce
----------
c:\emacs-21.3\bin\runemacs.exe --debug-init

Debugger entered--Lisp error: (error "There is no page 2005.11.29 in
project nil.")
  signal(error ("There is no page 2005.11.29 in project nil."))
  error("There is no page %s in project %s." "2005.11.29" nil)
  (if (cdr name) (funcall (or command ...) (cdr name)) (error "There is
no page %s in project %s." (car name) project-name))
  (let ((project-name ...)) (unless (interactive-p) (setq project ...
name ...)) (if (and ... ...) (setcdr name ...) (unless ... ... ...)) (if
(cdr name) (funcall ... ...) (error "There is no page %s in project %s."
... project-name)))
  muse-project-find-file("2005.11.29" "WikiPlanner"
find-file-other-window nil)
  planner-find-file("2005.11.29" find-file-other-window)
  (progn (planner-find-file date (if planner-use-other-window ... ...))
(widen) (goto-char (point-min)) (run-hooks (quote planner-goto-hook)) t)
  (if (or (not just-show) (planner-page-exists-p date)) (progn
(planner-find-file date ...) (widen) (goto-char ...) (run-hooks ...) t)
(when (interactive-p) (message "No planner file for %s." date)) nil)
  planner-goto("2005.11.29")
  planner-goto-today()
  (progn (unless force-days (setq force-days ...)) (when (and ... ...)
(setq force-days t)) (planner-goto-today) (let* (... ... ... ... ...
...) (when ... ...) (when force-days ...) (if ... ... ...) (when
planner-tasks-file-behavior ...)))
  (if planner-use-day-pages (progn (unless force-days ...) (when ...
...) (planner-goto-today) (let* ... ... ... ... ...)) (planner-find-file
(or planner-default-page planner-initial-page)))
  plan()
  eval-buffer(#<buffer  *load*> nil "~/.emacs" nil t)
  load-with-code-conversion("c:/.emacs" "~/.emacs" t t)
  load("~/.emacs" t t)
  #[nil ",T

--------------------------------------
.emacs excerpt :
(setq load-path (append load-path (list nil 
              (concat "/netapp/home/caldwell/emacs" )
              (concat "c:/it/EMACS" )
              (concat "/cygdrive/c/it/EMACS" )
;              (concat "c:/sacha-stable/emacs-wiki" )
;              (concat "c:/sacha-stable/planner" )
;              (concat "c:/sacha-stable/remember" )
;              (concat "c:/sacha-stable" )

              (concat "c:/downloads/plannerbundle/planner" )
              (concat "c:/downloads/plannerbundle/muse" )
              (concat "c:/downloads/plannerbundle/muse/lisp" )
              (concat "c:/downloads/plannerbundle/remember" )
              (concat "c:/downloads/plannerbundle/plans" )
)))

;; Load code - from plannerbundle
(require 'planner)
;(require 'planner-lisp)
;(require 'planner-auto)
(require 'remember)
;(require 'remember-planner)
;(require 'muse-mode)
;(require 'muse-project)
;(require 'muse-wiki)
;(require 'muse-colors)

;;(when my/planner-newbie-p
  ;; Stuff to make newbies' lives easier
  (setq planner-day-page-template
        (concat 
         "TAB/SHIFT-TAB: switch between links    "
         "RET/ENTER: follow link\n"
         "[[lisp:planner-goto][Jump to date]] (C-c C-j C-d)
"
         "[[lisp:planner-goto-today][Today]]    (C-c C-j C-j)\n"
         "[[lisp:planner-goto-yesterday][Previous day]] (C-c C-j C-y)
"
         "[[lisp:planner-goto-tomorrow][Next day]] (C-c C-j C-t)\n"
         "[[lisp:planner-create-task-from-buffer][New task]]     (C-c
C-t)                 "
         "[[lisp:remember][New note]] (M-x remember)\n\n"
         "* Projects\n\n"
         "(ice) [[[[ICE]]]]) ([[[[kenet]]]]) TaskPool ([[retirement]])
([[financial]]) (personal) (home) ([[.././timelog]])\n\n"
         "* Tasks\n\n\n* Schedule\n\n\n* Notes\n\n\n"))

;; Display today's page
(plan)

;;(when my/planner-newbie-p
;;11/29   (planner-find-file "WelcomePage" 'find-file-other-window)