From c6be253d7574d1969970f0a72a442a27ce945391 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Wed, 20 Nov 2024 08:00:09 +0100
Subject: refactor(systems): synchronize to sovereign services

---
 suweren/services.scm | 55 +++++++++++++---------------------------------------
 1 file changed, 13 insertions(+), 42 deletions(-)

(limited to 'suweren')

diff --git a/suweren/services.scm b/suweren/services.scm
index 2809da0..78c119b 100644
--- a/suweren/services.scm
+++ b/suweren/services.scm
@@ -1,47 +1,18 @@
 (define-module (suweren services)
-  #:use-module (gnu packages cups)
-  #:use-module (gnu packages linux)
-  #:use-module (gnu services)
-  #:use-module (gnu services base)
-  #:use-module (gnu services cups)
-  #:use-module (gnu services desktop)
-  #:use-module (gnu services sddm)
-  #:use-module (gnu services sound)
-  #:use-module (gnu services syncthing)
-  #:use-module (gnu services xorg)
-  #:use-module (services plasma-desktop)
-  #:use-module (suweren services desktop)
-  #:use-module ((suweren system)
-                #:prefix suweren-system:)
-  #:use-module (suweren trezor) ; trezor-bridge
-  #:use-module (upstream services nbfc))
+   #:use-module (gnu services)
+   #:use-module (gnu services cups)
+   #:use-module (suweren services desktop)
+   #:use-module (upstream services nbfc))
 
 (define-public %distribution-services
   (let* ((cups-configuration* (cups-configuration (web-interface? #t)))
-	 (nbfc-configuration* (nbfc-configuration (model "Acer Nitro AN515-43")))
-	 (sddm-configuration* (sddm-configuration ;; (display-server "wayland")
-						  (theme "breeze")))
+         (nbfc-configuration* (nbfc-configuration (model "Acer Nitro AN515-43")))
 
-	 (cups-service (service cups-service-type
-				cups-configuration*))
-	 (%desktop-services* (modify-services %desktop-services
-					      (delete gdm-service-type)
-					      (delete pulseaudio-service-type)
-                                              (guix-service-type configuration
-                                                                 =>
-                                                                 (suweren-system:guix configuration))))
-	 (nbfc-service (service nbfc-service-type
-				nbfc-configuration*))
-	 (plasma-desktop-service (service plasma-desktop-service-type))
-	 (sddm-service (service sddm-service-type
-				sddm-configuration*))
-	 (syncthing-service (service syncthing-service-type
-				     (syncthing-configuration (user "marek")))))
-    (append %desktop-services*
-	    bluetooth-services
-	    trezor-bridge
-	    (list cups-service
-		  ;; nbfc-service
-		  plasma-desktop-service
-		  sddm-service
-		  syncthing-service))))
+         (cups-service (service cups-service-type
+                                cups-configuration*))
+         (nbfc-service (service nbfc-service-type
+                                nbfc-configuration*)))
+    (append bluetooth-services
+            (list cups-service
+                  ;; nbfc-service
+                  ))))
-- 
cgit v1.2.3