[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#56886] [PATCH] gnu: queen-de: Fix build.
From: |
Liliana Marie Prikler |
Subject: |
[bug#56886] [PATCH] gnu: queen-de: Fix build. |
Date: |
Wed, 03 Aug 2022 10:27:11 +0200 |
User-agent: |
Evolution 3.42.1 |
Am Dienstag, dem 02.08.2022 um 13:04 +0000 schrieb Felix Gruber:
> The German language version of the queen package does not contain a
> readme.txt file, but instead contains a file COPYING.
>
> * gnu/packages/games.scm (make-queen-package): Add readme-name
> argument.
> [arguments]: Use readme-name to install the readme file.
> (queen-de): Set readme-name to COPYING.
> (queen,queen-fr,queen-it): Set readme-name to readme.txt. This
> keeps
> the previous behavior.
> ---
> gnu/packages/games.scm | 12 ++++++------
> 1 file changed, 6 insertions(+), 6 deletions(-)
>
> diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
> index 8b655cc0e4..8303afa633 100644
> --- a/gnu/packages/games.scm
> +++ b/gnu/packages/games.scm
> @@ -9728,7 +9728,7 @@ Skorl. Maybe it would be an idea to try and
> escape...")
> (make-lure-package
> "lure-it" "it"
> "1ks6n39r1cllisrrh6pcr39swsdv7ng3gx5c47vaw71zzfr70hjj"))
>
> -(define (make-queen-package name file-prefix release language hash)
> +(define (make-queen-package name file-prefix release language
> readme-name hash)
> (package
> (name name)
> (version release)
> @@ -9756,7 +9756,7 @@ Skorl. Maybe it would be an idea to try and
> escape...")
> (let ((unzip (search-input-file %build-inputs
> "/bin/unzip")))
> (invoke unzip "-j" (assoc-ref %build-inputs "source")))
> (let ((doc (string-append share "/doc/" ,name "-"
> ,version)))
> - (install-file "readme.txt" doc))
> + (install-file ,readme-name doc))
> (install-file "queen.1c" data)
> (mkdir-p bin)
> (let ((bash (assoc-ref %build-inputs "bash")))
I'm pretty sure there ought to already be a phase that installs license
information if it exists. Thus, rather than parametrizing readme-name,
you should simply check whether the readme file exists.
For example
(for-each (lambda (file)
(when (file-exists? file) (install-file file doc)))
'("readme.txt" "README" "README.md"
"DAS-IST-SEHR-WICHTIG-LIESMICH!!!11!einself.txt")
Cheers