blob: 2be5ab58d5a048af84975ece1c5f69dc8faf5022 (
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
26
27
|
(define-module (kbg services shepherd)
#:use-module (kbg)
#:use-module (gnu)
#:use-module (guix)
#:use-module (gnu services)
#:use-module (gnu services shepherd)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (gnu services audio)
#:use-module (system repl server)
#:use-module (kbg services gnupg)
#:use-module (kbg services mcron)
#:use-module (kbg services mpd)
#:use-module (kbg services syncthing)
#:export (services-for-host))
(define daeva-shepherd-services
(list (service home-shepherd-service-type
(home-shepherd-configuration
(services (append gnupg-service
mpd-service
syncthing-service))))))
(define (services-for-host hostname)
(cond ((eq? hostname 'daeva)
daeva-shepherd-services)
(else '())))
|