diff options
Diffstat (limited to '.config/guix/modules')
| -rw-r--r-- | .config/guix/modules/dwm.scm | 40 | ||||
| -rw-r--r-- | .config/guix/modules/xorg.scm | 31 |
2 files changed, 48 insertions, 23 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 +")))))) diff --git a/.config/guix/modules/xorg.scm b/.config/guix/modules/xorg.scm index cc9bdbc..7cfa312 100644 --- a/.config/guix/modules/xorg.scm +++ b/.config/guix/modules/xorg.scm @@ -12,7 +12,8 @@ #:use-module (guix packages) #:export (bd-desktop-system-packages bd-desktop-system-services - bd-desktop-home-services)) + bd-desktop-home-services + )) (use-service-modules audio desktop networking sound xorg) @@ -20,21 +21,14 @@ (use-package-modules compton ;; picom emacs ;; emacs - gnome ;; libnotify, - image-viewers ;; sxiv, feh + gnome ;; libnotify + image-viewers ;; feh pulseaudio ;; pavucontrol, pulseaudio, - suckless ;; dmenu, - xorg ;; xprop, xf86-input-libinput, xf86-video-fbdev, xinit... - xdisorg ;; xdotool + suckless ;; dmenu + xorg ;; xf86-input-libinput, xf86-video-fbdev, xinit... + xdisorg ;; xrdb ) -(define dwm-package - (package - (inherit dwm) - (name "bdunahu-dwm") - (inputs (modify-inputs (package-inputs dwm))) - (source (local-file "dwm" #:recursive? #t)))) - (define bd-desktop-system-packages (list dmenu @@ -43,12 +37,8 @@ pavucontrol picom pulseaudio - sxiv - xprop - dwm-package feh - xdotool xf86-input-libinput xf86-video-fbdev xinit @@ -76,12 +66,7 @@ (list (simple-service 'dotfiles home-files-service-type - `((".Xresources" - ,(plain-file "Xresources" " -Sxiv.background: #000000 -Sxiv.foreground: #00C0FF -")) - (".Xmodmap" + `((".Xmodmap" ,(plain-file "Xmodmap" " clear lock clear control |