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

ci: fix even more errors

Browse source
This commit is contained in:
Pavel Korytov 2023-07-22 23:34:17 +03:00
parent 379a3d1df6
commit 6cc0ec1b21
2 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
biome-query.el
View file

@ -220,7 +220,9 @@ KEY is the api key of the variable. VAR-NAMES is the output of
" " " "
(if lon (propertize (number-to-string lon) 'face 'transient-value) (if lon (propertize (number-to-string lon) 'face 'transient-value)
(propertize "unset" 'face 'error)) (propertize "unset" 'face 'error))
(when-let ((_nothing (and lat lon)) ;; XXX byte-compiler thinks the variable `nothing' is
;; used, so I can't call it "_"
(when-let ((nothing (and lat lon))
(loc (seq-find (loc (seq-find
(lambda (x) (equal (cdr x) (list lat lon))) (lambda (x) (equal (cdr x) (list lat lon)))
biome-query-coords))) biome-query-coords)))
@ -714,12 +716,13 @@ exclude from the result."
(append (append
;; Unset forbidden keys ;; Unset forbidden keys
(cl-loop for name in names (cl-loop for name in names
for key = (gethash name keys-by-name) for key-1 = (gethash name key-1s-by-name)
if (or (null key) (and if (or (null key-1)
exclude key (and
(seq-some exclude key-1
(lambda (ex) (string-prefix-p ex key)) (seq-some
exclude))) (lambda (ex) (string-prefix-p ex key-1))
exclude)))
collect name) collect name)
;; Duplicate keys ;; Duplicate keys
(cl-loop for key being the hash-key of names-by-key (cl-loop for key being the hash-key of names-by-key
@ -736,9 +739,10 @@ exclude from the result."
(cl-loop (cl-loop
for name in names-to-update for name in names-to-update
for old-key = (gethash name keys-by-name) for old-key = (gethash name keys-by-name)
if old-key do (puthash old-key (remove name (gethash old-key names-by-key)) names-by-key) for key-1 = (iter-next (gethash name iters))
do (puthash key (cons name (gethash key names-by-key)) names-by-key) if old-key-1 do (puthash old-key-1 (remove name (gethash old-key-1 names-by-key-1)) names-by-key-1)
do (puthash name (iter-next (gethash name iters)) keys-by-name))) do (puthash key-1 (cons name (gethash key-1 names-by-key-1)) names-by-key-1)
do (puthash name key-1 key-1s-by-name)))
keys-by-name)) keys-by-name))
(defun biome--query-section-fields-define-infixes (fields keys param infix-name) (defun biome--query-section-fields-define-infixes (fields keys param infix-name)

3
biome.el
View file

@ -58,7 +58,8 @@ API."
(defun biome () (defun biome ()
"Bountiful Interface to Open Meteo for Emacs." "Bountiful Interface to Open Meteo for Emacs."
(interactive) (interactive)
(biome-query (funcall-interactively
#'biome-query
(lambda (query) (lambda (query)
(biome-api-get query biome-frontend)))) (biome-api-get query biome-frontend))))