From 9fff67a8ca0354c54ee77d00c5a888e188fbe69b Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Mon, 31 Oct 2022 16:38:01 +0100 Subject: System configuration: break out system-services --- system-configuration.scm | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/system-configuration.scm b/system-configuration.scm index 006d633..bff6a6b 100644 --- a/system-configuration.scm +++ b/system-configuration.scm @@ -67,15 +67,18 @@ (append system-packages' %base-packages)) +(define system-services + `(,(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))))) + (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)))) + (append system-services %desktop-services)) (operating-system (locale locale) -- cgit v1.2.3