From 05fc56556acf92453c95813feba90849c267e2bb Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Fri, 18 Dec 2020 17:03:23 +0100
Subject: [PATCH] config/guix/system/laptop-mimimi: Spawn 2 Slim and
 auto-connect in one.

---
 .config/guix/system/laptop-mimimi.scm | 32 +++++++++++++++++++--------
 1 file changed, 23 insertions(+), 9 deletions(-)

diff --git a/.config/guix/system/laptop-mimimi.scm b/.config/guix/system/laptop-mimimi.scm
index 4a7ed672..cb825d33 100644
--- a/.config/guix/system/laptop-mimimi.scm
+++ b/.config/guix/system/laptop-mimimi.scm
@@ -18,6 +18,7 @@
  xorg)
 
 (use-package-modules
+ emacs-xyz                              ; For exwm config.
  gnome                                  ; gnome-minimal
  linux                                  ; For custom kernel.
  ;; For Xorg modules:
@@ -71,19 +72,32 @@ EndSection")
                   "ACTION==\"add\", SUBSYSTEM==\"backlight\", "
                   "RUN+=\"/run/current-system/profile/bin/chmod g+w /sys/class/backlight/%k/brightness\"")))
 
-(define %mimimi/services
-  (cons*
-   (service slim-service-type
-            (slim-configuration
-             (display ":0")
-             (vt "vt7")
-             (xorg-configuration
-              (xorg-configuration
+(define %mimimi/xorg-minimal-config
+  (xorg-configuration
                (modules (list xf86-video-vesa
                               xf86-video-intel
                               ;; xf86-video-nouveau ; Make sure this is on if the 'nouveau' kernel module is loaded.
                               xf86-input-libinput))
-               (extra-config (list %mimimi/xorg-touchpad))))))
+               (extra-config (list %mimimi/xorg-touchpad))))
+
+(define %mimimi/services
+  (cons*
+   ;; TODO: How can I choose which display to focus by default?  Order seems not
+   ;; to matter.
+   (service slim-service-type
+            (slim-configuration
+             (display ":0")
+             (vt "vt7")
+             (xorg-configuration %mimimi/xorg-minimal-config)))
+   (service slim-service-type
+            (slim-configuration
+             (display ":1")
+             (vt "vt8")
+             (auto-login? #t) ;
+             (default-user "ambrevar")
+             (auto-login-session (file-append emacs-exwm-no-x-toolkit
+                                              "/bin/exwm"))
+             (xorg-configuration %mimimi/xorg-minimal-config)))
    (modify-services
        (remove (lambda (service)
                  (eq? (service-kind service) gdm-service-type))