From 975c4259f3a934de7a43c6f0837cda77ac2ac4f8 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sat, 13 Jul 2024 17:40:09 +0200 Subject: fix: expose %suweren-home-services --- suweren/home.scm | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/suweren/home.scm b/suweren/home.scm index 35ee6b8..ed8bcab 100644 --- a/suweren/home.scm +++ b/suweren/home.scm @@ -13,21 +13,23 @@ #:use-module (suweren services sound) #:use-module (suweren update)) -(define-public %home-environment +(define-public %suweren-home-services (let ((bash (service home-bash-service-type suweren-home-bash-configuration)) (dbus (service home-dbus-service-type)) (pipewire (service home-pipewire-service-type)) (shepherd (service home-shepherd-service-type))) - (let ((packages (list firefox - font-gnu-freefont - gnupg)) - (services (list bash - dbus - pipewire - shepherd - suweren-home-fontconfig-service-type - suweren-home-xdg-configuration-files-extension - update-commands))) - (home-environment (packages packages) - (services services))))) + (list bash + dbus + pipewire + shepherd + suweren-home-fontconfig-service-type + suweren-home-xdg-configuration-files-extension + update-commands))) + +(define-public %home-environment + (let ((packages (list firefox + font-gnu-freefont + gnupg))) + (home-environment (packages packages) + (services %suweren-home-services)))) -- cgit v1.2.3