half working ly displayHEADmain

1 files changed, 32 insertions, 0 deletions

diff --git a/modules/ryan-config/base-system.scm b/modules/ryan-config/base-system.scm
index e1cf87b..5868ff9 100644
--- a/modules/ryan-config/base-system.scm
+++ b/modules/ryan-config/base-system.scm
@@ -18,6 +18,7 @@
                 #:use-module (ryan-packages wm)
                 #:use-module (ryan-packages virtualization)
                 #:use-module (ryan-packages linux)
+                #:use-module (ryan-packages login)
                 #:use-module (ryan-packages networking)
                 #:use-module (ryan-packages package-management)
                 #:use-module (rosenthal services networking)
@@ -205,6 +206,36 @@
                                          (list
                                            (pam-entry (control "include")
                                                       (module "login")))))))
+                   (simple-service 'ly-pam pam-root-service-type
+                                   (list
+                                     (pam-service
+                                       (name "ly")
+                                       (account
+                                         (list
+                                           (pam-entry (control "required")
+                                                      (module "pam_unix.so"))))
+                                       (auth
+                                         (list
+                                           (pam-entry (control "required")
+                                                      (module "pam_unix.so"))))
+                                       (password
+                                         (list
+                                           (pam-entry (control "required")
+                                                      (module "pam_unix.so")
+                                                      (arguments (list "sha512" "shadow")))))
+                                       (session
+                                         (list
+                                           (pam-entry (control "required")
+                                                      (module "/gnu/store/4lhhf88iz9pdr624z5hnq2avlk1ny4ga-elogind-255.17/lib/security/pam_elogind.so")
+                                                      (arguments (list "debug=yes")))
+                                           (pam-entry (control "required")
+                                                      (module "pam_env.so"))
+                                           (pam-entry (control "required")
+                                                      (module "pam_unix.so")))))))
+                   (service mingetty-service-type
+                           (mingetty-configuration
+                             (tty "tty7")
+                             (login-program #~(string-append #$ly "/bin/ly"))))
                    (service libvirt-service-type
                             (libvirt-configuration
                               (libvirt libvirt-ovmf)
@@ -217,6 +248,7 @@
                    ;           (using-pam? #t)))
                    (simple-service 'spice-polkit polkit-service-type (list spice-gtk))
                    (simple-service 'hwdb-creation etc-service-type (list `("udev-here-oneoneone" ,(plain-file "issue" "test\n"))))
+                   (simple-service 'ly-config etc-service-type (list `("ly/config.ini" , (local-file "/home/ryan/lyconfig.ini"))))
                    (service bluetooth-service-type
                             (bluetooth-configuration
                               (bluez bluez-ryan)