;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This configuration adapts the base-level 'ymir' ;;
;; OS declaration for 'hati', a desktop.           ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define-module (hati)
  #:use-module (base)
  #:use-module (desktop)
  #:use-module (gnu)
  #:use-module (gnu home)
  #:use-module (gnu home services)
  #:use-module (gnu packages)
  #:use-module (gnu services)
  #:use-module (gnu services guix)
  #:use-module (guix gexp)
  #:use-module (mpd)
  #:use-module (ymir))


(define home
  (home-environment
   (services
    `(,@bd-base-home-services
      ,@bd-desktop-home-services))))


(operating-system
 (inherit ymir)
 (host-name "hati")

 ;; (all packages are system wide)
 (packages
  `(,@bd-base-system-packages
    ,@bd-desktop-system-packages
    ,@bd-mpd-package
    ,@(map specification->package
           '(
             "xf86-video-nouveau"
             ))))

 (services
  `(,@bd-base-system-services
    ,@bd-desktop-system-services
    ,@bd-mpd-service
    ,(service guix-home-service-type
              `((,username ,home)))))

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