mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-11-04 11:44:48 +00:00
49 lines
1.4 KiB
Scheme
49 lines
1.4 KiB
Scheme
;;; SPDX-FileCopyrightText: 2022, 2023 Hilton Chain <hako@ultrarare.space>
|
|
;;;
|
|
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
(define-module (rosenthal services dns)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix records)
|
|
#:use-module (gnu services)
|
|
#:use-module (gnu services configuration)
|
|
#:use-module (gnu packages dns)
|
|
#:use-module (gnu services shepherd)
|
|
#:export (smartdns-configuration
|
|
smartdns-service-type))
|
|
|
|
;;;
|
|
;;; Smartdns
|
|
;;;
|
|
|
|
|
|
(define-configuration smartdns-configuration
|
|
(smartdns
|
|
(file-like smartdns)
|
|
"The Smartdns package.")
|
|
(config-file
|
|
(file-like (plain-file "empty" ""))
|
|
"Configuration file for Smartdns.")
|
|
(no-serialization))
|
|
|
|
(define smartdns-shepherd-service
|
|
(match-record-lambda <smartdns-configuration>
|
|
(smartdns config-file)
|
|
(list (shepherd-service
|
|
(documentation "Run smartdns.")
|
|
(provision '(smartdns dns))
|
|
(requirement '(loopback networking))
|
|
(start #~(make-forkexec-constructor
|
|
(list #$(file-append smartdns "/sbin/smartdns")
|
|
"-f" "-c" #$(file-append config-file))))
|
|
(stop #~(make-kill-destructor))))))
|
|
|
|
(define smartdns-service-type
|
|
(service-type
|
|
(name 'smartdns)
|
|
(extensions
|
|
(list (service-extension shepherd-root-service-type
|
|
smartdns-shepherd-service)))
|
|
(default-value (smartdns-configuration))
|
|
(description "Run Smartdns daemon.")))
|