diff options
Diffstat (limited to 'xmonad/xmonad.hs')
-rw-r--r-- | xmonad/xmonad.hs | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs deleted file mode 100644 index 40ec269..0000000 --- a/xmonad/xmonad.hs +++ /dev/null @@ -1,48 +0,0 @@ --- --- It overrides a few basic settings, reusing all other defaults. --- - -import XMonad -import XMonad.Actions.WindowGo -import XMonad.Hooks.FadeInactive -import XMonad.Hooks.ManageDocks -import XMonad.Hooks.ManageHelpers -import XMonad.Util.EZConfig - -import qualified XMonad.StackSet as W - -myLogHook :: X () -myLogHook = fadeOutLogHook fadeRules - -fadeRules :: Query Rational -fadeRules = do - fullscreen <- isFullscreen - conkeror <- className =? "Conkeror" - return $ case () of _ | fullscreen -> 1 - | conkeror -> 0.95 - | otherwise -> 0.9 - -main = xmonad $ defaultConfig - { terminal = "urxvt" - , focusFollowsMouse = False - , clickJustFocuses = False - , modMask = mod4Mask - , layoutHook = avoidStruts $ layoutHook defaultConfig - , logHook = myLogHook - , manageHook = manageHook defaultConfig <+> manageDocks } - `additionalKeysP` - [ - ("C-z ,", screenWorkspace 0 >>= flip whenJust (windows . W.view)), - ("C-z .", screenWorkspace 1 >>= flip whenJust (windows . W.view)), - ("C-z S-c", spawn "urxvt"), - ("C-z S-e", spawn "emacsclient -ca emacs"), - ("C-z c", runOrRaiseNext "urxvt" (className =? "URxvt")), - ("C-z e", runOrRaiseNext "emacsclient -ca emacs" (className =? "Emacs")), - ("C-z w", runOrRaiseNext "conkeror" (className =? "Conkeror")), - ("M-S-1", spawn "dmenu_run"), - ("M-n", windows W.focusDown), - ("M-p", windows W.focusUp), - ("M1-C-l", spawn "i3lock -c 000000") - ] - `removeKeysP` - [ ("M-j"), ("M-k") ] |