Initial commit of new repository structure

1 files changed, 66 insertions, 0 deletions

diff --git a/.config/guix/hati.scm b/.config/guix/hati.scm
new file mode 100644
index 0000000..70b9a6b
--- /dev/null
+++ b/.config/guix/hati.scm
@@ -0,0 +1,66 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; This configuration adapts the base-level 'ymir' ;;
+;; OS declaration for 'hati', a desktop.           ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-module (hati)
+  #: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 (emacs)
+  #:use-module (xdg)
+  #:use-module (shell)
+  #:use-module (ssh)
+  #:use-module (gpg)
+  #:use-module (base))
+
+
+(define system
+  (operating-system
+   (inherit ymir)
+   (host-name "hati")
+
+   (mapped-devices (list (mapped-device
+                          (source (uuid "1e9c3cd7-97c2-411a-975a-40222d185563"))
+                          (target "hidden")
+                          (type luks-device-mapping))))
+
+   (file-systems (cons* (file-system
+                         (mount-point "/boot/efi")
+                         (device (uuid
+                                  "1448-51AE"
+                                  'fat32))
+                         (type "vfat"))
+                        (file-system
+                         (mount-point "/home/bdunahu/Personal")
+                         (device "/dev/mapper/hidden")
+                         (type "ext4")
+                         (dependencies mapped-devices))
+                        (file-system
+                         (mount-point "/")
+                         (device (uuid
+                                  "df334be4-5828-45b4-842a-9a8d97cfa40a"
+                                  'ext4))
+                         (type "ext4")) %base-file-systems))))
+
+
+(define home
+  (home-environment
+   (packages
+    `(,@desktop-packages
+      ,@program-packages
+      ,@emacs-packages))
+
+   (services
+    `(,@xdg-service
+      ,@shell-service
+      ,@ssh-service
+      ,@gpg-service
+      ,@base-services))))
+
+
+(if (getenv "RUNNING_GUIX_HOME") home system)