brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Convert spaces in card aliases to underscores.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-24 22:07:59 +01:00
parent 09a583c565
commit dd1ab494af
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
cards.scm
View file

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