23/75: gnu: qt-creator: Update to 14.0.1.

[guix-commits]

z572 pushed a commit to branch qt-team
in repository guix.

commit f537219cf8972838a4be35a07a8e37ae72dea0ea
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Sun Aug 11 00:11:19 2024 +0800

    gnu: qt-creator: Update to 14.0.1.
    
    * gnu/packages/qt.scm (qt-creator): Update to 14.0.1.
    [source]: Adjust snippet.
    [arguments]<#:phases>: adjust patch-paths phase.
    
    Change-Id: Ideafcf3a7c0ce9c85025472d41fb72527cc4b9fb
---
 gnu/packages/qt.scm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 59cf5dbaa9..b817899fb2 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -5565,7 +5565,7 @@ including @i{fix-its} for automatic refactoring.")
 (define-public qt-creator
   (package
     (name "qt-creator")
-    (version "12.0.2")
+    (version "14.0.1")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -5582,13 +5582,21 @@ including @i{fix-its} for automatic refactoring.")
                              ;; Marketplace recommends nonfree extensions;
                              ;; remove it.
                              "src/plugins/marketplace"))
+                          ;; qt-creator installation attempts to install the
+                          ;; yaml-cpp LICENSE file, but we removed the bundled
+                          ;; yaml-cpp, so create an empty file to allow it to
+                          ;; install properly.
+                          (mkdir-p "src/libs/3rdparty/yaml-cpp")
+                          (call-with-output-file 
"src/libs/3rdparty/yaml-cpp/LICENSE"
+                            (lambda (port)
+                              (const #t)))
                           (substitute* "src/plugins/CMakeLists.txt"
                             (("add_subdirectory\\(marketplace).*") ""))
                           (substitute* "src/plugins/plugins.qbs"
                             ((".*marketplace/marketplace.qbs.*") ""))))
               (sha256
                (base32
-                "1lgk547pvg31zzqra7gn9gsszm5wrwxiw06crbr5n2kqfavk9r22"))))
+                "0zc9z4zzypqd1q49p4ckwbgxqcnnsc11jgsys6wli1ppmvzmn2zn"))))
     (outputs '("out" "debug"))
     (build-system qt-build-system)
     (arguments
@@ -5638,7 +5646,7 @@ including @i{fix-its} for automatic refactoring.")
                              "src/libs/utils/deviceshell.cpp")
                 (("/bin/sh")
                  (search-input-file inputs "bin/sh")))
-              (substitute* "src/libs/utils/process.cpp"
+              (substitute* "src/libs/utils/qtcprocess.cpp"
                 (("/usr/bin/env")
                  (search-input-file inputs "bin/env")))
               (substitute* '("tests/auto/utils/process/tst_process.cpp"