Add some support for foot and swaylock

guix/config.scm

@@ -53,32 +53,46 @@
   (swap-devices '("/dev/nvme0n1p2"))
 
   ;; Create user `bob' with `alice' as its initial password.
-  (users (cons (user-account
-                (name "jgrogan")
-                (comment "Primary User")
-                (group "users")
-                (supplementary-groups '("wheel" "netdev"
-					"audio" "video")))
+  (users (append
+            (list (user-account
+                    (name "jgrogan")
+                    (comment "Primary User")
+                    (group "users")
+                    (supplementary-groups '("wheel" "netdev"
+					"audio" "video"))) 
+	          (user-account
+                     (name "guest")
+                     (comment "Guest User")
+                     (group "users")
+                     ))
                %base-user-accounts))
 
   ;; This is where we specify system-wide packages.
   (packages (append (list
                      ;; for HTTPS access
                      nss-certs
-                     ;; for user mounts
-                     ;; gvfs
 		     ;; sway
 		     sway
 		     swaybg
 		     swaylock
 		     swayidle
+		     wmenu
 		     ;; shell and editors
 		     vim
 		     foot)
                     %base-packages))
 
-  (services (remove (lambda (service)
-		   (eq? (service-kind service) gdm-service-type))
-		   %desktop-services))
- 
+  (services (append
+	      (modify-services %desktop-services
+			      (delete gdm-service-type))
+              ;; Configure swaylock as a setuid program
+              (service screen-locker-service-type
+                        (screen-locker-configuration
+                         (name "swaylock")
+                         (program (file-append swaylock "/bin/swaylock"))
+                         (using-pam? #t)
+                         (using-setuid? #f)))
+			      ))
+
+
   (name-service-switch %mdns-host-lookup-nss))