From dd1ab494afa00234b689b4f6eaba9ee0fc59e0f8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 24 Mar 2023 22:07:59 +0100
Subject: [PATCH] Convert spaces in card aliases to underscores.

---
 cards.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/cards.scm b/cards.scm
index 462b1dd..3b0bb95 100644
--- a/cards.scm
+++ b/cards.scm
@@ -35,6 +35,7 @@
 	 (chicken base)
 	 (chicken sort)
 	 (chicken format)
+	 (chicken irregex)
 	 dictionary
 	 members-base
 	 member-record)
@@ -69,7 +70,9 @@
 		      (cardname (sprintf "~A~A~A"
 					 nick
 					 (if aliased? "." "")
-					 (if aliased? calias ""))))
+					 (if aliased?
+					     (irregex-replace/all (irregex " " 'u) calias "_")
+					     ""))))
 		 (print cardname " " cardid)
 		 (cloop (cdr cards)))))
 	   (uloop (cdr srecs)))))))