mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system: font: Handle multiple outputs in the install phase.

Browse source 
* guix/build/font-build-system.scm (install): Prefer install files into their
specified outputs (ttf, otf, woff, otb, bdf, pcf, psf).

Change-Id: I2ecd126fe31ce4fc65c59106938e37523b0cc3d2
This commit is contained in:
宋文武 2024-04-21 11:19:22 +08:00 committed by Andreas Enge
parent 503919fcf0
commit d22d06f9d2
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3
1 changed files with 27 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
guix/build/font-build-system.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2022 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2024 宋文武 <iyzsong@envs.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -49,13 +50,34 @@ (define* (install #:key outputs #:allow-other-keys)
"Install the package contents."
(let* ((out (assoc-ref outputs "out"))
(source (getcwd))
(fonts (string-append out "/share/fonts")))
(for-each (cut install-file <> (string-append fonts "/truetype"))
(truetype-dir (string-append (or (assoc-ref outputs "ttf") out)
"/share/fonts/truetype"))
(opentype-dir (string-append (or (assoc-ref outputs "otf") out)
"/share/fonts/opentype"))
(web-dir (string-append (or (assoc-ref outputs "woff") out)
"/share/fonts/web"))
(otb-dir (string-append (or (assoc-ref outputs "otb") out)
"/share/fonts/misc"))
(bdf-dir (string-append (or (assoc-ref outputs "bdf") out)
"/share/fonts/misc"))
(pcf-dir (string-append (or (assoc-ref outputs "pcf") out)
"/share/fonts/misc"))
(psf-dir (string-append (or (assoc-ref outputs "psf") out)
"/share/consolefonts")))
(for-each (cut install-file <> truetype-dir)
(find-files source "\\.(ttf|ttc)$"))
(for-each (cut install-file <> (string-append fonts "/opentype"))
(for-each (cut install-file <> opentype-dir)
(find-files source "\\.(otf|otc)$"))
(for-each (cut install-file <> (string-append fonts "/web"))
(find-files source "\\.(woff|woff2)$"))))
(for-each (cut install-file <> web-dir)
(find-files source "\\.(woff|woff2)$"))
(for-each (cut install-file <> otb-dir)
(find-files source "\\.otb$"))
(for-each (cut install-file <> bdf-dir)
(find-files source "\\.bdf$"))
(for-each (cut install-file <> pcf-dir)
(find-files source "\\.pcf$"))
(for-each (cut install-file <> psf-dir)
(find-files source "\\.psfu$"))))
(define %license-file-regexp
;; Regexp matching license files commonly found in font packages.