blob: e5e1db216f096ad331bfa1a54dabf7fbdc08c1d9 (
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
(use-modules
((org euandre queue) #:prefix q:)
((org euandre packages) #:prefix pkg:)
((org euandre papo) #:prefix papo:)
(gnu))
(use-package-modules)
(use-service-modules
certbot
cgit
dns
mail
networking
security
ssh)
(define (path s)
(string-append (dirname (dirname (dirname (current-filename)))) "/" s))
(define +users+
`(("user1" "I'm a user" ())
("another" "Description" ("wheel") ,(path "tests/internet/key.txt"))))
(define-public papod-service-type
(pkg:service-type-for 'papod
papo:<papod-configuration>
(papo:papod-configuration)
'()))
(operating-system
(host-name "a-internet-test-host")
(skeletons pkg:skeletons)
(users (append (pkg:user-accounts +users+) %base-user-accounts))
(services
(append
(list
(service ntp-service-type)
(service dhcp-client-service-type)
(service fail2ban-service-type)
(service pkg:binder-service-type)
(service pkg:glaze-service-type)
(service pkg:hsts-service-type)
(service pkg:untls-service-type)
(service pkg:wscat-service-type)
(service papod-service-type)
(service knot-service-type
(q:knot-zones-configuration "euandre.org" "1.2.3.4" "1:2:3:4:5:6:7:8"))
(service openssh-service-type
(q:openssh-default-configuration (pkg:users->keys +users+)))
(service certbot-service-type (q:tld-certbot-configuration "tld.local"))
(service cgit-service-type q:cgit-pre-configuration)
(service pkg:syskeep-service-type)
(service pkg:cicd-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 '()))
pkg: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)))
|
