Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
56 lines (49 sloc) 1.89 KB
-- modded bluetile config:
import XMonad.Hooks.ManageHelpers
import XMonad
import XMonad.Config.Bluetile
import XMonad.Util.Replace
import XMonad.Config.Gnome
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.Magnifier
import XMonad.Util.CustomKeys
import qualified XMonad.StackSet as W
import qualified Data.Map as M
main = replace >> xmonad bluetileConfig
{ borderWidth = 2
, normalBorderColor = "#444444" -- "#dddddd"
, focusedBorderColor = "#3399ff" -- "#ff0000" don't use hex, not <24 bit safe
, manageHook = manageHook gnomeConfig <+> myManageHook
, focusFollowsMouse = True
, workspaces = ["1","2","3","4","5"]
, startupHook = setWMName "LG3D" -- silly java...
-- , layoutHook = myLayoutHook
-- , keys = keys bluetileConfig $ customKeys delkeys inskeys
}
where
delkeys :: XConfig l -> [(KeyMask, KeySym)]
delkeys XConfig {modMask = modm} = []
inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
inskeys conf@(XConfig {modMask = modm}) =
[ ((modm .|. shiftMask , xK_plus ), sendMessage MagnifyMore)
, ((modm .|. shiftMask , xK_minus), sendMessage MagnifyLess)
-- , ((modm .|. controlMask , xK_o ), sendMessage ToggleOff )
-- , ((modm .|. controlMask .|. shiftMask, xK_o ), sendMessage ToggleOn )
, ((modm .|. shiftMask , xK_m ), sendMessage Toggle )
]
myDoFullFloat :: ManageHook
myDoFullFloat = doF W.focusDown <+> doFullFloat
myLayoutHook = magnifiercz' 1.2 $ layoutHook bluetileConfig
myManageHook = composeAll [
resource =? "desktop_window" --> doIgnore
, className =? "/usr/lib/gnome-do/Do.exe" --> doIgnore
, className =? "Do" --> doIgnore
, className =? "Guake.py" --> doFloat
, className =? "Zenity" --> doFloat
, className =? "Gloobus-preview" --> doFloat
, isFullscreen --> myDoFullFloat
, isSplash --> doIgnore
]
where
isSplash = isInProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_SPLASH"