Arch Linux

thinus

Member

Registered: 2011-01-17

Posts: 3

Xmonad gap around stalonetray.

Hello.
I was trying to set gap around stalonetray.
It was half succesful. I have gap on right side:
I want gap on down only. I don't know what to do for this...
This is my xmonad.hs(copied from github):

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig(additionalKeys)
import System.IO
import XMonad.Prompt.Shell
import XMonad.Prompt
import XMonad.Prompt.XMonad
import XMonad.Util.Run
import XMonad.Util.Dmenu
-- import XMonad.Util.Loggers
import XMonad.ManageHook
import qualified XMonad.StackSet as W
import XMonad.Prompt.AppendFile
import XMonad.Actions.DwmPromote
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.SetWMName
import XMonad.Actions.DynamicWorkspaces
import XMonad.Actions.CycleWS
import XMonad.Hooks.ManageHelpers (doCenterFloat)
import XMonad.Layout
import XMonad.Layout.Gaps
import XMonad.Layout.Tabbed
import XMonad.Layout.ResizableTile
import XMonad.Layout.WindowNavigation


modMask'    = mod4Mask    -- Rebind Mod(ALT) to Windows Key
terminal'   = "urxvt"
workspaces' = ["dev","www","doc"] ++ map show [4..7] ++ ["mov","im"]
layoutHook' = avoidStruts (windowNavigation (ResizableTall 1 (3/100) (1/2) []) ||| tabbed shrinkText defaultTheme ||| Full )

myManageHook = composeAll
    [
    className =? "Gimp"      --> doF (W.shift "dev")
    -- Browser
    , className =? "Chromium" --> doF (W.shift "dev") -- Chrome
    , className =? "Google-chrome" --> doF (W.shift "www") -- Firefox 3.5 On Arch
    , className =? "Firefox" --> doF (W.shift "www")
    , className =? "Gran Paradiso" --> doF (W.shift "www") -- Firefox On Arch
    , className =? "Opera" --> doF (W.shift "www")
    -- DOC
    , className =? "Evince" --> doF (W.shift "doc")
    -- MUSIC
    , className =? "Rhythmbox" --> doF (W.shift "mov")
    , className =? "Totem" --> doF (W.shift "mov")
    , className =? "MPlayer" --> doF (W.shift "mov")
    -- IM
    , className =? "Pidgin" --> doF (W.shift "im")
    , className =? "Skype" --> doF (W.shift "im")
    , className =? "Xchat" --> doF (W.shift "im")
    , className =? "stalonetray" --> doIgnore
    ]

main = do
    xmproc <- spawnPipe "/usr/bin/xmobar ~/.xmonad/xmobar.conf"
    unsafeSpawn "if [ -x /usr/bin/gnome-terminal ] ; then gnome-terminal & fi"
    unsafeSpawn "if [ -x /usr/bin/nm-applet ] ; then nm-applet --sm-disable & fi"
    unsafeSpawn "if [ -x /usr/bin/gnome-power-manager ] ; then gnome-power-manager & fi"
    unsafeSpawn "if [ -x /usr/bin/xscreensaver ] ; then xscreensaver & fi"
    xmonad $ defaultConfig
        { manageHook = myManageHook <+> manageDocks <+> manageHook defaultConfig
        , layoutHook = layoutHook'
        , logHook    = dynamicLogWithPP $ xmobarPP
                { ppOutput = hPutStrLn xmproc
                , ppTitle  = xmobarColor "green" "" . shorten 50
                }
        , modMask  = modMask'
      , borderWidth = 1
      , workspaces = workspaces'
        } `additionalKeys`
        [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock")
        , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
        , ((mod4Mask .|. shiftMask, xK_Return), spawn terminal')
        , ((mod4Mask, xK_o), windows W.focusDown >> kill)
        , ((mod4Mask, xK_Return), dwmpromote >>  windows W.focusDown )    -- Swap the focused window and the master window
        , ((0, xK_Print), spawn "scrot")
        , ((mod4Mask, xK_c), kill)
        , ((mod4Mask, xK_F1), xmonadPrompt defaultXPConfig)
        , ((mod4Mask, xK_F2), shellPrompt defaultXPConfig)
        , ((mod4Mask, xK_F4), spawn "xscreensaver-command -lock")
        , ((mod4Mask .|. shiftMask, xK_f), shiftTo Next EmptyWS)
        , ((mod4Mask .|. controlMask .|. shiftMask, xK_s), spawn "sudo pm-suspend")
        , ((mod4Mask , xK_l), sendMessage $ Go R)
        , ((mod4Mask , xK_h ), sendMessage $ Go L)
        , ((mod4Mask , xK_k   ), sendMessage $ Go U)
        , ((mod4Mask , xK_j ), sendMessage $ Go D)
        , ((mod4Mask .|. shiftMask, xK_l   ), sendMessage Expand)
        , ((mod4Mask .|. shiftMask, xK_h   ), sendMessage Shrink)
        , ((mod4Mask .|. shiftMask, xK_k   ), sendMessage MirrorExpand)
        , ((mod4Mask .|. shiftMask, xK_j ), sendMessage MirrorShrink)
        , ((mod4Mask .|. controlMask, xK_l), sendMessage $ Swap R)
        , ((mod4Mask .|. controlMask, xK_h ), sendMessage $ Swap L)
        , ((mod4Mask .|. controlMask, xK_k   ), sendMessage $ Swap U)
        , ((mod4Mask .|. controlMask, xK_j ), sendMessage $ Swap D)
        , ((mod4Mask, xK_Right), nextWS)
        , ((mod4Mask, xK_Left), prevWS)
        , ((mod4Mask, xK_Up), toggleWS)
        , ((mod4Mask, xK_Down), toggleWS)
        , ((mod4Mask .|. shiftMask, xK_Right), shiftToNext >> nextWS)
        , ((mod4Mask .|. shiftMask, xK_Left), shiftToPrev >> prevWS)
        , ((mod4Mask, xK_b     ), sendMessage ToggleStruts)
        ]