diff options
Diffstat (limited to 'suweren/system.scm')
| -rw-r--r-- | suweren/system.scm | 15 |
1 files changed, 14 insertions, 1 deletions
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)))) |