mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-01-10 12:30:40 +00:00
060204c29e
* rosenthal/services/bittorrent.scm (qbittorrent-configuration)[qbittorrent]: Change field type to file-like. (qbittorrent-activation,qbittorrent-shepherd-service): Use match-record-lambda * rosenthal/services/child-error.scm (miniflux-configuration)[miniflux], (cloudflare-tunnel-configuration)[cloudflared]: Change field type to file-like (clash-activation,clash-shepherd-service,cloudflare-tunnel-shepherd-service) (cloudflare-warp-shepherd-service,miniflux-shepherd-service) (home-wakapi-shepherd-service,home-socks2http-shepherd-service): Use match-record-lambda. * rosenthal/services/dns.scm (smartdns-configuration)[smartdns]: Change field type to file-like. (smartdns-shepherd-service): Use match-record-lambda. * rosenthal/services/networking.scm (iwd-configuration)[iwd]: Change field type to file-like. (iwd-shepherd-service,iwd-etc-service): Use match-record-lambda.
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.")))
|