From e5104cf39570605859c3648ed83c37fe647b0e3f Mon Sep 17 00:00:00 2001 From: Colin Okay <colin@cicadas.surf> Date: Mon, 27 Jun 2022 15:23:35 -0500 Subject: [example] 1 2 and 3 find the right asset root automatically --- examples/01-bitmap-display.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'examples/01-bitmap-display.lisp') diff --git a/examples/01-bitmap-display.lisp b/examples/01-bitmap-display.lisp index 788ae6d..c9e0275 100644 --- a/examples/01-bitmap-display.lisp +++ b/examples/01-bitmap-display.lisp @@ -19,5 +19,9 @@ (defun start () - (ww::start (make-instance 'bitmap-display - :asset-root #P"~/projects/wheelwork/examples/"))) + (ww::start + (make-instance + 'bitmap-display + :asset-root (merge-pathnames + "examples/" + (asdf:system-source-directory :wheelwork))))) -- cgit v1.2.3