04/18: gnu: xboard: Set default engine to gnuchess.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 561db254a5fd72578ea2a0b0a3e8303f0ef20d85
Author: Michael Rohleder <mike@rohleder.de>
AuthorDate: Tue May 4 01:07:28 2021 +0200

    gnu: xboard: Set default engine to gnuchess.
    
    Fixes <https://issues.guix.gnu.org/45236>.
    
    * gnu/packages/games.scm (xboard): Set default engine to gnuchess.
    [arguments]: Add phase 'patch-default-engine.
    [inputs]: Add chess.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/games.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 9d7c8ef..6a9e21b 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -3342,10 +3342,18 @@ exec ~a/bin/freedink -refdir ~a/share/dink\n"
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "xboard.conf"
                (("aplay -q")
-                (string-append (assoc-ref inputs "alsa-utils") "/bin/aplay 
-q")))
-             #t)))))
+                (string-append (assoc-ref inputs "alsa-utils") "/bin/aplay 
-q")))))
+         ;; Fixes https://issues.guix.gnu.org/45236.
+         (add-after 'unpack 'patch-default-engine
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "xboard.conf"
+               (("-firstChessProgram fairymax")
+                (string-append "-firstChessProgram "
+                               (assoc-ref inputs "chess")
+                               "/bin/gnuchessx"))))))))
     (inputs
      `(("alsa-utils" ,alsa-utils)
+       ("chess" ,chess)
        ("gtk+" ,gtk+-2)
        ("librsvg" ,librsvg)))
     (native-inputs