Re: [Orgmode] Re: Including current time in agenda

[Matt Lundin]

Eric S Fraga <address@hidden> writes:

> Carsten Dominik <address@hidden> writes:
>
> [...]
>
>> I agree that this is creative and great.
>>
>> However having the current time in the time grid is so useful that
>> I have now made it the default, no diary sexp needed.
>
> Thanks for this, Carsten.  I like being able to change the face easily
> (in my case, I simply set it to underline with no agenda string to keep
> a minimalist approach).  
>
> However, there is one problem (?): if I change my view to another day
> (using, say, "j" in the agenda day view), I get the "current time"
> highlighted for that other day and obviously the current time makes no
> sense other than for "today", I would argue.

The patch below fixes the issue for me. 

Best,
Matt

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index fb26ee9..67c8d89 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5353,7 +5353,7 @@ The modified list may contain inherited tags, and tags 
matched by
                new)
          (put-text-property
           2 (length (car new)) 'face 'org-time-grid (car new))))
-      (when org-agenda-show-current-time-in-grid
+      (when (and todayp org-agenda-show-current-time-in-grid)
        (push (org-format-agenda-item
               nil 
               org-agenda-current-time-string
--8<---------------cut here---------------end--------------->8---