Getting Guix to shutdown my laptop properly with Sway and no DE

[danclm]

Hello everyone!

My T420 with Guix (no DE, only SDDM + Elogind + Sway) hangs during shutdown 
after running loginctl poweroff/reboot or /sbin/shutdown /sbin/reboot. It just 
sits there and only resolution is hard poweroff. It happens often.

Is there something that I'm missing in my system.scm?

```
;; My Guix config with the SwayWM 

(use-modules
  (gnu) (gnu system nss) (gnu system setuid))
(use-service-modules
  dbus desktop networking sddm sound ssh)
(use-package-modules
  certs              
  compression        
  disk               
  emacs              
  finance            
  fonts           
  fontutils          
  freedesktop        
  glib              
  games              
  gnome              
  gnupg              
  gnuzilla          
  gtk                
  haskell-xyz      
  image             
  libreoffice        
  linux
  package-management 
  password-utils    
  pulseaudio         
  rsync              
  ruby               
  ssh                
  terminals          
  tex                
  texinfo           
  version-control   
  wm)                

(operating-system
(host-name "t420")
(timezone "Europe/Rome")
(locale "en_US.utf8")

  ;; Keyboard layout.
  (keyboard-layout (keyboard-layout "us"))

  ;; Bootloader
  (bootloader (bootloader-configuration
               (bootloader grub-bootloader)
       (terminal-outputs '(console))
               (targets (list "/dev/sda"))
               (keyboard-layout keyboard-layout)))

  ;; Specify a mapped device for the encrypted root partition.
  ;; The UUID is that returned by 'cryptsetup luksUUID'.
  (mapped-devices
   (list (mapped-device
          (source (uuid "8022876e-e0cc-4ec5-8363-0f07c590cdbc"))
          (targets (list "guix-root"))
          (type luks-device-mapping))))

  (file-systems
   (append
    (list (file-system
           (device (file-system-label "guix-root"))
           (mount-point "/")
           (type "ext4")
           (dependencies mapped-devices)))
         %base-file-systems))

  (swap-devices (list
(swap-space (target "/swapfile"))))

  ;; Define users and groups.
  (users
   (cons (user-account
          (name "dani")
          (comment "")
          (group "users")
          (home-directory "/home/dani")
          (supplementary-groups '("wheel" "netdev"
                                  "audio" "video" "input")))
         %base-user-accounts))

  ;; Sudoers
  (sudoers-file
   (plain-file "sudoers" "\
%root ALL=(ALL) ALL
%wheel ALL=(ALL) ALL
%wheel ALL=(ALL) NOPASSWD: /run/current-system/profile/sbin/reboot\n"))
    
  ;; This is where we specify system-wide packages.
  (packages
   (append
    (list
     adwaita-icon-theme
     alacritty
     at-spi2-core
     dbus
     emacs
     font-awesome
     fontconfig
     font-dejavu
     font-gnu-unifont
     fzf
     git
     gnupg
     grim
     gtypist
     icecat
     keepassxc
     ledger
     libreoffice
     nss-certs
     openssh-sans-x
     pandoc
     parted
     pass-otp
     password-store
     pavucontrol
     pinentry
     pulseaudio
     rsync
     ruby-asciidoctor
     slurp
     stow
     sway
     swayidle
     swaylock-effects
     texinfo
     texlive-base
     unzip
     waybar
     xdg-utils
     zip)
    %base-packages))

  ;; Some programs need to run with “root” privileges, even when they are 
launched by unprivileged users
  (setuid-programs (cons*
    (setuid-program
                     (program
      (file-append swaylock-effects "/bin/swaylock")))
                    %setuid-programs))
  
  ;; Services
  (services
   (cons*
    (service alsa-service-type
     (alsa-configuration
      (pulseaudio? #t)))
    (service dbus-root-service-type)
    (service elogind-service-type)
    (service openssh-service-type
     (openssh-configuration
              (openssh openssh-sans-x)
              (port-number 22)
              (password-authentication? #f)
      (permit-root-login 'prohibit-password)
              (authorized-keys
               `(("dani" ,(local-file "/home/dani/.ssh/authorized_keys"))))))
    (service polkit-service-type)
    (service sddm-service-type
       (sddm-configuration
  (auto-login-user "dani")
  (display-server "wayland")))
    ;; Static networking for one NIC, IPv4-only.
    (service static-networking-service-type
             (list (static-networking
                    (addresses
                     (list (network-address
                            (device "wlp1s0")
                            (value "192.168.1.200/24"))))
                    (routes
                     (list (network-route
                            (destination "default")
                            (gateway "192.168.1.1"))))
                    (name-servers '("1.1.1.1" "1.0.0.1")))))
    (service wpa-supplicant-service-type
     (wpa-supplicant-configuration
      (config-file "/etc/wpa-supplicant/wpa-supplicant.conf")
      (interface "wlp1s0")))    
    %base-services))

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss))
```

Thank you in advance,

Greetings



--