Emacs: Improve font-checking.
This commit is contained in:
parent
5e34b6c28d
commit
aee9fc2391
|
@ -1,6 +1,6 @@
|
|||
;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
|
||||
|
||||
;; Time-stamp: <2019-11-09T21:25:20+00:00>
|
||||
;; Time-stamp: <2019-12-13T16:54:47+00:00>
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
|
@ -26,8 +26,16 @@
|
|||
|
||||
;; Icon font (required by doom and others).
|
||||
(use-package all-the-icons
|
||||
:init
|
||||
(defun my/font-installed-p (font-name)
|
||||
"Check if font with FONT-NAME is available."
|
||||
(if (find-font (font-spec :name font-name))
|
||||
t
|
||||
nil))
|
||||
|
||||
:config
|
||||
(unless (file-exists-p "~/.local/share/fonts/all-the-icons.ttf")
|
||||
;; Install fonts if we have a GUI and the font is not already installed.
|
||||
(when (and (window-system) (not (my/font-installed-p "all-the-icons")))
|
||||
(all-the-icons-install-fonts t))
|
||||
)
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user