summaryrefslogtreecommitdiffstats
path: root/xmonad/xmonad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'xmonad/xmonad.hs')
-rw-r--r--xmonad/xmonad.hs48
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") ]