Txt read & optional path printing for txt list

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@9 eb64cd80-c68d-6f47-b6a3-0ada418499da
2022-06-19 21:01:11 +00:00
parent a86b663719
commit 66f5bc7a68
5 changed files with 59 additions and 19 deletions
--- a/lib/archive.ml
+++ b/lib/archive.ml
@@ -4,6 +4,9 @@ let authored query_string =
  let q = Person.Set.of_query @@ String_set.query query_string in
  fun n -> Person.Set.predicate q n.Text.authors

+let ided query_string =
+	fun n -> n.Text.id = query_string
+
 let keyworded query_string =
  let q = String_set.query query_string in
  fun n -> String_set.(predicate q (Text.set "Keywords" n))