From d72a22ea23ce7f8dd05c8d8b512691f72943f7ef Mon Sep 17 00:00:00 2001
From: Rene Saavedra <rennes@openmailbox.org>
Date: Tue, 8 Mar 2016 10:28:17 +0100
Subject: [PATCH] gnu: Add Tracker.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/gnome.scm (tracker): New variable.
* gnu/packages/patches/tracker-dbus-test.patch: New file.
* gnu-system.am (dist_patch_DATA): Add it.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu-system.am                                |  1 +
 gnu/packages/gnome.scm                       | 61 ++++++++++++++++++++++++++++
 gnu/packages/patches/tracker-dbus-test.patch | 14 +++++++
 3 files changed, 76 insertions(+)
 create mode 100644 gnu/packages/patches/tracker-dbus-test.patch

diff --git a/gnu-system.am b/gnu-system.am
index f4f1b89..9d37933 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -730,6 +730,7 @@ dist_patch_DATA =						\
   gnu/packages/patches/tk-find-library.patch			\
   gnu/packages/patches/tophat-build-with-later-seqan.patch	\
   gnu/packages/patches/torsocks-dns-test.patch			\
+  gnu/packages/patches/tracker-dbus-test.patch			\
   gnu/packages/patches/tvtime-gcc41.patch			\
   gnu/packages/patches/tvtime-pngoutput.patch			\
   gnu/packages/patches/tvtime-videodev2.patch			\
diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index c945c0e..25243ee 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -72,6 +72,7 @@
   #:use-module (gnu packages ibus)
   #:use-module (gnu packages iso-codes)
   #:use-module (gnu packages libcanberra)
+  #:use-module (gnu packages libunistring)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages libusb)
   #:use-module (gnu packages lirc)
@@ -4866,3 +4867,63 @@ command-line interface.  It can record part or all of an X display for a
 specified duration and save it as a GIF encoded animated image file.")
       (home-page "https://git.gnome.org/browse/byzanz")
       (license license:gpl2+))))
+
+(define-public tracker
+  (package
+    (name "tracker")
+    (version "1.7.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/" name "/"
+                                  (version-major+minor version) "/"
+                                  name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "1m6hys71n6faf6qx719vh8n4y2y63x7cygzh1rq56flvwa0fnxxx"))
+              (patches (list (search-patch "tracker-dbus-test.patch")))))
+    (build-system glib-or-gtk-build-system)
+    (arguments
+     '(#:phases (modify-phases %standard-phases
+                  (delete 'check)
+                  (add-after 'install 'check
+                    ;; Tests in libtracker-data expect the GLib schemas and
+                    ;; stop-words database to be installed.
+                    (assoc-ref %standard-phases 'check))
+                  (add-before 'check 'pre-check
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      ;; tracker-locale.c insists on checking 'LANG'.
+                      (setenv "LANG" "en_US.utf8")
+
+                      ;; No /etc/machine-id.
+                      (setenv "DBUS_FATAL_WARNINGS" "0")
+
+                      ;; Help tests find GLib schemas.
+                      (setenv "XDG_DATA_DIRS"
+                              (string-append (assoc-ref outputs "out")
+                                             "/share"))
+                      #t)))))
+    (native-inputs
+     `(("glib" ,glib) ;; XXX: fail with glib-compile-schemas, gio-2.0.
+       ("gobject-introspection" ,gobject-introspection)
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)
+       ("uuidgen" ,util-linux)
+       ("xsltproc" ,libxslt)))
+    (inputs
+     `(("libpng" ,libpng)
+       ("libunistring" ,libunistring)
+       ("libxml2" ,libxml2)
+       ("sqlite" ,sqlite)
+       ("zlib" ,zlib)))
+    (home-page "https://wiki.gnome.org/Projects/Tracker")
+    (synopsis "User information store, search tool, and indexer")
+    (description
+     "Tracker is a semantic data storage for desktop and mobile devices.
+Tracker uses W3C standards for RDF ontologies using Nepomuk with SPARQL to query
+and update the data.  Tracker is a central repository of user information, that
+provides two big benefits for the user; shared data between applications and
+information which is relational to other information.")
+    (license (list license:lgpl2.1+  ;; XXX: libtracker, tracker-extract.
+                                     ;; XXX: tracker-utils, gvdb.
+                   license:gpl2+     ;; XXX: everything else.
+                   license:bsd-3)))) ;; XXX: libstemmer.
diff --git a/gnu/packages/patches/tracker-dbus-test.patch b/gnu/packages/patches/tracker-dbus-test.patch
new file mode 100644
index 0000000..4767290
--- /dev/null
+++ b/gnu/packages/patches/tracker-dbus-test.patch
@@ -0,0 +1,14 @@
+Skip the 'tracker-file-notifier-test' since it wants to start
+dbus-daemon and insists on having /etc/machine-id, which is
+missing in the build environment.
+
+--- tracker-1.7.2/tests/libtracker-miner/tracker-file-notifier-test.c	2016-03-07 17:07:31.167013848 +0100
++++ tracker-1.7.2/tests/libtracker-miner/tracker-file-notifier-test.c	2016-03-07 17:07:42.419104703 +0100
+@@ -752,6 +752,7 @@ main (gint    argc,
+ 	g_test_init (&argc, &argv, NULL);
+ 
+ 	g_test_message ("Testing file notifier");
++	return g_test_run ();			  /* Skip! */
+ 
+ 	/* Crawling */
+ 	test_add ("/libtracker-miner/file-notifier/crawling-non-recursive",
-- 
2.6.3