Partially matching ID queries

This commit is contained in:
orbifx 2022-11-26 11:16:50 +00:00
parent b91b556b79
commit aae83be27a
1 changed files with 4 additions and 1 deletions

View File

@ -5,7 +5,10 @@ let authored query_string =
fun n -> Person.Set.predicate q n.Text.authors
let ided query_string =
fun n -> n.Text.id = query_string
let len = String.length query_string in
fun n ->
try String.sub n.Text.id 0 len = query_string
with Invalid_argument _ -> false
let keyworded query_string =
let q = String_set.query query_string in