From 3631e865fa6374550ef44f4e8cac264636099b78 Mon Sep 17 00:00:00 2001
From: Maxime Devos <maximedevos@telenet.be>
Date: Fri, 2 Jul 2021 12:13:00 +0200
Subject: [PATCH] gnu: windowmaker: Add 'bash' input for 'wrap-program'.

It is required for cross-compilation.

* gnu/packages/gnustep.scm
(windowmaker): Remove trailing #t.
[inputs]: Add 'bash-minimal'.  Remove labels.  Sort.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Change-Id: Icba4437e459e209cb5af4e00a436d3921fc27957
---
 gnu/packages/gnustep.scm | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/gnustep.scm b/gnu/packages/gnustep.scm
index b88866f7b7..e9e5ac095b 100644
--- a/gnu/packages/gnustep.scm
+++ b/gnu/packages/gnustep.scm
@@ -30,6 +30,7 @@ (define-module (gnu packages gnustep)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages)
   #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
   #:use-module (gnu packages datastructures)
   #:use-module (gnu packages xorg)
   #:use-module (gnu packages libffcall)
@@ -152,8 +153,7 @@ (define-public windowmaker
                ;; The path to wmsetbg in Guix requires 67 extra characters.
                (substitute* "src/defaults.c"
                  (("len = strlen\\(text\\) \\+ 40;")
-                  (string-append "len = strlen(text) + 107;")))
-               #t)))
+                  (string-append "len = strlen(text) + 107;"))))))
          (add-after 'install 'install-xsession
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -171,8 +171,7 @@ (define-public windowmaker
                            (string-map (match-lambda
                                          (#\newline #\space)
                                          (chr chr))
-                                       ,synopsis) out))))
-             #t))
+                                       ,synopsis) out))))))
          (add-after 'install-xsession 'wrap
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -180,18 +179,18 @@ (define-public windowmaker
                ;; In turn, 'wmaker.inst' wants to invoke 'wmmenugen'
                ;; etc., so make sure everything is in $PATH.
                (wrap-program (string-append bin "/wmaker.inst")
-                 `("PATH" ":" prefix (,bin)))
-               #t))))))
+                 `("PATH" ":" prefix (,bin)))))))))
     (inputs
-     `(("libxmu" ,libxmu)
-       ("libxft" ,libxft)
-       ("libx11" ,libx11)
-       ("libxinerama" ,libxinerama)
-       ("fontconfig" ,fontconfig)
-       ("libjpeg" ,libjpeg-turbo)
-       ("giflib" ,giflib)
-       ("libpng" ,libpng)
-       ("libtiff" ,libtiff)))
+     (list bash-minimal                 ;for wrap-program
+           fontconfig
+           giflib
+           libjpeg-turbo
+           libpng
+           libtiff
+           libx11
+           libxft
+           libxinerama
+           libxmu))
     (native-inputs
      (list pkg-config))
     (home-page "https://windowmaker.org/")