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

@ -324,6 +324,7 @@ in the context of a database transaction and should perform the migration."
(defun migrate ()
"Migrate the database, running all migrations that have not yet been run"
(ensure-migrations-table)
(format t "Running migrations from ~A...~%" *migrations-dir*)
(let* ((all-migrations (load-migrations))
(already-run (migrations-already-run))
(num-migrations-run 0))
@ -350,7 +351,7 @@ in the context of a database transaction and should perform the migration."
;; otherwise, run the migration
(run-migration migration))
(incf num-migrations-run))
(format nil "Ran ~A migration~:P" num-migrations-run)))
(format t "Ran ~A migration~:P~%" num-migrations-run)))
;;;
;;; Querying