From bc4c729ab26e34515cbc9d90ca182af4a8939a00 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 1 Sep 2023 13:42:22 +0200 Subject: [PATCH 2/2] Prompt for missing settings --- air-quality.el | 29 +++++++++++++++++++++-------- 1 file changed, 21 insertions(+), 8 deletions(-) diff --git a/air-quality.el b/air-quality.el index 7895b8c..c6d2250 100644 --- a/air-quality.el +++ b/air-quality.el @@ -144,14 +144,27 @@ (define-minor-mode air-quality-mode :group 'air-quality :global t (if air-quality-mode - (progn - ;; Check that air-quality-open-weather-api-key, - ;; air-quality-latitude and air-quality-longitude are set - (when (and air-quality-open-weather-api-key air-quality-latitude air-quality-longitude) - (add-to-list 'mode-line-misc-info 'air-quality-indicator t ) - (setq air-quality--timer - (run-with-timer 0 (* 60 air-quality-refresh-interval) - #'air-quality--get-update)))) + (let ((need-save nil)) + (unless air-quality-open-weather-api-key + (setq air-quality-open-weather-api-key + (read-string "Set your Open Weather API key: ") + need-save t) + (customize-mark-to-save 'air-quality-open-weather-api-key)) + (unless air-quality-latitude + (setq air-quality-latitude + (read-number "Set your latitude: ") + need-save t) + (customize-mark-to-save 'air-quality-latitude)) + (unless air-quality-longitude + (setq air-quality-longitude + (read-number "Set your longitude: ") + need-save t) + (customize-mark-to-save 'air-quality-longitude)) + (when need-save (custom-save-all)) + (add-to-list 'mode-line-misc-info 'air-quality-indicator t ) + (setq air-quality--timer + (run-with-timer 0 (* 60 air-quality-refresh-interval) + #'air-quality--get-update))) (setq mode-line-misc-info (delq 'air-quality-indicator mode-line-misc-info)) (cancel-timer air-quality--timer)) (force-mode-line-update)) -- 2.42.0