Update desktop system services

1 files 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)