101 lines
4.1 KiB
EmacsLisp
101 lines
4.1 KiB
EmacsLisp
|
;;; ui/pretty-code/autoload/install.el -*- lexical-binding: t; -*-
|
||
|
|
;;;###if (or (featurep! +fira) (featurep! +hasklig) (featurep! +iosevka))
|
||
|
|
|
||
|
|
(defvar +pretty-code-font-alist
|
||
|
|
'(("Fira Code"
|
||
|
|
:url "https://github.com/tonsky/FiraCode/raw/13234c0/distr/ttf/%s"
|
||
|
|
:files ("FiraCode-Bold.ttf"
|
||
|
|
"FiraCode-Light.ttf"
|
||
|
|
"FiraCode-Medium.ttf"
|
||
|
|
"FiraCode-Regular.ttf"
|
||
|
|
"FiraCode-Retina.ttf"))
|
||
|
|
("Hasklig"
|
||
|
|
:url "https://github.com/jsravn/hasklig-emacs/raw/33354a3/%s"
|
||
|
|
:files ("Hasklig-Black.otf"
|
||
|
|
"Hasklig-BlackIt.otf"
|
||
|
|
"Hasklig-Bold.otf"
|
||
|
|
"Hasklig-BoldIt.otf"
|
||
|
|
"Hasklig-ExtraLight.otf"
|
||
|
|
"Hasklig-ExtraLightIt.otf"
|
||
|
|
"Hasklig-It.otf"
|
||
|
|
"Hasklig-Light.otf"
|
||
|
|
"Hasklig-LightIt.otf"
|
||
|
|
"Hasklig-Medium.otf"
|
||
|
|
"Hasklig-MediumIt.otf"
|
||
|
|
"Hasklig-Regular.otf"
|
||
|
|
"Hasklig-Semibold.otf"
|
||
|
|
"Hasklig-SemiboldIt.otf"))
|
||
|
|
("Iosevka"
|
||
|
|
:url "https://github.com/jsravn/iosevka-emacs/raw/20fc2c4/%s"
|
||
|
|
:files ("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")))
|
||
|
|
"An alist of font metadata for `+pretty-code/install-font'.")
|
||
|
|
|
||
|
|
(defun +pretty-code--install-font (prefix name url-format fonts-alist &optional extra-fonts)
|
||
|
|
"Install fonts to the local system.
|
||
|
|
|
||
|
|
If PREFIX is nil, will prompt whether or not to download. NAME is informational
|
||
|
|
only. URL-FORMAT is a format string that should be a url and have a single %s,
|
||
|
|
which is expanded for each font in FONTS-ALIST. FONTS-ALIST should be the
|
||
|
|
filename of each font. It is used as the source and destination filename."
|
||
|
|
(or prefix
|
||
|
|
(yes-or-no-p
|
||
|
|
(format "This will download and install the %s fonts, are you
|
||
|
|
sure you want to do this?" name))
|
||
|
|
(user-error "Aborted"))
|
||
|
|
(let* ((font-dest
|
||
|
|
(pcase window-system
|
||
|
|
(`x
|
||
|
|
(expand-file-name
|
||
|
|
"/fonts/" (or (getenv "XDG_DATA_HOME")
|
||
|
|
(concat (getenv "HOME") "/.local/share"))))
|
||
|
|
((or `mac `ns)
|
||
|
|
(expand-file-name "~/Library/Fonts/" ))))
|
||
|
|
(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 fonts-alist)
|
||
|
|
(url-copy-file (format url-format font)
|
||
|
|
(expand-file-name font font-dest)
|
||
|
|
t))
|
||
|
|
(when known-dest?
|
||
|
|
(message "Font downloaded, updating font cache... <fc-cache -f -v> ")
|
||
|
|
(shell-command-to-string (format "fc-cache -f -v")))
|
||
|
|
(message "Successfully %s `%s' fonts to `%s'!%s"
|
||
|
|
(if known-dest? "installed" "downloaded")
|
||
|
|
name
|
||
|
|
font-dest)))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +pretty-code/install-patched-font (font-name &optional prefix)
|
||
|
|
"Install FONT-NAME on your system.
|
||
|
|
When PREFIX is non-nil, ignore the prompt and just install it."
|
||
|
|
(interactive
|
||
|
|
(list (completing-read
|
||
|
|
"Install font: "
|
||
|
|
(mapcar #'car +pretty-code-font-alist))))
|
||
|
|
(if-let (font-files (cdr (assoc font-name +pretty-code-font-alist)))
|
||
|
|
(cl-destructuring-bind (&keys url files) font-files
|
||
|
|
(+pretty-code--install-font prefix font-name url font-files))
|
||
|
|
(user-error "%S is not a valid font")))
|