fonts: Add Fantasque Sans Mono Nerd font and Annotation Mono

1 files changed, 106 insertions, 3 deletions

diff --git a/oni/packages/fonts.scm b/oni/packages/fonts.scm
index f88bb72..ad0c9a1 100644
--- a/oni/packages/fonts.scm
+++ b/oni/packages/fonts.scm
@@ -1,8 +1,14 @@
 (define-module (oni packages fonts)
-  #:use-module ((guix packages) #:select (package origin base32))
-  #:use-module ((guix download) #:select (url-fetch))
   #:use-module ((guix licenses) #:prefix license:)
-  #:use-module ((guix build-system font) #:select (font-build-system)))
+  #:use-module (gnu packages compression)
+  #:use-module (guix build utils)
+  #:use-module (guix build-system copy)
+  #:use-module (guix build-system font)
+  #:use-module (guix build font-build-system)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+  #:use-module (guix utils))
 
 (define-public font-comfortaa
   (package
@@ -25,3 +31,100 @@ that's clean and modern, and can express a wide range of voices & feelings.
 It comes in 7 incremental weights:
 ExtraLight, Light, Book, Medium, Semibold, Bold & ExtraBold")
     (license license:silofl1.1)))
+
+(define-public font-nerd-font-fantasquesansmono
+	(package
+		(name "font-nerd-font-fantasquesansmono")
+		(version "3.4.0")
+		(source
+         (origin
+           (method url-fetch)
+           (uri "https://github.com/ryanoasis/nerd-fonts/releases/download//v3.4.0/FantasqueSansMono.tar.xz")
+           (sha256 (base32 "1z8ggmarbw6yjj835vmc02w4j07xkkfnrsylvq6mdf2z8y858as6"))))
+		(build-system font-build-system)
+		(license license:expat)
+		(home-page "https://www.nerdfonts.com/")
+		(synopsis "Iconic font aggregator, collection, & patcher. 3,600+ icons,\n50+ patched fonts:
+Hack, Source Code Pro, more. Glyph collections: Font\nAwesome, Material Design
+Icons, Octicons, & more")
+		(description "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.")))
+
+(define-public font-annotation-mono
+  (package
+	(name "font-annotation-mono")
+	(version "0.2")
+	(source
+     (origin
+       (method url-fetch)
+       (uri "https://github.com/qwerasd205/AnnotationMono/releases/download/v0.2/AnnotationMono_v0.2.zip")
+       (sha256 (base32 "0q7rvlrlqcq3qfqkmqcgr5rw82zxkgvm4xzn6kys8bj70x9d0h07"))))
+	(build-system copy-build-system)
+    (arguments
+     (list
+      #:install-plan
+      #~'(("dist/otf" "share/fonts/opentype")
+          ("dist/ttf" "share/fonts/truetype")
+          ("dist/variable" "share/fonts/truetype"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'install
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let* ((out (assoc-ref outputs "out"))
+                     (out-ttf (string-append out "/share/fonts/truetype"))
+                     (out-otf (string-append out "/share/fonts/opentype")))
+                (mkdir-p out-ttf)
+                (mkdir-p out-otf)
+                (install-file "../dist/ttf/Black_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/Black.ttf" out-ttf)
+                (install-file "../dist/ttf/Bold_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/Bold.ttf" out-ttf)
+                (install-file "../dist/ttf/DemiBold_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/DemiBold.ttf" out-ttf)
+                (install-file "../dist/ttf/ExtraBlack_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/ExtraBlack.ttf" out-ttf)
+                (install-file "../dist/ttf/ExtraBold_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/ExtraBold.ttf" out-ttf)
+                (install-file "../dist/ttf/ExtraLight_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/ExtraLight.ttf" out-ttf)
+                (install-file "../dist/ttf/Light_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/Light.ttf" out-ttf)
+                (install-file "../dist/ttf/Medium_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/Medium.ttf" out-ttf)
+                (install-file "../dist/ttf/Regular_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/Regular.ttf" out-ttf)
+                (install-file "../dist/ttf/Thin_Oblique.ttf" out-ttf)
+                (install-file "../dist/ttf/Thin.ttf" out-ttf)
+                (install-file "../dist/otf/Black_Oblique.otf" out-otf)
+                (install-file "../dist/otf/Black.otf" out-otf)
+                (install-file "../dist/otf/Bold_Oblique.otf" out-otf)
+                (install-file "../dist/otf/Bold.otf" out-otf)
+                (install-file "../dist/otf/DemiBold_Oblique.otf" out-otf)
+                (install-file "../dist/otf/DemiBold.otf" out-otf)
+                (install-file "../dist/otf/ExtraBlack_Oblique.otf" out-otf)
+                (install-file "../dist/otf/ExtraBlack.otf" out-otf)
+                (install-file "../dist/otf/ExtraBold_Oblique.otf" out-otf)
+                (install-file "../dist/otf/ExtraBold.otf" out-otf)
+                (install-file "../dist/otf/ExtraLight_Oblique.otf" out-otf)
+                (install-file "../dist/otf/ExtraLight.otf" out-otf)
+                (install-file "../dist/otf/Light_Oblique.otf" out-otf)
+                (install-file "../dist/otf/Light.otf" out-otf)
+                (install-file "../dist/otf/Medium_Oblique.otf" out-otf)
+                (install-file "../dist/otf/Medium.otf" out-otf)
+                (install-file "../dist/otf/Regular_Oblique.otf" out-otf)
+                (install-file "../dist/otf/Regular.otf" out-otf)
+                (install-file "../dist/otf/Thin_Oblique.otf" out-otf)
+                (install-file "../dist/otf/Thin.otf" out-otf)))))))
+    (native-inputs (list unzip))
+	(license license:silofl1.1)
+	(home-page "https://www.nerdfonts.com/")
+	(synopsis "A lovingly crafted handwriting-style monospace font.")
+	(description "Annotation Mono is a lovingly crafted handwriting-style monospace font.
+
+Annotation Mono is an idealized handwriting; using letter forms inspired by monospace bitmap fonts, legibility is maximized while retaining a hand-written character.
+
+Its variable weights make Annotation Mono ideal for a wide variety of use cases
+other than code, including labels and headings. Given its hand-written look, you
+could even use it for comic lettering if you want.")))
+