blob: c0e5986e00a8447f5a636f5fe05cb433ff4acba1 (
about) (
plain) (
blame)
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
(use-modules
((org euandre queue) #:prefix q:)
((org euandre services) #:prefix serv:)
(gnu))
(use-package-modules)
(use-service-modules
certbot
cgit
mail
networking
security
ssh)
(define (path s)
(serv:str (dirname (dirname (dirname (current-filename)))) "/" s))
(define +users+
`(("user1" "I'm a user" ())
("another" "Description" ("wheel") ,(path "tests/internet/key.txt"))))
(operating-system
(host-name "a-internet-test-host")
(skeletons serv:skeletons)
(users (append (serv:user-accounts +users+) %base-user-accounts))
(services
(append
(list
(service ntp-service-type)
(service dhcp-client-service-type)
(service fail2ban-service-type)
(service serv:binder-service-type)
(service serv:glaze-service-type)
(service serv:untls-service-type)
(service serv:wscat-service-type)
(service serv:papod-service-type)
(service openssh-service-type (q:openssh-default-configuration (serv:users->keys +users+)))
(service certbot-service-type (q:tld-certbot-configuration "tld.local"))
(service cgit-service-type q:cgit-pre-configuration)
(service serv:syskeep-service-type)
(service q:shadow-group-service-type)
(service q:dkimproxyout-service-type)
(service q:cyrus-sasl-service-type)
(service q:dovecot-service-type)
(service q:internet-postfix-service-type)
(service mail-aliases-service-type '()))
serv:base-services))
(bootloader
(bootloader-configuration
(bootloader grub-bootloader)))
(file-systems
(append
(list
(file-system
(mount-point "/")
(type "btrfs")
(device
(uuid "2c66de32-dde7-ea35-750a-a1ca47a58d45" 'btrfs))))
%base-file-systems)))
|
