From patchwork Mon Jan 23 21:10:22 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Sughosha X-Patchwork-Id: 46376 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id A59CE27BBEB; Mon, 23 Jan 2023 21:11:21 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-3.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H2,SPF_HELO_PASS, URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 9B27627BBE9 for ; Mon, 23 Jan 2023 21:11:17 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pK45o-00059a-3M; Mon, 23 Jan 2023 16:11:04 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pK45m-00059C-3c for guix-patches@gnu.org; Mon, 23 Jan 2023 16:11:02 -0500 Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1pK45l-0007mk-Rr for guix-patches@gnu.org; Mon, 23 Jan 2023 16:11:01 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1pK45l-0007KD-Ks for guix-patches@gnu.org; Mon, 23 Jan 2023 16:11:01 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#58681] [PATCH v2] gnu: Add synthpod. Resent-From: Sughosha Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Mon, 23 Jan 2023 21:11:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 58681 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: moreinfo patch To: 58681@debbugs.gnu.org Cc: rekado@elephly.net Received: via spool by 58681-submit@debbugs.gnu.org id=B58681.167450824228129 (code B ref 58681); Mon, 23 Jan 2023 21:11:01 +0000 Received: (at 58681) by debbugs.gnu.org; 23 Jan 2023 21:10:42 +0000 Received: from localhost ([127.0.0.1]:55443 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pK45R-0007Jc-NI for submit@debbugs.gnu.org; Mon, 23 Jan 2023 16:10:42 -0500 Received: from mail-40138.protonmail.ch ([185.70.40.138]:12701) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pK45N-0007JM-He for 58681@debbugs.gnu.org; Mon, 23 Jan 2023 16:10:40 -0500 Date: Mon, 23 Jan 2023 21:10:22 +0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=proton.me; s=unq42ldhe5bgvgevyta45th6oa.protonmail; t=1674508231; x=1674767431; bh=fI7W+tGcOFlpj4aRIHPNUmezbQlXgB94hvGenBCHW6s=; h=Date:To:From:Cc:Subject:Message-ID:In-Reply-To:References: Feedback-ID:From:To:Cc:Date:Subject:Reply-To:Feedback-ID: Message-ID:BIMI-Selector; b=dpb6MvrrDEE371RWXzU+fWDYXvB5dO/vICp05qnt7gTjjV4E57EI1uAunZF92ueMD TgS9OxThwXQhSN6+MaeFw//pkXkAn1Gnx3mzOJaN1vX1Fqgl2ap2+zypXCiTqEqrXE NaDYHANm6TUlPQBsKqz9HCwXjpVpnwBa4XTJhexSoAt93TNhJ7NmoodeaoVdzx1vBH 1+M1yIkXcjL1sGF2P7oiCiKqC49njzwzXjrVPZH8BRshJVR+jw+7cO+HtDHpuEn4Oe DgyBpYY2CVdPnyLHPqpnZ7CI8qqJtufvnVrtMOZhsh08aIt46pfcBhg+aFl/88PB0H EDttcCiFJDleg== Message-ID: In-Reply-To: <87bkmqf9z4.fsf@elephly.net> References: <87bkmqf9z4.fsf@elephly.net> Feedback-ID: 45211691:user:proton MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-to: Sughosha X-ACL-Warn: , Sughosha via Guix-patches X-Patchwork-Original-From: Sughosha via Guix-patches via From: Sughosha Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches Thanks for reviewing the patch and improving it. > We should probably also wrap the scripts to set PATH to where “grep”, “coreutils”, “sed”, and “gawk” are found, but I wasn’t able to add (gnu packages gawk) to the imports of (gnu packages music). This is not the only package requiring such basic programs like "sed", "grep" etc but not wrapped or listed in inputs. The other such package that I am aware of is ardour, which also requires these programs. I tried running ardour in a guix shell with --emulate-fhs, then found that ardour could not start because these programs were not found in the PATH. So I am not sure if it is required to add these programs to inputs or to wrap them. > Unfortunately, the program crashes because it can’t find the LV2 files for Synthpod itself: I fixed it partially. The binaries are confusing. `synthpod_ui` seems like not to be run manually. The way that I found to run the ui is `synthpod_alsa -g` or `synthpod_jack -g`. Strangely, with the attatched new v3 patch, the program starts only if installed to guix profile (or maybe something else like guix home, not tested). Just by building, the program searches for "manifest.ttl" file in the current working directory and fails to start. Sughosha From a2ae9de66366bf00c9a384f5c7be8b0be17b0a02 Mon Sep 17 00:00:00 2001 From: Sughosha Date: Mon, 23 Jan 2023 22:02:42 +0100 Subject: [PATCH v3] gnu: Add synthpod. * gnu/packages/music.scm (synthpod): New variable. --- gnu/packages/music.scm | 68 +++++++++++++++++++++++++++++++++++++++++- 1 file changed, 67 insertions(+), 1 deletion(-) diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 65bb6d29f7..5c446330fa 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -44,7 +44,7 @@ ;;; Copyright © 2021 Simon Streit ;;; Copyright © 2021 Xinglu Chen ;;; Copyright © 2021 Thomas Albers Raviola -;;; Copyright © 2022 Sughosha +;;; Copyright © 2022, 2023 Sughosha ;;; Copyright © 2022 Remco van 't Veer ;;; Copyright © 2022 Maxim Cournoyer ;;; Copyright © 2022 Wamm K. D. @@ -174,6 +174,7 @@ (define-module (gnu packages music) #:use-module (gnu packages sqlite) #:use-module (gnu packages stb) #:use-module (gnu packages tcl) + #:use-module (gnu packages terminals) #:use-module (gnu packages texinfo) #:use-module (gnu packages tex) #:use-module (gnu packages time) @@ -3558,6 +3559,71 @@ (define-public mod-host socket or command line.") (license license:gpl3+)))) +(define-public synthpod + (package + (name "synthpod") + (version "0.1.6507") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.open-music-kontrollers.ch/lv2/synthpod") + ;; Version is not tagged but mentioned in VERSION file. + (commit "6e84a075ea8fea95094dcbc2b30f968717a81960"))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1chazkdxjgjzfxqmlk4ywhilkj9l3bybd9xghjg9r67df2diqhbs")))) + (build-system meson-build-system) + (arguments + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-references + (lambda* (#:key inputs #:allow-other-keys) + (substitute* '("bin/synthpod_ui" + "bin/synthpod_d2tk") + (("lv2info") (search-input-file inputs "/bin/lv2info")) + ((" synthpod_sandbox_x11") + (string-append " " #$output "/bin/synthpod_sandbox_x11"))) + (substitute* "bin/synthpod_bin.c" + (("%s/.lv2") (string-append #$output "/lib/lv2")) + ((", home_dir") "")))) + (add-before 'check 'set-home-directory + (lambda _ + ;; Tests fail with: Fontconfig error: No writable cache + ;; directories + (setenv "HOME" "/tmp")))))) + (inputs (list alsa-lib + cairo + eudev + freetype + font-fira-code + font-fira-sans + fontconfig + glew + glu + jack-2 + libvterm + lilv + lv2 + libevdev + libinput + libvterm + lv2 + pixman + sratom + xcb-util + xcb-util-wm + xcb-util-xrm + zita-alsa-pcmi)) + (native-inputs (list pkg-config)) + (home-page "https://open-music-kontrollers.ch/lv2/synthpod/") + (synopsis "Nonlinear LV2 plugin container") + (description + "Synthpod is an LV2 host. It can be run as a standalone app and be used +as a tool for live performances or general audio and event filtering.") + (license (list license:artistic2.0 license:gpl3+)))) + (define-public curseradio (let ((commit "1bd4bd0faeec675e0647bac9a100b526cba19f8d") (revision "1")) -- 2.39.1