EXWM: Bind s-Z to suspend

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

@@ -153,6 +153,11 @@
   (define-key desktop-environment-mode-map (kbd "s-l") #'windmove-right)
   (desktop-environment-mode))
 
+(defun ambrevar/suspend-to-sleep ()
+  (interactive)
+  (call-process "loginctl" nil nil nil "suspend"))
+(exwm-input-set-key (kbd "s-Z") #'ambrevar/suspend-to-sleep)
+
 ;;; Volume control
 (when (require 'pulseaudio-control nil t)
   (exwm-input-set-key (kbd "s-<kp-subtract>") #'pulseaudio-control-decrease-volume)