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.
<https://git.sr.ht/~krevedkokun/dotfiles/tree/master/item/channel/system/services/networking.scm>

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.

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 <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 "")))