refactor %distribution-services for the proper distribution name

1 files changed, 20 insertions, 0 deletions

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))))