From b622b7465ad2f4049c1fd09df225d10ef0150fe5 Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Sat, 7 Dec 2019 01:14:43 -0500
Subject: [PATCH] Add lock command

---
 stumpwm/.stumpwm.d/init.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index cdc8982..af7407b 100644
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@@ -11,6 +11,9 @@
 (defcommand firefox () ()
   (run-or-raise "firefox" '(:class "firefox")))
 
+(defcommand lock () ()
+  (run-shell-command "i3lockmore --image-fill ~/Pictures/space-background.png -n"))
+
 ;; Keybindings
 (define-key stumpwm:*root-map* (kbd "C-f") "firefox")
 (define-key stumpwm:*root-map* (kbd "d") "exec rofi -show run")