Switch to sway desktop.

guix/config.scm

@@ -4,7 +4,8 @@
 
 (use-modules (gnu) (gnu packages) 
 	(gnu system nss)
-        (gnu services) 
+        (gnu services)
+	(srfi srfi-1)
 	(guix utils))
 
 (use-modules
@@ -13,7 +14,7 @@
 	(nongnu system linux-initrd))
 
 (use-service-modules desktop sddm xorg)
-(use-package-modules certs gnome)
+(use-package-modules certs wm vim terminals)
 
 (operating-system
   (host-name "rex")
@@ -57,45 +58,27 @@
                 (comment "Primary User")
                 (group "users")
                 (supplementary-groups '("wheel" "netdev"
-                                        "audio" "video")))
+					"audio" "video")))
                %base-user-accounts))
 
-  ;; Add the `students' group
-  (groups (cons* (user-group
-                  (name "users"))
-                 %base-groups))
-
   ;; This is where we specify system-wide packages.
   (packages (append (list
                      ;; for HTTPS access
                      nss-certs
                      ;; for user mounts
-                     gvfs)
+                     ;; gvfs
+		     ;; sway
+		     sway
+		     swaybg
+		     swaylock
+		     swayidle
+		     ;; shell and editors
+		     vim
+		     foot)
                     %base-packages))
 
-  ;; Add GNOME and Xfce---we can choose at the log-in screen
-  ;; by clicking the gear.  Use the "desktop" services, which
-  ;; include the X11 log-in service, networking with
-  ;; NetworkManager, and more.
-  (services (if (target-x86-64?)
-                (append (list (service gnome-desktop-service-type)
-                              (service xfce-desktop-service-type)
-                              (set-xorg-configuration
-                               (xorg-configuration
-                                (keyboard-layout keyboard-layout))))
-                        %desktop-services)
-
-                ;; FIXME: Since GDM depends on Rust (gdm -> gnome-shell -> gjs
-                ;; -> mozjs -> rust) and Rust is currently unavailable on
-                ;; non-x86_64 platforms, we use SDDM and Mate here instead of
-                ;; GNOME and GDM.
-                (append (list (service mate-desktop-service-type)
-                              (service xfce-desktop-service-type)
-                              (set-xorg-configuration
-                               (xorg-configuration
-                                (keyboard-layout keyboard-layout))
-                               sddm-service-type))
-                        %desktop-services)))
-
-  ;; Allow resolution of '.local' host names with mDNS.
+  (services (remove (lambda (service)
+		   (eq? (service-kind service) gdm-service-type))
+		   %desktop-services))
+ 
   (name-service-switch %mdns-host-lookup-nss))