Re: Including current time in agenda

[suvayu ali <fatkasuvayu+linux@gmail.com>]

On Mon, Dec 6, 2010 at 2:00 PM, Carsten Dominik
<carsten.dominik@gmail.com> wrote:
>
> 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 :)
>

Thanks a lot Carsten! I'll post back to the list in case I succeed or
if I get stuck. :)

> - Carsten
>
>



-- 
Suvayu

Open source is the future. It sets us free.