From 47df1eb7aed542f2dfe4a91e7626b0ee64372d4a Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 25 Jul 2024 16:09:29 +0200 Subject: feat!(system): implement services* argument in %suweren-operating-system --- suweren/system.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'suweren') diff --git a/suweren/system.scm b/suweren/system.scm index d7797e3..3cdd427 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -88,6 +88,7 @@ ;; string -> ;; (record file-system) -> ;; (record user-account) -> +;; (record service) -> ;; record operating-system (define-public (%suweren-operating-system kernel* bootloader-configuration* @@ -95,7 +96,8 @@ firmware* host-name* file-systems* - users*) + users* + services*) (let* ((sddm-configuration* (sddm-configuration (theme "breeze"))) (plasma-desktop (service plasma-desktop-service-type)) @@ -114,7 +116,8 @@ sddm)) (services* (append %desktop-services* - suweren-services)) + suweren-services + services*)) (users* (append %base-user-accounts users*))) (operating-system (kernel kernel*) -- cgit v1.2.3