Move dwm packages to their own file

1 files changed, 40 insertions, 0 deletions

diff --git a/.config/guix/modules/dwm.scm b/.config/guix/modules/dwm.scm
new file mode 100644
index 0000000..e73e127
--- /dev/null
+++ b/.config/guix/modules/dwm.scm
@@ -0,0 +1,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
+"))))))