From 7dfbd2e4bc893f7527f9cc4ebf9c474ddfb0dc65 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 22 Apr 2022 16:22:30 -0600
Subject: Some new styling and better logging capabilites

---
 src/Rahm/Desktop/Keys.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'src/Rahm/Desktop/Keys.hs')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index c8abbf0..d0305b3 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -73,6 +73,9 @@ type ButtonsMap l = XConfig l -> Map (KeyMask, Button) (Window -> X ())
 spawnX :: String -> X ()
 spawnX = spawn
 
+safeSpawnX :: String -> [String] -> X ()
+safeSpawnX = safeSpawn
+
 noWindow :: b -> Window -> b
 noWindow = const
 
@@ -600,6 +603,17 @@ keymap = runKeys $ do
       doc "Toggle zoom on the current window." $
       sendMessage togglePop
 
+  bind xK_F8 $ do
+    justMod $ do
+      ll <- getLogLevel
+      let next = if minBound == ll then maxBound else pred ll
+
+      safeSpawnX "notify-send"
+        ["-t", "2000", printf "LogLevel set to %s" (show next)]
+      setLogLevel next
+      logs next "LogLevel set to %s." (show next)
+      
+
   bind xF86XK_Calculator $ do
     noMod $ spawnX $ terminal config ++ " -t Floating\\ Term -e /usr/bin/env python3"
 
-- 
cgit