From 823560e068c9843b755a1af285a1b1d2157811f2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 13 Sep 2024 22:54:16 +0100
Subject: utils: Add string-trim-prefix.

* ravanan/utils.scm (string-trim-prefix): New public function.
---
 ravanan/utils.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/ravanan/utils.scm b/ravanan/utils.scm
index d56378e..5ae3c20 100644
--- a/ravanan/utils.scm
+++ b/ravanan/utils.scm
@@ -20,9 +20,16 @@
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
-  #:export (json-ref
+  #:export (string-trim-prefix
+            json-ref
             call-with-temporary-file))
 
+(define (string-trim-prefix prefix str)
+  "Remove @var{prefix} from @var{str} if it exists. Else, return @var{str} as is."
+  (if (string-prefix? prefix str)
+      (substring str (string-length prefix))
+      str))
+
 (define (json-ref scm . keys)
   "Extract subtree of JSON @var{scm} that is addressed by @var{keys}."
   (match keys
-- 
cgit v1.2.3