Re: [emacs-wiki-discuss] Doing GTD in planner

[Alex Polite]

On Thu, Jun 09, 2005 at 09:39:00AM -0700, Seth Falcon wrote:
> 
> Take a look at planner-multi which allows you to assign tasks to
> multiple plan pages.  You may also want to look at planner-trunk which
> can organize your day pages by regex and hence by action-type (calls,
> computer, etc).
> 

Great stuff! Wonderful!

Since all my context pages are prefixed with "At" (AtComputer etc) and
all my project pages are prefixed with "Project" I put them in
planner-trunk-rule-list without any hand coding. One could even put
the updating of planner-trunk-rule-list in the planner-mode-hook but
that would be sort of overkill.

My elisp is still a bit rough. But I getting to the language. 
Sort of :)



;; modified from ogonek.el
;; ----  An auxiliary function for zipping two lists of equal length ----

(defun zip-lists (xs ys)
  "Build a list of pairs from lists XS and YS of the same length." 
  (let ((pairs nil)) 
    (while xs
      (add-to-list 'pairs (list (car xs) (car ys)))
      (setq xs (cdr xs))
      (setq ys (cdr ys)))
    ;; `pairs' are the function's result
    pairs))


(defun my-files-helper (folder pattern) "" () 
  (zip-lists (directory-files folder nil pattern) (directory-files folder  nil 
pattern)))


(defun my-at-files () "" (my-files-helper planner-directory "^At"))
(defun my-project-files () "" (my-files-helper planner-directory "^Project"))

(setq planner-trunk-rule-list (list 
                               (list "20[0-9][0-9].*" "Completed" (my-at-files))
                               (list "At.*" "Completed" (my-project-files))
                               (list "Project.*" "Completed" (my-at-files))
                               ))

; I had to up this variable a bit.
(setq max-lisp-eval-depth 10000)


-- 
Alex Polite
http://flosspick.org