From f4b1d571ae0d6527fd933baadc64e9d67cd56456 Mon Sep 17 00:00:00 2001
From: Ryan Schanzenbacher <ryan@rschanz.org>
Date: Mon, 21 Oct 2024 11:40:52 -0400
Subject: [PATCH] added wpaperd config

---
 home-config/home-configuration.scm  | 1 +
 home-config/wpaperd/config.toml     | 4 ++++
 modules/ryan-config/base-system.scm | 6 ++++++
 3 files changed, 11 insertions(+)
 create mode 100644 home-config/wpaperd/config.toml

diff --git a/home-config/home-configuration.scm b/home-config/home-configuration.scm
index dd14824..b9e95d0 100644
--- a/home-config/home-configuration.scm
+++ b/home-config/home-configuration.scm
@@ -155,6 +155,7 @@
                     ("nvim/after/ftplugin/mail/custom.vim" ,(local-file "nvim/config/after/ftplugin/mail/custom.vim"))
                     ("sway" ,(local-file "sway" #:recursive? #t))
                     ("hypr" ,(local-file "hypr" #:recursive? #t))
+                    ("wpaperd" ,(local-file "wpaperd" #:recursive? #t))
                     ("mpv" ,(local-file "mpv" #:recursive? #t))
                     ("foot" ,(local-file "foot" #:recursive? #t))
                     ("pulse/client.conf" ,(local-file "pulseaudio/client.conf"))
diff --git a/home-config/wpaperd/config.toml b/home-config/wpaperd/config.toml
new file mode 100644
index 0000000..9947370
--- /dev/null
+++ b/home-config/wpaperd/config.toml
@@ -0,0 +1,4 @@
+[default]
+duration = "30m"
+path = "~/.config/hypr/Wallpapers/static/"
+transition-time = 2000
diff --git a/modules/ryan-config/base-system.scm b/modules/ryan-config/base-system.scm
index 0dea854..ca13e77 100644
--- a/modules/ryan-config/base-system.scm
+++ b/modules/ryan-config/base-system.scm
@@ -4,6 +4,7 @@
                 #:use-module (gnu system setuid)
                 #:use-module (gnu packages admin)
                 #:use-module (gnu packages avahi)
+                #:use-module (gnu packages wm)
                 #:use-module (guix packages)
                 #:use-module (gnu packages shells)
                 #:use-module (guix build-system trivial)
@@ -193,6 +194,11 @@
                               (libvirt libvirt-ovmf)
                               (unix-sock-group "libvirt")))
                    (service virtlog-service-type)
+                   (service screen-locker-service-type
+                            (screen-locker-configuration
+                              (name "hyprlock")
+                              (program (file-append swaylock "/bin/swaylock"))
+                              (using-pam? #t)))
                    (simple-service 'spice-polkit polkit-service-type (list spice-gtk))
                    (simple-service 'hwdb-creation etc-service-type (list `("udev-here-oneoneone" ,(plain-file "issue" "test\n"))))
                    (service bluetooth-service-type