From d78530995a6d19e100f364c6f894db9bed1f7269 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Tue, 18 Jun 2024 01:22:12 -0600
Subject: Move dwm packages to their own file

---
 .config/guix/modules/dwm.scm | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 .config/guix/modules/dwm.scm

(limited to '.config/guix/modules/dwm.scm')

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
+"))))))
-- 
cgit v1.2.3