cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

packages: music: Fix kew (thanks Pavel)

main
Luis Guilherme Coelho 2024-11-21 21:08:12 -03:00
parent ea66fc61be
commit 1be281d875
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
radix/packages/music.scm
View File

@ -7,12 +7,14 @@
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
#:use-module (gnu packages audio) #:use-module (gnu packages audio)
#:use-module (gnu packages bash)
#:use-module (gnu packages commencement) #:use-module (gnu packages commencement)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages image-viewers) #:use-module (gnu packages image-viewers)
#:use-module (gnu packages linux)
#:use-module (gnu packages mp3) #:use-module (gnu packages mp3)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages pulseaudio) #:use-module (gnu packages pulseaudio)
@ -23,6 +25,7 @@
#:use-module (radix packages golang) #:use-module (radix packages golang)
#:use-module (radix packages stb)) #:use-module (radix packages stb))
;; Thanks Pavel :)
(define-public kew (define-public kew
(package (package
(name "kew") (name "kew")
@ -60,9 +63,17 @@
"-I" stb-image-resize2 "/include "))) "-I" stb-image-resize2 "/include ")))
#:phases #:phases
#~(modify-phases %standard-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 (native-inputs
(list chafa (list bash-minimal
chafa
fftwf fftwf
gcc-toolchain gcc-toolchain
gdk-pixbuf gdk-pixbuf
@ -76,12 +87,11 @@
stb-image-resize2 stb-image-resize2
taglib)) taglib))
(inputs (inputs
(list faad2 (list alsa-lib
faad2
freeimage freeimage
libvorbis libvorbis
opus)) opus))
(propagated-inputs
(list pulseaudio))
(synopsis "A command-line music player.") (synopsis "A command-line music player.")
(description "A command-line music player.") (description "A command-line music player.")
(home-page "https://github.com/ravachol/kew") (home-page "https://github.com/ravachol/kew")