amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Add whoogle-service-type.

Browse source 
* gnu/services/web.scm (whoogle-service-type): New variable.
* doc/guix.texi (Web Services): Document it.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Miguel Ángel Moreno 2023-08-13 12:37:04 +02:00 • committed by Ludovic Courtès
parent 0497b1696f
commit 0a7bf792c8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 88 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

56
gnu/services/web.scm
View file

@ -16,6 +16,7 @@
;;; Copyright © 2020, 2021 Alexandru-Sergiu Marton <brown121407@posteo.ro>
;;; Copyright © 2022 Simen Endsjø <simendsjo@gmail.com>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2023 Miguel Ángel Moreno <mail@migalmoreno.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -36,6 +37,7 @@
#:use-module (gnu services)
#:use-module (gnu services shepherd)
#:use-module (gnu services admin)
#:use-module (gnu services configuration)
#:use-module (gnu services getmail)
#:use-module (gnu services mail)
#:use-module (gnu system pam)
@ -47,6 +49,7 @@
#:use-module (gnu packages patchutils)
#:use-module (gnu packages php)
#:use-module (gnu packages python)
#:use-module (gnu packages python-web)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages guile)
#:use-module (gnu packages logging)
@ -240,6 +243,13 @@
varnish-service-type
whoogle-service-type
whoogle-configuration
whoogle-configuration-package
whoogle-configuration-host
whoogle-configuration-port
whoogle-configuration-environment-variables
patchwork-database-configuration
patchwork-database-configuration?
patchwork-database-configuration-engine
@ -1603,6 +1613,52 @@ files.")
(default-value
(varnish-configuration))))
;;;
;;; Whoogle
;;;
(define-configuration/no-serialization whoogle-configuration
(package
(package whoogle-search)
"The @code{whoogle-search} package to use.")
(host
(string "127.0.0.1")
"The host address to run Whoogle on.")
(port
(integer 5000)
"The port to run Whoogle on.")
(environment-variables
(list-of-strings '())
"A list of strings specifying environment variables used to configure
Whoogle."))
(define (whoogle-shepherd-service config)
(match-record config <whoogle-configuration>
(package host port environment-variables)
(list
(shepherd-service
(provision '(whoogle-search))
(start #~(make-forkexec-constructor
(list (string-append #$package "/bin/whoogle-search")
"--host" #$host "--port" #$(number->string port))
#:environment-variables
(append (list "CONFIG_VOLUME=/var/cache/whoogle-search")
'#$environment-variables)))
(stop #~(make-kill-destructor))
(documentation "Run a @code{whoogle-search} instance.")))))
(define whoogle-service-type
(service-type
(name 'whoogle-search)
(extensions
(list (service-extension shepherd-root-service-type
whoogle-shepherd-service)
(service-extension profile-service-type
(compose list whoogle-configuration-package))))
(default-value (whoogle-configuration))
(description "Set up the @code{whoogle-search} metasearch engine.")))
;;;
;;; Patchwork