diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2021-11-22 23:29:16 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | 45d817f69e5b0f47ef5104df12932dabfbef750d (patch) | |
| tree | 52973b297934e064a0b9a6b00acfe3437751319b /src/Main.hs | |
| parent | 4a225d2819cb5c891a36694bb8552337b36beae0 (diff) | |
| download | rde-45d817f69e5b0f47ef5104df12932dabfbef750d.tar.gz rde-45d817f69e5b0f47ef5104df12932dabfbef750d.tar.bz2 rde-45d817f69e5b0f47ef5104df12932dabfbef750d.zip | |
Add some support of the XF86 keys.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/Main.hs b/src/Main.hs index 94fb5a7..2b9baf3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -3,7 +3,7 @@ import XMonad import XMonad.Hooks.ManageDocks (docks) import System.Directory (getHomeDirectory) import System.FilePath ((</>)) -import XMonad.Hooks.EwmhDesktops (ewmhDesktopsStartup) +import XMonad.Hooks.EwmhDesktops (ewmh) import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) import XMonad.Layout.Fullscreen (fullscreenEventHook) import System.Environment (setEnv) @@ -16,6 +16,7 @@ import qualified XMonad as X import qualified XMonad.StackSet as S main = do + -- Execute some commands. homeDir <- getHomeDirectory let fp = homeDir </> ".xmonad" </> "startup" @@ -25,7 +26,7 @@ main = do xmobar <- spawnXMobar (=<<) X.xmonad $ - applyKeys $ docks $ def + applyKeys $ ewmh $ docks $ def { terminal = "alacritty" , modMask = mod3Mask , borderWidth = 2 @@ -33,9 +34,7 @@ main = do , focusedBorderColor = "#ff6c00" , normalBorderColor = "#404040" , layoutHook = myLayout - , startupHook = do - ewmhDesktopsStartup - spawn fp + , startupHook = spawn fp , manageHook = composeAll [ isFullscreen --> doFullFloat , className =? "Tilda" --> doFloat @@ -43,6 +42,8 @@ main = do , className =? "MPlayer" --> doFloat , title =? "Event Tester" --> doFloat , title =? "Floating Term" --> doFloat + , title =? "xmessage" --> doFloat + , title =? "gxmessage" --> doFloat , className =? "mpv" --> doFloat , className =? "gnubby_ssh_prompt" --> doFloat ] |