From 34e30e0f39a5e084cca15e5da261345812b7402e Mon Sep 17 00:00:00 2001 From: James Ravn Date: Fri, 8 Nov 2019 10:43:32 +0000 Subject: [PATCH] Add +pretty-code/install-iosevka-font --- modules/ui/pretty-code/+iosevka.el | 51 ++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) diff --git a/modules/ui/pretty-code/+iosevka.el b/modules/ui/pretty-code/+iosevka.el index 315dbd754..734eb7950 100644 --- a/modules/ui/pretty-code/+iosevka.el +++ b/modules/ui/pretty-code/+iosevka.el @@ -230,3 +230,54 @@ +pretty-code-iosevka-font-ligatures))) (add-hook 'doom-init-ui-hook #'+pretty-code-setup-iosevka-ligatures-h) + +(defvar +pretty-code--iosevka-font-names + '( + "iosevka-custom-lightoblique.ttf" + "iosevka-custom-thinoblique.ttf" + "iosevka-custom-mediumitalic.ttf" + "iosevka-custom-light.ttf" + "iosevka-custom-heavy.ttf" + "iosevka-custom-bolditalic.ttf" + "iosevka-custom-bold.ttf" + "iosevka-custom-lightitalic.ttf" + "iosevka-custom-thin.ttf" + "iosevka-custom-extralight.ttf" + "iosevka-custom-oblique.ttf" + "iosevka-custom-italic.ttf" + "iosevka-custom-heavyoblique.ttf" + "iosevka-custom-heavyitalic.ttf" + "iosevka-custom-extralightitalic.ttf" + "iosevka-custom-thinitalic.ttf" + "iosevka-custom-medium.ttf" + "iosevka-custom-mediumoblique.ttf" + "iosevka-custom-extralightoblique.ttf" + "iosevka-custom-boldoblique.ttf" + "iosevka-custom-regular.ttf")) + +(defun +pretty-code/install-iosevka-font (&optional pfx) + "Helper function to download and install Iosevka font based on OS. +When PFX is non-nil, ignore the prompt and just install" + (interactive "P") + (when (or pfx (yes-or-no-p "This will download and install the Iosevka fonts, are you sure you want to do this?")) + (let* ((url-format "https://github.com/jsravn/iosevka-emacs/raw/master/%s") + (font-dest (cl-case window-system + (x (concat (or (getenv "XDG_DATA_HOME") ;; Default Linux install directories + (concat (getenv "HOME") "/.local/share")) + "/fonts/")) + (mac (concat (getenv "HOME") "/Library/Fonts/" )) + (ns (concat (getenv "HOME") "/Library/Fonts/" )))) ;; Default MacOS install directory + (known-dest? (stringp font-dest)) + (font-dest (or font-dest (read-directory-name "Font installation directory: " "~/")))) + + (unless (file-directory-p font-dest) (mkdir font-dest t)) + + (dolist (font +pretty-code--iosevka-font-names) + (url-copy-file (format url-format font) (expand-file-name font font-dest) t)) + + (when known-dest? + (message "Font downloaded, updating font cache... ") + (shell-command-to-string (format "fc-cache -f -v"))) + (message "Successfully %s `Iosevka' fonts to `%s'!" + (if known-dest? "installed" "downloaded") + font-dest))))