Re: [O] Useful Org Agenda Function: Add "Today" to event

[Bastien]

Hi Tory,

address@hidden (Tory S. Anderson) writes:

> (fset 'tsa/org-agenda-add-today
>       (lambda (&optional arg) "Keyboard macro." (interactive "p")
>         (kmacro-exec-ring-item (quote ([return 3 16 14 5 return 21 
>         3 46 return 24 98 return] 0 "%d")) arg)
>         (message "Gave event \"TODAY\" date")))
> (with-eval-after-load 'org-agenda (define-key org-agenda-mode-map 
> (kbd "C-c .") 'tsa/org-agenda-add-today))
> (with-eval-after-load 'org-agenda (define-key org-agenda-mode-map 
> (kbd "C-c C-.") 'tsa/org-agenda-add-today))

This looks useful.  Please consider adding it to worg/org-hacks.org.

Thanks!

-- 
 Bastien