Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import XMonad
- import XMonad.Hooks.ManageDocks
- import System.IO
- import XMonad.Util.Run(spawnPipe)
- import XMonad.Util.EZConfig(additionalKeys)
- import XMonad.Hooks.DynamicLog
- import XMonad.Layout.NoBorders
- import XMonad.Actions.CycleWS
- import XMonad.Actions.DynamicWorkspaces
- import XMonad.Prompt
- import XMonad.Prompt.RunOrRaise
- import XMonad.Prompt.Window
- import XMonad.Layout.Tabbed
- import XMonad.Prompt.Ssh
- import XMonad.Prompt.Man
- import XMonad.Layout.DecorationMadness
- import qualified Data.Map as M
- main = do
- xmproc <- spawnPipe "xmobar -x 0"
- xmpro2 <- spawnPipe "xmobar -x 1 ~/.xmobarrc2"
- xwall <- spawnPipe "xpmroot ~/swahili.png"
- -- gsetm <- spawnPipe "gnome-settings-daemon"
- xmtray <- spawnPipe "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 4 --transparent true --alpha 0 --tint 0x000000 --height 16 &"
- thbird <- spawnPipe "thunderbird"
- pidgin <- spawnPipe "pidgin"
- boinc <- spawnPipe "./BOINC/run_client"
- xmonad $ defaultConfig
- { manageHook = manageDocks <+> manageHook defaultConfig
- , layoutHook = avoidStruts $ smartBorders $ tabbed shrinkText myTabConfig ||| layoutHook defaultConfig
- , logHook = dynamicLogWithPP $ xmobarPP
- { ppOutput = \s -> do
- hPutStrLn xmproc s
- hPutStrLn xmpro2 s
- , ppTitle = xmobarColor "green" "" . shorten 150
- }
- , modMask = mod4Mask
- , terminal = "gnome-terminal"
- , keys = \c -> myKeys c `M.union` keys defaultConfig c
- }
- myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
- [ ((modMask, xK_w), moveTo Next NonEmptyWS)
- , ((modMask, xK_q), moveTo Prev NonEmptyWS)
- , ((modMask , xK_p), runOrRaisePrompt myXPConfig)
- , ((modMask .|. controlMask, xK_j), prevScreen)
- , ((modMask .|. controlMask, xK_k), nextScreen)
- , ((modMask .|. controlMask, xK_s), sshPrompt myXPConfig)
- , ((modMask .|. controlMask, xK_m), manPrompt myXPConfig)
- , ((modMask .|. shiftMask, xK_g), windowPromptGoto myXPConfig)
- , ((modMask .|. shiftMask, xK_b), windowPromptBring myXPConfig)
- -- , ((modMask .|. shiftMask, xK_Down), shiftToNext)
- -- , ((modMask .|. shiftMask, xK_Up), shiftToPrev)
- -- , ((modMask, xK_Right), nextScreen)
- -- , ((modMask, xK_Left), prevScreen)
- -- , ((modMask .|. shiftMask, xK_Right), shiftNextScreen)
- -- , ((modMask .|. shiftMask, xK_Left), shiftPrevScreen)
- , ((modMask, xK_Tab), toggleWS)
- ]
- myTabConfig = defaultTheme { fontName = "xft:DejaVu Sans:size=9" }
- myXPConfig = defaultXPConfig { font = "xft:DejaVu Sans:size=9" }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement