blob: ef8620b56c232073a3716beb66ca07483bf1350f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(define-module (jd features state)
#:use-module (guix gexp)
#:use-module (ice-9 match)
#:use-module (gnu services)
#:use-module (gnu home-services state)
#:use-module (rde features))
(define-public (feature-state states)
(define f-name 'state)
(define (get-home-services config)
(list
(simple-service
'user-state
home-state-service-type
(map
(match-lambda
(('git local remote) (state-git local remote))
(#t (error "State not found")))
states))))
(feature
(name f-name)
(values `((,f-name . #t)))
(home-services-getter get-home-services)))
|
