From 22bc21a712444ec131a8e193ae9e56d75d1c1fe2 Mon Sep 17 00:00:00 2001 From: xeijin Date: Sun, 2 Feb 2020 23:16:47 +0000 Subject: [PATCH] windows: disable all-the-icons font install the command is actually fairly useless on windows anyway -- unless you are specifically running emacs with elevated privileges, you get the following error: ``` This will download and install fonts, are you sure you want to do this? (y or n) y Contacting host: raw.githubusercontent.com:443 mm-write-region: Opening output file: Permission denied, c:/Windows/Fonts/material-design-icons.ttf ``` --- core/cli/install.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/core/cli/install.el b/core/cli/install.el index 69efbcd5a..85da5b11e 100644 --- a/core/cli/install.el +++ b/core/cli/install.el @@ -80,14 +80,15 @@ DOOMDIR environment variable. e.g. (print! "Regenerating autoloads files") (doom-cli-reload-autoloads) - (if nofonts-p - (print! (warn "Not installing fonts, as requested")) - (when (or doom-auto-accept - (y-or-n-p "Download and install all-the-icon's fonts?")) - (require 'all-the-icons) - (let ((window-system (cond (IS-MAC 'ns) - (IS-LINUX 'x)))) - (all-the-icons-install-fonts 'yes)))) + (unless IS-WINDOWS + (if nofonts-p + (print! (warn "Not installing fonts, as requested")) + (when (or doom-auto-accept + (y-or-n-p "Download and install all-the-icon's fonts?")) + (require 'all-the-icons) + (let ((window-system (cond (IS-MAC 'ns) + (IS-LINUX 'x)))) + (all-the-icons-install-fonts 'yes))))) (when (file-exists-p "~/.emacs") (print! (warn "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!")))