import XMonad.Hooks.ICCCMFocus
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
-import XMonad.Hooks.Script
import XMonad.Hooks.SetWMName
import XMonad.Layout.IM
import XMonad.Layout.LayoutHints
import XMonad.Layout.Tabbed
import XMonad.Layout.ThreeColumns
import XMonad.Util.Run(spawnPipe)
-import XMonad.Util.WindowProperties(getProp32s)
import qualified Data.Map as M
import qualified XMonad.StackSet as W
[
((modm .|. shiftMask, xK_h), spawn "xfce4-session-logout"),
((modm .|. shiftMask, xK_l), spawn "xscreensaver-command --lock"),
+ ((modm .|. shiftMask, xK_r), spawn "xmonad --restart"),
((modm, xK_n), spawn "xfce4-terminal"),
((modm, xK_i), spawn "firefox"),
+ ((modm, xK_c), spawn "emacsclient --create-frame --no-wait"),
((modm, xK_p), spawn "kupfer"),
((modm .|. shiftMask, xK_c ), kill),
W.Stack t [] (r:rs) -> W.Stack t [r] rs
otherwise -> c
-isTransient = ask >>= \w -> liftX $ do
- r <- getProp32s "WM_TRANSIENT_FOR" w
- return $ case r of
- Just [_] -> True
- _ -> False
-
isSkipTaskBar = isInProperty "_NET_WM_STATE" "_NET_WM_STATE_SKIP_TASKBAR"
-
myManageHook =
manageDocks <+>
composeOne [
- (className =? "Kupfer.py" <&&> resource =? "kupfer.py") -?> doFloat,
- (className =? "Xfce4-appfinder" <&&> resource =? "xfce4-appfinder") -?> doFloatAt 0.1 0.1,
+ transience,
(isSkipTaskBar -?> doFloat),
(isDialog -?> doFloatAt 0.1 0.1),
- (isTransient -?> doFloatAt 0.1 0.1),
(isFullscreen -?> doFullFloat),
+ ((className =? "Emacs" <&&> resource =? "Ediff") -?> doFloat),
(fmap Just $ doF avoidMaster)
]
myStartupHook = do
setWMName "LG3D" -- fix for Java Swing apps
-
+ spawn "xfce4-panel --restart" -- ensure it appears on top of xmobar
goldenRatio = (toRational (2/(1+sqrt(5)::Double)))