Skip to content

Instantly share code, notes, and snippets.

Created November 16, 2012 22:11
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save anonymous/4091341 to your computer and use it in GitHub Desktop.
import XMonad
import XMonad.Hooks.UrgencyHook
import XMonad.Layout.NoBorders
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Prompt.Ssh
import XMonad.Util.CustomKeys
myLayout = smartBorders (tiled ||| Mirror tiled ||| Full)
where
tiled = Tall nmaster delta ratio
nmaster = 1
ratio = 2/3
delta = 3/100
main = xmonad $ withUrgencyHook FocusHook $ defaultConfig
{ focusFollowsMouse = False
, keys = customKeys delkeys inskeys
, layoutHook = myLayout
} where
delkeys :: XConfig l -> [(KeyMask, KeySym)]
delkeys XConfig {modMask = modm} =
[ (modm, xK_b)
, (modm, xK_q)
, (modm, xK_w)
, (modm, xK_e)
, (modm, xK_r)
, (modm .|. shiftMask, xK_w)
, (modm .|. shiftMask, xK_e)
, (modm .|. shiftMask, xK_r) ]
inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
inskeys conf@(XConfig {modMask = modm}) =
[ ((modm, xK_p), shellPrompt defaultXPConfig)
, ((modm .|. shiftMask, xK_p), sshPrompt defaultXPConfig)
, ((modm .|. controlMask, xK_Delete), spawn "slock") ]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment