From 7354aa8482b39b2f7b4a24c219f0b5380fb07878 Mon Sep 17 00:00:00 2001
From: nik gaffney <nik@fo.am>
Date: Sat, 4 Oct 2025 11:07:35 +0200
Subject: [PATCH] gnu: supercollider: Update to 3.14.0.

* gnu/packages/audio.scm (supercollider): Update to 3.14.0.

Change-Id: I1027f3442c8374b839f40ad9b08a4f1d0726d9d5
Signed-off-by: Gabriel Wicki <gabriel@erlikon.ch>
---
 gnu/packages/audio.scm | 32 +++++++++++---------------------
 1 file changed, 11 insertions(+), 21 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 30fe32f23d4d3a5fa977d99313d6adc4f8f42665..d7f4453548c4852366659ec3cfd9f630316efe40 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -4298,7 +4298,7 @@ background file post-processing.")
 (define-public supercollider
   (package
     (name "supercollider")
-    (version "3.13.1")
+    (version "3.14.0")
     (source
      (origin
        (method git-fetch)
@@ -4310,7 +4310,7 @@ background file post-processing.")
        (file-name (git-file-name name version))
        (sha256
         (base32
-         "0ii3nczg46f2hzgj2fkd418wgkbal54yhh90sza9vr66l1kxlp2s"))
+         "1qp163c6mg1d8c59ar3v1yixryr1paa9bs8pkz6yd3c86qz24n0h"))
        (modules '((guix build utils)
                   (ice-9 ftw)))
        (snippet
@@ -4332,7 +4332,7 @@ background file post-processing.")
 AbletonLinkConfig\\.cmake\\)")
                "find_package(AbletonLink NAMES AbletonLink ableton-link \
 link REQUIRED)"))))))
-    (build-system cmake-build-system)
+    (build-system qt-build-system)
     (outputs
      '("out"                            ;core language
        "ide"))                          ;qt ide
@@ -4346,7 +4346,7 @@ link REQUIRED)"))))))
               "-DFORTIFY=ON"
               "-DLIBSCSYNTH=ON"
               "-DSC_EL=OFF")      ;scel is packaged individually as emacs-scel
-      #:modules '((guix build cmake-build-system)
+      #:modules '((guix build qt-build-system)
                   ((guix build gnu-build-system) #:prefix gnu:)
                   (guix build utils))
       #:phases
@@ -4367,15 +4367,6 @@ link REQUIRED)"))))))
                      "SC_Filesystem::instance\\(\\)\\.getDirectory"
                      "\\(DirName::Resource\\) / CLASS_LIB_DIR_NAME"))
                    (string-append "Path(\"" scclass-dir "\")"))))))
-          (add-after 'patch-scclass-dir 'fix-struct-SOUNDFILE-tag
-            (lambda _
-              (substitute* "include/plugin_interface/SC_SndBuf.h"
-                (("SNDFILE_tag")
-                 "sf_private_tag"))))
-          (add-before 'build 'prepare-x
-            (lambda _
-              (system "Xvfb &")
-              (setenv "DISPLAY" ":0")))
           (replace 'install (assoc-ref gnu:%standard-phases 'install))
           (add-before 'install 'install-ide
             (lambda _
@@ -4385,8 +4376,8 @@ link REQUIRED)"))))))
                               (string-append ide "/bin"))
                 (delete-file scide)))))))
     (native-inputs
-     (list ableton-link pkg-config qttools-5 xorg-server-for-tests))
-    (inputs (list jack-1
+     (list ableton-link pkg-config qttools))
+    (inputs (list jack-2
                   libsndfile
                   fftw
                   libxt
@@ -4400,13 +4391,12 @@ link REQUIRED)"))))))
                   yaml-cpp
                   python-wrapper        ;there were warnings in the build process
                   ruby                  ;there were warnings in the build process
-                  qtbase-5
-                  qtdeclarative-5
-                  qtsvg-5
-                  qtwebchannel-5
-                  qtwebsockets-5))
+                  qtdeclarative
+                  qtsvg
+                  qtwebchannel
+                  qtwebsockets))
     (propagated-inputs                  ;to get native-search-path
-     (list qtwebengine-5))
+     (list qtwebengine))
     (home-page "https://github.com/supercollider/supercollider")
     (synopsis "Synthesis engine and programming language")
     (description "SuperCollider is a synthesis engine (@code{scsynth} or