From f4f9e4c6f53ccb86dc102f7d8962e5422db7dadf Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Mon, 31 Oct 2022 16:33:58 +0100 Subject: System configuration: break out services --- system-configuration.scm | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/system-configuration.scm b/system-configuration.scm index bc8ae76..006d633 100644 --- a/system-configuration.scm +++ b/system-configuration.scm @@ -67,21 +67,24 @@ (append system-packages' %base-packages)) +(define services + (append `(,(service cups-service-type + (cups-configuration (extensions `(,cups-filters + ,epson-inkjet-printer-escpr)) + (web-interface? #t))) + ,(service openssh-service-type) + ,(service gnome-desktop-service-type) + ,(service tor-service-type) + ,(set-xorg-configuration (xorg-configuration (keyboard-layout keyboard-layout)))) + %desktop-services)) + (operating-system (locale locale) (timezone timezone) (keyboard-layout keyboard-layout) (host-name host-name) (users users) (packages packages) - (services (append `(,(service cups-service-type - (cups-configuration (extensions `(,cups-filters - ,epson-inkjet-printer-escpr)) - (web-interface? #t))) - ,(service openssh-service-type) - ,(service gnome-desktop-service-type) - ,(service tor-service-type) - ,(set-xorg-configuration (xorg-configuration (keyboard-layout keyboard-layout)))) - %desktop-services)) + (services services) (bootloader (bootloader-configuration (bootloader grub-bootloader) (targets '("/dev/sda")) (keyboard-layout keyboard-layout))) -- cgit v1.2.3