1.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2+++ b/scripts/org-graph-db-init.lisp	Sun Aug 25 00:13:49 2024 -0400
     1.3@@ -0,0 +1,25 @@
     1.4+;;; org-graph-db-init.lisp --- Initialize the org-graph-db-directory
     1.5+
     1.6+;; 
     1.7+
     1.8+;;; Code:
     1.9+#-user (ql:quickload :user)
    1.10+(in-package :user)
    1.11+(defpkg :org-graph-db-init
    1.12+  (:use :cl :std :rdb
    1.13+   :obj/db :obj/query :obj/id :obj/uuid))
    1.14+
    1.15+(in-package :org-graph-db-init)
    1.16+
    1.17+(rocksdb:load-rocksdb)
    1.18+
    1.19+(defvar org-graph-schema nil)
    1.20+
    1.21+(defvar org-graph)
    1.22+
    1.23+(defparameter org-graph-db-directory
    1.24+  (or (probe-file (car (cli:args)))
    1.25+      #P"~/.stash/org/graph/db"))
    1.26+
    1.27+(defun init-org-graph-db ()
    1.28+  (with-db (db (make-rdb "org-graph" (make-rdb-opts)))))