Hi Tory, [email protected] (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
