fix(web/panettone): Hotfixes for full text search change

- Actually define *static-dir* at build time, to get the search.png in
  the search box
- Better logging for migration running at startup time
- Fix and-where to properly exclude nil clauses
- fix looking up build-time vars in the :build package

Change-Id: Ia2ef3b2715d4c2efb62bbb2c72084f0f0ad09562
Reviewed-on: https://cl.tvl.fyi/c/depot/+/11325
Autosubmit: aspen <root@gws.fyi>
Reviewed-by: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
This commit is contained in:
Aspen Smith 2024-03-31 16:06:50 -04:00 committed by clbot
parent efe7e8e63a
commit 1d1984e85f
3 changed files with 8 additions and 5 deletions

View file

@ -16,8 +16,9 @@ that it can be successfully decoded by the `BASE64' package"
(defun and-where (clauses)
"Combine all non-nil clauses in CLAUSES into a single S-SQL WHERE form"
(if (null clauses) t
(reduce (lambda (x y) `(:and ,x ,y)) clauses)))
(let ((clauses (remove nil clauses)))
(if (null clauses) t
(reduce (lambda (x y) `(:and ,x ,y)) clauses))))
(defun and-where* (&rest clauses)
"Combine all non-nil clauses in CLAUSES into a single S-SQL WHERE form"
@ -27,7 +28,7 @@ that it can be successfully decoded by the `BASE64' package"
(name value-if-not-in-build &optional (doc nil))
`(defvar ,name
(or (when-let ((package (find-package :build)))
(let ((sym (find-symbol ,(symbol-name name))))
(let ((sym (find-symbol ,(symbol-name name) package)))
(when (boundp sym) (symbol-value sym))))
,value-if-not-in-build)
,doc))