blob: eac31b9ee7a205f49d18de405b90bfc51bd6a51b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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)))
|
