refactor(org-agenda): drop OVERDUE block, lead with the schedule

The daily F8 agenda opened with an OVERDUE block that re-listed every past-due scheduled or deadline task. Those items already show in the SCHEDULE block on today's line, since org-scheduled-past-days and org-deadline-past-days are both 10000. The OVERDUE section was pure duplication.

I removed it and moved SCHEDULE to the top so the calendar leads the view. The now-dead cj/org-agenda-skip-subtree-if-not-overdue helper, its header defvar, and the nine tests covering it are gone too.

2 files changed, 24 insertions, 75 deletions

diff --git a/tests/test-org-agenda-config-commands.el b/tests/test-org-agenda-config-commands.el
index e29871b79..76407439d 100644
--- a/tests/test-org-agenda-config-commands.el
+++ b/tests/test-org-agenda-config-commands.el
@@ -145,6 +145,24 @@ calling `org-agenda'."
     (should build-called)
     (should (equal agenda-args '("a" "d")))))
 
+;;; org-agenda-custom-commands "d" daily structure
+
+(defun test-org-agenda--daily-blocks ()
+  "Return the block list of the \"d\" daily agenda command."
+  (nth 2 (assoc "d" org-agenda-custom-commands)))
+
+(ert-deftest test-org-agenda-daily-schedule-block-is-first ()
+  "Normal: the schedule (calendar) block leads the daily agenda."
+  (should (eq (car (nth 0 (test-org-agenda--daily-blocks))) 'agenda)))
+
+(ert-deftest test-org-agenda-daily-has-no-overdue-block ()
+  "Normal: no overdue block.  It duplicated the past-due
+scheduled/deadline items the schedule block already surfaces on
+today's line (org-scheduled-past-days/org-deadline-past-days are
+large), so the standalone OVERDUE section was redundant."
+  (let ((flat (flatten-tree (test-org-agenda--daily-blocks))))
+    (should-not (memq 'cj/org-agenda-skip-subtree-if-not-overdue flat))))
+
 ;;; cj/add-timestamp-to-org-entry
 
 (ert-deftest test-org-agenda-add-timestamp-inserts-on-next-line ()
diff --git a/tests/test-org-agenda-config-skip-functions.el b/tests/test-org-agenda-config-skip-functions.el
index aec1e71be..b8290da21 100644
--- a/tests/test-org-agenda-config-skip-functions.el
+++ b/tests/test-org-agenda-config-skip-functions.el
@@ -145,76 +145,6 @@ Suppresses org-mode hooks to avoid loading packages not available in batch."
   (test-org-agenda--with-org-buffer "* DONE Finished task\n"
     (should (integerp (cj/org-skip-subtree-if-keyword '("TODO" "DONE" "CANCELLED"))))))
 
-;;; ---------- cj/org-agenda-skip-subtree-if-not-overdue ----------
-
-;;; Normal Cases
-
-(ert-deftest test-org-agenda-config-skip-overdue-normal-past-scheduled-keeps ()
-  "Entry scheduled in the past with TODO keyword is overdue — keep it."
-  (test-org-agenda--with-org-buffer
-      (concat "* TODO Overdue task\n"
-              "SCHEDULED: " (test-org-timestamp-days-ago 7) "\n")
-    (should (null (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
-(ert-deftest test-org-agenda-config-skip-overdue-normal-future-scheduled-skips ()
-  "Entry scheduled in the future is not overdue — skip it."
-  (test-org-agenda--with-org-buffer
-      (concat "* TODO Future task\n"
-              "SCHEDULED: " (test-org-timestamp-days-ahead 7) "\n")
-    (should (integerp (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
-(ert-deftest test-org-agenda-config-skip-overdue-normal-past-deadline-keeps ()
-  "Entry with past deadline and TODO keyword is overdue — keep it."
-  (test-org-agenda--with-org-buffer
-      (concat "* TODO Missed deadline\n"
-              "DEADLINE: " (test-org-timestamp-days-ago 3) "\n")
-    (should (null (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
-(ert-deftest test-org-agenda-config-skip-overdue-normal-done-task-skips ()
-  "Done task should be skipped even if overdue."
-  (test-org-agenda--with-org-buffer
-      (concat "* DONE Completed task\n"
-              "SCHEDULED: " (test-org-timestamp-days-ago 7) "\n")
-    (should (integerp (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
-(ert-deftest test-org-agenda-config-skip-overdue-normal-habit-skips ()
-  "Habit should be skipped even if overdue."
-  (test-org-agenda--with-org-buffer
-      (concat "* TODO Daily habit\n"
-              "SCHEDULED: " (test-org-timestamp-days-ago 7) "\n"
-              ":PROPERTIES:\n"
-              ":STYLE: habit\n"
-              ":END:\n")
-    (should (integerp (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
-(ert-deftest test-org-agenda-config-skip-overdue-normal-no-todo-keyword-skips ()
-  "Entry without a TODO keyword should be skipped."
-  (test-org-agenda--with-org-buffer
-      (concat "* Just a heading\n"
-              "SCHEDULED: " (test-org-timestamp-days-ago 7) "\n")
-    (should (integerp (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
-;;; Boundary Cases
-
-(ert-deftest test-org-agenda-config-skip-overdue-boundary-today-scheduled-skips ()
-  "Entry scheduled today is NOT overdue (not strictly before today) — skip."
-  (test-org-agenda--with-org-buffer
-      (concat "* TODO Today task\n"
-              "SCHEDULED: " (test-org-timestamp-today) "\n")
-    (should (integerp (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
-(ert-deftest test-org-agenda-config-skip-overdue-boundary-no-date-skips ()
-  "Entry with TODO but no scheduled/deadline date — not overdue, skip."
-  (test-org-agenda--with-org-buffer "* TODO Undated task\n"
-    (should (integerp (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
-(ert-deftest test-org-agenda-config-skip-overdue-boundary-future-deadline-skips ()
-  "Entry with future deadline is not overdue — skip."
-  (test-org-agenda--with-org-buffer
-      (concat "* TODO Future deadline\n"
-              "DEADLINE: " (test-org-timestamp-days-ahead 14) "\n")
-    (should (integerp (cj/org-agenda-skip-subtree-if-not-overdue)))))
-
 ;;; ---------- "d" command SCHEDULE block: CANCELLED skip ----------
 
 ;;; Normal Cases
@@ -268,17 +198,18 @@ regression where one block diverges from the others on the format."
 
 ;;; Normal Cases
 
-(ert-deftest test-org-agenda-config-d-command-has-six-blocks-in-expected-order ()
-  "Normal: the \"d\" command runs six blocks in the expected order --
-OVERDUE -> HIGH PRIORITY -> VERIFICATION -> SCHEDULE -> IN-PROGRESS -> PRIORITY B."
+(ert-deftest test-org-agenda-config-d-command-has-five-blocks-in-expected-order ()
+  "Normal: the \"d\" command runs five blocks in the expected order --
+SCHEDULE -> HIGH PRIORITY -> VERIFICATION -> IN-PROGRESS -> PRIORITY B.
+The schedule (calendar) leads; the former OVERDUE block was dropped
+because it duplicated the past-due items the schedule already shows."
   (let* ((entry (assoc "d" org-agenda-custom-commands))
          (blocks (nth 2 entry))
          (shapes (mapcar (lambda (b) (list (car b) (cadr b))) blocks)))
     (should (equal shapes
-                   '((alltodo "")
+                   '((agenda "")
                      (tags "PRIORITY=\"A\"")
                      (todo "VERIFY")
-                     (agenda "")
                      (todo "DOING")
                      (alltodo ""))))))