refactor(calendar-sync): defer auto-start until first agenda use

calendar-sync ran calendar-sync-start at load, which syncs immediately and then every interval. Every configured calendar resolves its .ics feed URL from a :secret-host in authinfo.gpg, so both the immediate sync and each timer tick decrypt authinfo.gpg. On a cold gpg-agent (after a reboot) that surfaced as a GPG passphrase prompt right after startup, before I'd asked for anything needing a secret.

I deferred the whole start, immediate sync and recurring timer alike, to the first org-agenda use via a one-shot org-agenda-mode-hook. The unlock now happens when I actually open the agenda. A manual calendar-sync-start or calendar-sync-now still works on demand.

1 files changed, 43 insertions, 0 deletions

diff --git a/tests/test-calendar-sync--deferred-start.el b/tests/test-calendar-sync--deferred-start.el
new file mode 100644
index 000000000..a3a9c0198
--- /dev/null
+++ b/tests/test-calendar-sync--deferred-start.el
@@ -0,0 +1,43 @@
+;;; test-calendar-sync--deferred-start.el --- Deferred auto-start tests  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; calendar-sync arms its auto-sync on the first org-agenda use instead of at
+;; load, so a cold gpg-agent is not prompted for the authinfo passphrase at
+;; startup (the :secret-host feed URLs decrypt authinfo.gpg).  These tests cover
+;; the one-shot helper: it starts sync once and removes itself, even when the
+;; start call errors.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'calendar-sync)
+
+;; org-agenda need not be loaded under `make test'; declare the hook special so
+;; the dynamic `let' bindings below shadow it cleanly.
+(defvar org-agenda-mode-hook)
+
+(ert-deftest test-calendar-sync-deferred-start-fires-once-and-unhooks ()
+  "Normal: the one-shot starts sync once and removes itself from the hook."
+  (let ((started 0)
+        (org-agenda-mode-hook (list #'calendar-sync--auto-start-on-first-agenda)))
+    (cl-letf (((symbol-function 'calendar-sync-start)
+               (lambda (&rest _) (setq started (1+ started)))))
+      (calendar-sync--auto-start-on-first-agenda))
+    (should (= started 1))
+    (should-not (member #'calendar-sync--auto-start-on-first-agenda
+                        org-agenda-mode-hook))))
+
+(ert-deftest test-calendar-sync-deferred-start-unhooks-even-when-start-errors ()
+  "Error: a start failure still leaves the hook removed, so it cannot re-fire."
+  (let ((org-agenda-mode-hook (list #'calendar-sync--auto-start-on-first-agenda)))
+    (cl-letf (((symbol-function 'calendar-sync-start)
+               (lambda (&rest _) (error "boom"))))
+      (should-error (calendar-sync--auto-start-on-first-agenda)))
+    (should-not (member #'calendar-sync--auto-start-on-first-agenda
+                        org-agenda-mode-hook))))
+
+(provide 'test-calendar-sync--deferred-start)
+;;; test-calendar-sync--deferred-start.el ends here