1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
| | From d6e6f3bda3f7267e54be153d985f48accc8b21ae Mon Sep 17 00:00:00 2001
From: normally_js <normally_js@posteo.net>
Date: Thu, 21 Mar 2024 16:47:34 -0400
Subject: [PATCH] Remove nerd-icons-install-fonts procedure.
---
nerd-icons.el | 36 ------------------------------------
1 file changed, 36 deletions(-)
diff --git a/nerd-icons.el b/nerd-icons.el
index 0b7b02d..a5e3d49 100644
--- a/nerd-icons.el
+++ b/nerd-icons.el
@@ -963,42 +963,6 @@ string."
(cons candidate-name candidate-icon)))
data)))
-;;;###autoload
-(defun nerd-icons-install-fonts (&optional pfx)
- "Helper function to download and install the latests fonts based on OS.
-The provided Nerd Font is Symbols Nerd Font Mono.
-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 fonts, are you sure you want to do this?"))
- (let* ((url-format "https://raw.githubusercontent.com/rainstormstudio/nerd-icons.el/main/fonts/%s")
- (font-dest (cond
- ;; Default Linux install directories
- ((member system-type '(gnu gnu/linux gnu/kfreebsd))
- (concat (or (getenv "XDG_DATA_HOME")
- (concat (getenv "HOME") "/.local/share"))
- "/fonts/"
- nerd-icons-fonts-subdirectory))
- ;; Default MacOS install directory
- ((eq system-type 'darwin)
- (concat (getenv "HOME")
- "/Library/Fonts/"
- nerd-icons-fonts-subdirectory))))
- (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))
-
- (mapc (lambda (font)
- (url-copy-file (format url-format font) (expand-file-name font font-dest) t))
- nerd-icons-font-names)
- (when known-dest?
- (message "Fonts downloaded, updating font cache... <fc-cache -f -v> ")
- (shell-command-to-string (format "fc-cache -f -v")))
- (message "%s Successfully %s `nerd-icons' fonts to `%s'!"
- (nerd-icons-wicon "nf-weather-stars" :v-adjust 0.0)
- (if known-dest? "installed" "downloaded")
- font-dest))))
-
;;;###autoload
(defun nerd-icons-insert (&optional arg glyph-set)
"Interactive icon insertion function.
--
2.41.0
|