From 31df902f4f5c28c4b5d4cd46a2d5385f14aaff02 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Mon, 24 Jun 2019 10:07:25 +0200 Subject: [PATCH] EXWM: Avoid going to suspend twice too often. --- .emacs.d/lisp/init-exwm.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/.emacs.d/lisp/init-exwm.el b/.emacs.d/lisp/init-exwm.el index c17f3a72..23719f74 100644 --- a/.emacs.d/lisp/init-exwm.el +++ b/.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