added wpaperd config

This commit is contained in:
Ryan 2024-10-21 11:40:52 -04:00
parent f8a56388e8
commit f4b1d571ae
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
3 changed files with 11 additions and 0 deletions

View file

@ -155,6 +155,7 @@
("nvim/after/ftplugin/mail/custom.vim" ,(local-file "nvim/config/after/ftplugin/mail/custom.vim")) ("nvim/after/ftplugin/mail/custom.vim" ,(local-file "nvim/config/after/ftplugin/mail/custom.vim"))
("sway" ,(local-file "sway" #:recursive? #t)) ("sway" ,(local-file "sway" #:recursive? #t))
("hypr" ,(local-file "hypr" #:recursive? #t)) ("hypr" ,(local-file "hypr" #:recursive? #t))
("wpaperd" ,(local-file "wpaperd" #:recursive? #t))
("mpv" ,(local-file "mpv" #:recursive? #t)) ("mpv" ,(local-file "mpv" #:recursive? #t))
("foot" ,(local-file "foot" #:recursive? #t)) ("foot" ,(local-file "foot" #:recursive? #t))
("pulse/client.conf" ,(local-file "pulseaudio/client.conf")) ("pulse/client.conf" ,(local-file "pulseaudio/client.conf"))

View file

@ -0,0 +1,4 @@
[default]
duration = "30m"
path = "~/.config/hypr/Wallpapers/static/"
transition-time = 2000

View file

@ -4,6 +4,7 @@
#:use-module (gnu system setuid) #:use-module (gnu system setuid)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module (gnu packages avahi) #:use-module (gnu packages avahi)
#:use-module (gnu packages wm)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (gnu packages shells) #:use-module (gnu packages shells)
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
@ -193,6 +194,11 @@
(libvirt libvirt-ovmf) (libvirt libvirt-ovmf)
(unix-sock-group "libvirt"))) (unix-sock-group "libvirt")))
(service virtlog-service-type) (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 'spice-polkit polkit-service-type (list spice-gtk))
(simple-service 'hwdb-creation etc-service-type (list `("udev-here-oneoneone" ,(plain-file "issue" "test\n")))) (simple-service 'hwdb-creation etc-service-type (list `("udev-here-oneoneone" ,(plain-file "issue" "test\n"))))
(service bluetooth-service-type (service bluetooth-service-type