add cache mechanism

Author: t-bltg

src/findfonts.jl

@@ -121,12 +121,15 @@ end
 
 fontname(ft::FTFont) = "$(family_name(ft)) $(style_name(ft))"
 
+const FONT_CACHE = Dict{String, Tuple{String,FTFont}}()
+
 function findfont(
         searchstring::String;
         italic::Bool=false, # this is unused in the new implementation
         bold::Bool=false, # and this as well
         additional_fonts::String=""
     )
+    (path_ft = get(FONT_CACHE, searchstring, nothing)) !== nothing && return path_ft
     font_folders = copy(fontpaths())
 
     isempty(additional_fonts) || pushfirst!(font_folders, additional_fonts)
@@ -135,6 +138,7 @@ function findfont(
     searchparts = unique(split(lowercase(searchstring), r"\W+", keepempty=false))
 
     best_score_so_far = (0, 0, false, typemin(Int))
+    best_font_path = ""
     best_font = nothing
 
     for folder in font_folders
@@ -144,7 +148,6 @@ function findfont(
             face === nothing && continue
 
             score = match_font(face, searchparts)
-
             # we can compare all four tuple elements of the score at once
             # in order of importance:
 
@@ -156,18 +159,17 @@ function findfont(
             family_match_score = score[1]
             if family_match_score > 0 && score > best_score_so_far
                 # finalize previous best font to close the font file
-                if !isnothing(best_font)
-                    finalize(best_font)
-                end
+                isnothing(best_font) || finalize(best_font)
 
                 # new candidate
+                best_font_path = fpath
                 best_font = face
                 best_score_so_far = score
             else
                 finalize(face)
             end
         end
     end
-
-    return best_font
+    best_font === nothing || (FONT_CACHE[searchstring] = (best_font_path, best_font))
+    return (best_font_path, best_font)
 end