Line | |
---|
1 | (define-module (abcdw hosts live)
|
---|
2 | #:use-module (rde features base)
|
---|
3 | #:use-module (rde features system)
|
---|
4 |
|
---|
5 | #:use-module (rde system services admin)
|
---|
6 | #:use-module (rde system services guix)
|
---|
7 |
|
---|
8 | #:use-module (gnu services)
|
---|
9 | #:use-module (gnu system file-systems))
|
---|
10 |
|
---|
11 | |
---|
12 |
|
---|
13 | ;;; Hardware/host specifis features
|
---|
14 |
|
---|
15 | ;; TODO: Switch from UUIDs to partition labels For better
|
---|
16 | ;; reproducibilty and easier setup. Grub doesn't support luks2 yet.
|
---|
17 |
|
---|
18 | (define live-file-systems
|
---|
19 | (list (file-system
|
---|
20 | (mount-point "/")
|
---|
21 | (device (file-system-label "Guix_image"))
|
---|
22 | (type "ext4"))
|
---|
23 | (file-system
|
---|
24 | (mount-point "/tmp")
|
---|
25 | (device "none")
|
---|
26 | (type "tmpfs")
|
---|
27 | (check? #f))))
|
---|
28 |
|
---|
29 | (define sudoers-extra-service
|
---|
30 | (simple-service
|
---|
31 | 'sudoers-extra
|
---|
32 | sudoers-service-type
|
---|
33 | (list "%wheel ALL=(ALL) NOPASSWD: ALL")))
|
---|
34 |
|
---|
35 | (define live-extra-services
|
---|
36 | (feature-custom-services
|
---|
37 | #:feature-name-prefix 'live-extra
|
---|
38 | #:system-services
|
---|
39 | (list
|
---|
40 | sudoers-extra-service
|
---|
41 | (service cow-store-service-type))))
|
---|
42 |
|
---|
43 | (define-public %live-features
|
---|
44 | (list
|
---|
45 | (feature-host-info
|
---|
46 | #:host-name "live"
|
---|
47 | #:issue "This is rde. Welcome. Login and password - guest and guest.\n"
|
---|
48 | ;; ls `guix build tzdata`/share/zoneinfo
|
---|
49 | #:timezone "Europe/Kiev")
|
---|
50 | live-extra-services
|
---|
51 | (feature-file-systems
|
---|
52 | #:file-systems live-file-systems)))
|
---|
Note:
See
TracBrowser
for help on using the repository browser.