18/100: gnu: qtbase: Use shared-mime-info as the default MIME type database.

[guix-commits]

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

commit 5cf895df8735d0efe1eab1c2ce9d37f18221d2cb
Author: 宋文武 <iyzs...@member.fsf.org>
AuthorDate: Wed Feb 12 13:55:06 2025 +0800

    gnu: qtbase: Use shared-mime-info as the default MIME type database.
    
    * gnu/packages/qt.scm (qtbase) [inputs]: Add shared-mime-info.
    [arguments] <patch-more-paths>: Patch locateMimeDirectories to lookup in
    shared-mime-info.
    
    Change-Id: I6596b1b2f56a2e5c66f751d3feb52fdfac4e4b85
---
 gnu/packages/qt.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 66b43d7a78..49dcbe6c19 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -887,7 +887,15 @@ tst_qt_cmake_create.cpp"
 
                 (substitute* "src/corelib/CMakeLists.txt"
                   (("/bin/ls")
-                   (search-input-file inputs "bin/ls")))))
+                   (search-input-file inputs "bin/ls")))
+
+                ;; Use shared-mime-info as the default MIME type database.
+                (substitute* "src/corelib/mimetypes/qmimedatabase.cpp"
+                  (("return dirs;" all)
+                   (string-append
+                    "dirs.append(\""
+                    #$(this-package-input "shared-mime-info") "/share/mime"
+                    "\");\n" all)))))
             (delete 'do-not-capture-python) ;move after patch-source-shebangs
             (add-after 'patch-source-shebangs 'do-not-capture-python
               (lambda _
@@ -1176,6 +1184,7 @@ tst_qt_cmake_create.cpp"
                 libsm
                 libxcb
                 libxext
+                shared-mime-info
                 xcb-util-cursor
                 `(,zstd "lib"))))
     (native-search-paths