[bug#61407] [PATCH] gnu: Add font-microsoft-cascadia.

[Jake Leporte]

---
 gnu/packages/fonts.scm | 94 ++++++++++++++++++++++++++----------------
 1 file changed, 59 insertions(+), 35 deletions(-)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 9b7d965..13b66d4 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -1399,44 +1399,68 @@ (define-public font-fira-code
 @code{//}, ligatures are used to simulate proportional spacing.")
     (license license:silofl1.1)))
 
+(define-public font-microsoft-cascadia
+  (package
+    (name "font-microsoft-cascadia")
+    (version "2111.01")
+    (source (origin
+              (method url-fetch/zipbomb)
+              (uri (string-append
+                    "https://github.com/microsoft/cascadia-code/";
+                    "releases/download/v"
+                    version
+                    "/CascadiaCode-"
+                    version
+                    ".zip"))
+              (sha256
+               (base32
+                "04p72jmbafblrliy5phqi6sqi52wgzpilf3rphppxf7zdlbnizai"))))
+    (build-system font-build-system)
+    (home-page "https://github.com/microsoft/cascadia-code";)
+    (synopsis "Monospaced font with programming ligatures")
+    (description
+     "Cascadia is a fun new coding font that comes bundled with Windows
+Terminal, and is now the default font in Visual Studio as well.")
+    (license license:silofl1.1)))
+
 (define-public font-awesome
   (package
-   (name "font-awesome")
-   ;; XXX The build scripts of version 5 are not freely licensed and
-   ;; so we have to stick with version 4 for now:
-   ;; <https://bugs.gnu.org/32916>
-   (version "4.7.0")
-   (source (origin
-            (method git-fetch)
-            (uri (git-reference
-                   (url "https://github.com/FortAwesome/Font-Awesome";)
-                   (commit (string-append "v" version))))
-            (file-name (git-file-name name version))
-            (sha256
-             (base32
-              "0w30y26jp8nvxa3iiw7ayl6rkza1rz62msl9xw3srvxya1c77grc"))))
-   (build-system font-build-system)
-   (arguments
-    '(#:phases
-      (modify-phases %standard-phases
-        (replace 'install
-          (lambda* (#:key outputs #:allow-other-keys)
-            (let* ((out (assoc-ref outputs "out"))
-                   (source (string-append (getcwd) "/fonts"))
-                   (fonts (string-append out "/share/fonts")))
-              (for-each (lambda (file)
-                          (install-file file (string-append fonts 
"/truetype")))
-                        (find-files source "\\.(ttf|ttc)$"))
-              (for-each (lambda (file)
-                          (install-file file (string-append fonts 
"/opentype")))
-                        (find-files source "\\.(otf|otc)$"))
-              #t))))))
-   (home-page "https://fontawesome.com/";)
-   (synopsis "Font that contains a rich iconset")
-   (description
-    "Font Awesome is a full suite of pictographic icons for easy scalable
+    (name "font-awesome")
+    ;; XXX The build scripts of version 5 are not freely licensed and
+    ;; so we have to stick with version 4 for now:
+    ;; <https://bugs.gnu.org/32916>
+    (version "4.7.0")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/FortAwesome/Font-Awesome";)
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0w30y26jp8nvxa3iiw7ayl6rkza1rz62msl9xw3srvxya1c77grc"))))
+    (build-system font-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (source (string-append (getcwd) "/fonts"))
+                    (fonts (string-append out "/share/fonts")))
+               (for-each (lambda (file)
+                           (install-file file (string-append fonts 
"/truetype")))
+                         (find-files source "\\.(ttf|ttc)$"))
+               (for-each (lambda (file)
+                           (install-file file (string-append fonts 
"/opentype")))
+                         (find-files source "\\.(otf|otc)$"))
+               #t))))))
+    (home-page "https://fontawesome.com/";)
+    (synopsis "Font that contains a rich iconset")
+    (description
+     "Font Awesome is a full suite of pictographic icons for easy scalable
 vector graphics.")
-   (license license:silofl1.1)))
+    (license license:silofl1.1)))
 
 (define-public font-tamzen
   (package

base-commit: b8f6ead5faac3c1b9a8fa6e060c00cf0917e884e
prerequisite-patch-id: 55ebfdbee35b36ac06da23b716337ecfef350452
prerequisite-patch-id: 6cb7b2d1972d3eeb5ad8b82239b17043e7263ab0
prerequisite-patch-id: 52c97b6e4d8d4b78217423a3f1323d95a609de8c
prerequisite-patch-id: 90b350ab4778843697da28bb10344a84ccacc70c
prerequisite-patch-id: 0d5a1f7cfe93822a3f3b11c19f4b2662a79cda17
prerequisite-patch-id: f6dd89498a48185e628f547b7f023a30547d8933
-- 
2.39.1