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

Move capitalize to util-string.

Browse source
This commit is contained in:
Dominik Pantůček 2023-11-16 19:08:47 +01:00
parent fb47d60550
commit 27a1a3522b
2 changed files with 22 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/hackerbase.scm
View file

@ -282,13 +282,6 @@
(print " " (car keys) ": " (length (ldict-ref status (car keys)))))
(loop (cdr keys)))))))
(define (capitalize s)
(let ((l (string->list s)))
(list->string
(cons
(char-upcase (car l))
(map char-downcase (cdr l))))))
(define* (check-mailing-list mls name #:pred? (pred? #f))
(define ml (find-mailman-list mls name))
(let-values (((missing surplus)
@ -301,9 +294,9 @@
(print "Skipping ML check - not loaded")
(if (and (null? missing)
(null? surplus))
(print (format "~a mailing list membership in sync." (capitalize name)))
(print (format "~a mailing list membership in sync." (string-capitalize name)))
(let ()
(print (format "~a mailing list:" (capitalize name)))
(print (format "~a mailing list:" (string-capitalize name)))
(when (not (null? missing))
(print " Missing: " missing))
(when (not (null? surplus))