From 74a7c21271f34cb70ba7ad37908347d30e1e61f7 Mon Sep 17 00:00:00 2001
From: Simon Parri <simonparri@ganzeria.com>
Date: Sat, 22 Nov 2025 12:01:07 -0600
Subject: Emacs/Mobile-Device: Implement `suspend' command

---
 common/.emacs.d/init.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el
index 51dd64f..ed3b77f 100644
--- a/common/.emacs.d/init.el
+++ b/common/.emacs.d/init.el
@@ -4033,6 +4033,10 @@ instead."
     (interactive)
     (onboard--call-method "Show"))
 
+  (defun suspend ()
+    (interactive)
+    (spawn-shell-cmd "systemctl suspend"))
+
   (defvar-keymap mobile-device-mode-map
     "<XF86PowerOff> <XF86PowerOff>" 'onboard-toggle
     "<XF86PowerOff> <XF86AudioRaiseVolume>" 'mobile-device-volume-mode
-- 
cgit v1.2.3