diff options
| author | Iakob Davitis Dze Gogichaishvili <iakob.gogichaishvili@gmail.com> | 2026-03-04 02:15:53 +0400 |
|---|---|---|
| committer | Andreas Enge <andreas@enge.fr> | 2026-03-04 11:24:30 +0100 |
| commit | 1c3c199c830acb7b52bbeb1692fa8994ece8e2d1 (patch) | |
| tree | 326236995bcc9973b461b56d92197900296e131f | |
| parent | 15b6925e22e2e674cc151611ac6e26ee3a561bb3 (diff) | |
gnu: sooperlooper: Improve style.
* gnu/packages/music.scm (sooperlooper)[arguments]: Use G-expressions.
Remove trailing #t from phases.
Change-Id: Ic80bb7e82080a216e2d9db6998edf4be60a8ef9d
Signed-off-by: Iakob Davitis Dze Gogichaishvili <iakob.gogichaishvili@gmail.com>
Signed-off-by: Andreas Enge <andreas@enge.fr>
| -rw-r--r-- | gnu/packages/music.scm | 71 |
1 files changed, 35 insertions, 36 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 75d4554fc63..e1c797b6d75 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -4517,42 +4517,41 @@ with a number of bugfixes and changes to improve IT playback.") (base32 "0dd2kryizwrzndbwafpbddf9w2ghw9gfmb8nyss5hll70b1dx59f")))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'add-sigc++-includes - (lambda* (#:key inputs #:allow-other-keys) - (let ((sig (search-input-directory inputs "include/sigc++-2.0")) - (xml (search-input-directory inputs "include/libxml2")) - (cwd (getcwd))) - (setenv "CPATH" - (string-append sig ":" - sig "../../lib/sigc++-2.0/include:" - xml ":" - cwd "/libs/pbd:" - cwd "/libs/midi++:" - (or (getenv "CPATH") "")))) - (substitute* '("src/control_osc.hpp" - "src/gui/app_frame.hpp" - "src/gui/config_panel.hpp" - "src/gui/keys_panel.hpp" - "src/gui/latency_panel.hpp" - "src/gui/main_panel.hpp" - "src/gui/midi_bind_panel.hpp" - "src/gui/prefs_dialog.hpp") - (("sigc\\+\\+/object.h") - "sigc++/sigc++.h")) - (substitute* '("src/engine.cpp" - "src/gui/latency_panel.cpp" - "src/gui/looper_panel.cpp" - "src/gui/main_panel.cpp") - (("(\\(| )bind " _ pre) - (string-append pre "sigc::bind "))) - #t)) - (add-after 'unpack 'fix-xpm-warnings - (lambda _ - (substitute* (find-files "." "\\.xpm$") - (("static char") "static const char")) - #t))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'add-sigc++-includes + (lambda* (#:key inputs #:allow-other-keys) + (let ((sig (search-input-directory inputs "include/sigc++-2.0")) + (xml (search-input-directory inputs "include/libxml2")) + (cwd (getcwd))) + (setenv "CPATH" + (string-append sig ":" + sig "../../lib/sigc++-2.0/include:" + xml ":" + cwd "/libs/pbd:" + cwd "/libs/midi++:" + (or (getenv "CPATH") "")))) + (substitute* '("src/control_osc.hpp" + "src/gui/app_frame.hpp" + "src/gui/config_panel.hpp" + "src/gui/keys_panel.hpp" + "src/gui/latency_panel.hpp" + "src/gui/main_panel.hpp" + "src/gui/midi_bind_panel.hpp" + "src/gui/prefs_dialog.hpp") + (("sigc\\+\\+/object.h") + "sigc++/sigc++.h")) + (substitute* '("src/engine.cpp" + "src/gui/latency_panel.cpp" + "src/gui/looper_panel.cpp" + "src/gui/main_panel.cpp") + (("(\\(| )bind " _ pre) + (string-append pre "sigc::bind "))))) + (add-after 'unpack 'fix-xpm-warnings + (lambda _ + (substitute* (find-files "." "\\.xpm$") + (("static char") "static const char"))))))) (inputs (list jack-1 alsa-lib |