Re: Including current time in agenda

[Carsten Dominik <carsten.dominik@gmail.com>]

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

> suvayu ali <fatkasuvayu+linux@gmail.com> writes:
>
>> Hi Eric,
>>
>> On Mon, Dec 6, 2010 at 12:47 PM, Eric S Fraga <e.fraga@ucl.ac.uk>  
>> 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