From 441ca9662eba57bc8b876b98d285072fe68c771e Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 3 Aug 2018 21:45:45 -0400
Subject: Overload org-agenda-goto-today

...to behave as beginning-of-buffer in non-agenda org-agenda-mode
buffers.
---
 init.el | 6 ++++++
 1 file changed, 6 insertions(+)

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'.
-- 
cgit v1.2.3