sacha chua living an awesome life

Let’s say that you want to create undated tasks while still
using day pages for other parts of Planner. Here’s one way to do that.

(defadvice planner-read-task (around sacha activate)
  (let ((planner-use-day-pages nil))
    ad-do-it))

To disable that piece of advice, use M-x ad-deactivate RET planner-read-task.

What if you want to create dated tasks if
planner-create-task-from-buffer is called with the universal prefix
(C-u)? Disable the previous piece of advice or remove it from your
~/.emacs and use this instead:

(defun planner-read-task ()
  "Return a list of information for a task."
  (list
   (read-string "Describe task: ")
   ;; This part changes
   (when current-prefix-arg
     (if (condition-case nil (calendar-cursor-to-date) (error nil))
         (planner-date-to-filename (calendar-cursor-to-date))
       (let ((planner-expand-name-favor-future-p
              (or planner-expand-name-favor-future-p
                  planner-task-dates-favor-future-p)))
         (planner-read-date))))
   ;; This part still stays the same
   (when planner-use-plan-pages
     (let ((planner-default-page
	    (if (and (planner-derived-mode-p 'planner-mode)
		     (planner-page-name)
		     (not (string-match planner-date-regexp
					(planner-page-name))))
		(planner-page-name)
	      planner-default-page)))
       (planner-read-non-date-page
	(planner-file-alist))))
   planner-default-task-status))

What if you always want to prompt for the date, but want it to default to undated when you hit RET?
Use the following to your ~/.emacs instead:

(setq planner-expand-name-default nil)

If you’re working with undated tasks, then you probably want to make
sure they’re copied onto a task page somewhere. You can use
planner-multi to automatically do so when you create a task.

(require 'planner-multi)
(setq planner-multi-copy-tasks-to-page "TaskPool")

You can specify multiple pages for planner-multi-copy-tasks-to-page. For example:

(setq planner-multi-copy-tasks-to-page "TaskPool [[TaskPoolByProject][p]] [[TaskPoolByContext][c]]")

If you want to be explicitly prompted for pages, but default to
Task Pool if not specified:

(defun planner-read-task ()
  "Return a list of information for a task."
  (list
   (read-string "Describe task: ")
   (when (and planner-use-day-pages current-prefix-arg)
     (if (condition-case nil (calendar-cursor-to-date) (error nil))
         (planner-date-to-filename (calendar-cursor-to-date))
       (let ((planner-expand-name-favor-future-p
              (or planner-expand-name-favor-future-p
                  planner-task-dates-favor-future-p)))
         (planner-read-date))))
   (when planner-use-plan-pages
     (let ((planner-default-page "TaskPool"))
       (planner-read-non-date-page
        (planner-file-alist))))
  planner-default-task-status))

Have fun with undated tasks!