preparing deploy script

deploy.sh

@@ -0,0 +1,67 @@
+#!/usr/bin/env bash
+
+gather_env() {
+    # Gather needed information
+    echo -n "Type 'e' for encrypted or 'd' for decrypted install: "
+    read install_type
+
+    echo -n "Type system hostname: "
+    read install_hostname
+
+    echo -n "Type device file for ROOT data: "
+    read root_dev
+
+    echo -n "Type device file for BOOT data: "
+    read boot_dev
+
+    echo -n "Type device file for SWAP: "
+    read swap_dev
+
+}
+
+copy_and_prepare() {
+    # Associate devs with uuids
+    root_uuid=`blkid $root_dev | awk -F\" '{print $2}'`
+    boot_uuid=`blkid $boot_dev | awk -F\" '{print $2}'`
+    swap_uuid=`blkid $swap_dev | awk -F\" '{print $2}'`
+    # Let's a go!
+    echo "Information gathered. Deploying Guix on $root_dev ($root_uuid) with boot on $boot_dev ($boot_uuid) and swap on $swap_dev ($swap_uuid)"
+    echo -n "Proceed? (y/n): "
+    read install_choice
+
+    if [ "$install_choice" != "y" ]
+    then
+        echo "Bailing!"
+        exit 1
+    fi
+
+    # We are installing!
+    # Copy template to root of repo
+    if [ "$install_type" == "e" ]
+    then
+        cp ./modules/ryan-config/deploy-templates/HostTemplateEncrypted.scm ./$install_hostname.scm
+    elif [ "$install_type" == "d" ]
+    then
+        cp ./modules/ryan-config/deploy-templates/HostTemplate.scm ./$install_hostname.scm
+    else
+        echo "Invalid install type (not d or e), bailing!"
+        exit 1
+    fi
+
+    # Correct the information
+    sed -i "s/ChangeMe_ROOT/$root_uuid/" ./$install_hostname.scm
+    sed -i "s/ChangeMe_BOOTEFI/$boot_uuid/" ./$install_hostname.scm
+    sed -i "s/ChangeMe_SWAP/$swap_uuid/" ./$install_hostname.scm
+    sed -i "s/ChangeMe_HOST/$install_hostname/" ./$install_hostname.scm
+
+    # Install!
+    echo "Mounting /gnu/store to destination disk..."
+    herd start cow-store /mnt
+
+    echo "Beginning install!"
+    guix time-machine -C ./channels.scm -- system -L ./modules --substitute-urls='https://bordeaux.guix.gnu.org https://ci.guix.gnu.org https://substitutes.nonguix.org' init $install_hostname.scm /mnt
+
+}
+
+gather_env
+copy_and_prepare

modules/ryan-config/deploy-templates/HostTemplate.scm

@@ -0,0 +1,19 @@
+(use-modules (ryan-config base-system)
+             (gnu))
+
+(operating-system
+  (inherit base-operating-system)
+  (host-name "ChangeMe_HOST")
+  (file-systems (cons* (file-system
+                         (mount-point "/")
+                         (device (uuid "ChangeMe_ROOT"
+                                       'ext4))
+                         (type "ext4"))
+                       (file-system
+                         (mount-point "/boot/efi")
+                         (device (uuid "ChangeMe_BOOTEFI"
+                                       'fat32))
+                         (type "vfat")) %base-file-systems))
+  (swap-devices
+    (list
+      (swap-space (target (uuid "ChangeMe_SWAP"))))))

modules/ryan-config/deploy-templates/HostTemplateEncrypted.scm

@@ -0,0 +1,24 @@
+(use-modules (ryan-config base-system)
+             (gnu))
+
+(operating-system
+  (inherit base-operating-system)
+  (host-name "ChangeMe_HOST")
+  (mapped-devices (list (mapped-device
+                          (source (uuid
+                                   "ChangeMe_ROOT"))
+                          (target "sysroot")
+                          (type luks-device-mapping))))
+  (file-systems (cons* (file-system
+                         (mount-point "/")
+                         (device "/dev/mapper/sysroot")
+                         (type "ext4")
+                         (dependencies mapped-devices))
+                       (file-system
+                         (mount-point "/boot/efi")
+                         (device (uuid "ChangeMe_BOOTEFI"
+                                       'fat32))
+                         (type "vfat")) %base-file-systems))
+  (swap-devices
+    (list
+      (swap-space (target (uuid "ChangeMe_SWAP"))))))