From c47f1d42abbb25af583384a3cb0ca17e8bcd61df Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sat, 8 Nov 2025 16:58:14 -0600
Subject: refactor: debug: route all debug output to debug log instead of
 Messages

- Remove (message ...) call from wttrin--debug-log function
- Replace 9 debug message calls in wttrin.el with wttrin--debug-log
- All debug output now goes to debug log for review with M-x wttrin-debug-show-log
- User-facing error messages preserved (network errors, processing errors)
- Updated docstring to clarify messages are stored for later review
---
 wttrin-debug.el |  6 +++---
 wttrin.el       | 25 ++++++++++++-------------
 2 files changed, 15 insertions(+), 16 deletions(-)

diff --git a/wttrin-debug.el b/wttrin-debug.el
index dd08a5a..a0576a4 100644
--- a/wttrin-debug.el
+++ b/wttrin-debug.el
@@ -112,12 +112,12 @@ It creates the *wttrin-mode-debug* buffer with diagnostic information."
 
 (defun wttrin--debug-log (format-string &rest args)
   "Log a debug message if wttrin-debug is enabled.
-FORMAT-STRING and ARGS are passed to `format'."
+FORMAT-STRING and ARGS are passed to `format'.
+Messages are stored in `wttrin--debug-log' for later review."
   (when wttrin-debug
     (let ((msg (apply #'format format-string args))
           (timestamp (format-time-string "%H:%M:%S.%3N")))
-      (push (cons timestamp msg) wttrin--debug-log)
-      (message "[wttrin-debug %s] %s" timestamp msg))))
+      (push (cons timestamp msg) wttrin--debug-log))))
 
 ;;;###autoload
 (defun wttrin-debug-clear-log ()
diff --git a/wttrin.el b/wttrin.el
index 46cb0b7..156b3b9 100644
--- a/wttrin.el
+++ b/wttrin.el
@@ -229,7 +229,6 @@ Handles header skipping, UTF-8 decoding, and error handling automatically."
                    (when (featurep 'wttrin-debug)
                      (wttrin--debug-log "wttrin--fetch-url: Network error - %s"
                                         (cdr (plist-get status :error))))
-                   (message "wttrin: Network error - %s" (cdr (plist-get status :error)))
                    (setq data nil))
                (unwind-protect
                    (progn
@@ -247,7 +246,6 @@ Handles header skipping, UTF-8 decoding, and error handling automatically."
             (when (featurep 'wttrin-debug)
               (wttrin--debug-log "wttrin--fetch-url: Error processing response - %s"
                                  (error-message-string err)))
-            (message "wttrin: Error processing response - %s" (error-message-string err))
             (setq data nil)))
          (funcall callback data))))))
 
@@ -304,7 +302,8 @@ Returns the path to the saved file."
       (insert (format "wttrin-unit-system: %s\n" wttrin-unit-system))
       (insert "\n--- Raw Response ---\n\n")
       (insert raw-string))
-    (message "Debug data saved to: %s" filepath)
+    (when (featurep 'wttrin-debug)
+      (wttrin--debug-log "Debug data saved to: %s" filepath))
     filepath))
 
 (defun wttrin--validate-weather-data (raw-string)
@@ -536,9 +535,9 @@ Force-refresh cache and update tooltip without opening buffer."
 (defun wttrin--mode-line-start ()
   "Start mode-line weather display and refresh timer."
   (when (featurep 'wttrin-debug)
-    (message "wttrin mode-line: Starting mode-line display (location=%s, interval=%s)"
-             wttrin-mode-line-favorite-location
-             wttrin-mode-line-refresh-interval))
+    (wttrin--debug-log "wttrin mode-line: Starting mode-line display (location=%s, interval=%s)"
+                       wttrin-mode-line-favorite-location
+                       wttrin-mode-line-refresh-interval))
   (when wttrin-mode-line-favorite-location
     ;; Delay initial fetch to allow network to initialize during startup
     (run-at-time wttrin-mode-line-startup-delay nil #'wttrin--mode-line-fetch-weather)
@@ -550,14 +549,14 @@ Force-refresh cache and update tooltip without opening buffer."
                       wttrin-mode-line-refresh-interval
                       #'wttrin--mode-line-fetch-weather))
     (when (featurep 'wttrin-debug)
-      (message "wttrin mode-line: Initial fetch scheduled in %s seconds, then every %s seconds"
-               wttrin-mode-line-startup-delay
-               wttrin-mode-line-refresh-interval))))
+      (wttrin--debug-log "wttrin mode-line: Initial fetch scheduled in %s seconds, then every %s seconds"
+                         wttrin-mode-line-startup-delay
+                         wttrin-mode-line-refresh-interval))))
 
 (defun wttrin--mode-line-stop ()
   "Stop mode-line weather display and cancel timer."
   (when (featurep 'wttrin-debug)
-    (message "wttrin mode-line: Stopping mode-line display"))
+    (wttrin--debug-log "wttrin mode-line: Stopping mode-line display"))
   (when wttrin--mode-line-timer
     (cancel-timer wttrin--mode-line-timer)
     (setq wttrin--mode-line-timer nil))
@@ -574,16 +573,16 @@ When enabled, shows weather for `wttrin-mode-line-favorite-location'."
   (if wttrin-mode-line-mode
       (progn
         (when (featurep 'wttrin-debug)
-          (message "wttrin mode-line: Mode enabled"))
+          (wttrin--debug-log "wttrin mode-line: Mode enabled"))
         (wttrin--mode-line-start)
         ;; Add modeline string to global-mode-string for custom modelines
         (if global-mode-string
             (add-to-list 'global-mode-string 'wttrin-mode-line-string 'append)
           (setq global-mode-string '("" wttrin-mode-line-string)))
         (when (featurep 'wttrin-debug)
-          (message "wttrin mode-line: Added to global-mode-string = %S" global-mode-string)))
+          (wttrin--debug-log "wttrin mode-line: Added to global-mode-string = %S" global-mode-string)))
     (when (featurep 'wttrin-debug)
-      (message "wttrin mode-line: Mode disabled"))
+      (wttrin--debug-log "wttrin mode-line: Mode disabled"))
     (wttrin--mode-line-stop)
     ;; Remove from global-mode-string
     (setq global-mode-string
-- 
cgit v1.2.3