EXWM: Avoid going to suspend twice too often.

.emacs.d/lisp/init-exwm.el

@@ -165,7 +165,12 @@
 
 (defun ambrevar/suspend-to-sleep ()
   (interactive)
-  (call-process "loginctl" nil nil nil "suspend"))
+  (recentf-save-list)
+  (call-process "dbus-send" nil nil nil
+                "--system" "--print-reply" "--dest=org.freedesktop.login1"
+                "/org/freedesktop/login1"
+                "org.freedesktop.login1.Manager.Suspend"
+                "boolean:true"))
 (exwm-input-set-key (kbd "s-Z") #'ambrevar/suspend-to-sleep)
 
 ;;; Volume control