diff options
| author | EuAndreh <eu@euandre.org> | 2023-02-27 17:25:19 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-02-27 17:25:19 -0300 |
| commit | 38c7516da85e93726976224b6dca8f84c5c1eabd (patch) | |
| tree | c5b8289a7f2708fe4aa4bb8f57450f2caf3d8d05 | |
| parent | Makefile: Also check if private is out of sync (diff) | |
| download | dotfiles-38c7516da85e93726976224b6dca8f84c5c1eabd.tar.gz dotfiles-38c7516da85e93726976224b6dca8f84c5c1eabd.tar.xz | |
etc/xmonad/xmonad.hs: Inline definitions of "myTerminal" and "dbg"
| -rw-r--r-- | etc/xmonad/xmonad.hs | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/etc/xmonad/xmonad.hs b/etc/xmonad/xmonad.hs index 4f14952..0a061b2 100644 --- a/etc/xmonad/xmonad.hs +++ b/etc/xmonad/xmonad.hs @@ -21,16 +21,10 @@ main = do -- , handleEventHook = handleEventHook def <+> docksEventHook , layoutHook = myLayoutHook , modMask = mod4Mask -- User Super instead of Alt - , terminal = myTerminal + , terminal = "st" , startupHook = myStartup } `additionalKeysP` myKeyPBindings -myTerminal :: String -myTerminal = "st" - -dbg :: String -dbg = "xmessage 'xmonad EuAndreh debug'" - myKeyPBindings :: [(String, X ())] myKeyPBindings = [ @@ -72,7 +66,7 @@ myKeyPBindings = -- Toggle appearence of xmobar -- https://stackoverflow.com/a/27646652 , ("M-f", sendMessage ToggleStruts) - , ("M-ç", spawn dbg) + , ("M-ç", spawn "xmessage 'xmonad EuAndreh debug'") -- Vertically resize, taken from: -- https://stackoverflow.com/questions/25857674/xmonad-vertical-resize-tile-window |