Overload org-agenda-goto-today

...to behave as beginning-of-buffer in non-agenda org-agenda-mode
buffers.

1 files changed, 6 insertions, 0 deletions

diff --git a/init.el b/init.el
index d556acd..97dfc6c 100644
--- a/init.el
+++ b/init.el
@@ -266,6 +266,12 @@
             (org-agenda-overriding-header "Unscheduled TODO entries: ")))
           ("p" "Past timestamps" tags "TIMESTAMP<=\"<now>\"")))
 
+  (advice-add 'org-agenda-goto-today :around
+              (lambda (fn &rest args)
+                (if (org-agenda-check-type nil 'agenda)
+                    (apply fn args)
+                  (goto-char (point-min)))))
+
   (bind-keys :map org-agenda-mode-map
              ;; Bind `org-agenda-follow-mode' to same key as
              ;; `next-error-follow-minor-mode'.