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
93
94
95
96
97
| | ;; -*- mode: scheme; -*-
;; This is an operating system configuration template
;; for a "desktop" setup with wlgreet and Sway where the
;; root partition is encrypted with LUKS.
;; For better experience you should edit home config
;; and add (service home-sway-service-type).
;; Indicate which modules to import to access the variables
;; used in this configuration.
(use-modules (gnu) (srfi srfi-1))
(use-package-modules terminals wm)
(use-service-modules base desktop networking sddm sound xorg)
(operating-system
(locale "fi_FI.utf8")
(timezone "Europe/Helsinki")
(keyboard-layout (keyboard-layout "fi"))
(host-name "giksi")
(kernel-arguments
(cons*
"modprobe.blacklist=amdgpu,hci,i915,iwlwifi,nouveau,radeon,xe"
%default-kernel-arguments))
;; The list of user accounts ('root' is implicit).
(users (cons* (user-account
(name "homo")
(comment "Homo")
(group "users")
(home-directory "/home/homo")
(supplementary-groups '("wheel")))
%base-user-accounts))
;; Add some packages for default Sway configuration.
;; Press Super+Enter to get default terminal foot.
(packages (cons* foot
swaybg
swayidle
swaylock
%base-packages))
;; Below is the list of system services. To search for available
;; services, run 'guix system search KEYWORD' in a terminal.
(services
(cons*
(service greetd-service-type
(greetd-configuration
(greeter-supplementary-groups '("video"))
(terminals
(list
(greetd-terminal-configuration
(default-session-command
(greetd-wlgreet-sway-session
(wlgreet-session
(greetd-wlgreet-session
(extra-env '(("XKB_DEFAULT_LAYOUT" . "fi")))))))
(terminal-switch #t)
(terminal-vt "1"))))))
(service screen-locker-service-type
(screen-locker-configuration
(name "swaylock")
(program (file-append swaylock "/bin/swaylock"))
(using-pam? #t)
(using-setuid? #f)))
(remove (lambda (service)
(let ((type (service-kind service)))
(or (memq type
(list console-font-service-type
gdm-service-type
sddm-service-type
login-service-type
mingetty-service-type
screen-locker-service-type)))))
%desktop-services)))
(bootloader (bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(mapped-devices (list (mapped-device
(source (uuid
"18178f67-2e23-4dbb-b05f-57108075a66d"))
(target "cryptroot")
(type luks-device-mapping))))
;; The list of file systems that get "mounted". The unique
;; file system identifiers there ("UUIDs") can be obtained
;; by running 'blkid' in a terminal.
(file-systems (cons* (file-system
(mount-point "/boot/efi")
(device (uuid "8A19-4286"
'fat32))
(type "vfat"))
(file-system
(mount-point "/")
(device "/dev/mapper/cryptroot")
(type "ext4")
(dependencies mapped-devices)) %base-file-systems)))
|