biome-api-parse: fix replacing fields

This commit is contained in:
Pavel Korytov 2023-07-10 22:56:42 +03:00
parent 1bc7a354ee
commit 1a2cf624c5
2 changed files with 29 additions and 1 deletions

View file

@ -670,18 +670,23 @@
("iso8601" . "ISO 8601 (e.g. 2022-12-31)") ("iso8601" . "ISO 8601 (e.g. 2022-12-31)")
("unixtime" . "Unix timestamp"))) ("unixtime" . "Unix timestamp")))
("past_days" ("past_days"
(:name . "Past days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 92)) (:max . 92))
("forecast_days" ("forecast_days"
(:name . "Forecast days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 16)) (:max . 16))
("start_date" ("start_date"
(:name . "Start date")
(:type . date)) (:type . date))
("end_date" ("end_date"
(:name . "End date")
(:type . date)) (:type . date))
("timezone" ("timezone"
(:name . "Timezone")
(:type . timezone)))) (:type . timezone))))
((:param . "models") ((:param . "models")
(:name . "Weather models") (:name . "Weather models")
@ -2416,18 +2421,23 @@
("iso8601" . "ISO 8601 (e.g. 2022-12-31)") ("iso8601" . "ISO 8601 (e.g. 2022-12-31)")
("unixtime" . "Unix timestamp"))) ("unixtime" . "Unix timestamp")))
("past_days" ("past_days"
(:name . "Past days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 92)) (:max . 92))
("forecast_days" ("forecast_days"
(:name . "Forecast days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 16)) (:max . 16))
("start_date" ("start_date"
(:name . "Start date")
(:type . date)) (:type . date))
("end_date" ("end_date"
(:name . "End date")
(:type . date)) (:type . date))
("timezone" ("timezone"
(:name . "Timezone")
(:type . timezone)))))) (:type . timezone))))))
("MeteoFrance" ("MeteoFrance"
(:name . "MeteoFrance") (:name . "MeteoFrance")
@ -3309,14 +3319,18 @@
("iso8601" . "ISO 8601 (e.g. 2022-12-31)") ("iso8601" . "ISO 8601 (e.g. 2022-12-31)")
("unixtime" . "Unix timestamp"))) ("unixtime" . "Unix timestamp")))
("timezone" ("timezone"
(:name . "Timezone")
(:type . timezone)) (:type . timezone))
("past_days" ("past_days"
(:name . "Past days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 92)) (:max . 92))
("start_date" ("start_date"
(:name . "Start date")
(:type . date)) (:type . date))
("end_date" ("end_date"
(:name . "End date")
(:type . date)))) (:type . date))))
((:param . "models") ((:param . "models")
(:name . "Weather models") (:name . "Weather models")
@ -4167,14 +4181,18 @@
("iso8601" . "ISO 8601 (e.g. 2022-12-31)") ("iso8601" . "ISO 8601 (e.g. 2022-12-31)")
("unixtime" . "Unix timestamp"))) ("unixtime" . "Unix timestamp")))
("timezone" ("timezone"
(:name . "Timezone")
(:type . timezone)) (:type . timezone))
("past_days" ("past_days"
(:name . "Past days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 92)) (:max . 92))
("start_date" ("start_date"
(:name . "Start date")
(:type . date)) (:type . date))
("end_date" ("end_date"
(:name . "End date")
(:type . date)))))) (:type . date))))))
("MET Norway" ("MET Norway"
(:name . "MET Norway") (:name . "MET Norway")
@ -5224,14 +5242,18 @@
("iso8601" . "ISO 8601 (e.g. 2022-12-31)") ("iso8601" . "ISO 8601 (e.g. 2022-12-31)")
("unixtime" . "Unix timestamp"))) ("unixtime" . "Unix timestamp")))
("timezone" ("timezone"
(:name . "Timezone")
(:type . timezone)) (:type . timezone))
("past_days" ("past_days"
(:name . "Past days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 92)) (:max . 92))
("start_date" ("start_date"
(:name . "Start date")
(:type . date)) (:type . date))
("end_date" ("end_date"
(:name . "End date")
(:type . date)))))) (:type . date))))))
("Historical Weather" ("Historical Weather"
(:name . "Historical Weather") (:name . "Historical Weather")
@ -5423,8 +5445,10 @@
((:name . "Specify Time Interval") ((:name . "Specify Time Interval")
(:fields (:fields
("start_date" ("start_date"
(:name . "Start date")
(:type . date)) (:type . date))
("end_date" ("end_date"
(:name . "End date")
(:type . date)))) (:type . date))))
((:name . "Settings") ((:name . "Settings")
(:fields (:fields
@ -5929,6 +5953,7 @@
((:name . "Settings") ((:name . "Settings")
(:fields (:fields
("timezone" ("timezone"
(:name . "Timezone")
(:type . timezone)) (:type . timezone))
("length_unit" ("length_unit"
(:name . "Length Unit") (:name . "Length Unit")
@ -5943,12 +5968,15 @@
("iso8601" . "ISO 8601 (e.g. 2022-12-31)") ("iso8601" . "ISO 8601 (e.g. 2022-12-31)")
("unixtime" . "Unix timestamp"))) ("unixtime" . "Unix timestamp")))
("past_days" ("past_days"
(:name . "Past days")
(:type . number) (:type . number)
(:min . 0) (:min . 0)
(:max . 92)) (:max . 92))
("start_date" ("start_date"
(:name . "Start date")
(:type . date)) (:type . date))
("end_date" ("end_date"
(:name . "End date")
(:type . date)))))) (:type . date))))))
("Air Quality" ("Air Quality"
(:name . "Air Quality") (:name . "Air Quality")

View file

@ -195,7 +195,7 @@ SECTION is a DOM element. Return a list of fields as defined by
(setf (cdr field) (cons `(:name . ,name) (cdr field))))) (setf (cdr field) (cons `(:name . ,name) (cdr field)))))
(cl-loop for (id . replace-field) in biome-api-parse--replace-variables (cl-loop for (id . replace-field) in biome-api-parse--replace-variables
do (when-let ((field (assoc id fields))) do (when-let ((field (assoc id fields)))
(setf (cdr field) (copy-tree (cdr replace-field))))) (setf (cdr field) (copy-tree replace-field))))
(nreverse fields))) (nreverse fields)))
(defun biome-api-parse--page-pills (section) (defun biome-api-parse--page-pills (section)