From 0242897268b61151d9c89ef8ad1db46666517232 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 3 Jul 2022 01:57:17 +0530
Subject: issue: Use string-remove-prefix from (tissue utils).

* tissue/issue.scm (list-line->alist, file-details): Use
string-remove-prefix from (tissue utils).
(file-details): Delete function.
---
 tissue/issue.scm | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 02982e1..4c9ca84 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -269,10 +269,6 @@ strings, and return them as a list."
   (map (cut string-trim-both <>)
        (string-split str #\,)))
 
-(define (remove-prefix prefix str)
-  "Remove PREFIX from STR."
-  (substring str (string-length prefix)))
-
 (define (<=n-words? str n)
   "Return #t if STR has N words or less. Else, return #f."
   (<= (length (string-split str #\space))
@@ -298,7 +294,7 @@ return #f."
                     (cons (cons key (cons element values))
                           tail))))))
              '()
-             (comma-split (remove-prefix "* " line)))))
+             (comma-split (string-remove-prefix "* " line)))))
 
 (define (resolve-alias name aliases)
   "Resolve NAME against ALIASES, a list of aliases. ALIASES should be
@@ -354,7 +350,7 @@ gemtext file."
 				   ;; Is every comma-separated
 				   ;; element two words utmost?
 				   (every (cut <=n-words? <> 2)
-					  (comma-split (remove-prefix "* " line)))
+					  (comma-split (string-remove-prefix "* " line)))
 				   ;; Does any comma-separated
 				   ;; element contain a potential
 				   ;; keyword?
@@ -365,16 +361,16 @@ gemtext file."
                                                      "enhancement" "progress"
                                                      "testing" "later" "documentation"
                                                      "help" "closed")))
-					(comma-split (remove-prefix "* " line))))
+					(comma-split (string-remove-prefix "* " line))))
                               (hashtable-append! result 'keywords
 						 (comma-split
-						  (remove-prefix "* " line))))
+						  (string-remove-prefix "* " line))))
                              ;; The first level one heading is the
                              ;; title.
                              ((string-prefix? "# " line)
                               (unless (hashtable-contains? result 'title)
 				(hashtable-set! result 'title
-						(remove-prefix "# " line)))))))
+						(string-remove-prefix "# " line)))))))
                     (const #t)
                     get-line-dos-or-unix
                     port)
-- 
cgit v1.2.3