blob: b9418c6f576356c9f5941b1ac5b483065e91d4d0 (
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
|
(define-module (nott)
#:use-module (gnu)
#:use-module (guix)
#:use-module (packages packages)
#:use-module (ymir)
#:use-module (srfi srfi-1))
(use-service-modules desktop mcron networking spice ssh xorg sddm)
(use-package-modules bootloaders certs fonts nvi package-management wget xorg)
;;; Commentary:
;;;
;;; nott is a vm
;;;
;;; Code:
(operating-system
(inherit ymir)
(host-name "nott")
(label (string-append "GNU Guix "
(or (getenv "GUIX_DISPLAYED_VERSION")
(package-version guix))))
(firmware '())
(packages
`(,@bd-packages-system))
(services
(append (list (service xfce-desktop-service-type)
(service slim-service-type
(slim-configuration
(auto-login? #t)
(default-user username)
(xorg-configuration
(xorg-configuration
(modules (cons xf86-video-qxl
%default-xorg-modules))))))
(service openssh-service-type)
(service spice-vdagent-service-type)
(service dhcp-client-service-type))
(remove (lambda (service)
(let ((type (service-kind service)))
(or (memq type
(list gdm-service-type
sddm-service-type
wpa-supplicant-service-type
cups-pk-helper-service-type
network-manager-service-type
modem-manager-service-type))
(eq? 'network-manager-applet
(service-type-name type)))))
(modify-services %desktop-services
(login-service-type config =>
(login-configuration
(inherit config)))
(guix-service-type config =>
(guix-configuration
(inherit config)
(guix (current-guix))))))))
(bootloader (bootloader-configuration
(bootloader grub-bootloader)
(targets (list "/dev/sda1"))
(terminal-outputs '(console))))
(file-systems (cons (file-system
(mount-point "/")
(device "/dev/sda2")
(type "ext4")) %base-file-systems))
(name-service-switch %mdns-host-lookup-nss))
|
