               (try
                 #_(log/info "type path" (type path))
                 (let [file        (.toFile path)
-                      font-info   (make-font file)
+                      font-info   (make-font (font-data file))
                       font-name   (font-name font-info)
                       font-family (font-family font-info)]
                   [[font-name file]

            (.toPath file)))))))

(declare make-font)

(def system-fonts-map
  (delay

        iy0 (.mallocInt ms 1)
        ix1 (.mallocInt ms 1)
        iy1 (.mallocInt ms 1)]
    (STBTruetype/stbtt_GetGlyphBitmapBox
      font-info
      (int glyph-index)
