refactor(system): reconstruct services

1 files changed, 17 insertions, 14 deletions

diff --git a/suweren/system.scm b/suweren/system.scm
index 3d37171..3ef1e6d 100644
--- a/suweren/system.scm
+++ b/suweren/system.scm
@@ -98,6 +98,17 @@
   (login-configuration (inherit configuration)
 		       (allow-empty-passwords? #f)))
 
+;; record syncthing-configuration
+(define syncthing-configuration*
+  (syncthing-configuration (user "marek")))
+
+;; record syncthing-service-type
+(define syncthing
+  (service syncthing-service-type
+	   syncthing-configuration*))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (define-public %suweren-file-systems
   (@ (gnu system file-systems) %base-file-systems))
 
@@ -116,22 +127,14 @@
 								 (guix configuration))
 					      (login-service-type configuration
 								  =>
-								  (login configuration))))
-	 (suweren-services (list plasma-desktop
-				 profile
-				 sddm
-				 syncthing)))
+								  (login configuration)))))
     (append %desktop-services*
-	    suweren-services)))
-
-;; record syncthing-configuration
-(define syncthing-configuration*
-  (syncthing-configuration (user "marek")))
+	    (list plasma-desktop
+		  profile
+		  sddm
+		  syncthing))))
 
-;; record syncthing-service-type
-(define syncthing
-  (service syncthing-service-type
-	   syncthing-configuration*))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; record package ->
 ;; record bootloader-configuration ->