mirror of
https://github.com/SqrtMinusOne/biome.git
synced 2025-12-11 14:53:02 +03:00
biome-api-data: fix max forecast days for Flood API
This commit is contained in:
parent
99dfaede5f
commit
5eb2b84592
2 changed files with 8 additions and 2 deletions
|
|
@ -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)
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue