From 58f63913456e92565d9fa502b020f28a866be6ab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 27 Mar 2023 17:05:56 +0200 Subject: [PATCH] Parsing of month comments. --- member-parser.scm | 5 ++++- utils.scm | 9 +++++++++ 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/member-parser.scm b/member-parser.scm index 155dc64..6f57e8f 100644 --- a/member-parser.scm +++ b/member-parser.scm @@ -65,7 +65,10 @@ (foldl (lambda (mr value) (member-record-sub-prepend mr output kind - (list marker (string->month (car value)) (cdr value)))) + (let* ((mspec (string-first+rest (car value))) + (month (string->month (car mspec))) + (comment (cdr mspec))) + (list marker month (cdr value) comment)))) mr value))) (else (member-record-sub-set mr output key value))))) diff --git a/utils.scm b/utils.scm index cef3bd8..9a123fb 100644 --- a/utils.scm +++ b/utils.scm @@ -85,6 +85,15 @@ (test-equal? string-repeat (string-repeat "š" 4) "šššš") + (test-equal? string-first+rest + (string-first+rest "asdf rest") + '("asdf" . "rest")) + (test-equal? string-first+rest + (string-first+rest "asdf rest test rest") + '("asdf" . "rest test rest")) + (test-equal? string-first+rest + (string-first+rest "asdf") + '("asdf" . "")) )) )