[xmonad] recompile, dzen and togglestruts

[julien steinhauser]

On Mon, Feb 22, 2010 at 11:12:26AM +0100, julien steinhauser wrote:
> On Mon, Feb 22, 2010 at 03:34:54AM +0100, julien steinhauser wrote:
> > Hello,
> > 
> > On a fresh XMonad setup, I meet an issue and I'd like wise advices,
> > wether I'm doing things correctly or not.
> > 
> > I use two dzen, one for views, layout and title on the left
> > and one for other things on right.
> > 
> > The one on left is launched from within xmonad.hs via spawnpipe
> > the one on right is lauched from my .xinitrc.
> > 
> > If i make a change in xmonad.hs and want to recompile it,
> > it compiles silently (no output with xmonad --recompile).
> > 
> > All clients which were already here before the recompile
> >  won't cover the left dzen anymore after the recompile even
> > with the mod-b shortcut (dzen stays on top)
> > but they still cover the dzen on the right. 
> > 
> > All clients launched after the recompile behave the normal way,
> > until I recompile ...
> > 
> > My xmonad version :
> > ~$ xmonad --version
> > xmonad 0.9.1
> > (Source package xmonad and xmonad-contrib from Debian Sid)
> > 
> > I attach my xmonad.hs
> > 
> > I hope this message wasn't too confused.
> > 
> > Julien 
> 
> 
> > _______________________________________________
> > xmonad mailing list
> > xmonad at haskell.org
> > http://www.haskell.org/mailman/listinfo/xmonad
> 
> Actually, my xmonad.hs is quite small, I reattached it not gunzipped
> for convenience.
> Sorry for double posting.
> 
> Julien

> import XMonad
> import Data.Monoid
> import System.Exit
> 
> import XMonad.Actions.DwmPromote
> import XMonad.Actions.CycleWS
> import XMonad.Actions.RotSlaves
> 
> import XMonad.Hooks.ManageDocks
> import XMonad.Hooks.DynamicLog
> 
> import XMonad.Layout.NoBorders
> import XMonad.Layout.TwoPane
> 
> import qualified XMonad.StackSet as W
> import qualified Data.Map        as M
> 
> import XMonad.Util.Run
> 
> myTerminal      = "urxvtc"
>  
> myFocusFollowsMouse :: Bool
> myFocusFollowsMouse = True
>  
> myBorderWidth   = 1
>  
> myModMask       = mod4Mask
>  
> myWorkspaces    = ["1","2","3","4"]
>  
> myNormalBorderColor  = "#000000"
> myFocusedBorderColor = "#00ff00"
> 
> myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
>  
>     [ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
>     , ((modm,               xK_p     ), spawn "exe=`dmenu_path | xft_dmenu` && eval \"exec $exe\"")
>     , ((modm,               xK_s     ), spawn "spawnsurf")
>     , ((modm,               xK_x     ), spawn "actions")
>     , ((modm,               xK_r     ), spawn "racine")
>     , ((modm,               xK_a     ), spawn "setxkbmap fr")
>     , ((modm,               xK_q     ), spawn "setxkbmap us")
>     , ((modm,               xK_l     ), spawn "cd `cat /tmp/lastdir` && exec scd")
>     , ((modm,               xK_exclam), spawn "scd")
>     , ((modm,               xK_Insert), spawn "urxvtc -e vi ~/.xmonad/xmonad.hs")
>     , ((modm,               xK_m     ), spawn "urxvtc -e mutt")
>     , ((modm,               xK_F1    ), spawn "dmenu_man")
>     , ((modm .|. shiftMask, xK_p     ), spawn "sdmenu_run")
>     , ((modm,               xK_w     ), kill)
>  
>     , ((modm,               xK_space ), sendMessage NextLayout)
>     , ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
>     , ((modm,               xK_n     ), refresh)
>     , ((modm,               xK_Tab   ), windows W.focusDown)
>     , ((modm .|. shiftMask, xK_Tab   ), rotSlavesUp) 
>     , ((modm,               0x13bd   ), windows W.focusUp  )
>  
>     , ((modm,               xK_Return), dwmpromote )
>     , ((modm .|. shiftMask, xK_j     ), windows W.swapDown  )
>     , ((modm .|. shiftMask, xK_k     ), windows W.swapUp    )
>     , ((modm,               xK_Left  ), sendMessage Shrink)
>     , ((modm,               xK_Right ), sendMessage Expand)
>     , ((modm .|. shiftMask, xK_t     ), withFocused $ windows . W.sink)
>     , ((modm              , xK_comma ), sendMessage (IncMasterN 1))
>     , ((modm              , xK_semicolon ), sendMessage (IncMasterN (-1)))
>     , ((modm,               xK_Down),  nextWS)
>     , ((modm,               xK_Up),    prevWS)
>     , ((modm .|. shiftMask, xK_Down),  shiftToNext)
>     , ((modm .|. shiftMask, xK_Up),    shiftToPrev) 
>     , ((modm .|. controlMask, xK_Down), shiftToNext >> nextWS)
>     , ((modm .|. controlMask, xK_Up),   shiftToPrev >> prevWS)
>     , ((modm              , xK_b     ), sendMessage ToggleStruts)
>     , ((modm .|. shiftMask, xK_q     ), io (exitWith ExitSuccess))
>     , ((modm .|. controlMask, xK_q     ), spawn "xmonad --recompile; xmonad --restart")
>     ]
>     ++
>  
>     [((m .|. modm, k), windows $ f i)
>         | (i, k) <- zip (XMonad.workspaces conf) [0x26,0xe9,0x22,0x27]
>         , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)
>         , (\i -> W.greedyView i . W.shift i, controlMask)]]
>     ++
>  
>     [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
>         | (key, sc) <- zip [xK_z, xK_e] [0..]
>         , (f, m) <- [(W.view, 0), (W.shift, shiftMask)
>         , (\i -> W.view i . W.shift i, controlMask)]]
>  
> 
> myLayout =  smartBorders $ avoidStruts (tiled ||| Mirror tiled ||| TwoPane (3/100) (31/50) ||| Full)
>   where
>     tiled   = Tall nmaster delta ratio
>     nmaster = 1
>     ratio   = 31/50
>     delta   = 3/100
> 
> myManageHook = composeAll
>     [ className =? "MPlayer"        --> doFloat
>     , className =? "Gimp"           --> doFloat
>     , resource  =? "desktop_window" --> doIgnore
>     ] 
> 
> myEventHook = mempty
>  
> myStartupHook = return ()
> 
> main = do
>     h <- spawnPipe "dzen2 -w 1240 -ta l"
>     xmonad $ defaultConfig {
>         terminal           = myTerminal,
>         focusFollowsMouse  = myFocusFollowsMouse,
>         borderWidth        = myBorderWidth,
>         modMask            = myModMask,
>         workspaces         = myWorkspaces,
>         normalBorderColor  = myNormalBorderColor,
>         focusedBorderColor = myFocusedBorderColor,
>         keys               = myKeys,
>         layoutHook         = myLayout,
>         manageHook         = myManageHook <+> manageDocks,
>         logHook            = dynamicLogWithPP $ dzenPP { ppOutput = hPutStrLn h },
>         handleEventHook    = myEventHook,
>         startupHook        = myStartupHook
>     }

> _______________________________________________
> xmonad mailing list
> xmonad at haskell.org
> http://www.haskell.org/mailman/listinfo/xmonad

I solved it, I had to start the dzen which shows my workspaces,
 layout and title from my .xinitrc as well, like my other dzen.