summaryrefslogtreecommitdiff
path: root/gnbug
diff options
context:
space:
mode:
Diffstat (limited to 'gnbug')
-rwxr-xr-xgnbug8
1 files changed, 6 insertions, 2 deletions
diff --git a/gnbug b/gnbug
index acf02af..caa474a 100755
--- a/gnbug
+++ b/gnbug
@@ -96,6 +96,10 @@ 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 (file-details file)
"Return a hashtable of details extracted from gemini FILE."
(let ((result (make-eq-hashtable)))
@@ -108,13 +112,13 @@ strings, and return them as a list."
((string-prefix? "* assigned:" line)
(hashtable-append! result 'assigned
(comma-split
- (substring line (string-length "* assigned:")))))
+ (remove-prefix "* assigned:" line))))
;; The first level one heading is the
;; title.
((string-prefix? "# " line)
(unless (hashtable-contains? result 'title)
(hashtable-set! result 'title
- (substring line (string-length "# "))))))))
+ (remove-prefix "# " line)))))))
(const #t)
read-line
port)))