From def14ad40e0372e497bde511c72f516d556c258b Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Sun, 28 Jul 2024 18:52:13 -0300
Subject: [PATCH] packages: music: Add kew

Signed-off-by: Luis Guilherme Coelho <lgcoelho@disroot.org>
---
 radix/packages/music.scm | 56 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 radix/packages/music.scm

diff --git a/radix/packages/music.scm b/radix/packages/music.scm
new file mode 100644
index 0000000..2628842
--- /dev/null
+++ b/radix/packages/music.scm
@@ -0,0 +1,56 @@
+(define-module (radix packages music)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages algebra)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages image-viewers)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages video)
+  #:use-module (gnu packages xiph)
+  #:use-module (radix packages golang))
+
+(define-public kew
+  (package
+   (name "kew")
+   (version "2.6.0")
+   (source
+     (origin (method git-fetch)
+             (uri (git-reference
+                    (url "https://github.com/ravachol/kew")
+                    (commit (string-append "v" version))))
+             (file-name (git-file-name name version))
+             (sha256
+               (base32 "0638rarv6fl1j9zvlwd2wxpk44p1i3fzm1qz4k2ipsg2hvp5q3fm"))))
+   (build-system gnu-build-system)
+   (arguments
+     (list #:tests? #f
+           #:make-flags
+           #~(list (string-append "PREFIX=" (assoc-ref %outputs "out"))
+                   (string-append "CC=" #$(cc-for-target))
+                   (string-append "PKG_CONFIG=" #$(pkg-config-for-target))
+                   (string-append "PKG_CONFIG_PATH="
+                                  #$(this-package-input "glib") "/include/glib-2.0"
+                                  ":" #$(this-package-input "fftwf") "/include"))
+            #:phases
+            #~(modify-phases %standard-phases
+                (delete 'configure))))
+   (native-inputs
+     (list pkg-config))
+   (inputs
+     (list chafa
+           ffmpeg
+           fftwf
+           freeimage
+           glib
+           libvorbis
+           opus
+           opusfile))
+   (synopsis "A command-line music player.")
+   (description "A command-line music player.")
+   (home-page "https://github.com/ravachol/kew")
+   (license license:gpl3)))