feat: add named-locations directory with display names

A saved location carries a display name distinct from its query target ("Mom's House" maps to coordinates or an address), stored in a savehist-persisted wttrin-saved-locations alist. The name shows everywhere the place appears (picker, buffer header, mode-line tooltip) while wttr.in is still queried by the target.

Management commands wttrin-save-location, wttrin-rename-location, and wttrin-remove-location edit the directory, with refuse-on-collision rename and a favorite-fallback warning on remove. In the weather buffer, s/r/x reach those commands and d names a detected location before promoting it to the default. The footer is two columns: a "This view" column (another, refresh, quit) and a "Saved locations" column (save, make default, rename, remove). The buffer anchors to the top so the forecast isn't scrolled out of view in a short window.

The mode-line follows favorite changes immediately rather than waiting for the next scheduled fetch, and its hover tooltip shows the saved name instead of the raw query. History holds named entries only: raw coordinate detections and saved names stay out of it.

1 files changed, 23 insertions, 0 deletions

diff --git a/tests/test-wttrin-set-location-from-geolocation.el b/tests/test-wttrin-set-location-from-geolocation.el
index e7c3a97..f16b2ae 100644
--- a/tests/test-wttrin-set-location-from-geolocation.el
+++ b/tests/test-wttrin-set-location-from-geolocation.el
@@ -65,6 +65,29 @@
         (should (string= "Pre-existing, Place" wttrin-favorite-location)))
     (test-wttrin-set-location-from-geolocation-teardown)))
 
+(ert-deftest test-wttrin-set-location-from-geolocation-normal-confirm-refreshes-mode-line ()
+  "Normal: a confirmed detection refreshes the mode-line so it tracks the new
+favorite immediately instead of at the next scheduled fetch."
+  (test-wttrin-set-location-from-geolocation-setup)
+  (setq wttrin-favorite-location "Pre-existing, Place")
+  (unwind-protect
+      (let ((wttrin-geolocation-enabled t)
+            (wttrin-mode-line-mode t)
+            (wttrin--location-history nil)
+            (fetched nil))
+        (cl-letf (((symbol-function 'wttrin-geolocation-detect)
+                   (lambda (callback) (funcall callback "Berkeley, California")))
+                  ((symbol-function 'yes-or-no-p) (lambda (&rest _) t))
+                  ((symbol-function 'message) (lambda (&rest _) nil))
+                  ((symbol-function 'wttrin--mode-line-fetch-weather)
+                   (lambda () (setq fetched t)))
+                  ((symbol-function 'wttrin--mode-line-set-placeholder)
+                   (lambda () nil)))
+          (wttrin-set-location-from-geolocation))
+        (should (string= "Berkeley, California" wttrin-favorite-location))
+        (should fetched))
+    (test-wttrin-set-location-from-geolocation-teardown)))
+
 ;;; Boundary Cases
 
 (ert-deftest test-wttrin-set-location-from-geolocation-boundary-unicode-location ()