From 1347f5061c4a4554d30fa75afbeca3d86c19ed77 Mon Sep 17 00:00:00 2001 From: Nguyễn Gia Phong Date: Wed, 26 Jul 2023 19:00:18 +0900 Subject: Update desktop system services --- guix/system.scm | 38 +++++++++++++++++++++++++------------- 1 file changed, 25 insertions(+), 13 deletions(-) diff --git a/guix/system.scm b/guix/system.scm index 909b25c..f8c329d 100644 --- a/guix/system.scm +++ b/guix/system.scm @@ -1,7 +1,8 @@ ;; This is an operating system configuration generated ;; by the graphical installer. -(use-modules (gnu)) +(use-modules (gnu) + (gnu system setuid)) (use-service-modules avahi desktop dns networking nix sound ssh xorg) (operating-system @@ -12,26 +13,36 @@ (host-name "guix") (users (cons* (user-account (name "cnx") - (comment "McSinyx") (group "users") (home-directory "/home/cnx") - (supplementary-groups '("wheel" "netdev" "audio" "video"))) + (supplementary-groups '("audio" "netdev" "video" "wheel"))) %base-user-accounts)) (packages (append (specifications->packages - '("bash-completion" "curl" "fd" "file" "htop" - "nss-certs" "ranger" "ripgrep" "rsync" "vim-full")) + '("bash-completion" "curl" "dconf" "fd" "file" "htop" + "ibus" "ibus-table" "ibus-table-others" "ibus-libhangul" "nss-certs" + "ranger" "ripgrep" "rsync" "udevil" "vim-full" "virt-manager")) %base-packages)) + (setuid-programs + (cons* + (setuid-program + (program (file-append (specification->package "udevil") + "/bin/udevil"))) + %setuid-programs)) (services (cons* (service openssh-service-type (openssh-configuration (password-authentication? #f))) (service xorg-server-service-type) (set-xorg-configuration - (xorg-configuration - (keyboard-layout keyboard-layout))) - (screen-locker-service (specification->package "slock")) + (xorg-configuration (keyboard-layout keyboard-layout))) + (service dconf-service-type) + (service screen-locker-service-type + (screen-locker-configuration + (name "slock") + (program (file-append (specification->package "slock") + "/bin/slock")))) polkit-wheel-service (service nftables-service-type (nftables-configuration @@ -46,13 +57,14 @@ (list (network-route (destination "default") (gateway "192.168.0.1")))) - (name-servers ; ns{4,5}.ca.us.dns.opennic.glue - '("147.182.243.49" "137.184.12.79"))))) + (name-servers + '("147.182.243.49" ; ns4.ca.us.dns.opennic.glue + "168.138.8.38"))))) ; ns4.au.dns.opennic.glue (service avahi-service-type) - (udisks-service) - (elogind-service) + (service udisks-service-type) + (service elogind-service-type) (service ntp-service-type) - x11-socket-directory-service + (service x11-socket-directory-service-type) (service pulseaudio-service-type) (service alsa-service-type) (service nix-service-type) -- cgit 1.4.1