mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-09-19 05:04:39 +00:00
fbef0d3861
* modules/rosenthal/utils/serializers/ini.scm: New file. * modules/rosenthal/utils/serializers/utils.scm: New file. * modules/rosenthal/utils/serializers/yaml.scm: New file. * modules/rosenthal/utils/home-services-utils.scm: Delete file. * modules/rosenthal/services/child-error.scm (home-wakapi-shepherd-service): Use the new serializer. * modules/rosenthal/services/web.scm (misskey-oci-containers): Likewise.
37 lines
987 B
Scheme
37 lines
987 B
Scheme
;;; SPDX-FileCopyrightText: Copyright © 2022 Andrew Tropin <andrew@trop.in>
|
|
;;;
|
|
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
(define-module (rosenthal utils serializers utils)
|
|
#:use-module (gnu services configuration)
|
|
#:use-module (guix gexp)
|
|
#:use-module (srfi srfi-1)
|
|
|
|
#:export (alist?
|
|
|
|
path?
|
|
serialize-path
|
|
|
|
string-or-gexp?
|
|
serialize-string-or-gexp
|
|
|
|
gexp-text-config?
|
|
serialize-gexp-text-config)
|
|
#:re-export (interpose))
|
|
|
|
(define (alist? lst)
|
|
(every pair? lst))
|
|
|
|
|
|
(define path? string?)
|
|
(define (serialize-path field-name val) val)
|
|
|
|
(define (string-or-gexp? sg) (or (string? sg) (gexp? sg)))
|
|
(define (serialize-string-or-gexp field-name val) "")
|
|
|
|
;; Guix proper has a different version of text-config.
|
|
(define (gexp-text-config? config)
|
|
(and (list? config) (every string-or-gexp? config)))
|
|
(define (serialize-gexp-text-config field-name val)
|
|
#~(string-append #$@(interpose val "\n" 'suffix)))
|