37 lines
1.1 KiB
Common Lisp
37 lines
1.1 KiB
Common Lisp
;;;; cl-scopes/storage/folder - persistent folders, stored in a SQL database.
|
|
|
|
(defpackage :scopes/storage/folder
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:shape :scopes/shape)
|
|
(:tracking :scopes/storage/tracking)
|
|
(:util :scopes/util))
|
|
(:export #:folder #:root #:put-new
|
|
#:make-container))
|
|
|
|
(in-package :scopes/storage/folder)
|
|
|
|
(defclass folder (tracking:track)
|
|
((shape:head-fields :initform '(:parentid :name :ref))
|
|
(tracking:key-fields :initform '(:parentid :name))))
|
|
|
|
(defun indexes (cont)
|
|
'((parentid name ref) (ref)))
|
|
|
|
(defun make-container (storage)
|
|
(make-instance 'tracking:container
|
|
:item-class 'folder
|
|
:short-name :fldr
|
|
:table-name :folders
|
|
:index-factory #'indexes
|
|
:storage storage))
|
|
|
|
(defun root (cont)
|
|
(let ((f (tracking:make-item cont nil :root)))
|
|
(tracking:save f)))
|
|
|
|
(defun put-new (name parent)
|
|
(let* ((cont (tracking:container parent))
|
|
(pid (write-to-string (tracking:trackid parent)))
|
|
(f (tracking:make-item cont pid name)))
|
|
(util:lgi pid f)
|
|
(tracking:save f)))
|