feat(core): add helper function +font-installed-p

abougouffa · Oct 26, 2023 · 0200750 · 0200750
1 parent c44d135
commit 0200750
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/core/me-loaddefs.el b/core/me-loaddefs.el
@@ -99,6 +99,10 @@ Examples:
 
 ;;; Generated autoloads from ../elisp/+emacs.el
 
+(autoload '+font-installed-p "../elisp/+emacs" "\
+Check if FONT-FAMILY is installed on the system.
+
+(fn FONT-FAMILY)")
 (autoload '+dir-locals-reload-for-this-buffer "../elisp/+emacs" "\
 Reload directory-local for the current buffer" t)
 (autoload '+dir-locals-reload-for-all-buffers-in-this-directory "../elisp/+emacs" "\

diff --git a/elisp/+emacs.el b/elisp/+emacs.el
@@ -8,6 +8,11 @@
 
 ;;; Code:
 
+;;;###autoload
+(defun +font-installed-p (font-family)
+  "Check if FONT-FAMILY is installed on the system."
+  (and (member font-family (font-family-list)) t))
+
 ;;;###autoload
 (defun +dir-locals-reload-for-this-buffer ()
   "Reload directory-local for the current buffer"