[bug#57149] [PATCH] gnu: Add font-nerd-fonts-firacode

[Benoit Joly <benoit@benoitj.ca>]

* gnu/packages/fonts (font-nerd-fonts-firacode): New variable.
---
 gnu/packages/fonts.scm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 20b55bce96..0ce9ba8414 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -51,6 +51,7 @@
 ;;; Copyright © 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
 ;;; Copyright © 2022 Jose G Perez Taveras <josegpt27@gmail.com>
 ;;; Copyright © 2022 Hilton Chain <hako@ultrarare.space>
+;;; Copyright © 2022 Benoit Joly <benoit@benoitj.ca>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -2795,3 +2796,37 @@ (define-public font-chiron-hei-hk
 Kong variant of Adobe’s Source Han Sans.  The font aims at providing a modern,
 region-agnostic glyph set adopting the “modern” glyph style that is similar to
 prevalent typefaces in Traditional Chinese regions.")))
+
+(define-public font-nerd-fonts-fira-code
+  (package
+   (name "font-nerd-fonts-fira-code")
+   (version "2.1.0")
+   (source
+    (origin
+     (method url-fetch)
+     (uri
+      (string-append
+       "https://github.com/ryanoasis/nerd-fonts/releases/download/v"
+       version
+       "/FiraCode.zip"))
+     (sha256
+      (base32
+       "1rx7zrkq0584k6hrh6dx30xrnz5nq379xyw73pfd4gxaxnh9mpi1"))))
+   (build-system font-build-system)
+   (arguments
+    `(#:phases
+      (modify-phases %standard-phases
+        (add-before 'install 'make-files-writable
+          (lambda _
+            (for-each
+             make-file-writable
+             (find-files "." ".*\\.(otf|otc|ttf|ttc)$"))
+            #t)))))
+   (home-page "https://www.nerdfonts.com/")
+   (synopsis "Nerd fonts variant of FiraCode font")
+   (description
+    "Nerd fonts variant of FiraCode font.  Nerd Fonts is a project that patches
+developer targeted fonts with a high number of glyphs (icons).  Specifically to
+add a high number of extra glyphs from popular 'iconic fonts' such as Font
+Awesome, Devicons, Octicons, and others.")
+   (license license:silofl1.1)))
-- 
2.37.1