From 921b72bc87427a098fdf1d81a11a0072a3569056 Mon Sep 17 00:00:00 2001
From: josiah <me@jowj.net>
Date: Wed, 12 May 2021 11:26:00 -0500
Subject: [PATCH] setup scrot under stumpwm

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

diff --git a/.stumpwm.d/init.lisp b/.stumpwm.d/init.lisp
index 9d1bfcc..8cfb232 100644
--- a/.stumpwm.d/init.lisp
+++ b/.stumpwm.d/init.lisp
@@ -40,8 +40,13 @@
   "Start Emacs or switch to it, if it is already running."
   (run-shell-command "rofi -combi-modi window,drun,ssh -theme purple -font 'hack 10' -show combi"))
 
+(defcommand jlj/scrot () ()
+  "Run scrot!"
+  (run-shell-command "sleep 0.2 && scrot -s -e 'mv $f ~/Pictures/screenshots/'"))
+
 (define-key *root-map* (kbd "R") "restart-hard")
 (define-key *top-map* (kbd "M-SPC") "jlj/rofi")
+(define-key *top-map* (kbd "C-M-s-S") "jlj/scrot")
 
 ;; group management
 ;;;; note that this is still the hyper key, its just that shift + 1 = !, etc.