From d07aae3a351d00ab28c09c71f71149ca5d9106aa Mon Sep 17 00:00:00 2001
From: fox <fox@eb64cd80-c68d-6f47-b6a3-0ada418499da>
Date: Sat, 26 Nov 2022 11:16:50 +0000
Subject: [PATCH] Partially matching ID queries

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@37 eb64cd80-c68d-6f47-b6a3-0ada418499da
---
 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