diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-22 16:22:30 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-04-22 16:22:30 -0600 |
| commit | 7dfbd2e4bc893f7527f9cc4ebf9c474ddfb0dc65 (patch) | |
| tree | 1392203ae97a9a57ee4fac29807820299bd48341 /src/Rahm/Desktop/Keys.hs | |
| parent | fd7831aba6f1698883906258a0a1966880427d94 (diff) | |
| download | rde-7dfbd2e4bc893f7527f9cc4ebf9c474ddfb0dc65.tar.gz rde-7dfbd2e4bc893f7527f9cc4ebf9c474ddfb0dc65.tar.bz2 rde-7dfbd2e4bc893f7527f9cc4ebf9c474ddfb0dc65.zip | |
Some new styling and better logging capabilites
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 14 |
1 files changed, 14 insertions, 0 deletions
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" |