Re: [emacs-wiki-discuss] Re: Note on task page but not day page

[Alex Kavanagh]

At Wed, 10 Aug 2005 20:57:41 -0400,
Sacha Chua wrote:
> 
> Alex Kavanagh <address@hidden> writes:
> 
> > Nope, the function 'planner-create-note defaults to the current day
> > page, and I must admit that I couldn't work out how to make it use the
> 
> If you call it interactively, it should default to the current page.

Um, ok.  On my set if I do:

M-x planner-create-note

It creates a new note on today's dated page even if I'm on another
page.

My version of planner is a recent copy (<3 weeks) from your arch
stable.

My version of planner-create-note is:

(defun planner-create-note (&optional page)
  "Create a note to be remembered in PAGE (today if PAGE is nil).
If `planner-reverse-chronological-notes' is non-nil, create the
note at the beginning of the notes section; otherwise, add it to
the end.  Position point after the anchor."
  (interactive)
  (if page (planner-goto page) (planner-goto-today))
  (planner-seek-to-first 'notes)
  (save-restriction
    (when (planner-narrow-to-section 'notes)
      (let ((total 0))
        (goto-char (point-min))
        (while (re-search-forward "^\\.#[0-9]+\\s-+" nil t)
          (setq total (1+ total)))
        (if planner-reverse-chronological-notes
            (progn (goto-char (point-min))
                   (forward-line 1)
                   (skip-chars-forward "\n"))
          (goto-char (point-max))
          (skip-chars-backward "\n")
          (when (= (forward-line 1) 1) (insert "\n"))
          (when (= (forward-line 1) 1) (insert "\n")))
        (insert ".#" (number-to-string (1+ total)) " ")
        (unless (eobp) (save-excursion (insert "\n\n")))
        (1+ total)))))

I can see the (&optional page) bit but interactively I don't know how
to get to it.  Without it it defaults to (planner-goto-today) which is
today's page.

Does it need to be (interactive "s") or something like that - sorry
I'm an elisp noob and still learning how to hack it.

Cheers
Alex.