From f33d7231fa7f9f11250a592e28601df6b8f564c7 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sat, 4 Apr 2026 12:34:34 -0500 Subject: fix: debug-wttrin-show-raw broken by async API change debug-wttrin-show-raw called wttrin--get-cached-or-fetch with 1 arg, but the function now requires 2 (location + callback) since the async refactor. Rewrote to use the callback pattern. Also handles nil response gracefully. --- wttrin-debug.el | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) (limited to 'wttrin-debug.el') diff --git a/wttrin-debug.el b/wttrin-debug.el index a0576a4..e1d4697 100644 --- a/wttrin-debug.el +++ b/wttrin-debug.el @@ -41,19 +41,22 @@ "Fetch and display raw wttr.in data for LOCATION with line numbers. This is useful for debugging header parsing issues." (interactive "sLocation: ") - (let ((raw-string (wttrin--get-cached-or-fetch location))) - (with-current-buffer (get-buffer-create "*wttrin-debug*") - (erase-buffer) - (insert raw-string) - (goto-char (point-min)) - (let ((line-num 1)) - (while (not (eobp)) - (beginning-of-line) - (insert (format "%2d: " line-num)) - (setq line-num (1+ line-num)) - (forward-line 1))) - (goto-char (point-min)) - (switch-to-buffer (current-buffer))))) + (wttrin--get-cached-or-fetch + location + (lambda (raw-string) + (with-current-buffer (get-buffer-create "*wttrin-debug*") + (erase-buffer) + (when raw-string + (insert raw-string)) + (goto-char (point-min)) + (let ((line-num 1)) + (while (not (eobp)) + (beginning-of-line) + (insert (format "%2d: " line-num)) + (setq line-num (1+ line-num)) + (forward-line 1))) + (goto-char (point-min)) + (switch-to-buffer (current-buffer)))))) ;;;###autoload (defun debug-wttrin-enable () -- cgit v1.2.3