From da7ee0841924dfbd91c9a944e0bfeff6903bd8a1 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sun, 28 Jun 2026 04:11:45 -0400
Subject: fix: don't steal focus when an async weather response renders

wttrin--display-weather ran switch-to-buffer from the async callback, so a
response arriving after the user moved to another buffer yanked them back to
*wttr.in*. It now renders with set-buffer; selecting the buffer is the
interactive command's job (wttrin-query already does it at invocation), so a
late response updates the buffer in place without changing the selected window.
---
 tests/test-wttrin--display-weather-focus.el | 45 +++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 tests/test-wttrin--display-weather-focus.el

(limited to 'tests/test-wttrin--display-weather-focus.el')

diff --git a/tests/test-wttrin--display-weather-focus.el b/tests/test-wttrin--display-weather-focus.el
new file mode 100644
index 0000000..cc08fdd
--- /dev/null
+++ b/tests/test-wttrin--display-weather-focus.el
@@ -0,0 +1,45 @@
+;;; test-wttrin--display-weather-focus.el --- Async render doesn't steal focus -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2024-2026 Craig Jennings
+
+;;; Commentary:
+;; wttrin--display-weather runs from an async callback.  If the user moved to
+;; another buffer while the fetch was in flight, rendering the result must not
+;; select *wttr.in* and steal the window.
+
+;;; Code:
+
+(require 'ert)
+(require 'wttrin)
+(require 'testutil-wttrin)
+
+(ert-deftest test-wttrin--display-weather-error-does-not-steal-focus ()
+  "Error: rendering an async response does not select *wttr.in*.
+If the user moved to another buffer while the fetch was in flight, displaying
+the result must leave the selected window on that other buffer."
+  (let ((other (get-buffer-create "*wttrin-other*")))
+    (unwind-protect
+        (progn
+          (set-window-buffer (selected-window) other)
+          (wttrin--display-weather "Paris" "Weather report: paris\n+10 C\n"
+                                   nil nil nil)
+          (should (eq (window-buffer (selected-window)) other)))
+      (when (get-buffer "*wttr.in*") (kill-buffer "*wttr.in*"))
+      (when (buffer-live-p other) (kill-buffer other)))))
+
+(ert-deftest test-wttrin--display-weather-normal-populates-buffer ()
+  "Normal: rendering still fills *wttr.in* with the weather content."
+  (let ((other (get-buffer-create "*wttrin-other*")))
+    (unwind-protect
+        (progn
+          (set-window-buffer (selected-window) other)
+          (wttrin--display-weather "Paris" "Weather report: paris\n+10 C\n"
+                                   nil nil nil)
+          (with-current-buffer "*wttr.in*"
+            (should (string-match-p "Weather report: Paris"
+                                    (buffer-string)))))
+      (when (get-buffer "*wttr.in*") (kill-buffer "*wttr.in*"))
+      (when (buffer-live-p other) (kill-buffer other)))))
+
+(provide 'test-wttrin--display-weather-focus)
+;;; test-wttrin--display-weather-focus.el ends here
-- 
cgit v1.2.3