refactor %distribution-services for the proper distribution name

2 files changed, 20 insertions, 25 deletions

diff --git a/services/distribution.scm b/services/distribution.scm
deleted file mode 100644
index c8ff5d4..0000000
--- a/services/distribution.scm
+++ /dev/null
@@ -1,25 +0,0 @@
-(define-module (services distribution)
-  #:use-module (gnu services)
-  #:use-module (gnu services base)
-  #:use-module (gnu services desktop)
-  #:use-module (services guix channels)
-  #:use-module (services nonguix substitute)
-  #:use-module (services plasma-desktop))
-
-(define desktop-services
-  (list plasma-desktop-service))
-
-(define %desktop-services*
-  (modify-services %desktop-services
-		   (guix-service-type config
-				      =>
-				      (channels config))
-		   (guix-service-type config
-				      =>
-				      (nonguix-substitute config))))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(define-public %distribution-services
-  (append %desktop-services*
-	  desktop-services))
diff --git a/suweren/services.scm b/suweren/services.scm
new file mode 100644
index 0000000..1cd2467
--- /dev/null
+++ b/suweren/services.scm
@@ -0,0 +1,20 @@
+(define-module (suweren services)
+  #:use-module (gnu services)
+  #:use-module (gnu services base)
+  #:use-module (gnu services desktop)
+  #:use-module (services guix channels)
+  #:use-module (services nonguix substitute)
+  #:use-module (services plasma-desktop))
+
+(define-public %distribution-services
+  (let ((%desktop-services*
+	 (modify-services %desktop-services
+			  (guix-service-type config
+					     =>
+					     (channels config))
+			  (guix-service-type config
+					     =>
+					     (nonguix-substitute config)))))
+
+    (append %desktop-services*
+	    (list plasma-desktop-service))))