From 1be281d87573fb4d640f6bf43ad74cbaf7fb4b14 Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Thu, 21 Nov 2024 21:08:12 -0300
Subject: [PATCH] packages: music: Fix kew (thanks Pavel)

---
 radix/packages/music.scm | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/radix/packages/music.scm b/radix/packages/music.scm
index 9ddc2c4..171f662 100644
--- a/radix/packages/music.scm
+++ b/radix/packages/music.scm
@@ -7,12 +7,14 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages algebra)
   #:use-module (gnu packages audio)
+  #:use-module (gnu packages bash)
   #:use-module (gnu packages commencement)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages image)
   #:use-module (gnu packages image-viewers)
+  #:use-module (gnu packages linux)
   #:use-module (gnu packages mp3)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages pulseaudio)
@@ -23,6 +25,7 @@
   #:use-module (radix packages golang)
   #:use-module (radix packages stb))
 
+;; Thanks Pavel :)
 (define-public kew
   (package
    (name "kew")
@@ -60,9 +63,17 @@
                                      "-I" stb-image-resize2 "/include ")))
             #:phases
             #~(modify-phases %standard-phases
-                (delete 'configure))))
+                (delete 'configure)
+                (add-after 'install 'wrap-kew
+                    (lambda* (#:key outputs inputs #:allow-other-keys)
+                      (let ((out (assoc-ref outputs "out"))
+                            (alsa-lib (assoc-ref inputs "alsa-lib")))
+                        (wrap-program (string-append out "/bin/kew")
+                          `("LD_LIBRARY_PATH" ":" prefix
+                            (,(string-append alsa-lib "/lib"))))))))))
    (native-inputs
-     (list chafa
+     (list bash-minimal
+           chafa
            fftwf
            gcc-toolchain
            gdk-pixbuf
@@ -76,12 +87,11 @@
            stb-image-resize2
            taglib))
    (inputs
-     (list faad2
+     (list alsa-lib
+           faad2
            freeimage
            libvorbis
            opus))
-   (propagated-inputs
-    (list pulseaudio))
    (synopsis "A command-line music player.")
    (description "A command-line music player.")
    (home-page "https://github.com/ravachol/kew")