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