# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1724559229 14400
# Node ID 9fc8fc324c10a2003a39a7a10afc8902b622f3e4
# Parent  0b9c40ef484966f541ec287a77456e80a9b9e26f
add org-graph-db-init script

diff -r 0b9c40ef4849 -r 9fc8fc324c10 scripts/org-graph-db-init.lisp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/org-graph-db-init.lisp	Sun Aug 25 00:13:49 2024 -0400
@@ -0,0 +1,25 @@
+;;; org-graph-db-init.lisp --- Initialize the org-graph-db-directory
+
+;; 
+
+;;; Code:
+#-user (ql:quickload :user)
+(in-package :user)
+(defpkg :org-graph-db-init
+  (:use :cl :std :rdb
+   :obj/db :obj/query :obj/id :obj/uuid))
+
+(in-package :org-graph-db-init)
+
+(rocksdb:load-rocksdb)
+
+(defvar org-graph-schema nil)
+
+(defvar org-graph)
+
+(defparameter org-graph-db-directory
+  (or (probe-file (car (cli:args)))
+      #P"~/.stash/org/graph/db"))
+
+(defun init-org-graph-db ()
+  (with-db (db (make-rdb "org-graph" (make-rdb-opts)))))