[bug#63490] [PATCH] gnu: Add font-spleen.

[Ahmad Draidi]

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

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 3aad42493d..03fdf0caa2 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -53,6 +53,7 @@
 ;;; Copyright © 2022 Hilton Chain <hako@ultrarare.space>
 ;;; Copyright © 2022 Nguyễn Gia Phong <mcsinyx@disroot.org>
 ;;; Copyright © 2023 Nicolas Graves <ngraves@ngraves.fr>
+;;; Copyright © 2023 Ahmad Draidi <a.r.draidi@redscript.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -3049,3 +3050,83 @@ (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-spleen
+  (package
+    (name "font-spleen")
+    (version "1.9.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://github.com/fcambus/spleen/releases/download/";
+                    version "/spleen-" version ".tar.gz"))
+              (sha256
+               (base32
+                "09bbwza14pl70cxbr09f9m8522s5p1p04kx9gh8svpd50bdixbdp"))))
+    (build-system font-build-system)
+    (outputs '("out" ;OTB
+               "bdf" "otf" "pcf" "psf"))
+    (arguments
+     `(#:phases (modify-phases %standard-phases
+                  (replace 'install
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      (let* ((otb (assoc-ref outputs "out"))
+                             (bdf (assoc-ref outputs "bdf"))
+                             (otf (assoc-ref outputs "otf"))
+                             (pcf (assoc-ref outputs "pcf"))
+                             (psf (assoc-ref outputs "psf"))
+                             (otb-font-dir (string-append (assoc-ref outputs
+                                                                     "out")
+                                                          "/share/fonts/misc"))
+                             (bdf-font-dir (string-append (assoc-ref outputs
+                                                                     "bdf")
+                                                          "/share/fonts/misc"))
+                             (otf-font-dir (string-append (assoc-ref outputs
+                                                                     "otf")
+                                            "/share/fonts/opentype"))
+                             (pcf-font-dir (string-append (assoc-ref outputs
+                                                                     "pcf")
+                                                          "/share/fonts/misc"))
+                             (psf-font-dir (string-append (assoc-ref outputs
+                                                                     "psf")
+                                            "/share/consolefonts")))
+                        (mkdir-p otb-font-dir)
+                        (mkdir-p bdf-font-dir)
+                        (mkdir-p otf-font-dir)
+                        (mkdir-p pcf-font-dir)
+                        (mkdir-p psf-font-dir)
+                        (for-each (lambda (otb)
+                                    (install-file otb otb-font-dir))
+                                  (find-files "." "\\.otb$"))
+                        (for-each (lambda (bdf)
+                                    (install-file bdf bdf-font-dir))
+                                  (find-files "." "\\.bdf$"))
+                        (for-each (lambda (otf)
+                                    (install-file otf otf-font-dir))
+                                  (find-files "." "\\.otf$"))
+                        (for-each (lambda (pcf)
+                                    (install-file pcf pcf-font-dir))
+                                  (find-files "." "\\.pcf$"))
+                        (for-each (lambda (psf)
+                                    (install-file psf psf-font-dir))
+                                  (find-files "." "\\.psfu$"))) #t)))))
+    (home-page "https://www.cambus.net/spleen-monospaced-bitmap-fonts/";)
+    (synopsis "Monospaced bitmap font for consoles and terminals")
+    (description
+     "Spleen is a monospaced bitmap font available in 6 sizes:
+ 5x8, 6x12, 8x16, 12x24, 16x32, 32x64.
+
+All sizes are provided in the Glyph Bitmap Distribution Format (BDF),
+ PCF, PSF (for the Linux console), and OTB formats.  All sizes, except
+ 5x8, are provided in OTF format also.
+
+All font sizes, except 5x8 and 6x12, contain all ISO/IEC 8859-1
+ characters (Basic Latin and Latin-1 Supplement Unicode block), Latin
+ Extended-A characters, as well as Box Drawing, Block Elements, and
+ Braille Patterns Unicode blocks.
+
+The 5x8 and 6x12 versions only contain printable ASCII characters,
+ the Braille Patterns Unicode block, and light Box Drawing characters.
+
+Spleen also has support for Powerline symbols out of the box.")
+    (license license:bsd-2)))

base-commit: 3f00f46adad467f3008b2e645f76baf70adaad66
-- 
2.39.2