blob: 46778ad29c9dc9a6533abce581ead918c1a7fe77 (
about) (
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
(define-module (systems aisaka system-configuration)
#:use-module (gnu)
#:use-module (gnu packages commencement)
#:use-module (gnu packages cups)
#:use-module (gnu packages finance)
#:use-module (gnu services cups)
#:use-module (gnu services configuration)
#:use-module (gnu services desktop)
#:use-module (gnu services networking)
#:use-module (gnu services nix)
#:use-module (gnu services ssh)
#:use-module (gnu services version-control)
#:use-module (gnu services xorg))
(define keyboard-layout
(keyboard-layout "pl"))
(operating-system
(locale "pl_PL.utf8")
(timezone "Europe/Warsaw")
(keyboard-layout keyboard-layout)
(host-name "aisaka")
(users (cons* (user-account (name "marek")
(comment "Marek Paśnikowski")
(group "users")
(home-directory "/home/marek")
(supplementary-groups '("audio"
"netdev"
"tor"
"video"
"wheel")))
%base-user-accounts))
(packages
(append
(map
(compose list
specification->package+output)
'(;; "netcat-openbsd"
"ntfs-3g"))
( map
(compose list
specification->package+output)
( list ) )
%base-packages))
(services
(append
(list
(extra-special-file
"/lib64/ld-linux-x86-64.so.2"
(file-append (canonical-package glibc) "/lib/ld-linux-x86-64.so.2"))
(extra-special-file
"/lib64/libstdc++.so.6"
(file-append (canonical-package gcc-toolchain) "/lib/libstdc++.so.6"))
(extra-special-file
"/usr/lib64/libstdc++.so.6"
(file-append (canonical-package gcc-toolchain) "/lib/libstdc++.so.6"))
(service openssh-service-type)
(udev-rules-service 'trezord trezord-udev-rules)
(service
guix-service-type
(guix-configuration
(extra-options
(list
"--gc-keep-derivations=yes"
"--gc-keep-outputs=yes"))))
(service nix-service-type)
(service
(service-type
(name 'trezor-system-packages)
(extensions
(list
(service-extension profile-service-type
(lambda (_)
(map specification->package
(list
"trezord"
"trezord-udev-rules"))))))
(description "TrezorD packages needed by the system.")
(default-value #f)))
(service
cups-service-type
(cups-configuration
(extensions
(list
cups-filters
epson-inkjet-printer-escpr))
(web-interface? #t)))
(service git-daemon-service-type
(git-daemon-configuration
(export-all? #t)))
(service gnome-desktop-service-type)
(service plasma-desktop-service-type)
(service
tor-service-type
(tor-configuration
(control-socket? #t))))
(modify-services
%desktop-services
(elogind-service-type
configuration =>
(elogind-configuration
(inherit configuration)
(handle-lid-switch 'ignore)))
(gdm-service-type
configuration =>
(gdm-configuration
(inherit configuration)
(wayland? #t)))
(delete guix-service-type))))
(bootloader (bootloader-configuration (bootloader grub-bootloader)
(targets '("/dev/sda"))
(keyboard-layout keyboard-layout)))
(swap-devices
(list
(swap-space (target (uuid "73bed3f9-be07-40ad-a228-577cd24f2e1d")))))
(mapped-devices
(list
(mapped-device
(source (uuid "887ac37f-2919-41a0-a62a-e1ff5ea2d6cc"))
(target "aisaka-root")
(type luks-device-mapping))))
(file-systems
(append %base-file-systems
(list
(file-system
(mount-point "/")
(device "/dev/mapper/aisaka-root")
(type "btrfs")
(dependencies mapped-devices))
(file-system
(mount-point "/boot")
(device (uuid "4f77b5fc-56ad-43ae-b6ec-e5adc8c48587"))
(type "ext4"))))))
|
