diff options
| author | Franz Geffke <franz@pantherx.org> | 2024-03-30 16:55:28 +0000 |
|---|---|---|
| committer | Franz Geffke <franz@pantherx.org> | 2024-03-30 16:55:28 +0000 |
| commit | 7337596152a113d7ec435c7e1b8c2755f529e55d (patch) | |
| tree | 256af26f0817c638e34c8448fd53c0d92436e8fb /px/services/base.scm | |
| parent | 03bf5eaa67f6dcb0ce30761f9efe21dba1c03f3d (diff) | |
services/base: formatting
Diffstat (limited to 'px/services/base.scm')
| -rw-r--r-- | px/services/base.scm | 35 |
1 files changed, 15 insertions, 20 deletions
diff --git a/px/services/base.scm b/px/services/base.scm index 8026c47..42911f2 100644 --- a/px/services/base.scm +++ b/px/services/base.scm @@ -41,19 +41,20 @@ %px-server-ee-services)) ;;; -;;; ;;; CORE ;;; px-core-os services ;;; (define %px-core-services - (append (list (service dhcp-client-service-type) - (service ntp-service-type)) %base-services)) + (append (list + (service dhcp-client-service-type) + (service ntp-service-type)) + %base-services)) ;;; -;;; ;;; DESKTOP ;;; px-desktop-os services +;;; px-desktop-ee-os services ;;; (define %px-desktop-core-services @@ -62,17 +63,12 @@ (define %px-desktop-services (append %desktop-services-assembly)) -;;; -;;; -;;; ENTERPRISE -;;; px-desktop-ee-o services -;;; - (define %px-desktop-ee-services ;; TODO: Does not include default desktop - (append (list (service px-device-identity-service-type) - (service px-user-identity-service-type)) - %desktop-services-assembly)) + (append (list + (service px-device-identity-service-type) + (service px-user-identity-service-type)) + %desktop-services-assembly)) ;;; ;;; SERVER @@ -82,16 +78,15 @@ (define %px-server-services (append (list - ;; OpenSSH is enabled by default but only with SSH key (service openssh-service-type (openssh-configuration (permit-root-login 'prohibit-password))) - - ;; Time service + (service ntp-service-type) - ;; Firewall (service nftables-service-type) - ;; DHCP - (service dhcp-client-service-type)) %base-services)) + (service dhcp-client-service-type)) + %base-services)) (define %px-server-ee-services - (append (list (service px-device-identity-service-type)) %px-server-services))
\ No newline at end of file + (append (list + (service px-device-identity-service-type)) + %px-server-services)) |