I was trying planner-report-generate to see if I can make a weekly
summary of my Work.muse. Instead it generated a summary of all my
*.muse files. Then I've killed the StatusReport2006.09.30.muse buffer
and opened Work.muse to try M-x planner-report-generate from there.
The thing is, now it gives me this :
insert-file-contents-literally: Opening input file: no such file or
directory, /home/cezar/Plans/.#StatusReport2006.09.30.muse
debugged :
Debugger entered--Lisp error: (file-error "Opening input file" "no
such file or directory"
"/home/cezar/Plans/.#StatusReport2006.09.30.muse")
insert-file-contents("/home/cezar/Plans/.#StatusReport2006.09.30.muse"
nil nil nil nil)
insert-file-contents-literally("/home/cezar/Plans/.#StatusReport2006.09.30.muse")
(save-current-buffer (set-buffer temp-buffer) (setq
muse-current-project (muse-project planner-project))
(muse-project-set-variables) (planner-mode)
(insert-file-contents-literally (cdar pages)) (setq tasks
(planner-report-find-tasks ... begin end)) (setq notes
(planner-report-find-notes ... begin end))) (with-current-buffer
temp-buffer (setq muse-current-project (muse-project
planner-project)) (muse-project-set-variables) (planner-mode)
(insert-file-contents-literally (cdar pages)) (setq tasks
(planner-report-find-tasks ... begin end)) (setq notes
(planner-report-find-notes ... begin end))) (unwind-protect
(with-current-buffer temp-buffer (setq muse-current-project ...)
(muse-project-set-variables) (planner-mode)
(insert-file-contents-literally ...) (setq tasks ...) (setq notes
...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(let ((temp-buffer ...)) (unwind-protect (with-current-buffer
temp-buffer ... ... ... ... ... ...) (and ... ...)))
(with-temp-buffer (setq muse-current-project (muse-project
planner-project)) (muse-project-set-variables) (planner-mode)
(insert-file-contents-literally (cdar pages)) (setq tasks
(planner-report-find-tasks ... begin end)) (setq notes
(planner-report-find-notes ... begin end))) (if
(planner-derived-mode-p (quote planner-mode)) (progn
(insert-file-contents-literally ...) (setq tasks ...) (setq notes
...)) (with-temp-buffer (setq muse-current-project ...)
(muse-project-set-variables) (planner-mode)
(insert-file-contents-literally ...) (setq tasks ...) (setq notes
...))) (with-planner (insert-file-contents-literally (cdar pages))
(setq tasks (planner-report-find-tasks ... begin end)) (setq notes
(planner-report-find-notes ... begin end))) (save-current-buffer
(set-buffer temp-buffer) (with-planner
(insert-file-contents-literally ...) (setq tasks ...) (setq notes
...))) (with-current-buffer temp-buffer (with-planner
(insert-file-contents-literally ...) (setq tasks ...) (setq notes
...))) (unwind-protect (with-current-buffer temp-buffer
(with-planner ... ... ...)) (and (buffer-name temp-buffer)
(kill-buffer temp-buffer))) (let ((temp-buffer ...)) (unwind-protect
(with-current-buffer temp-buffer ...) (and ... ...)))
(with-temp-buffer (with-planner (insert-file-contents-literally ...)
(setq tasks ...) (setq notes ...))) (if (or (string-match
"^StatusReport" ...) (string-match planner-date-regexp ...)) nil
(with-temp-buffer (with-planner ... ... ...))) (unless (or
(string-match "^StatusReport" ...) (string-match planner-date-regexp
...)) (with-temp-buffer (with-planner ... ... ...))) (progn (unless
(or ... ...) (with-temp-buffer ...)) (if (or notes tasks) (insert
"\n* [[" ... "][" ... "]]\n\n")) (when tasks (insert tasks "\n\n")
(setq tasks nil)) (when notes (insert notes "\n") (setq notes nil)))
(if (caar pages) (progn (unless ... ...) (if ... ...) (when tasks
... ...) (when notes ... ...))) (when (caar pages) (unless (or
... ...) (with-temp-buffer ...)) (if (or notes tasks) (insert "\n*
[[" ... "][" ... "]]\n\n")) (when tasks (insert tasks "\n\n") (setq
tasks nil)) (when notes (insert notes "\n") (setq notes nil)))
(while pages (when (caar pages) (unless ... ...) (if ... ...) (when
tasks ... ...) (when notes ... ...)) (setq pages (cdr pages))) (let*
((unsorted-pages ...) (pages ...) notes tasks) (while pages (when
... ... ... ... ...) (setq pages ...))) (save-current-buffer
(set-buffer temp-buffer) (when planner-report-authz (require ...)
(insert "#authz " ... "\n")) (insert "#title Status report for "
begin " to " end "\n") (let* (... ... notes tasks) (while pages
... ...)) (write-file filename t)) (with-current-buffer temp-buffer
(when planner-report-authz (require ...) (insert "#authz "
... "\n")) (insert "#title Status report for " begin " to " end
"\n") (let* (... ... notes tasks) (while pages ... ...)) (write-file
filename t)) (unwind-protect (with-current-buffer temp-buffer (when
planner-report-authz ... ...) (insert "#title Status report for "
begin " to " end "\n") (let* ... ...) (write-file filename t)) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer))) (let
((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer
... ... ... ...) (and ... ...))) (with-temp-buffer (when
planner-report-authz (require ...) (insert "#authz " ... "\n"))
(insert "#title Status report for " begin " to " end "\n") (let*
(... ... notes tasks) (while pages ... ...)) (write-file filename
t)) (let ((filename ...)) (when (and muse-file-extension ...) (setq
filename ...)) (with-temp-buffer (when planner-report-authz ... ...)
(insert "#title Status report for " begin " to " end "\n") (let*
... ...) (write-file filename t)) (find-file filename))
planner-report-generate("2006.09.24" "2006.09.28")
call-interactively(planner-report-generate)
execute-extended-command(nil)
call-interactively(execute-extended-command)
----------------------------------------------------------------------
Regards,
Cezar
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
