biome-query: fix for newer transient versions

This commit is contained in:
Jonas Meurer 2024-02-27 20:18:02 +01:00
parent bc4f229c74
commit 7d32a7621c
No known key found for this signature in database
GPG key ID: 7D00DC06D0B220A0

View file

@ -1016,16 +1016,17 @@ SECTION is a form as defined in `biome-api-parse--page'."
(transient-define-prefix biome-query (callback) (transient-define-prefix biome-query (callback)
["Open Meteo Data" ["Open Meteo Data"
:class transient-column
:setup-children :setup-children
(lambda (_) (lambda (_)
(cl-loop for (name . params) in biome-api-data (transient-parse-suffixes
collect (transient-parse-suffix 'transient--prefix
transient--prefix (cl-loop for (name . params) in biome-api-data
`(,(alist-get :key params) collect `(,(alist-get :key params)
,name ,name
(lambda () (interactive) (lambda () (interactive)
(biome-query--section-open ,name)) (biome-query--section-open ,name))
:transient transient--do-stack))))] :transient transient--do-stack))))]
["Actions" ["Actions"
:class transient-row :class transient-row
("r" "Resume" biome-resume :transient transient--do-replace) ("r" "Resume" biome-resume :transient transient--do-replace)