biome-api-data: fix max forecast days for Flood API

This commit is contained in:
Pavel Korytov 2023-07-22 18:01:02 +03:00
parent 99dfaede5f
commit 5eb2b84592
2 changed files with 8 additions and 2 deletions

View file

@ -6199,7 +6199,7 @@
(:name . "Forecast days") (:name . "Forecast days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 16)) (:max . 210))
("timeformat" ("timeformat"
(:name . "Timeformat") (:name . "Timeformat")
(:type . select) (:type . select)

View file

@ -315,7 +315,13 @@ NAME is the page name as given in `biome-api-parse--urls'."
(cl-loop for var in biome-api-parse--add-settings (cl-loop for var in biome-api-parse--add-settings
if (member name (alist-get :pages var)) if (member name (alist-get :pages var))
do (push (copy-tree (alist-get :param var)) do (push (copy-tree (alist-get :param var))
(alist-get :fields (cdr settings-data))))) (alist-get :fields (cdr settings-data))))
;; Fix forecast_days for Flood API
(when (equal name "Flood")
(let ((forecast-days (alist-get "forecast_days"
(alist-get :fields (cdr settings-data))
nil nil #'equal)))
(setf (alist-get :max forecast-days) 210))))
;; Add section-specific URL params ;; Add section-specific URL params
;; XXX I do not know why this doesn't work without returning ;; XXX I do not know why this doesn't work without returning
;; sections from the loop ;; sections from the loop