From bbbdd6afecbf604bcb9f216654e75a22e2cea6d2 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Fri, 25 Nov 2022 19:34:03 +0800 Subject: [PATCH] Import iwd-service-type from Nikita Domnitskii's dotfiles. * LICENSES/BSD-3-Clause/2021-Nikita_Domnitskii.txt: New file. * rosenthal/services/networking.scm: New file imported from krevedkokun's dotfiles. --- .../BSD-3-Clause/2021-Nikita_Domnitskii.txt | 26 +++++ rosenthal/services/networking.scm | 100 ++++++++++++++++++ 2 files changed, 126 insertions(+) create mode 100644 LICENSES/BSD-3-Clause/2021-Nikita_Domnitskii.txt create mode 100644 rosenthal/services/networking.scm diff --git a/LICENSES/BSD-3-Clause/2021-Nikita_Domnitskii.txt b/LICENSES/BSD-3-Clause/2021-Nikita_Domnitskii.txt new file mode 100644 index 0000000..a680753 --- /dev/null +++ b/LICENSES/BSD-3-Clause/2021-Nikita_Domnitskii.txt @@ -0,0 +1,26 @@ +Copyright 2021 Nikita Domnitskii + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + +1. Redistributions of source code must retain the above copyright notice, this +list of conditions and the following disclaimer. + +2. Redistributions in binary form must reproduce the above copyright notice, +this list of conditions and the following disclaimer in the documentation +and/or other materials provided with the distribution. + +3. Neither the name of the copyright holder nor the names of its contributors +may be used to endorse or promote products derived from this software without +specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE +DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE +FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/rosenthal/services/networking.scm b/rosenthal/services/networking.scm new file mode 100644 index 0000000..f2e955a --- /dev/null +++ b/rosenthal/services/networking.scm @@ -0,0 +1,100 @@ +;; 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 + (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 + (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 "")))