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@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@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.