# wlgreet-lowered.scm -rw-r--r-- 521 bytes View raw
                                                                                
1
2
(begin (use-modules (ice-9 match)) (let* ((username (getenv "USER")) (useruid (number->string (passwd:uid (getpwuid username))))) (setenv "XDG_SESSION_TYPE" "wayland") (setenv "XDG_RUNTIME_DIR" (string-append "/run/user/" useruid))) (for-each (match-lambda ((name . val) (setenv name val))) extra-env) (execl "/gnu/store/fbrmcg830kprsx9hbwzk3pn5gp3fh7vd-wlgreet-0.4/bin/wlgreet" "/gnu/store/fbrmcg830kprsx9hbwzk3pn5gp3fh7vd-wlgreet-0.4/bin/wlgreet" "--config" "/gnu/store/76ypx1nhxdb1cs33jysdazkf0haz79xb-wlgreet.toml"))