From 8ff0898b224603d23d24d4b6d64ceb943cb7ed8f Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@protonmail.com>
Date: Sun, 1 Sep 2024 17:25:06 +0200
Subject: [PATCH] feat: add autologin and auto launch dwl

---
 config.scm                  |  8 +++++++-
 home/home-configuration.scm | 18 ++++++++++++++++++
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/config.scm b/config.scm
index 488aaa9..2a35000 100644
--- a/config.scm
+++ b/config.scm
@@ -36,7 +36,7 @@
  ;; The UUID is that returned by 'cryptsetup luksUUID'.
  (mapped-devices
   (list (mapped-device
-	       (source (uuid "55787ccb-decb-46b6-a190-6597dff68c68"))
+         (source (uuid "55787ccb-decb-46b6-a190-6597dff68c68"))
          (target "cryptedguix")
          (type luks-device-mapping))))
 
@@ -135,6 +135,12 @@
                              (allowed-ips '("192.168.32.0/24"))))))))
           (modify-services
            %desktop-services
+           (mingetty-service-type config => (if (string=? (mingetty-configuration-tty config) "tty1")
+                                                (mingetty-configuration
+                                                 (inherit config)
+                                                 (auto-login "ruther")
+                                                 (login-pause? #t))
+                                                config))
            (elogind-service-type config => (elogind-configuration
                                             (handle-lid-switch-external-power 'ignore)))
            (pulseaudio-service-type config => (pulseaudio-configuration
diff --git a/home/home-configuration.scm b/home/home-configuration.scm
index a71d39d..b13aa32 100644
--- a/home/home-configuration.scm
+++ b/home/home-configuration.scm
@@ -9,6 +9,7 @@
              (gnu home)
              (gnu packages)
              (gnu packages gnupg)
+             (gnu packages base)
              (gnu packages emacs)
              (gnu packages shellutils)
              (gnu packages wm)
@@ -144,6 +145,23 @@
                        (specification->package "browserpass-native")
                        "/lib/browserpass/hosts/firefox/com.github.browserpass.native.json"))))
 
+         (simple-service
+          'start-dwl-on-tty
+          home-shell-profile-service-type
+          (list
+           (mixed-text-file "start-dwl-tty"
+            #~(format
+               #f
+               "[ $(tty) = /dev/tty~a ] && \\
+~a -p \"$(~a ~a)\" && \\
+exec ~a ~a"
+               1
+               #$(file-append coreutils "/bin/mkdir")
+               #$(file-append coreutils "/bin/dirname")
+               "$XDG_STATE_HOME/log/dwl.log"
+               #$(start-dwl #:dwl dwl-mine #:waybar waybar-mine)
+               #$(string-join (list ">>" "$XDG_STATE_HOME/log/dwl.log" "2>&1") " ")))))
+
          (simple-service 'default-fonts
                          home-fontconfig-service-type
                          (list
-- 
2.48.1