From aae83be27a4e7f693c7b563a7df4e255cdcedc50 Mon Sep 17 00:00:00 2001
From: orbifx <fox@orbitalfox.eu>
Date: Sat, 26 Nov 2022 11:16:50 +0000
Subject: [PATCH] Partially matching ID queries

---
 lib/archive.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/archive.ml b/lib/archive.ml
index 68343b3..a04d660 100644
--- a/lib/archive.ml
+++ b/lib/archive.ml
@@ -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