Add 'kvasir', a bootable usb OS configuration

1 files changed, 61 insertions, 0 deletions

diff --git a/.config/guix/kvasir.scm b/.config/guix/kvasir.scm
new file mode 100644
index 0000000..6ed28ea
--- /dev/null
+++ b/.config/guix/kvasir.scm
@@ -0,0 +1,61 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; This configuration adapts the base-level 'ymir' ;;
+;; OS declaration for 'kvasir', a bootable usb.    ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-module (vali)
+  #:use-module (ymir)
+  #:use-module (gnu)
+  #:use-module (gnu home)
+  #:use-module (gnu packages)
+  #:use-module (gnu home services)
+  #:use-module (gnu services)
+  #:use-module (guix gexp)
+  #:use-module (xdg)
+  #:use-module (shell)
+  #:use-module (ssh)
+  #:use-module (gpg)
+  #:use-module (gnu image)
+  #:use-module (gnu system image)
+  #:use-module (xmodmap)
+  #:use-module (base))
+
+
+(define system
+  (operating-system
+   (inherit ymir)
+   (host-name "kvasir")
+
+   (file-systems (cons* (file-system
+                         (mount-point "/boot/efi")
+                         (device (uuid
+                                  "8A13-7018"
+                                  'fat32))
+                         (type "vfat"))
+                        (file-system
+                         (mount-point "/")
+                         (device (uuid
+                                  "69a3593b-12bd-40ad-a932-007674a8cfe8"))
+                         (type "ext4")) %base-file-systems))))
+
+(define MiB (expt 2 20))
+(define GiB (expt 2 30))
+
+(image
+ (format 'disk-image)
+ (operating-system system)
+ (partitions
+  (list
+   (partition
+    (size (* 40 MiB))
+    (offset (* 1024 1024))
+    (label "GNU-ESP")
+    (file-system "vfat")
+    (flags '(esp))
+    (initializer (gexp initialize-efi-partition)))
+   (partition
+    (size (* 30 GiB))
+    (label root-label)
+    (file-system "ext4")
+    (flags '(boot))
+    (initializer (gexp initialize-root-partition))))))