Remove xmonad config
This commit is contained in:
parent
934d02bcac
commit
7559ee8257
3 changed files with 0 additions and 61 deletions
3
xmonad/.gitignore
vendored
3
xmonad/.gitignore
vendored
|
@ -1,3 +0,0 @@
|
||||||
*.o
|
|
||||||
xmonad-x86_64-linux
|
|
||||||
xmonad.hi
|
|
|
@ -1,10 +0,0 @@
|
||||||
DESTDIR := $(DESTDIR)/.xmonad
|
|
||||||
objects=xmonad-x86_64-linux xmonad.hs
|
|
||||||
|
|
||||||
GHC := ghc
|
|
||||||
|
|
||||||
include ../dotfiles.mk
|
|
||||||
|
|
||||||
xmonad-x86_64-linux: xmonad.hs
|
|
||||||
$(GHC) --make $^ -i -ilib -fforce-recomp -main-is main -v0 -o $@
|
|
||||||
install-xmonad-x86_64-linux: MODE=744
|
|
|
@ -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") ]
|
|
Loading…
Add table
Reference in a new issue