selectByComponents

src/nat/ArchiveController.kiss

@@ -181,4 +181,7 @@
         entries) // TODO this includes entries that didn't have the tag in the changeset
         
     (defcommand selectByTags [tagsBoolExp (Text null)]
-        (selectEntries (filter archive.entries ->e (tagsMatch archive e tagsBoolExp)))))
+        (selectEntries (filter archive.entries ->e (tagsMatch archive e tagsBoolExp))))
+        
+    (defcommand selectByComponents [componentsBoolExp (Text null)]
+        (selectEntries (filter archive.entries ->e (componentsMatch e componentsBoolExp)))))

src/nat/Lib.kiss

@@ -70,4 +70,7 @@
         (collect (t.keys))))
 
 (defun tagsMatch [archive e tagsBoolExp]
-    (BoolExpInterp.eval tagsBoolExp (tagList archive e)))
+    (BoolExpInterp.eval tagsBoolExp (tagList archive e)))
+
+(defun componentsMatch [:nat.Entry e componentsBoolExp]
+    (BoolExpInterp.eval componentsBoolExp (for =>cType cId e.components cType)))

src/test/TestMain.kiss

@@ -21,6 +21,8 @@
 
         (assert (hasComponent song1 Tags))
         (assert (hasComponent song2 Tags))
+        (assert (componentsMatch song1 "(and Name Author)"))
+        (assert (componentsMatch song2 "(and Name Author)"))
         (assert (tagsMatch archive song1 "(and song western)"))
         (assert !(tagsMatch archive song1 "(and song religious)"))
         (assert (tagsMatch archive song2 "(and song religious)"))