guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 38a5dd01dd181b54b2b46c27d1e768611bd71cc7
Author: Ale Abdo <[email protected]>
AuthorDate: Thu Nov 27 11:39:32 2025 +0100

    gnu: Add font-peppercarrot.
    
    * gnu/packages/fonts.scm (font-peppercarrot): New variable.
    
    Change-Id: Ic1ae736b392b4862445cb4630279dc818d4bab99
    Signed-off-by: Ludovic Courtès <[email protected]>
    Merges: #4506
---
 gnu/packages/fonts.scm | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 8d49864d24..be89f43009 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -69,6 +69,7 @@
 ;;; Copyright © 2025 Liam Hupfer <[email protected]>
 ;;; Copyright © 2025 Evgeny Pisemsky <[email protected]>
 ;;; Copyright © 2025 Lee Thompson <[email protected]>
+;;; Copyright © 2025 Alexandre Hannud Abdo <[email protected]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -5031,3 +5032,54 @@ is necessary, such as when composing tabular data using 
text.")
 technical and idiosyncratic feel—perfect for headers and pull-quotes.  Made to
 work well together with Mona Sans.")
     (license license:silofl1.1)))
+
+
+(define-public font-peppercarrot
+  (package
+    (name "font-peppercarrot")
+    (version "1.0.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://framagit.org/peppercarrot/fonts";)
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1yw5wjd6rydgllf0c3g5nh9zqbnhc1wbbhsx36c08isr28sy59mm"))))
+    (build-system font-build-system)
+    (arguments
+     (list
+      #:license-file-regexp ".*\\.(COPYRIGHT|LICENSE)$"
+      #:phases
+      #~(modify-phases %standard-phases
+          ;; License files are spread in subdirectories, gotta catch 'em all!
+          (replace 'install-license-files
+            (let ((install-license-files (assoc-ref %standard-phases
+                                                    'install-license-files))
+                  (package-directories (find-files "."
+                                                   (lambda (file stat)
+                                                     (eq? 'directory
+                                                          (stat:type stat)))
+                                                   #:directories? #t)))
+              (lambda args
+                (for-each (lambda (directory)
+                            (with-directory-excursion directory
+                              (apply install-license-files args)))
+                          package-directories)))))))
+    (home-page "https://www.peppercarrot.com/en/fonts/";)
+    (synopsis "Fonts used by the comic strip Pepper&Carrot")
+    (description
+     "This package provides a collection of open fonts compiled and adapted by 
David
+Revoy and collaborators for use in the comic strip Pepper&Carrot.")
+    ;; We list all licenses used for any of the many fonts in the collection
+    (license (list license:silofl1.1
+                   license:silofl1.0
+                   (license:non-copyleft
+                    "http://jikasei.me/info/license.html#M_FONT_LICENSE_1";)
+                   license:gpl3
+                   license:gpl3+
+                   license:gpl2
+                   license:gpl2+
+                   license:asl2.0
+                   license:cc-by3.0))))

Reply via email to