diff options
| author | Simon South <simon@simonsouth.net> | 2023-02-03 07:42:58 -0500 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-08-31 10:44:31 +0200 |
| commit | 3ee1e8028e46108dee1d56c1ce11636d15059672 (patch) | |
| tree | 0bc419ec7a36bec4fbd1e187b382741c85dc9e0b | |
| parent | 43c77ee3067116a3ed66ec7235b0ad549b09b903 (diff) | |
| download | guix-3ee1e8028e46108dee1d56c1ce11636d15059672.tar.gz | |
build-system/font: Add #:license-file-regexp argument.
* 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).
| -rw-r--r-- | guix/build-system/font.scm | 2 | ||||
| -rw-r--r-- | guix/build/font-build-system.scm | 5 |
2 files changed, 7 insertions, 0 deletions
diff --git a/guix/build-system/font.scm b/guix/build-system/font.scm index b18d4af625..a4eeca00ca 100644 --- a/guix/build-system/font.scm +++ b/guix/build-system/font.scm @@ -76,6 +76,7 @@ (tests? #t) (test-target "test") (configure-flags ''()) + (license-file-regexp '%license-file-regexp) (phases '%standard-phases) (outputs '("out")) (search-paths '()) @@ -97,6 +98,7 @@ #:system #$system #:test-target #$test-target #:tests? #$tests? + #:license-file-regexp #$license-file-regexp #:phases #$(if (pair? phases) (sexp->gexp phases) phases) diff --git a/guix/build/font-build-system.scm b/guix/build/font-build-system.scm index e4784bc17d..8418ada1d2 100644 --- a/guix/build/font-build-system.scm +++ b/guix/build/font-build-system.scm @@ -23,6 +23,7 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:export (%standard-phases + %license-file-regexp font-build)) ;; Commentary: @@ -56,6 +57,10 @@ archive, or a font file." (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) |