Skip to content

Instantly share code, notes, and snippets.

@kozo2
Created August 5, 2012 05:56
Show Gist options
  • Save kozo2/3262120 to your computer and use it in GitHub Desktop.
Save kozo2/3262120 to your computer and use it in GitHub Desktop.
evilvte NSP doesn't float...
import XMonad
import XMonad.Prompt
import XMonad.Prompt.Window
import XMonad.Util.EZConfig
import XMonad.Util.NamedScratchpad
import XMonad.Hooks.FadeInactive
import Anekos.Config.Layout (myLayoutHook)
import Anekos.Config.Layout (myLayoutPrompt)
scratchpads = [ NS "emacs" "emacs" (className =? "Emacs") nonFloating
, NS "firefox" "firefox" (className =? "Firefox") nonFloating
, NS "google-chrome" "google-chrome" (className =? "Google-chrome") nonFloating
, NS "evilvte" "evilvte -fn \"VL Gothic 14\"" (className =? "evilvte") defaultFloating
] where role = stringProperty "WM_WINDOW_ROLE"
myKeys = [ ("M-m", myLayoutPrompt False)
, ("M-S-b", windowPromptGoto myXPConfig)
, ("M-S-e", namedScratchpadAction scratchpads "emacs")
, ("M-S-f", namedScratchpadAction scratchpads "firefox")
, ("M-S-g", namedScratchpadAction scratchpads "google-chrome")
, ("M-S-v", namedScratchpadAction scratchpads "evilvte")
]
myXPConfig = defaultXPConfig
{ font = "xft:VL Gothic:pixelsize=12" }
myLogHook :: X ()
myLogHook = fadeInactiveLogHook fadeAmount where fadeAmount = 0.8
main = xmonad $ defaultConfig
{ borderWidth = 0
, layoutHook = myLayoutHook
, manageHook = namedScratchpadManageHook scratchpads
, logHook = myLogHook
, terminal = "evilvte -fn \"VL Gothic 14\""
} `additionalKeysP` (myKeys)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment