ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-16 19:57:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

home-services: configuration: Add generic-serialize-alist.

Browse source 
* gnu/home-services/configuration.scm (generic-serialize-alist,
generic-serialize-alist-entry): New functions.

Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
This commit is contained in:
Andrew Tropin 2021-08-31 15:40:07 +03:00 committed by Oleg Pykhalov
parent 879abff4fd
commit 3087a5cfa0
No known key found for this signature in database
GPG key ID: 167F8EA5001AFA9C
1 changed files with 27 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/home-services/configuration.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Andrew Tropin <andrew@trop.in> ;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -20,6 +21,8 @@ (define-module (gnu home-services configuration)
#:use-module (gnu services configuration) #:use-module (gnu services configuration)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (ice-9 curried-definitions)
#:use-module (ice-9 match)
#:export (filter-configuration-fields #:export (filter-configuration-fields
@ -31,7 +34,9 @@ (define-module (gnu home-services configuration)
string-or-gexp? string-or-gexp?
serialize-string-or-gexp serialize-string-or-gexp
text-config? text-config?
serialize-text-config)) serialize-text-config
generic-serialize-alist-entry
generic-serialize-alist))
(define* (filter-configuration-fields configuration-fields fields (define* (filter-configuration-fields configuration-fields fields
#:optional negate?) #:optional negate?)
@ -79,3 +84,24 @@ (define (text-config? config)
(and (list? config) (every string-or-gexp? config))) (and (list? config) (every string-or-gexp? config)))
(define (serialize-text-config field-name val) (define (serialize-text-config field-name val)
#~(string-append #$@(interpose val "\n" 'suffix))) #~(string-append #$@(interpose val "\n" 'suffix)))
(define ((generic-serialize-alist-entry serialize-field) entry)
"Apply the SERIALIZE-FIELD procedure on the field and value of ENTRY."
(match entry
((field . val) (serialize-field field val))))
(define (generic-serialize-alist combine serialize-field fields)
"Generate a configuration from an association list FIELDS.
SERIALIZE-FIELD is a procedure that takes two arguments, it will be
applied on the fields and values of FIELDS using the
@code{generic-serialize-alist-entry} procedure.
COMBINE is a procedure that takes one or more arguments and combines
all the alist entries into one value, @code{string-append} or
@code{append} are usually good candidates for this.
See the @code{serialize-alist} procedure in `@code{(gnu home-services
version-control}' for an example usage.)}"
(apply combine
(map (generic-serialize-alist-entry serialize-field) fields)))