diff options
| author | Herman Rimm <[email protected]> | 2024-12-20 18:35:02 +0100 |
|---|---|---|
| committer | Ludovic Courtès <[email protected]> | 2024-12-30 13:49:57 +0100 |
| commit | 01c4e02e33b71e319b2b16507d008cc3e9e1fd9f (patch) | |
| tree | e45842258404c49dc6706ebfb98366857cf210b3 | |
| parent | a805c60151bdc0b4ea15bee0a7ae324b920106f7 (diff) | |
import: texlive: Remove guix-name.
* guix/import/texlive.scm (guix-name): Remove.
(list-upstream-inputs, tlpdb->package): Use downstream-package-name.
Change-Id: I8f04d27a42f762c5604cb8874042fabbbe1e9873
Signed-off-by: Ludovic Courtès <[email protected]>
| -rw-r--r-- | guix/import/texlive.scm | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/guix/import/texlive.scm b/guix/import/texlive.scm index 6d04cc25ee..8ce22a1d59 100644 --- a/guix/import/texlive.scm +++ b/guix/import/texlive.scm @@ -334,15 +334,6 @@ not succeed." ((lst ...) `(list ,@(map string->license lst))) (x `(error unknown-license ,x)))) -(define (guix-name name) - "Return a Guix package name for a given Texlive package NAME." - (string-append "texlive-" - (string-map (match-lambda - (#\_ #\-) - (#\. #\-) - (chr (char-downcase chr))) - name))) - (define* (filter-depends depends #:optional texlive-only) "Filter upstream package names DEPENDS to include only their equivalent Guix package names, without \"texlive-\" prefix. When TEXLIVE-ONLY is true, ignore @@ -578,7 +569,8 @@ of package with UPSTREAM-NAME in VERSION." (map (lambda (input-name) (upstream-input (name input-name) - (downstream-name (guix-name input-name)) + (downstream-name (downstream-package-name "texlive-" + input-name)) (type 'propagated))) (sort (append (filter-depends (or (assoc-ref package-data 'depend) '())) @@ -655,7 +647,7 @@ at VERSION." (define (tlpdb->package upstream-name version database) (and-let* ((data (assoc-ref database upstream-name)) - (name (guix-name upstream-name)) + (name (downstream-package-name "texlive-" upstream-name)) (reference (texlive->svn-multi-reference upstream-name version database)) (source (with-store store |