blob: 3328dd8e90d59b456c21c1b653843bc75d7ad166 (
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
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; SPDX-FileCopyrightText: 2024-2025 Marek Paśnikowski <marek@marekpasnikowski.pl>
(define-module (deployment systems mcdowell)
#:use-module ((gnu services) #:prefix gnu:services:)
#:use-module ((gnu services guix) #:prefix gnu:services:guix:)
#:use-module ((gnu services ssh) #:prefix gnu:services:ssh:)
#:use-module ((gnu system) #:prefix gnu:system:)
#:use-module ((gnu system file-systems) #:prefix gnu:system:file-systems:)
#:use-module ((gnu system linux-initrd) #:prefix gnu:system:linux-initrd:)
#:use-module ((gnu system shadow) #:prefix gnu:system:shadow:)
#:use-module ((nongnu packages linux) #:prefix nongnu:packages:linux:)
#:use-module ((nongnu system linux-initrd) #:prefix nongnu:system:linux-initrd:)
#:use-module ((sovereign devices) #:prefix sovereign:devices:)
#:use-module ((sovereign devices amd64) #:prefix sovereign:devices:amd64:)
#:use-module ((sovereign packages protonmail) #:prefix sovereign:packages:protonmail:)
#:use-module ((sovereign systems) #:prefix sovereign:systems:)
#:use-module ((users id1000) #:prefix users:id1000:))
(define system-name
"mcdowell")
(define file-system-efi
(let*
( (l-system-name (string-upcase system-name))
(l-device (sovereign:devices:file-system-label l-system-name)))
(gnu:system:file-systems:file-system
(inherit sovereign:devices:file-system/efi)
(device l-device))))
(define file-system-root
(let
( (l-device (sovereign:devices:file-system-label system-name
"root")))
(gnu:system:file-systems:file-system
(inherit sovereign:devices:file-system/root)
(device l-device))))
(define swap
(let
( (l-target (sovereign:devices:file-system-label system-name
"swap")))
(gnu:system:file-systems:swap-space
(inherit sovereign:devices:swap/no-trim)
(target l-target))))
(define system-bootstrap
(let*
( (l-guix-homes (list users:id1000:name/home-environment))
(l-guix-home-service (sovereign:systems:guix-home-service l-guix-homes))
(l-bootloader (sovereign:devices:amd64:custom-bootloader-configuration system-name))
(l-file-systems (cons* file-system-root
file-system-efi
gnu:system:file-systems:%base-file-systems))
(l-firmware (list nongnu:packages:linux:linux-firmware))
(l-initrd-modules (cons* "mei_me"
gnu:system:linux-initrd:%base-initrd-modules))
(l-services (cons* l-guix-home-service
(gnu:services:service gnu:services:ssh:openssh-service-type)
sovereign:packages:protonmail:nogui-profile
sovereign:systems:%sovereign-services))
(l-swap-devices (list swap))
(l-users (cons* users:id1000:uid1000-account
gnu:system:shadow:%base-user-accounts)))
(gnu:system:operating-system
(kernel nongnu:packages:linux:linux)
(bootloader l-bootloader)
(keyboard-layout sovereign:devices:pl-keyboard-layout)
(initrd nongnu:system:linux-initrd:microcode-initrd)
(initrd-modules l-initrd-modules)
(firmware l-firmware)
(host-name system-name)
(file-systems l-file-systems)
(swap-devices l-swap-devices)
(users l-users)
(timezone "Europe/Warsaw")
(locale sovereign:systems:pl-locale)
(locale-definitions sovereign:systems:%sovereign-locale-definitions)
(services l-services)
(sudoers-file sovereign:systems:%sovereign-sudoers-specification))))
(define-public system
(let*
( (bootstrap-label (gnu:system:operating-system-label system-bootstrap))
(l-label (sovereign:systems:operating-system-label* system-name
bootstrap-label)))
(gnu:system:operating-system
(inherit system-bootstrap)
(label l-label))))
(define-public operating-system*
system)
|
