From 5eb2b84592c0ef72bc77e8b903ea20cf52d5a6df Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Sat, 22 Jul 2023 18:01:02 +0300
Subject: [PATCH] biome-api-data: fix max forecast days for Flood API

---
 biome-api-data.el  | 2 +-
 biome-api-parse.el | 8 +++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/biome-api-data.el b/biome-api-data.el
index 7419385..23dec39 100644
--- a/biome-api-data.el
+++ b/biome-api-data.el
@@ -6199,7 +6199,7 @@
          (:name . "Forecast days")
          (:type . number)
          (:min . 0)
-         (:max . 16))
+         (:max . 210))
         ("timeformat"
          (:name . "Timeformat")
          (:type . select)
diff --git a/biome-api-parse.el b/biome-api-parse.el
index 680de24..8c9a68f 100644
--- a/biome-api-parse.el
+++ b/biome-api-parse.el
@@ -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
              if (member name (alist-get :pages 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
   ;; XXX I do not know why this doesn't work without returning
   ;; sections from the loop