(address . guix-patches@gnu.org)
From 39b9fb1e69fb61acdadb697690becb908d99c607 Mon Sep 17 00:00:00 2001
From: AwesomeAdam54321 <adam.faiz@disroot.org>
Date: Fri, 18 Nov 2022 08:55:02 +0800
Subject: [PATCH] gnu: Add dataparksearch.
* gnu/packages/search.scm (dataparksearch): New variable.
---
gnu/packages/search.scm | 61 +++++++++++++++++++++++++++++++++++++++++
1 file changed, 61 insertions(+)
Toggle diff (100 lines)
diff --git a/gnu/packages/search.scm b/gnu/packages/search.scm
index 27dc9cd02e..db3ca59137 100644
--- a/gnu/packages/search.scm
+++ b/gnu/packages/search.scm
@@ -40,6 +40,7 @@ (define-module (gnu packages search)
#:use-module (guix build-system python)
#:use-module (guix build-system meson)
#:use-module (gnu packages)
+ #:use-module (gnu packages adns)
#:use-module (gnu packages aspell)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
@@ -51,6 +52,7 @@ (define-module (gnu packages search)
#:use-module (gnu packages gawk)
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
+ #:use-module (gnu packages gnunet)
#:use-module (gnu packages groff)
#:use-module (gnu packages gtk)
#:use-module (gnu packages icu4c)
@@ -67,6 +69,7 @@ (define-module (gnu packages search)
#:use-module (gnu packages qt)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages time)
+ #:use-module (gnu packages tls)
#:use-module (gnu packages web)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml)
@@ -729,4 +732,62 @@ (define-public ugrep
formats.")
(license license:bsd-3)))
+(define-public dataparksearch
+ (package
+ (name "dataparksearch")
+ (version "4.54-2016-12-03")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/Maxime2/dataparksearch")
+ (commit version)))
+ (sha256
+ (base32
"1g5kxw2d8jbc1h9yyy0xpnd3gkscj5a32k6hk3brvdwcbsnjbgyg"))
+ (modules '((guix build utils)))
+ (snippet
+ #~(begin
+ (for-each delete-file-recursively '("config.sub"
+ "config.guess"
+ "configure"
+ "Makefile.in"
+ "missing"
+ "depcomp"
+ "ltmain.sh"
+ "compile"
+ ))))
+ (file-name (git-file-name name version))))
+ (build-system gnu-build-system)
+ (native-inputs
+ (list pkg-config automake autoconf libtool openjade))
+ (inputs
+ (list mbedtls-apache zlib postgresql aspell c-ares libextractor))
+ (arguments
+ (list #:configure-flags
+ #~(list "--disable-syslog"
+ "--with-gnu-ld"
+ "--with-extra-charsets=all"
+ (string-append "--with-pgsql=" #$(this-package-input
"postgresql")))
+ #:make-flags
+ #~(list
"DPS_TEST_DBADDR=postgresql://localhost/tmp/postgresql/")
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'bootstrap 'fix-configure
+ (lambda _
+ (substitute* "configure.ac"
+ (("MY_DIRS=\"/usr/local/include")
+ (string-append "MY_DIRS=\"" #$(this-package-input
"aspell") "/include"))
+ (("MY_DIRS=\"/usr/lib")
+ (string-append "MY_DIRS=\"" #$(this-package-input
"aspell") "/lib"))))))))
+ (synopsis "Libre, feature rich search engine")
+ (description
+ "Dataparksearch is a full featured web search engine.
+It has support for http, https, ftp (passive mode), nntp and news URL
schemes, and
+other URL schemes with external parsers.
+It can tweak URLs with session IDs and other weird formats,
+including some JavaScript link decoding.
+Options to query with all words, all words near to each others, any
words, or Boolean queries.
+A subset of VQL (Verity Query Language) is supported.")
+ (home-page "https://www.dataparksearch.org/ ")
+ (license license:gpl3+)))
+
;;; search.scm ends here
--
2.38.0