[bug#48210] [PATCH] gnu: xboard: Set default engine to gnuchess.

[Michael Rohleder <mike@rohleder.de>]

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.
---
 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 073e41eec6..b394e0e5e9 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -3332,10 +3332,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
-- 
2.31.1