public
Last active

A diff of my xmonad.hs with the default one

  • Download Gist
xmonad.diff
Diff
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
15a16,21
> import XMonad.Hooks.ManageDocks
> import XMonad.Hooks.EwmhDesktops
>
> import XMonad.Layout.Maximize
>
>
19c25
< myTerminal = "xterm"
---
> myTerminal = "urxvt"
30c36
< myModMask = mod1Mask
---
> myModMask = mod4Mask
56c62
< myWorkspaces = ["1","2","3","4","5","6","7","8","9"]
---
> myWorkspaces = ["web","dev","3","4","5","6","7","8","9"]
69c75
< [ ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
---
> [ ((modMask, xK_Return), spawn $ XMonad.terminal conf)
72c78,81
< , ((modMask, xK_p ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"")
---
> , ((modMask, xK_d ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"")
>
> -- launch xfce4-launcher
> , ((modMask, xK_p ), spawn "xfrun4")
75c84
< , ((modMask .|. shiftMask, xK_p ), spawn "gmrun")
---
> , ((modMask .|. shiftMask, xK_p ), spawn "xfce4-appfinder")
99c108,111
< , ((modMask, xK_m ), windows W.focusMaster )
---
> , ((modMask .|. shiftMask, xK_m ), windows W.focusMaster )
>
> -- Maximize the focused window temporarily
> , ((modMask, xK_m ), withFocused $ sendMessage . maximizeRestore)
102c114
< , ((modMask, xK_Return), windows W.swapMaster)
---
> , ((modMask .|. shiftMask, xK_Return), windows W.swapMaster)
129c141,142
< , ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
---
> --, ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
> , ((modMask .|. shiftMask, xK_q ), spawn "xfce4-session-logout")
132a146,148
>
> -- to hide/unhide the panel
> , ((modMask , xK_b), sendMessage ToggleStruts)
182c198
< myLayout = tiled ||| Mirror tiled ||| Full
---
> myLayout = maximize (tiled) ||| Mirror tiled ||| Full
195a212
>
213a231,232
> , className =? "Xfce4-appfinder" --> doFloat
> , className =? "Xfrun4" --> doFloat
232c251
< myLogHook = return ()
---
> -- myLogHook = return ()
273,275c292,294
< layoutHook = myLayout,
< manageHook = myManageHook,
< logHook = myLogHook,
---
> layoutHook = ewmhDesktopsLayout $ avoidStruts $ myLayout,
> manageHook = manageDocks <+> myManageHook,
>

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.