mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-03 12:27:26 -05:00
Remove default font detection from doom-doctor
This commit is contained in:
@ -145,17 +145,6 @@
|
|||||||
(warn! "Warning: unable to detect font")
|
(warn! "Warning: unable to detect font")
|
||||||
(explain! "The `find-font' function is missing. This could indicate the incorrect "
|
(explain! "The `find-font' function is missing. This could indicate the incorrect "
|
||||||
"version of Emacs is being used!"))
|
"version of Emacs is being used!"))
|
||||||
(defun -find-font (family)
|
|
||||||
(when (fontp family)
|
|
||||||
(setq family (symbol-name (font-get doom-font :family))))
|
|
||||||
(let ((inhibit-message t))
|
|
||||||
(shell-command (format "fc-list | grep %s" (shell-quote-argument family)))))
|
|
||||||
|
|
||||||
(when (boundp 'doom-font)
|
|
||||||
(if (-find-font doom-font)
|
|
||||||
(success! "Found font %s" (font-get doom-font :family))
|
|
||||||
(warn! "Warning: couldn't find %s font (default) (%s)"
|
|
||||||
(font-get doom-font :family))))
|
|
||||||
;; all-the-icons fonts
|
;; all-the-icons fonts
|
||||||
(let ((font-dest (pcase system-type
|
(let ((font-dest (pcase system-type
|
||||||
('gnu/linux (concat (or (getenv "XDG_DATA_HOME")
|
('gnu/linux (concat (or (getenv "XDG_DATA_HOME")
|
||||||
|
Reference in New Issue
Block a user