Hello, i write a little function to index the notes in a project page,
as planner-notes-index is able to index notes only for days,
weeks...etc.
Here it is:
--8<---------------cut here---------------start------------->8---
(defun planner-notes-index-page (page &optional limit)
(interactive (list (completing-read "IndexPage: "
(mapcar (lambda (x) (nth 0 x))
(nth 3
(planner-tasks-overview-get-summary))))
(read-from-minibuffer "Limit: ")))
(cd "~/plans")
(let ((limit (if (equal limit "")
(setq limit nil)))
(liste-notes (planner-notes-index-headlines-on-page page limit))
(buffer (concat "*Notes-Index-" page "*")))
(set-buffer (get-buffer-create buffer))
(text-mode) (erase-buffer) (insert (concat "* Notes-Index: " page "\n\n"))
(dolist (x liste-notes)
(insert (concat "[[" page (car x) "]] " (cdr x) "\n")))
(goto-char (point-min))
(planner-mode)
(display-buffer buffer)))
--8<---------------cut here---------------end--------------->8---
--
A + Thierry
Pub key: http://pgp.mit.edu
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
