14/18: gnu: clipmenu: Set #:guile argument of 'wrap-script'.

[guix-commits]

civodul pushed a commit to branch core-updates
in repository guix.

commit a4e38cc2163e3881834887bdd68a79dcf9abfcf8
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon May 31 20:04:30 2021 +0200

    gnu: clipmenu: Set #:guile argument of 'wrap-script'.
    
    * gnu/packages/xdisorg.scm
      (clipmenu)[arguments]<#:phases>{wrap-script}:
      Set #:guile argument of ‘wrap-script’.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/xdisorg.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index de2cba8..d339851 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -2555,10 +2555,12 @@ tools to complement clipnotify.")
                       (gawk              (assoc-ref inputs "gawk"))
                       (util-linux        (assoc-ref inputs "util-linux"))
                       (xdotool           (assoc-ref inputs "xdotool"))
-                      (xsel              (assoc-ref inputs "xsel")))
+                      (xsel              (assoc-ref inputs "xsel"))
+                      (guile             (search-input-file inputs 
"bin/guile")))
                  (for-each
                   (lambda (prog)
                     (wrap-script (string-append out "/bin/" prog)
+                      #:guile guile
                       `("PATH" ":" prefix
                         ,(map (lambda (dir)
                                 (string-append dir "/bin"))