diff options
Diffstat (limited to 'tw/system.scm')
| -rw-r--r-- | tw/system.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/tw/system.scm b/tw/system.scm index d38109af..2c1cdac0 100644 --- a/tw/system.scm +++ b/tw/system.scm @@ -206,14 +206,16 @@ ACTION!=\"remove\", SUBSYSTEM==\"leds\", GROUP=\"video\", MODE=\"0664\" (wayland? #f) (work-system? #f) (xorg-extra-modules '()) - (xorg-drivers '())) + (xorg-drivers '()) + (xorg-extra-config '())) (unless (and (string? host-name) (number? cores) (string? wireless-interface) (string? backlight-device) (list? xorg-extra-modules) - (list? xorg-drivers)) + (list? xorg-drivers) + (list? xorg-extra-config)) (error "Invalid argument type")) (cons* @@ -362,7 +364,7 @@ ACTION!=\"remove\", SUBSYSTEM==\"leds\", GROUP=\"video\", MODE=\"0664\" (if wayland? (wayland-enduser-base-services) - (x11-enduser-base-services work-system? xorg-extra-modules xorg-drivers)))) + (x11-enduser-base-services work-system? xorg-extra-modules xorg-drivers xorg-extra-config)))) (define enduser-base-services (modify-services (append %system-channel-services %desktop-services) @@ -385,11 +387,11 @@ ACTION!=\"remove\", SUBSYSTEM==\"leds\", GROUP=\"video\", MODE=\"0664\" (login-service-type config => (tw-login-configuration config)))) -(define (x11-enduser-base-services work-system? xorg-extra-modules xorg-drivers) +(define (x11-enduser-base-services work-system? xorg-extra-modules xorg-drivers xorg-extra-config) (define xorg-config (xorg-configuration (keyboard-layout %british-keyboard) - (extra-config (list touchpad-xorg-config)) + (extra-config (cons touchpad-xorg-config xorg-extra-config)) (modules (append xorg-extra-modules %default-xorg-modules)) (drivers xorg-drivers))) |