;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Provides a set of my preferred program ;;
;; and services for wayland desktops      ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define-module (modules wayland)
  #:use-module (dwl-guile packages)
  #:use-module (gnu)
  #:use-module (gnu home services)
  #:use-module (gnu home services desktop)
  #:use-module (gnu home services sound)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:export (bd-desktop-system-packages
            bd-desktop-home-services))

(use-service-modules audio desktop networking
                     sound)

(use-package-modules
 emacs ;; emacs-pgtk
 image-viewers ;; imv
 qt ;; qt-wayland, qt-base
 wm ;; sway-bg, mako
 xdisorg ;; bemenu
 )

(define bd-desktop-system-packages
  (list
   bemenu
   dwl-guile
   emacs-pgtk
   imv
   mako
   qtbase
   qtwayland
   swaybg
   ))

;; (define bd-desktop-system-services
;;   (list
;;    ))

(define bd-desktop-home-services
  (list
   (service home-pipewire-service-type)
   (service home-dbus-service-type)))