mirror of https://codeberg.org/hako/Rosenthal.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
100 lines
3.4 KiB
100 lines
3.4 KiB
;; SPDX-FileCopyrightText: 2021-2022 Nikita Domnitskii |
|
;; |
|
;; SPDX-License-Identifier: BSD-3-Clause |
|
|
|
(define-module (rosenthal services networking) |
|
#:use-module (ice-9 ftw) |
|
#:use-module (ice-9 match) |
|
|
|
#:use-module (srfi srfi-1) |
|
#:use-module (srfi srfi-26) |
|
|
|
#:use-module (guix gexp) |
|
#:use-module (guix store) |
|
#:use-module (guix monads) |
|
#:use-module (guix records) |
|
#:use-module (guix packages) |
|
#:use-module (guix import utils) |
|
|
|
#:use-module (gnu packages dns) |
|
#:use-module (gnu packages base) |
|
#:use-module (gnu packages connman) |
|
#:use-module (gnu packages networking) |
|
|
|
#:use-module (gnu services) |
|
#:use-module (gnu services dbus) |
|
#:use-module (gnu services base) |
|
#:use-module (gnu services shepherd) |
|
#:use-module (gnu services configuration) |
|
|
|
#:use-module ((rosenthal utils home-services-utils) |
|
#:select (ini-config? |
|
maybe-object->string |
|
generic-serialize-ini-config)) |
|
#:export (iwd-service-type |
|
iwd-configuration)) |
|
|
|
(define (serialize-ini-config config) |
|
(define (serialize-val val) |
|
(cond ((boolean? val) (if val "true" "false")) |
|
((list? val) (string-join (map serialize-val val) ",")) |
|
((or (number? val) (symbol? val)) (maybe-object->string val)) |
|
(else val))) |
|
|
|
(define (serialize-field key val) |
|
(let ((val (serialize-val val)) |
|
(key (symbol->string key))) |
|
(list key " = " val "\n"))) |
|
|
|
(generic-serialize-ini-config #:combine-ini (compose flatten interpose) |
|
#:combine-alist list |
|
#:combine-section-alist cons |
|
#:serialize-field serialize-field |
|
#:fields config)) |
|
|
|
(define-configuration/no-serialization iwd-configuration |
|
(package (package iwd) "") |
|
(config (ini-config '()) "")) |
|
|
|
(define (iwd-shepherd-service config) |
|
(match-record config <iwd-configuration> |
|
(package) |
|
(let ((environment #~(list (string-append |
|
"PATH=" |
|
(string-append #$openresolv "/sbin") |
|
":" |
|
(string-append #$coreutils "/bin"))))) |
|
(list (shepherd-service |
|
(documentation "Run iwd") |
|
(provision '(iwd networking)) |
|
(requirement '(user-processes dbus-system loopback)) |
|
(start #~(make-forkexec-constructor |
|
(list (string-append #$package "/libexec/iwd")) |
|
#:log-file "/var/log/iwd.log" |
|
#:environment-variables #$environment)) |
|
(stop #~(make-kill-destructor))))))) |
|
|
|
(define (iwd-etc-service config) |
|
(match-record config <iwd-configuration> |
|
(config) |
|
`(("iwd/main.conf" |
|
,(apply mixed-text-file |
|
"main.conf" |
|
(serialize-ini-config config)))))) |
|
|
|
(define add-iwd-package (compose list iwd-configuration-package)) |
|
|
|
(define iwd-service-type |
|
(service-type |
|
(name 'iwd) |
|
(extensions |
|
(list (service-extension shepherd-root-service-type |
|
iwd-shepherd-service) |
|
(service-extension dbus-root-service-type |
|
add-iwd-package) |
|
(service-extension etc-service-type |
|
iwd-etc-service) |
|
(service-extension profile-service-type |
|
add-iwd-package))) |
|
(default-value (iwd-configuration)) |
|
(description "")))
|
|
|