From f7abccc38ceda7024ca375d34ed88f4fb561ef02 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 5 Mar 2023 16:36:44 -0800
Subject: Reorganized codebase

---
 src/init.lisp | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 src/init.lisp

(limited to 'src/init.lisp')

diff --git a/src/init.lisp b/src/init.lisp
new file mode 100644
index 0000000..68b2a16
--- /dev/null
+++ b/src/init.lisp
@@ -0,0 +1,12 @@
+;;;; init.lisp
+
+(in-package #:dnd)
+
+(defun init-db (&optional config)
+  (unless (boundp 'db:*store*)
+    (unless config
+        nil                             ; TODO: handle the case where we have a config
+        (make-instance
+         'db:mp-store
+         :directory (merge-pathnames "dnd-store/" (user-homedir-pathname))
+         :subsystems (list (make-instance 'db:store-object-subsystem))))))
-- 
cgit v1.2.3