23 lines
569 B
Scheme
23 lines
569 B
Scheme
(use-modules (fontconfig))
|
|
|
|
(let ((pattern (make-pattern
|
|
'((family "JuliaMono")))))
|
|
(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))))
|
|
|
|
(display (make-pattern))
|