Initialze repository

systems/base.scm

@@ -0,0 +1,38 @@
+(define-module (systems base)
+  #:use-module (gnu)
+  #:use-module (guix)
+  #:export (system-config))
+
+(use-service-modules networking ssh)
+
+(define (system-config system)
+  (operating-system
+    (inherit system)
+    (timezone "Etc/UTC")
+    (locale "en_DK.utf8")
+
+    (users (cons (user-account
+                  (name "muon")
+                  (group "users")
+                  (home-directory "/home/muon")
+                  (supplementary-groups
+                    '("wheel" "netdev" "kvm" "tty" "input" "audio" "video")))
+                 %base-user-accounts))
+
+    (packages (append (map specification->package
+                        '("git"
+                          "glibc-locales"
+                          "nss-certs"
+                          "gnupg"
+                          "curl"
+                          "cryptsetup"
+                          "openssl"
+                          "polkit"
+                          "vim"))
+                      %base-packages))
+
+    (services (append (list (service dhcpcd-service-type)
+                            (service openssh-service-type))
+                      %base-services))))
+
+

systems/muix.scm

@@ -0,0 +1,49 @@
+(define-module (systems muix)
+  #:use-module (gnu)
+  #:use-module (guix)
+  #:use-module (systems base))
+
+;; /dev/sda1
+(define %device-uuid-efi  "AC4A-082E")
+;; /dev/sda2
+(define %device-uuid-root "d1efd870-c9d9-47f5-bed5-3209e95b4f16")
+
+(system-config (operating-system
+  (host-name "muix")
+
+  (keyboard-layout (keyboard-layout "us" "altgr-intl" #:model "thinkpad"))
+
+  (mapped-devices (list (mapped-device
+                          (source (uuid %device-uuid-root))
+                          (target "guixvm")
+                          (type luks-device-mapping))))
+
+  (file-systems (append (map 
+                          (lambda (item) (file-system
+                            (device "/dev/mapper/guixvm")
+                            (mount-point (car item))
+                            (type "btrfs")
+                            (options (car (cdr item)))
+                            (dependencies mapped-devices)))
+                          '(("/"        "subvol=root")
+                            ("/swap"    "subvol=swap")
+                            ("/boot"    "subvol=boot")
+                            ("/gnu"     "subvol=gnu")
+                            ("/home"    "subvol=home")
+                            ("/var/log" "subvol=log")))
+    (list (file-system
+            (mount-point "/boot/efi")
+            (device (uuid %device-uuid-efi 'fat32))
+            (type "vfat")))
+    %base-file-systems))
+
+  (swap-devices (list (swap-space
+                        (target "/swap/swapfile")
+                        (dependencies file-systems))))
+
+  (bootloader (bootloader-configuration
+                (bootloader grub-efi-removable-bootloader)
+                (targets '("/boot/efi"))
+                (timeout 1)
+                (keyboard-layout keyboard-layout)))))
+