unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#56886] [PATCH] gnu: queen-de: Fix build.
@ 2022-08-02 13:04 Felix Gruber
  2022-08-03  8:27 ` Liliana Marie Prikler
  0 siblings, 1 reply; 5+ messages in thread
From: Felix Gruber @ 2022-08-02 13:04 UTC (permalink / raw)
  To: 56886; +Cc: 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")))
@@ -9807,22 +9807,22 @@ women and 6-foot-tall pygmies.")
 
 (define-public queen
   (make-queen-package
-   "queen" "FOTAQ_Talkie-" "1.1" "en"
+   "queen" "FOTAQ_Talkie-" "1.1" "en" "readme.txt"
    "1a6q71q1dl9vvw2qqsxk5h1sv0gaqy6236zr5905w2is01gdsp52"))
 
 (define-public queen-de
   (make-queen-package
-   "queen-de" "FOTAQ_Ger_talkie-" "1.0" "de"
+   "queen-de" "FOTAQ_Ger_talkie-" "1.0" "de" "COPYING"
    "13vn43x7214vyprlpqabvv71k890nff3d6fjscflr1ll7acjca3f"))
 
 (define-public queen-fr
   (make-queen-package
-   "queen-fr" "FOTAQ_Fr_Talkie_" "1.0" "fr"
+   "queen-fr" "FOTAQ_Fr_Talkie_" "1.0" "fr" "readme.txt"
    "0hq5g4qrkcwm2kn5i4kv4hijs9hi7bw9xl1vrwd1l69qqn30crwy"))
 
 (define-public queen-it
   (make-queen-package
-   "queen-it" "FOTAQ_It_Talkie_" "1.0" "it"
+   "queen-it" "FOTAQ_It_Talkie_" "1.0" "it" "readme.txt"
    "1h76y70lrpzfjkm53n4nr364nhyka54vbz9r7sadzyzl7c7ilv4d"))
 
 (define-public sky
-- 
2.30.2





^ permalink raw reply related	[flat|nested] 5+ messages in thread

* [bug#56886] [PATCH] gnu: queen-de: Fix build.
  2022-08-02 13:04 [bug#56886] [PATCH] gnu: queen-de: Fix build Felix Gruber
@ 2022-08-03  8:27 ` Liliana Marie Prikler
  2022-08-04 19:23   ` [bug#56886] [PATCH v2] " Felix Gruber
  0 siblings, 1 reply; 5+ messages in thread
From: Liliana Marie Prikler @ 2022-08-03  8:27 UTC (permalink / raw)
  To: Felix Gruber, 56886

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




^ permalink raw reply	[flat|nested] 5+ messages in thread

* [bug#56886] [PATCH v2] gnu: queen-de: Fix build.
  2022-08-03  8:27 ` Liliana Marie Prikler
@ 2022-08-04 19:23   ` Felix Gruber
  2022-08-05  6:15     ` Liliana Marie Prikler
  2022-08-06 14:55     ` bug#56886: " Liliana Marie Prikler
  0 siblings, 2 replies; 5+ messages in thread
From: Felix Gruber @ 2022-08-04 19:23 UTC (permalink / raw)
  To: 56886, Liliana Marie Prikler; +Cc: Felix Gruber

* gnu/packages/games.scm (make-queen-package)[arguments]: Only install
  readme.txt if it exists. The queen-de package that we create with
  make-queen-package does not contain a readme file, while all the other
  versions of the queen package have a readme file.
---
 gnu/packages/games.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 06084d1167..da722ade84 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -9810,7 +9810,9 @@ 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))
+             (for-each (lambda (file)
+                         (when (file-exists? file) (install-file file doc)))
+                       '("readme.txt" "README" "README.md")))
            (install-file "queen.1c" data)
            (mkdir-p bin)
            (let ((bash (assoc-ref %build-inputs "bash")))
-- 
2.30.2





^ permalink raw reply related	[flat|nested] 5+ messages in thread

* [bug#56886] [PATCH v2] gnu: queen-de: Fix build.
  2022-08-04 19:23   ` [bug#56886] [PATCH v2] " Felix Gruber
@ 2022-08-05  6:15     ` Liliana Marie Prikler
  2022-08-06 14:55     ` bug#56886: " Liliana Marie Prikler
  1 sibling, 0 replies; 5+ messages in thread
From: Liliana Marie Prikler @ 2022-08-05  6:15 UTC (permalink / raw)
  To: Felix Gruber, 56886

Am Donnerstag, dem 04.08.2022 um 19:23 +0000 schrieb Felix Gruber:
> * gnu/packages/games.scm (make-queen-package)[arguments]: Only
> install
>   readme.txt if it exists. The queen-de package that we create with
>   make-queen-package does not contain a readme file, while all the
> other
>   versions of the queen package have a readme file.
The explanation goes before the ChangeLog, also there ought to be a
link to this issue.  Other than that LGTM.




^ permalink raw reply	[flat|nested] 5+ messages in thread

* bug#56886: [PATCH v2] gnu: queen-de: Fix build.
  2022-08-04 19:23   ` [bug#56886] [PATCH v2] " Felix Gruber
  2022-08-05  6:15     ` Liliana Marie Prikler
@ 2022-08-06 14:55     ` Liliana Marie Prikler
  1 sibling, 0 replies; 5+ messages in thread
From: Liliana Marie Prikler @ 2022-08-06 14:55 UTC (permalink / raw)
  To: Felix Gruber, 56886-done

Am Donnerstag, dem 04.08.2022 um 19:23 +0000 schrieb Felix Gruber:
> * gnu/packages/games.scm (make-queen-package)[arguments]: Only
> install
>   readme.txt if it exists. The queen-de package that we create with
>   make-queen-package does not contain a readme file, while all the
> other
>   versions of the queen package have a readme file.
Pushed with a slight change to the ChangeLog.

Cheers




^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2022-08-06 14:57 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-08-02 13:04 [bug#56886] [PATCH] gnu: queen-de: Fix build Felix Gruber
2022-08-03  8:27 ` Liliana Marie Prikler
2022-08-04 19:23   ` [bug#56886] [PATCH v2] " Felix Gruber
2022-08-05  6:15     ` Liliana Marie Prikler
2022-08-06 14:55     ` bug#56886: " Liliana Marie Prikler

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).