From 1864284280b7aaa87f185e6bfd8490e348bb8cef Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Tue, 23 Jul 2024 10:27:52 +0200 Subject: feat: configure guix daemon in %suweren-operating-system --- suweren/system.scm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/suweren/system.scm b/suweren/system.scm index 9ad5d2d..b7268d5 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -1,6 +1,8 @@ (define-module (suweren system) #:use-module (gnu services) ; modify-services - #:use-module (gnu services base) ; login-configuration + #:use-module (gnu services base) ; guix-configuration + ; guix-service-type + ; login-configuration ; login-service-type #:use-module (gnu services desktop) ; %desktop-services ; plasma-desktop-service-type @@ -11,6 +13,14 @@ #:use-module (gnu system shadow) ; %base-user-accounts ) +;; record guix-configuration -> +;; record guix-configuration +(define (guix configuration) + (let ((extra-options* (list "--gc-keep-derivations=yes" + "--gc-keep-outputs=yes"))) + (guix-configuration (inherit configuration) + (extra-options extra-options*)))) + ;; record login-configuration -> ;; record login-configuration (define (login configuration) @@ -34,6 +44,9 @@ (%desktop-services* (modify-services %desktop-services (delete gdm-service-type) + (guix-service-type configuration + => + (guix configuration)) (login-service-type configuration => (login configuration)))) -- cgit v1.2.3