[emacs-wiki-discuss] Creating a "Planner Weekly Overview" page

[Travis B. Hartwell]

Hey all,

I'm trying to get create what is in effect a "Week at a glance" page
for Planner.  This would be different from a Project or Day page.
What I have in mind right now is to have these various things on it
(some of which hasn't yet been implemented, of course):

Planner Overview Page:
1. A link to today's planner page
2. Normal fancy diary display for the next 7 days
3. List of tasks due the next 7 days
4. Index of Project pages
5. Link to index of notes -> day pages
6. Link to list of all open planner buffers

Since this isn't either a project or day page, I'm not sure if I will
need to do something special.

Anyway, I have started the page (basically a project page with the
* Tasks and * Notes sections removed).  This is what I have so far,
which is broken:
------------------

* Planner Overview Page

[[lisp://plan][Today's Planner Page]]

* This week's appointments

<lisp>
(planner-diary-update-section (buffer-file-name)
                           "* This week's appointments"
                            (planner-diary-get-diary-entries
                             (calendar-current-date)
                             7
                             planner-diary-file))
</lisp>

------------

This would produce something that looks something like this:

* Planner Overview Page

_Today's Planner Page_

* This week's appointments

Monday, April 26, 2004
======================
6:30pm-8:00pm April Birthday Party Lundstrum Park

Tuesday, April 27, 2004
=======================
12:00pm-1:00pm Meeting with Bill
18:00 Haircut

Wednesday, April 28, 2004
=========================
12:00pm-1:00pm Commencement Practice -- HPER field

Sunday, May 2, 2004
===================
12:30-15:30 Church

------------

Unfortunately, the first problem is that the <lisp></lisp> segment
replaces itself.  If I put it above the "* This week's appointments",
it never displays and Emacs keeps trying to insert the diary.  So, the
first question is how would I appropriately do that?  I'm guessing
writing a whole new module (planner-overview.el) that does something
similar to planner-diary.el and just has this above template.

Other immediate questions I have relate to Overview Page items 3 and 4
above.  I have dug deep enough, but is there a way I can get the tasks
due in the next 7 days and then display them something like this:

Monday, April 26, 2004
======================
#A1  _ Call Joe {{Tasks:72}} (TaskPool)
#A2  _ E-mail April {{Tasks:86}} (GeneralProfessional)
#A3  _ Burn Mandrake CD for Daniel {{Tasks:82}} (TaskPool)
#A4  _ Make Deposit {{Tasks:81}} (TaskPool)
#A5  _ Configure Tiger on desktop {{Tasks:78}} (ComputerGeneral)
#A6  _ Find a reliable way to know when pertinent security updates happen 
{{Tasks:76}} (CvsRoxorGamesComSysAdmin)

Tuesday, April 27, 2004
=======================
#A1 _ Mail phone bill payment {{Tasks:87}} (TaskPool)
#A2 _ Compile new kernel for desktop {{Tasks:95}} (ComputerGeneral)

...etc...

(Actually, perhaps it would be cool to mingle this with the diary
data.  I haven't decided yet the best way to display that.  Anyway,
how would I get at this info?

And then, about getting a listing of all project pages.  Is there a
function for that?  Again, I'm lazy and haven't looked through the
code yet.

The last item (#6) would just be a link like this:

[[lisp://tbh-show-planner-buffers][Show Open Planner Buffers]]

I have the function defined as such:

(defun tbh-show-planner-buffers ()
  (interactive)
  (when (not (get-buffer "*planner buffers*"))
      (progn
        (ibuffer)
        (ibuffer-limit-by-mode 'planner-mode)
        (rename-buffer "*planner buffers*")))
  (switch-to-buffer "*planner buffers*"))

I have that bound to C-cpb ("planner buffers") and I find it useful.


Any suggestions, ideas, or help?  I think I might actually be
motivated enough to work on this this week. :)

Travis