blob: e73e12731831e8f80e282c4547631d5cb0a2e64c (
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
|
(define-module (modules dwm)
#:use-module (gnu)
#:use-module (gnu home services)
#:use-module (gnu home services desktop)
#:use-module (guix gexp)
#:use-module (guix packages)
#:export (bd-dwm-system-packages
bd-dwm-home-services))
(use-package-modules
image-viewers ;; sxiv
suckless ;; dwm
xdisorg ;; xdotool
xorg ;; xprop
)
(define bd-dwm
(package
(inherit dwm)
(name "bdunahu-dwm")
(inputs (modify-inputs (package-inputs dwm)))
(source (local-file "dwm" #:recursive? #t))))
(define bd-dwm-system-packages
(list
bd-dwm
sxiv
xdotool
xprop
))
(define bd-dwm-home-services
(list
(simple-service 'dotfiles
home-files-service-type
`((".Xresources"
,(plain-file "Xresources" "
Sxiv.background: #000000
Sxiv.foreground: #00C0FF
"))))))
|
