21 lines
548 B
Scheme
21 lines
548 B
Scheme
(use-modules (fontconfig))
|
|
|
|
(let ((pattern (make-pattern
|
|
#:family "JuliaMono" #:style "bold")))
|
|
(map
|
|
(lambda (pat)
|
|
(format #t "
|
|
---------------------
|
|
Font located at: ~A
|
|
Style & Family: ~A ~A
|
|
Fc Match String: ~A
|
|
"
|
|
(pattern-get pat 'file)
|
|
(pattern-get pat 'style)
|
|
(pattern-get pat 'family)
|
|
(pattern->format pat "%{=fcmatch}")))
|
|
(pattern-list pattern)))
|
|
|
|
(let ((pattern (make-pattern)))
|
|
(format #t "There are a total of ~A fonts!\n" (length (pattern-list pattern))))
|