;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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)