services: Use match-record.

* 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.

rosenthal/services/bittorrent.scm

@@ -4,7 +4,6 @@
 
 (define-module (rosenthal services bittorrent)
   #:use-module (guix gexp)
-  #:use-module (guix packages)
   #:use-module (guix records)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages bittorrent)
@@ -20,9 +19,9 @@
 ;;
 
 
-(define-configuration/no-serialization qbittorrent-configuration
+(define-configuration qbittorrent-configuration
   (qbittorrent
-   (package qbittorrent-nox)
+   (file-like qbittorrent-nox)
    "The qBittorrent package to use, we need @command{qbittorrent-nox}.")
   (log-file
    (string "/var/log/qbittorrent.log")
@@ -35,7 +34,8 @@
    "Directory to store configuration files in.")
   (extra-options
    (list-of-strings '())
-   "List of extra options."))
+   "List of extra options.")
+  (no-serialization))
 
 (define %qbittorrent-accounts
   (list (user-group (name "qbittorrent") (system? #t))
@@ -47,16 +47,18 @@
          (home-directory "/var/empty")
          (shell (file-append shadow "/sbin/nologin")))))
 
-(define (qbittorrent-activation config)
+(define qbittorrent-activation
+  (match-record-lambda <qbittorrent-configuration>
+      (qbittorrent log-file webui-port profile-directory extra-options)
     #~(begin
         (use-modules (guix build utils))
-      (let ((profile-directory #$(qbittorrent-configuration-profile-directory config))
+        (let ((profile-directory #$profile-directory)
               (user (getpwnam "qbittorrent")))
           (mkdir-p profile-directory)
-        (chown profile-directory (passwd:uid user) (passwd:gid user)))))
+          (chown profile-directory (passwd:uid user) (passwd:gid user))))))
 
-(define (qbittorrent-shepherd-service config)
+(define qbittorrent-shepherd-service
-  (match-record config <qbittorrent-configuration>
+  (match-record-lambda <qbittorrent-configuration>
       (qbittorrent log-file webui-port profile-directory extra-options)
     (list (shepherd-service
            (documentation "Run qbittorrent.")

rosenthal/services/child-error.scm

@@ -3,10 +3,8 @@
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 
 (define-module (rosenthal services child-error)
-  #:use-module (ice-9 match)
   #:use-module (guix records)
   #:use-module (guix gexp)
-  #:use-module (guix packages)
   #:use-module (gnu home services)
   #:use-module (gnu home services shepherd)
   #:use-module (gnu packages admin)
@@ -37,16 +35,12 @@
             home-socks2http-configuration
             home-socks2http-service-type))
 
-;; Child-error: services for packages not available in Guix, currently this
-;; means some Go and Rust apps I build locally but don't want to package.
-
-
 ;;
 ;; Clash
 ;;
 
 
-(define-configuration/no-serialization clash-configuration
+(define-configuration clash-configuration
   (clash
    (file-like clash-bin)
    "The clash package.")
@@ -58,7 +52,8 @@
    "Where to store data.")
   (config
    (file-like (plain-file "empty" ""))
-   "Clash configuration file."))
+   "Clash configuration file.")
+  (no-serialization))
 
 (define %clash-accounts
   (list (user-group (name "clash") (system? #t))
@@ -70,8 +65,8 @@
          (shell (file-append shadow "/sbin/nologin")))))
 
 (define clash-activation
-  (match-lambda
+  (match-record-lambda <clash-configuration>
-    (($ <clash-configuration> clash log-file data-directory config)
+      (clash log-file data-directory config)
     #~(begin
         (use-modules (guix build utils))
         (let ((config-dest (string-append #$data-directory "/config.yaml"))
@@ -80,11 +75,11 @@
           (chown #$data-directory (passwd:uid user) (passwd:gid user))
           (if (file-exists? config-dest)
               (delete-file config-dest))
-           (symlink #$config config-dest))))))
+          (symlink #$config config-dest)))))
 
 (define clash-shepherd-service
-  (match-lambda
+  (match-record-lambda <clash-configuration>
-    (($ <clash-configuration> clash log-file data-directory config)
+      (clash log-file data-directory config)
     (list (shepherd-service
            (documentation "Run clash.")
            (provision '(clash))
@@ -95,7 +90,7 @@
                      #:user "clash"
                      #:group "clash"
                      #:log-file #$log-file))
-            (stop #~(make-kill-destructor)))))))
+           (stop #~(make-kill-destructor))))))
 
 (define clash-service-type
   (service-type
@@ -110,16 +105,15 @@
    (default-value (clash-configuration))
    (description "Run Clash.")))
 
-
 
 ;;
 ;; Cloudflare Tunnel
 ;;
 
 
-(define-configuration/no-serialization cloudflare-tunnel-configuration
+(define-configuration cloudflare-tunnel-configuration
   (cloudflared
-   (package cloudflared)
+   (file-like cloudflared)
    "The cloudflared executable.")
 
   ;; Tunnel options
@@ -151,15 +145,13 @@ headers.  This can expose sensitive information in your logs.")
    "Create an experimental post-quantum secure tunnel.")
   (extra-options
    (list-of-strings '())
-   "List of extra options."))
+   "List of extra options.")
+  (no-serialization))
 
 (define cloudflare-tunnel-shepherd-service
-  (match-lambda
+  (match-record-lambda <cloudflare-tunnel-configuration>
-    (($ <cloudflare-tunnel-configuration> cloudflared metrics
+      (cloudflared metrics log-level log-file extra-tunnel-options
-                                          log-level log-file
+                   token http2-origin? post-quantum? extra-options)
-                                          extra-tunnel-options
-                                          token http2-origin? post-quantum?
-                                          extra-options)
     (list (shepherd-service
            (documentation "Run cloudflared.")
            (provision '(cloudflare-tunnel))
@@ -185,7 +177,7 @@ headers.  This can expose sensitive information in your logs.")
                      #:log-file #$log-file
                      #:environment-variables
                      (list (format #f "TUNNEL_TOKEN=~a" #$token))))
-            (stop #~(make-kill-destructor)))))))
+           (stop #~(make-kill-destructor))))))
 
 (define cloudflare-tunnel-service-type
   (service-type
@@ -202,13 +194,14 @@ headers.  This can expose sensitive information in your logs.")
 ;;
 
 
-(define-configuration/no-serialization cloudflare-warp-configuration
+(define-configuration cloudflare-warp-configuration
   (cloudflare-warp
    (file-like cloudflare-warp-bin)
-   "The Cloudflare Warp package."))
+   "The Cloudflare Warp package.")
+  (no-serialization))
 
-(define (cloudflare-warp-shepherd-service config)
+(define cloudflare-warp-shepherd-service
-  (match-record config <cloudflare-warp-configuration>
+  (match-record-lambda  <cloudflare-warp-configuration>
       (cloudflare-warp)
     (list (shepherd-service
            (documentation "Run warp-svc.")
@@ -234,16 +227,18 @@ headers.  This can expose sensitive information in your logs.")
 ;; Miniflux
 ;;
 
-(define-configuration/no-serialization miniflux-configuration
+
+(define-configuration miniflux-configuration
   (miniflux
-   (package miniflux)
+   (file-like miniflux)
    "The miniflux package.")
   (log-file
    (string "/var/log/miniflux.log")
    "Where the logs go.")
   (options
    (alist '())
-   "Association list of miniflux configuration options."))
+   "Association list of miniflux configuration options.")
+  (no-serialization))
 
 (define %miniflux-accounts
   (list (user-account
@@ -258,8 +253,8 @@ headers.  This can expose sensitive information in your logs.")
          (name "miniflux")
          (create-database? #t))))
 
-(define (miniflux-shepherd-service config)
+(define miniflux-shepherd-service
-  (match-record config <miniflux-configuration>
+  (match-record-lambda <miniflux-configuration>
       (miniflux log-file options)
     (let ((config-file (mixed-text-file
                         "miniflux.conf"
@@ -298,17 +293,18 @@ headers.  This can expose sensitive information in your logs.")
 ;;
 
 
-(define-configuration/no-serialization home-wakapi-configuration
+(define-configuration home-wakapi-configuration
   (wakapi
    (file-like wakapi-bin)
    "The wakapi package.")
   (config
    (yaml-config '())
-   "Association list of Wakapi configurations."))
+   "Association list of Wakapi configurations.")
+  (no-serialization))
 
 (define home-wakapi-shepherd-service
-  (match-lambda
+  (match-record-lambda <home-wakapi-configuration>
-    (($ <home-wakapi-configuration> wakapi config)
+      (wakapi config)
     (let ((config-file (mixed-text-file
                         "wakapi.yaml"
                         #~(string-append #$@(serialize-yaml-config config) "\n"))))
@@ -318,7 +314,7 @@ headers.  This can expose sensitive information in your logs.")
              (start #~(make-forkexec-constructor
                        (list #$(file-append wakapi "/bin/wakapi")
                              "-config" #$config-file)))
-              (stop #~(make-kill-destructor))))))))
+             (stop #~(make-kill-destructor)))))))
 
 (define home-wakapi-service-type
   (service-type
@@ -347,8 +343,8 @@ headers.  This can expose sensitive information in your logs.")
    "HTTP proxy address to serve.")
   (no-serialization))
 
-(define (home-socks2http-shepherd-service config)
+(define home-socks2http-shepherd-service
-  (match-record config <home-socks2http-configuration>
+  (match-record-lambda <home-socks2http-configuration>
       (socks2http socks-address http-address)
     (list (shepherd-service
            (documentation "Run socks2http.")

rosenthal/services/dns.scm

@@ -4,7 +4,6 @@
 
 (define-module (rosenthal services dns)
   #:use-module (guix gexp)
-  #:use-module (guix packages)
   #:use-module (guix records)
   #:use-module (gnu services)
   #:use-module (gnu services configuration)
@@ -17,16 +16,18 @@
 ;; Smartdns
 ;;
 
-(define-configuration/no-serialization smartdns-configuration
+
+(define-configuration smartdns-configuration
   (smartdns
-   (package smartdns)
+   (file-like smartdns)
    "The Smartdns package.")
   (config-file
    (file-like (plain-file "empty" ""))
-   "Configuration file for Smartdns."))
+   "Configuration file for Smartdns.")
+  (no-serialization))
 
-(define (smartdns-shepherd-service config)
+(define smartdns-shepherd-service
-  (match-record config <smartdns-configuration>
+  (match-record-lambda <smartdns-configuration>
       (smartdns config-file)
     (list (shepherd-service
            (documentation "Run smartdns.")

rosenthal/services/networking.scm

@@ -3,10 +3,9 @@
 ;; SPDX-License-Identifier: BSD-3-Clause
 
 (define-module (rosenthal services networking)
-  #:use-module (ice-9 match)
+  #:use-module ((guix import utils) #:select (flatten))
   #:use-module (guix gexp)
-  #:use-module (guix import utils)
+  #:use-module (guix records)
-  #:use-module (guix packages)
   #:use-module (gnu packages dns)
   #:use-module (gnu packages base)
   #:use-module (gnu packages networking)
@@ -15,10 +14,7 @@
   #:use-module (gnu services base)
   #:use-module (gnu services shepherd)
   #:use-module (gnu services configuration)
-  #:use-module ((rosenthal utils home-services-utils)
+  #:use-module (rosenthal utils home-services-utils)
-                #:select (ini-config?
-                          maybe-object->string
-                          generic-serialize-ini-config))
   #:export (iwd-service-type
             iwd-configuration))
 
@@ -40,22 +36,24 @@
                                 #:serialize-field serialize-field
                                 #:fields config))
 
-(define-configuration/no-serialization iwd-configuration
+(define-configuration iwd-configuration
   (iwd
-   (package iwd)
+   (file-like iwd)
    "The iwd package.")
   (config
    (ini-config '())
-   "Association list of iwd configurations."))
+   "Association list of iwd configurations.")
+  (no-serialization))
 
 (define iwd-shepherd-service
-  (match-lambda
+  (match-record-lambda <iwd-configuration>
-    (($ <iwd-configuration> iwd _)
+      (iwd config)
-     (let ((environment #~(list (string-append
+    (let ((environment
-                                 "PATH="
+           #~(list (string-append
-                                 (string-append #$openresolv "/sbin")
+                    "PATH=" (string-join
-                                 ":"
+                             (list (file-append openresolv "/sbin")
-                                 (string-append #$coreutils "/bin")))))
+                                   (file-append coreutils "/bin"))
+                             ":")))))
       (list (shepherd-service
              (documentation "Run iwd")
              (provision '(iwd networking))
@@ -64,15 +62,15 @@
                        (list (string-append #$iwd "/libexec/iwd"))
                        #:log-file "/var/log/iwd.log"
                        #:environment-variables #$environment))
-              (stop #~(make-kill-destructor))))))))
+             (stop #~(make-kill-destructor)))))))
 
 (define iwd-etc-service
-  (match-lambda
+  (match-record-lambda <iwd-configuration>
-    (($ <iwd-configuration> _ config)
+      (iwd config)
     `(("iwd/main.conf"
        ,(apply mixed-text-file
                "main.conf"
-                (serialize-ini-config config)))))))
+               (serialize-ini-config config))))))
 
 (define add-iwd-package (compose list iwd-configuration-iwd))