infra/nonguix
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'SameExpert-master-patch-69208' into 'master'

Browse Source 
nongnu: Add bitwig-studio.

See merge request nonguix/nonguix!287
This commit is contained in:
Sughosha 2025-02-14 15:14:27 +00:00
commit 9e21158cfc
1 changed files with 142 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

143
nongnu/packages/music.scm
View File

@ -1,14 +1,28 @@
;;; SPDX-License-Identifier: GPL-3.0-or-later ;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Copyright © 2022 Sughosha <sughosha@proton.me> ;;; Copyright © 2022, 2023 Sughosha <sughosha@proton.me>
;;; Copyright © 2023 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; Copyright © 2023 Jonathan Brielmaier <jonathan.brielmaier@web.de>
(define-module (nongnu packages music) (define-module (nongnu packages music)
#:use-module (gnu packages audio) #:use-module (gnu packages audio)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages cpp) #:use-module (gnu packages cpp)
#:use-module (gnu packages fcitx5)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages gcc) #:use-module (gnu packages gcc)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
#:use-module (gnu packages java)
#:use-module (gnu packages libusb)
#:use-module (gnu packages llvm)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages video)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xorg)
#:use-module (guix build utils)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
@ -105,3 +119,130 @@ audio and MIDI recording, editing, processing, mixing and mastering toolset.
It supports a vast range of hardware, digital formats and plugins, and can be It supports a vast range of hardware, digital formats and plugins, and can be
comprehensively extended, scripted and modified.") comprehensively extended, scripted and modified.")
(license (license:nonfree "file:///opt/REAPER/EULA.txt")))) (license (license:nonfree "file:///opt/REAPER/EULA.txt"))))
(define-public bitwig-studio
(package
(name "bitwig-studio")
(version "5.0.4")
(source (origin
(method url-fetch)
(uri (string-append "https://downloads.bitwig.com/" version
"/bitwig-studio-" version ".deb"))
(sha256
(base32
"15hk8mbyda0isbqng00wd0xcp8g91117lkg6f5b2s0xylf858j12"))))
(build-system binary-build-system)
(arguments
(list #:install-plan
#~`(("opt" "opt"
#:exclude ("BitwigPluginHost-X86-SSE41")) ;no multilib
("usr/share" "share"))
#:phases
#~(modify-phases %standard-phases
(replace 'unpack
(lambda _
(invoke "ar" "x" #$source)
(invoke "rm" "-v" "control.tar.xz" "debian-binary")
(invoke "tar" "xf" "data.tar.xz")
(invoke "rm" "-vrf" "data.tar.xz")))
(add-after 'unpack 'unbundle-deps
(lambda _
(with-directory-excursion "opt/bitwig-studio"
(with-directory-excursion "lib"
(for-each delete-file-recursively
(list "cp" "jre")))
(for-each delete-file
(list "bin/BitwigStudio"
"bin/ffmpeg"
"bin/ffprobe"
"bin/libLTO.so"
;FIXME: Unbundle "bin/liblwjgl.so"
"bin/libxcb-imdkit.so"
"lib/bitwig-studio/libxcb-imdkit.so.1"))
(symlink (string-append #$openjdk17 "/bin/java")
"bin/BitwigStudio"))))
(replace 'patchelf
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "opt/bitwig-studio"
(invoke "patchelf" "--set-interpreter"
(string-append (assoc-ref inputs "libc")
"/lib/ld-linux-x86-64.so.2")
"bitwig-studio"
"BitwigStudio"
"bin/BitwigAudioEngine-X64-AVX2"
"bin/BitwigAudioEngine-X64-SSE41"
"bin/BitwigPluginHost-X64-SSE41"
"bin/BitwigVampHost"
"bin/show-file-dialog-gtk3"))))
(add-after 'install 'create-wrapper
(lambda* (#:key inputs #:allow-other-keys)
(make-wrapper
(string-append #$output "/bin/bitwig-studio")
(string-append #$output
"/opt/bitwig-studio/bitwig-studio")
#:skip-argument-0? #t
`("PATH" suffix
(,(string-append #$ffmpeg "/bin")))
`("LD_LIBRARY_PATH" ":" suffix
(,(string-append (assoc-ref inputs "libc") "/lib")
,(string-append (assoc-ref inputs "gcc") "/lib")
,(string-append #$alsa-lib "/lib")
,(string-append #$cairo "/lib")
,(string-append #$freetype "/lib")
,(string-append #$gdk-pixbuf "/lib")
,(string-append #$glib "/lib")
,(string-append #$gtk+ "/lib")
,(string-append #$jack-1 "/lib")
,(string-append #$libusb4java "/lib")
,(string-append #$libx11 "/lib")
,(string-append #$libxcb "/lib")
,(string-append #$libxcursor "/lib")
,(string-append #$libxkbcommon "/lib")
,(string-append #$llvm-13 "/lib")
,(string-append #$mesa "/lib")
,(string-append #$pipewire "/lib")
,(string-append #$pulseaudio "/lib")
,(string-append #$xcb-imdkit "/lib")
,(string-append #$xcb-util "/lib")
,(string-append #$xcb-util-wm "/lib")
,(string-append #$zlib "/lib"))))))
(replace 'install-license-files
(lambda _
(install-file
(string-append "opt/bitwig-studio/EULA.txt")
(string-append #$output "/share/doc/"
(strip-store-file-name #$output))))))))
(inputs
(list alsa-lib
cairo
ffmpeg
freetype
`(,gcc "lib")
gdk-pixbuf
glib
gtk+
jack-1
libusb4java
libx11
libxcb
libxcursor
libxkbcommon
llvm-13
mesa
openjdk17
pipewire
pulseaudio
xcb-imdkit
xcb-util
xcb-util-wm
zlib))
(supported-systems
(list "x86_64-linux"))
(home-page "https://www.bitwig.com/")
(synopsis "Music production and performance software")
(description
"Bitwig Studio is a digital audio workstation which is aimed at loop based
live performance and production. It features modulations, macros, note
expressions, LFOs and envelopes. It also supports VST plugins and hardware
integration.")
(license (license:nonfree "file:///opt/bitwig-studio/EULA.txt"))))