sqrtminusone/biome
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/biome.git synced 2025-12-10 14:35:13 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: biome-grid-columns (as in #7)

Browse source
This commit is contained in:
Pavel Korytov 2024-02-28 01:12:03 +03:00
parent fd8b4d9392
commit f4c5d0ec89
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
biome-grid.el
View file

@ -613,15 +613,16 @@ transient switches)."
(transient-define-prefix biome-grid-columns () (transient-define-prefix biome-grid-columns ()
"Toggle columns in `biome-grid' buffer." "Toggle columns in `biome-grid' buffer."
["Toggle columns" ["Toggle columns"
:class transient-column
:setup-children :setup-children
(lambda (_) (lambda (_)
(let ((keys (biome-query--unique-keys (let ((keys (biome-query--unique-keys
(mapcar #'cadr biome-grid--columns-display) '("q")))) (mapcar #'cadr biome-grid--columns-display) '("q"))))
(cl-loop for (api-key name display) in biome-grid--columns-display (transient-parse-suffixes
for key = (gethash name keys) 'transient-prefix
collect (cl-loop for (api-key name display) in biome-grid--columns-display
(transient-parse-suffix for key = (gethash name keys)
'transient-prefix collect
`(,key ,name ,(format "--%s" api-key) `(,key ,name ,(format "--%s" api-key)
:init-value :init-value
(lambda (obj) (lambda (obj)