2 files changed, 25 insertions(+), 1 deletions(-)

M config.scm
M home/home-configuration.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

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