|
|
|
@ -16,7 +16,6 @@ import XMonad.Layout.Tabbed |
|
|
|
|
import XMonad.Layout.Minimize(minimize) |
|
|
|
|
import XMonad.Layout.BoringWindows |
|
|
|
|
import XMonad.Layout.PerWorkspace |
|
|
|
|
import XMonad.Layout.Fullscreen(fullscreenSupport) |
|
|
|
|
import XMonad.Prompt |
|
|
|
|
import XMonad.Prompt.Ssh |
|
|
|
|
import System.IO |
|
|
|
@ -80,7 +79,6 @@ xmobarSwitchWs wsName = xmobarActionWrapper action wsName |
|
|
|
|
main = do |
|
|
|
|
xmobar_proc <- spawnPipe "xmobar" |
|
|
|
|
xmonad |
|
|
|
|
$ fullscreenSupport |
|
|
|
|
$ baseConfig |
|
|
|
|
{ manageHook = (scratchpadManageHook $ W.RationalRect 0.0 0.0 1.0 0.5) <+> workspaceManageHook <+> manageDocks |
|
|
|
|
, logHook = dynamicLogWithPP xmobarPP |
|
|
|
|