changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra / scripts/org-graph-db-init.lisp

changeset 359: 9fc8fc324c10
child: 7e7981b3af10
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 25 Aug 2024 00:13:49 -0400
permissions: -rw-r--r--
description: add org-graph-db-init script 
     1 ;;; org-graph-db-init.lisp --- Initialize the org-graph-db-directory
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 #-user (ql:quickload :user)
     7 (in-package :user)
     8 (defpkg :org-graph-db-init
     9   (:use :cl :std :rdb
    10    :obj/db :obj/query :obj/id :obj/uuid))
    11 
    12 (in-package :org-graph-db-init)
    13 
    14 (rocksdb:load-rocksdb)
    15 
    16 (defvar org-graph-schema nil)
    17 
    18 (defvar org-graph)
    19 
    20 (defparameter org-graph-db-directory
    21   (or (probe-file (car (cli:args)))
    22       #P"~/.stash/org/graph/db"))
    23 
    24 (defun init-org-graph-db ()
    25   (with-db (db (make-rdb "org-graph" (make-rdb-opts)))))