Re: [emacs-wiki-discuss] Re: My planner-config.el

[pll+ew]

In a message dated: Sun, 28 Mar 2004 20:22:16 +0200
Thomas Gehrlein said:

>address@hidden writes:
>
>> I tried this, but I ended up with an error:
>>
>>   Symbol's value as variable is void: planner-diary-exclude-regexp
>
>The attached version should fix this.
>
>>>If you want, I can send you a planner-diary version that works.  Just
>>>send me an email.

Hmmm, I now get:

Signaling: (invalid-regexp "Invalid preceding regular expression")
  re-search-forward("^#[ABC][0-9]+\\s-+[^CX]\\s-+.+?*{{[^}:]+:[0-9]+}}" nil t)
  (while (re-search-forward "^#[ABC][0-9]+\\s-+[^CX]\\s-+.+?*{{[^}:]+:[0-9]+}}" 
nil t) (planner-update-task))
  (save-excursion (goto-char (point-min)) (while (re-search-forward 
"^#[ABC][0-9]+\\s-+[^CX]\\s-+.+?*{{[^}:]+:[0-9]+}}" nil t) 
(planner-update-task)))
  planner-id-update-tasks-on-page()
  basic-save-buffer()
  save-buffer()
  write-file("~/.planner-id")
  (save-current-buffer (set-buffer temp-buffer) (insert "(") (mapc (lambda ... 
...) planner-id-values) (insert ")") (write-file planner-id-tracking-file))
  (with-current-buffer temp-buffer (insert "(") (mapc (lambda ... ...) 
planner-id-values) (insert ")") (write-file planner-id-tracking-file))
  (unwind-protect (with-current-buffer temp-buffer (insert "(") (mapc ... 
planner-id-values) (insert ")") (write-file planner-id-tracking-file)) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... 
... ... ...) (and ... ...)))
  (with-temp-buffer (insert "(") (mapc (lambda ... ...) planner-id-values) 
(insert ")") (write-file planner-id-tracking-file))
  planner-id-save()
  (let ((result ...)) (planner-id-save) result)
  planner-id-make-global-id("Tasks")
  (setq new-id (planner-id-make-global-id "Tasks"))
  (if (or (not task-info) (planner-id-get-current-id)) nil (setq new-id 
(planner-id-make-global-id "Tasks")) (when (planner-task-link ...) 
(planner-jump-to-linked-task) (setq task-info ...) (setcar ... ...) 
(delete-region ... ...) (insert ... "\n")) (set-buffer buffer) (setq task-info 
(planner-current-task-info)) (setcar (cdr ...) (concat ... " " ...)) 
(delete-region (line-beginning-position) (min ... ...)) (insert 
(planner-format-task task-info) "\n"))
  (unless (or (not task-info) (planner-id-get-current-id)) (setq new-id 
(planner-id-make-global-id "Tasks")) (when (planner-task-link ...) 
(planner-jump-to-linked-task) (setq task-info ...) (setcar ... ...) 
(delete-region ... ...) (insert ... "\n")) (set-buffer buffer) (setq task-info 
(planner-current-task-info)) (setcar (cdr ...) (concat ... " " ...)) 
(delete-region (line-beginning-position) (min ... ...)) (insert 
(planner-format-task task-info) "\n"))
  (let* ((task-info ...) new-id (buffer ...)) (unless (or ... ...) (setq new-id 
...) (when ... ... ... ... ... ...) (set-buffer buffer) (setq task-info ...) 
(setcar ... ...) (delete-region ... ...) (insert ... "\n")))
  (save-excursion (let* (... new-id ...) (unless ... ... ... ... ... ... ... 
...)))
  (save-window-excursion (save-excursion (let* ... ...)))
  planner-id-add-task-id()
  run-hooks(planner-id-add-task-id)
  (save-excursion (when (and ... ...) (emacs-wiki-find-file ...) 
(planner-seek-to-first) (insert ... "\n")) (planner-goto (planner-task-date 
info)) (planner-seek-to-first) (insert (planner-format-task info category 
priority status description ... ...) "\n") (forward-line -1) (run-hooks (quote 
planner-create-task-hook)))
  (save-window-excursion (save-excursion (when ... ... ... ...) (planner-goto 
...) (planner-seek-to-first) (insert ... "\n") (forward-line -1) (run-hooks 
...)))
  planner-create-task-from-info((nil "A" "0" "_" "Test Plan 1" nil "" nil 
"2004.03.28"))
  planner-create-task("Test Plan 1" "2004.03.28" "")
  (lambda (title date) "Create a new task named TITLE on DATE based on the 
current buffer.\nSee `planner-create-task' for more information." (interactive 
(list ... ...)) (planner-create-task title date 
(run-hook-with-args-until-success ...)))("Test Plan 1" "2004.03.28")
  call-interactively(planner-create-task-from-buffer)


What next?

Thanks.
--
Seeya,
Paul

GPG Key fingerprint = 1660 FECC 5D21 D286 F853  E808 BB07 9239 53F1 28EE

         If you're not having fun, you're not doing it right!