From 7337596152a113d7ec435c7e1b8c2755f529e55d Mon Sep 17 00:00:00 2001
From: Franz Geffke <franz@pantherx.org>
Date: Sat, 30 Mar 2024 16:55:28 +0000
Subject: services/base: formatting

---
 px/services/base.scm | 35 +++++++++++++++--------------------
 1 file changed, 15 insertions(+), 20 deletions(-)

(limited to 'px/services')

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
@@ -40,20 +40,21 @@
             %px-server-services
             %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))
-- 
cgit v1.2.3