Re: [Orgmode] Including current time in agenda

[Carsten Dominik]

On Dec 6, 2010, at 1:08 PM, Eric S Fraga wrote:

> suvayu ali <address@hidden> writes:
>
> > Hi Eric,
> >
> > On Mon, Dec 6, 2010 at 12:47 PM, Eric S Fraga <address@hidden>  
> > wrote:
>
> [...]
>
> > > However, it would be nice if the agenda view could highlight the  
> > > current
> > > time, much as it is possible to highlight the current day in a week
> > > view, for instance... so this could be a good "feature request"!   
> > > I have
> > > no idea how hard it would be to implement, mind you...
> >
> > Would you have any idea where I could look to get started with
> > implementing something like this?
>
> Sorry, not a clue.  All I can suggest is you look at org-agenda.el.

Take a look at the function org-agenda-add-time-grid-maybe.

There is a loop over the gridtimes.  Just before the

   (while (setq time (pop gridtimes))

you could add something like

          (setq time (format-time-string "%H%M"))
          (push (org-format-agenda-item
                 nil "--- now --- now --- now --- now --- now --- " "" nil
                 (concat (substring time 0 -2) ":" (substring time -2)))
                new)
          (put-text-property
           2 (length (car new)) 'face 'org-time-grid (car new))

You may still play with the string to be used (here "now --- now  
--- ..."),
you might want to add a different face, and the whole thing should be  
configurable
with some variable - plenty of work and testing left for you :)

- Carsten