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

(define-module (kvasir)
  #:use-module (base)
  #:use-module (desktop)
  #:use-module (gnu)
  #:use-module (gnu home)
  #:use-module (gnu home services)
  #:use-module (gnu image)
  #:use-module (gnu packages)
  #:use-module (gnu services)
  #:use-module (gnu services guix)
  #:use-module (gnu system image)
  #:use-module (guix gexp)
  #:use-module (ymir))


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


(define system
  (operating-system
   (inherit ymir)
   (host-name "kvasir")


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

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


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

(image
 (inherit iso9660-image)
 (operating-system system))