From 9363fb88cf63813f6025e830020954ca4fd09b29 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 14 Apr 2022 01:39:25 -0700 Subject: Add herbstluftwm configuration with xsession extension The herbstluftwm configuration isn't complete yet, it's only the package so far, but it does extend the xsession service to include a line in xsession to execute the window manager in a bit of a hacky way. This also adds a ‘mixed-executable-file’ function which is the same as the ‘mixed-text-file’ except that it also sets the executable bit for the computed file. --- oni/home/data/config.scm | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'oni/home/data/config.scm') diff --git a/oni/home/data/config.scm b/oni/home/data/config.scm index 7c2b064..6648adf 100644 --- a/oni/home/data/config.scm +++ b/oni/home/data/config.scm @@ -7,6 +7,7 @@ #:use-module (gnu packages) #:use-module (gnu packages admin) #:use-module (gnu packages shellutils) + #:use-module (gnu packages wm) #:use-module (guix gexp) #:use-module (oni home services xdisorg) #:use-module (oni home services xmodmap) @@ -14,7 +15,8 @@ #:use-module (oni home services xsession) #:use-module (oni home services compton) #:use-module (oni home services xbindkeys) - #:use-module (oni home services zsh)) + #:use-module (oni home services zsh) + #:use-module (oni home services herbstluftwm)) (home-environment (packages (list (specification->package+output "glibc-locales"))) @@ -218,10 +220,12 @@ (home-xsession-configuration (configuration (list - "xrdb -cpp m4 -merge \"${HOME}/.config/X11/Xresources\" -I\"${HOME}/.config/X11/Xresources.d\"" - "xrandr --setprovideroutputsource modesetting NVIDIA-0" - "xrandr --auto" - "xrandr --dpi 96")))) + (mixed-text-file + "xsession" + "xrdb -cpp m4 -merge \"${HOME}/.config/X11/Xresources\" -I\"${HOME}/.config/X11/Xresources.d\"\n" + "xrandr --setprovideroutputsource modesetting NVIDIA-0\n" + "xrandr --auto\n" + "xrandr --dpi 96\n"))))) (service home-picom-service-type (home-picom-configuration @@ -235,4 +239,6 @@ "class_g = 'trayer'" "bounding_shaped")))))) - (service home-xbindkeys-service-type)))) + (service home-xbindkeys-service-type) + + (service home-herbstluftwm-service-type)))) -- cgit v1.2.3-54-g00ecf