Add nott.scm, a virtual machine

1 files changed, 79 insertions, 0 deletions

diff --git a/.config/guix/nott.scm b/.config/guix/nott.scm
new file mode 100644
index 0000000..b9418c6
--- /dev/null
+++ b/.config/guix/nott.scm
@@ -0,0 +1,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))