Skip to content

Commit

Permalink
tweak(fonts): rename function
Browse files Browse the repository at this point in the history
  • Loading branch information
abougouffa committed Nov 18, 2023
1 parent 0fba2b7 commit 3cb67a1
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions core/me-fonts.el
Original file line number Diff line number Diff line change
Expand Up @@ -128,7 +128,7 @@ scaling factor for the font in Emacs' `face-font-rescale-alist'. See the
"Check if FONT-FAMILY is installed on the system."
(and font-family (member font-family (font-family-list)) t))

(defun +apply-font-script (script-or-face)
(defun +apply-font-or-script (script-or-face)
"Set font for SCRIPT-OR-FACE from `minemacs-fonts-plist'."
(catch 'done
(dolist (font (plist-get minemacs-fonts-plist (intern (format ":%s" script-or-face))))
Expand All @@ -151,7 +151,7 @@ scaling factor for the font in Emacs' `face-font-rescale-alist'. See the
(defun +setup-fonts ()
"Setup fonts."
(interactive)
(mapc #'+apply-font-script
(mapc #'+apply-font-or-script
(reverse
(mapcar (lambda (k) (intern (substring (symbol-name k) 1)))
(+plist-keys minemacs-fonts-plist))))
Expand Down

0 comments on commit 3cb67a1

Please sign in to comment.