1 files changed, 75 insertions, 0 deletions
diff --git a/modules/org-agenda-config-debug.el b/modules/org-agenda-config-debug.el
new file mode 100644
index 00000000..aded3b6a
--- /dev/null
+++ b/modules/org-agenda-config-debug.el
@@ -0,0 +1,75 @@
+;;; org-agenda-config-debug.el --- Debug functions for org-agenda-config -*- lexical-binding: t; coding: utf-8; -*-
+;; author: Craig Jennings <c@cjennings.net>
+;;
+;;; Commentary:
+;;
+;; This file contains debug functions for org-agenda-config.el.
+;; It is only loaded when cj/debug-modules includes 'org-agenda or is t.
+;;
+;; Enable with: (setq cj/debug-modules '(org-agenda))
+;;          or: (setq cj/debug-modules t)
+;;
+;; Available debug functions:
+;; - cj/org-agenda-debug-dump-files - Show all org-agenda-files with status
+;; - cj/org-agenda-debug-rebuild-timing - Measure rebuild performance
+;;
+;;; Code:
+
+(require 'user-constants)
+
+;; ---------------------------- Helper Functions -------------------------------
+
+(defun cj/log-silently (format-string &rest args)
+  "Append formatted message to *Messages* buffer without echoing.
+FORMAT-STRING and ARGS are passed to `format'.
+This is a local copy of the pattern from system-utils.el."
+  (let ((inhibit-read-only t))
+    (with-current-buffer (get-buffer-create "*Messages*")
+      (goto-char (point-max))
+      (unless (bolp) (insert "\n"))
+      (insert (apply #'format format-string args))
+      (unless (bolp) (insert "\n")))))
+
+;; ---------------------------- Debug Functions --------------------------------
+
+;;;###autoload
+(defun cj/org-agenda-debug-dump-files ()
+  "Dump all org-agenda-files to *Messages* buffer with status.
+Shows which files exist, which are missing, and their sizes."
+  (interactive)
+  (cj/log-silently "=== Org Agenda Debug: Files ===")
+  (cj/log-silently "Total files: %d" (length org-agenda-files))
+  (cj/log-silently "")
+  (dolist (file org-agenda-files)
+    (if (file-exists-p file)
+        (let ((size (file-attribute-size (file-attributes file)))
+              (mtime (format-time-string "%Y-%m-%d %H:%M:%S"
+                                         (file-attribute-modification-time
+                                          (file-attributes file)))))
+          (cj/log-silently "✓ %s" file)
+          (cj/log-silently "  Size: %d bytes, Modified: %s" size mtime))
+      (cj/log-silently "✗ %s [MISSING]" file)))
+  (cj/log-silently "")
+  (cj/log-silently "=== End Org Agenda Debug ===")
+  (message "Org Agenda: Dumped %d files to *Messages* buffer" (length org-agenda-files)))
+
+;;;###autoload
+(defun cj/org-agenda-debug-rebuild-timing ()
+  "Measure and report timing for rebuilding org-agenda-files.
+Runs cj/build-org-agenda-list and reports detailed timing."
+  (interactive)
+  (cj/log-silently "=== Org Agenda Debug: Rebuild Timing ===")
+  (let ((start-time (current-time)))
+    (cj/build-org-agenda-list)
+    (let ((elapsed (float-time (time-subtract (current-time) start-time))))
+      (cj/log-silently "Rebuild completed in %.3f seconds" elapsed)
+      (cj/log-silently "Files found: %d" (length org-agenda-files))
+      (cj/log-silently "Average time per file: %.4f seconds"
+                       (if (> (length org-agenda-files) 0)
+                           (/ elapsed (float (length org-agenda-files)))
+                         0.0))))
+  (cj/log-silently "=== End Org Agenda Debug ===")
+  (message "Org Agenda: Timing info dumped to *Messages* buffer"))
+
+(provide 'org-agenda-config-debug)
+;;; org-agenda-config-debug.el ends here