;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This configuration adapts the base-level 'ymir' ;;
;; OS declaration for 'kvasir', a bootable usb.    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define-module (kvasir)
  #: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 home
  (home-environment
   (packages
    `(,@desktop-packages
      ,@program-packages))

   (services
    `(,@xdg-service
      ,@shell-service
      ,@ssh-service
      ,@gpg-service
      ,@base-services
      ,@xmodmap-service))))


(if (getenv "RUNNING_GUIX_HOME") home system)