kiss-lang/nat-archive-tool
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

selectByComponents

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-07-10 16:16:13 -06:00
parent 094e512009
commit b05da63720
3 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/nat/ArchiveController.kiss
View File

@@ -181,4 +181,7 @@
entries) // TODO this includes entries that didn't have the tag in the changeset entries) // TODO this includes entries that didn't have the tag in the changeset
(defcommand selectByTags [tagsBoolExp (Text null)] (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)))))

3
src/nat/Lib.kiss
View File

@@ -71,3 +71,6 @@
(defun tagsMatch [archive e tagsBoolExp] (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)))

2
src/test/TestMain.kiss
View File

@@ -21,6 +21,8 @@
(assert (hasComponent song1 Tags)) (assert (hasComponent song1 Tags))
(assert (hasComponent song2 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 western)"))
(assert !(tagsMatch archive song1 "(and song religious)")) (assert !(tagsMatch archive song1 "(and song religious)"))
(assert (tagsMatch archive song2 "(and song religious)")) (assert (tagsMatch archive song2 "(and song religious)"))