[bug#56886] [PATCH] gnu: queen-de: Fix build.

[Liliana Marie Prikler <liliana.prikler@ist.tugraz.at>]

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