[bug#57218] [PATCH] gnu: Add pipewire.scm and easyeffects

[Formbi via Guix-patches via <guix-patches@gnu.org>]

Hi,

Would this be okay? (sorry, I clicked the wrong reply button)

From 6a29b31090feeb9d219143634d117ec13f20c127 Mon Sep 17 00:00:00 2001
From: Formbi <formbi@protonmail.com>
Date: Mon, 15 Aug 2022 13:20:28 +0200
Subject: [PATCH] gnu: easyeffects: New variable.

* gnu/packages/pipewire.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
---
 gnu/local.mk              |   1 +
 gnu/packages/pipewire.scm | 117 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 118 insertions(+)
 create mode 100644 gnu/packages/pipewire.scm

diff --git a/gnu/local.mk b/gnu/local.mk
index 2d32d85d47..03f2eed526 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -480,6 +480,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/php.scm				\
   %D%/packages/piet.scm			\
   %D%/packages/pikchr.scm			\
+  %D%/packages/pipewire.scm			\
   %D%/packages/pkg-config.scm			\
   %D%/packages/plan9.scm			\
   %D%/packages/plotutils.scm			\
diff --git a/gnu/packages/pipewire.scm b/gnu/packages/pipewire.scm
new file mode 100644
index 0000000000..2b923e0d05
--- /dev/null
+++ b/gnu/packages/pipewire.scm
@@ -0,0 +1,117 @@
+;;; Copyright © 2022 Marcel Kupiec <formbi@protonmail.com>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+
+(define-module (gnu packages pipewire)
+  #:use-module ((guix licenses)
+                #:prefix license:)
+  #:use-module (guix build-system cmake)
+  #:use-module (guix build-system meson)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages algebra)
+  #:use-module (gnu packages audio)
+  #:use-module (gnu packages cmake)
+  #:use-module (gnu packages cpp)
+  #:use-module (gnu packages freedesktop)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages lua)
+  #:use-module (gnu packages music)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages pretty-print)
+  #:use-module (gnu packages pulseaudio)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages tbb)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages xiph))
+
+(define-public easyeffects
+  (let ((toolchain (specification->package "gcc-toolchain@11")))
+    ;; for std::source_location
+    (package-with-c-toolchain
+     (package
+      (name "easyeffects")
+      (version "6.2.8")
+      (source (origin
+               (method git-fetch)
+	       (uri (git-reference
+		     (url "https://github.com/wwmm/easyeffects")
+		     (commit (string-append "v" version))))
+	       (file-name (git-file-name name version))
+               (sha256
+                (base32
+                 "0ahwgcvw7krbylhk00cacikzlaical344i3jkcmq5vr6vl5c8048"))))
+      (build-system meson-build-system)
+      (arguments
+       (list #:glib-or-gtk? #t
+             #:phases #~(modify-phases %standard-phases
+				       (add-after 'unpack 'skip-gtk-update-icon-cache
+						  (lambda _
+						    (substitute* "meson_post_install.py"
+								 (("gtk4-update-icon-cache")
+								  (which "true"))))))))
+      (inputs (list gnome-autoar
+                    calf
+                    fftwf
+                    fmt
+                    gtk
+                    libadwaita
+                    libbs2b
+                    libebur128
+                    libsamplerate
+                    libsigc++
+                    libsndfile
+                    lilv
+                    lsp-plugins
+                    lv2
+                    mda-lv2
+                    pipewire-0.3
+                    rubberband
+                    speexdsp
+                    tbb
+                    xiph-rnnoise
+                    zam-plugins
+                    zita-convolver))
+      (native-inputs (list desktop-file-utils ;for update-desktop-database
+			   `(,glib "bin")
+			   appstream-glib
+			   cmake
+			   gettext-minimal
+			   itstool
+			   json-modern-cxx
+			   pkg-config))
+      (home-page
+       "https://github.com/wwmm/easyeffects")
+      (synopsis
+       "Audio effects for PipeWire applications")
+      (description
+       "EasyEffects is an advanced audio manipulation tool.
+It includes an equalizer, limiter, compressor and a reverberation tool, just to
+mention a few.  To complement this there is also a built in spectrum analyzer.
+
+Besides manipulating sound output, EasyEffects is able to apply effects to an
+input device, such as a microphone.  This is, for example, useful in audio
+recording, but it also works well during voice conversations.")
+      (license license:gpl3+))
+     `(("toolchain" ,toolchain)))))
--
2.37.0