From b146cf9bccd6f491120230e46dbbe2b5acab6b25 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 15 Jul 2023 01:30:43 -0700
Subject: Add screenshot bindings to stumpwm

---
 oni/home/services/stumpwm/config | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'oni/home/services/stumpwm/config')

diff --git a/oni/home/services/stumpwm/config b/oni/home/services/stumpwm/config
index ad57226..2bfa08c 100644
--- a/oni/home/services/stumpwm/config
+++ b/oni/home/services/stumpwm/config
@@ -141,6 +141,21 @@ after it has been unlocked."
 
 (swm-gaps:toggle-gaps-on)
 
+;;; Screenshots
+
+(defvar *screenshot-bindings*
+  (let ((m (make-sparse-keymap)))
+    (define-key m (kbd "s") "exec flameshot gui")
+    (define-key m (kbd "c") "exec flameshot screen")
+    (define-key m (kbd "f") "exec flameshot full")
+    m))
+
+(defvar *user-bindings*
+  (let ((m (make-sparse-keymap)))
+    (define-key m (kbd "s") '*screenshot-bindings*)))
+
+(define-key *top-map* (kbd "s-c") '*user-bindings*)
+
 (restore-from-file "default")
 
 (define-frame-preference "Default"
-- 
cgit v1.2.3-54-g00ecf