OMS/tietokoneet
2
0
Fork 0
Code Issues Pull Requests Projects Activity

Vaihda automaattikirjautuminen salasanattomaan

Browse Source
This commit is contained in:
Saku Laesvuori 2026-08-16 08:18:17 +03:00
parent 25878fadc3
commit 0bc204d3f6
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
modules/oms/systems.scm
View File

@ -12,6 +12,7 @@
#:use-module (gnu services sysctl) #:use-module (gnu services sysctl)
#:use-module (gnu services vpn) #:use-module (gnu services vpn)
#:use-module (gnu services xorg) #:use-module (gnu services xorg)
#:use-module (gnu system pam)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (nongnu packages linux) #:use-module (nongnu packages linux)
#:use-module (nongnu system linux-initrd) #:use-module (nongnu system linux-initrd)
@ -37,8 +38,9 @@
(comment "Olarinmäen samoojat") (comment "Olarinmäen samoojat")
(group "users") (group "users")
(home-directory "/home/oms") (home-directory "/home/oms")
(supplementary-groups '("wheel" "netdev" "audio" "video"))) (supplementary-groups '("wheel" "netdev" "audio" "video" "passwordlesslogin")))
%base-user-accounts)) %base-user-accounts))
(groups (cons (user-group (name "passwordlesslogin")) %base-groups))
(services (services
(append (append
(list (service gnome-desktop-service-type) (list (service gnome-desktop-service-type)
@ -57,6 +59,24 @@
(cups-configuration (cups-configuration
(web-interface? #t) (web-interface? #t)
(extensions (list cups-filters epson-inkjet-printer-escpr)))) (extensions (list cups-filters epson-inkjet-printer-escpr))))
(simple-service 'passwordless-gdm-login pam-root-service-type
(list
(pam-extension
(transformer
(lambda (service)
(if (equal? (pam-service-name service)
"gdm-password")
(pam-service
(inherit service)
(auth
(cons (pam-entry
(control "sufficient")
(module "pam_succeed_if.so")
(arguments
'("user" "ingroup"
"passwordlesslogin")))
(pam-service-auth service))))
service))))))
(set-xorg-configuration (xorg-configuration (keyboard-layout keyboard-layout)))) (set-xorg-configuration (xorg-configuration (keyboard-layout keyboard-layout))))
(modify-services %desktop-services (modify-services %desktop-services
(guix-service-type config => (guix-service-type config =>
@ -69,12 +89,7 @@
(authorized-keys (authorized-keys
(append (list (channel-file "keys/guix/nonguix.pub") (append (list (channel-file "keys/guix/nonguix.pub")
(channel-file "keys/guix/saku-laesvuori-x-kone.pub")) (channel-file "keys/guix/saku-laesvuori-x-kone.pub"))
%default-authorized-guix-keys)))) %default-authorized-guix-keys)))))))
(gdm-service-type config =>
(gdm-configuration
(inherit config)
(auto-login? #t)
(default-user "oms"))))))
(bootloader (bootloader-configuration (bootloader (bootloader-configuration
(bootloader grub-efi-bootloader) (bootloader grub-efi-bootloader)
(targets (list "/boot/efi")) (targets (list "/boot/efi"))