[bug#51018] [PATCH] gnu: Add plocate.

[Alexandr Vityazev <avityazev@posteo.org>]

* gnu/packages/search.scm (plocate): New variable.

Add the required imports from (guix build-system meson) and
(gnu packages pkg-config).
---
 gnu/packages/search.scm | 36 +++++++++++++++++++++++++++++++++++-
 1 file changed, 35 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/search.scm b/gnu/packages/search.scm
index 44d5b631ca..cd44f71058 100644
--- a/gnu/packages/search.scm
+++ b/gnu/packages/search.scm
@@ -7,6 +7,7 @@
 ;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com>
 ;;; Copyright © 2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
 ;;; Copyright © 2021 Vinicius Monego <monego@posteo.net>
+;;; Copyright © 2021 Alexandr Vityazev <avityazev@posteo.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -33,6 +34,7 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system python)
+  #:use-module (guix build-system meson)
   #:use-module (gnu packages)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages check)
@@ -51,7 +53,8 @@
   #:use-module (gnu packages time)
   #:use-module (gnu packages web)
   #:use-module (gnu packages xdisorg)
-  #:use-module (gnu packages xml))
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages pkg-config))
 
 (define-public xapian
   (package
@@ -333,6 +336,37 @@ with slocate, and attempts to be compatible to GNU locate when it does not
 conflict with slocate compatibility.")
     (license gpl2)))
 
+(define-public plocate
+  (package
+    (name "plocate")
+    (version "1.1.11")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://plocate.sesse.net/download/plocate-"
+             version ".tar.gz"))
+       (sha256
+        (base32
+         "0kwfp3hwf9dbakf3h378qrhl0jd1spxxrs4snmgb5jsbdijwd777"))))
+    (build-system meson-build-system)
+    (arguments
+     `(#:configure-flags
+       (list
+        (string-append
+         "--sharedstatedir=" (assoc-ref %outputs "out") "/var"))))
+    (inputs
+     `(("zstd" ,zstd "lib")
+       ("liburing" ,liburing)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "https://plocate.sesse.net/")
+    (synopsis "Much faster locate")
+    (description "Plocate is a @code{locate} based on posting lists,
+completely replacing @code{mlocate} with a much faster and smaller index.
+It is suitable as a default locate on your system.")
+    (license gpl2)))
+
 (define-public swish-e
   (package
     (name "swish-e")
-- 
2.33.0



-- 

Alexandr Vityazev