From 9a9242f286c6b9f78816c44158a24887e7d3bd8e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 23 Mar 2023 22:43:21 +0100 Subject: [PATCH] Fix card comment parsing. --- member-file.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/member-file.scm b/member-file.scm index 76244d6..9db92e6 100644 --- a/member-file.scm +++ b/member-file.scm @@ -233,7 +233,10 @@ (define (convert-member-value:card v) (let* ((va (string-split v)) (v0 (car va)) - (vr (substring v (string-length v0)))) + (vr (irregex-replace + (irregex "^ *" 'u) + (substring v (string-length v0)) + ""))) (cons v0 vr))) ;; Converts card ids to cons of two strings.