From eb5474bcbed6efef6924a79423ab263b093c53f4 Mon Sep 17 00:00:00 2001
From: Zheng Junjie <zhengjunjie@iscas.ac.cn>
Date: Wed, 10 Jul 2024 23:32:09 +0800
Subject: [PATCH] gnu: Add qtlocation.

* gnu/packages/qt.scm (qtlocation): New variable.

Change-Id: I270399ee01718c5ea3e76a81ecdd81d14bc608fc
---
 gnu/packages/qt.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 0f4bc06eb2..0138fd3dbf 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -2300,6 +2300,32 @@ Server Protocol (LSP) for Qt.")
     (description "The Qt Location module provides an interface for location,
 positioning and geolocation plugins.")))
 
+(define-public qtlocation
+  (package
+    (inherit qtsvg)
+    (name "qtlocation")
+    (version "6.6.3")
+    (source (origin
+              (method url-fetch)
+              (uri (qt-url name version))
+              (sha256
+               (base32
+                "1l81z3zq1zg015l6qxx4yzssdspw689m9bpzxp23yshaych2kd6p"))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments qtsvg)
+       ((#:tests? _ #f) #f)             ; TODO: Enable the tests
+       ((#:phases phases)
+        #~(modify-phases #$phases
+            (add-before 'check 'pre-check
+              (lambda _
+                (setenv "HOME" "/tmp")))))))
+    (native-inputs (list perl))
+    (inputs (list icu4c openssl qtbase zlib qtdeclarative qtpositioning
+                  libxkbcommon))
+    (synopsis "Qt Location and Positioning modules")
+    (description "The Qt Location module provides an interface for location,
+positioning and geolocation plugins.")))
+
 (define-public qtlottie
   (package
     (name "qtlottie")