From 714df33b8b39da64c7b8158be64b156e4c50e561 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Mon, 29 Jun 2026 08:44:31 +0200
Subject: [PATCH] ks-key-count added.

---
 keystore.rkt | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/keystore.rkt b/keystore.rkt
index fde93ec..a32ae4a 100644
--- a/keystore.rkt
+++ b/keystore.rkt
@@ -18,6 +18,7 @@
          ks-key-values
          ks-key-values-raw
          ks-keys-raw
+         ks-key-count
          )
 
 (define-struct keystore
@@ -71,6 +72,12 @@
                    "SELECT key, value FROM keystore WHERE str_key GLOB $1"
                    (string-downcase gl))))
 
+(define/contract (ks-key-count ksh)
+  (-> keystore? number?)
+  (let ((l (query-rows (keystore-dbh ksh)
+                       "SELECT count(*) FROM keystore")))
+    (vector-ref (car l) 0)))
+
 (define/contract (ks-keys-glob ksh sqlite-like)
   (-> keystore? string? list?)
   (map (λ (row)