ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/font: Add #:license-file-regexp argument.

Browse source 
* guix/build-system/font.scm (font-build): Add #:license-file-regexp argument
and honour it.
* guix/build/font-build-system.scm (%license-file-regexp): New variable,
duplicated from (gnu build gnu-build-system).
This commit is contained in:
Simon South 2023-02-03 07:42:58 -05:00 committed by Ludovic Courtès
parent 43c77ee306
commit 3ee1e8028e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -76,6 +76,7 @@ (define* (font-build name inputs
(tests? #t)
(test-target "test")
(configure-flags ''())
(license-file-regexp '%license-file-regexp)
(phases '%standard-phases)
(outputs '("out"))
(search-paths '())
@ -97,6 +98,7 @@ (define builder
#:system #$system
#:test-target #$test-target
#:tests? #$tests?
#:license-file-regexp #$license-file-regexp
#:phases #$(if (pair? phases)
(sexp->gexp phases)
phases)

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

@ -23,6 +23,7 @@ (define-module (guix build font-build-system)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:export (%standard-phases
%license-file-regexp
font-build))
;; Commentary:
@ -56,6 +57,10 @@ (define* (install #:key outputs #:allow-other-keys)
(for-each (cut install-file <> (string-append fonts "/web"))
(find-files source "\\.(woff|woff2)$"))))
(define %license-file-regexp
;; Regexp matching license files.
"^(COPYING.*|LICEN[CS]E.*|[Ll]icen[cs]e.*|Copy[Rr]ight(\\.(txt|md))?)$")
(define %standard-phases
(modify-phases gnu:%standard-phases
(replace 'unpack unpack)