storage/folder: + parent query

storage/folder.lisp

@@ -5,7 +5,7 @@
   (:local-nicknames (:shape :scopes/shape)
                     (:tracking :scopes/storage/tracking)
                     (:util :scopes/util))
-  (:export #:folder #:root #:create #:items
+  (:export #:folder #:root #:create #:items #:parent
            #:make-container))
 
 (in-package :scopes/storage/folder)
@@ -34,8 +34,13 @@
         (pid (tracking:id-str parent)))
     (tracking:save (tracking:make-item cont pid name))))
 
-(defun items (parent)
-  (query parent `((:parentid ,(id parent)))))
+(defun items (f)
+  (query f `((:parentid ,(id f)))))
+
+(defun parent (f)
+  (let ((pid (parse-integer (util:keyword-to-string (shape:head-value f :parentid)))))
+    (tracking:query-one (tracking:container f) 
+                        (tracking:make-where `((:trackid ,pid))))))
 
 ;;;; auxiliary functions
 

test/test-storage.lisp

@@ -100,4 +100,6 @@
     (setf r1 (folder:items root))
     (== (length r1) 1)
     (== (shape:head-value (car r1) :ref) :dummy-0)
+    (setf f2 (folder:parent (car r1)))
+    (== (tracking:trackid f2) 1)
     ))