(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))