You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

301 lines
14 KiB

10 years ago
{-# LANGUAGE DeriveDataTypeable, NoMonomorphismRestriction, MultiParamTypeClasses, ImplicitParams #-}
import XMonad
import XMonad.Layout.Fullscreen ( fullscreenEventHook )
import XMonad.Layout.NoBorders ( smartBorders )
import XMonad.Layout.PerWorkspace ( onWorkspace )
import XMonad.Layout.SimplestFloat ( simplestFloat )
import XMonad.Layout.ResizableTile
( ResizableTall(ResizableTall),
MirrorResize(MirrorExpand, MirrorShrink) )
import XMonad.Layout.Circle ( Circle(Circle) )
import XMonad.Layout.ThreeColumns ( ThreeCol(ThreeColMid) )
import XMonad.Layout.Grid ( Grid(Grid) )
import XMonad.Layout.WindowNavigation
( Direction2D(D, L, R, U), Navigate(Go, Swap), windowNavigation )
import XMonad.Layout.Reflect
( REFLECTY(REFLECTY), REFLECTX(REFLECTX) )
import XMonad.Layout.MultiToggle
( Transformer(..), Toggle(Toggle), mkToggle1 )
import XMonad.Layout.MultiToggle.Instances
( StdTransformers(MIRROR, NBFULL) )
import XMonad.Hooks.ManageHelpers ( isFullscreen, doFullFloat )
import XMonad.Prompt ( Direction1D(Next, Prev), defaultXPConfig )
import XMonad.Prompt.Shell ( shellPrompt )
import XMonad.Prompt.XMonad ( xmonadPrompt )
import XMonad.Util.EZConfig
( additionalMouseBindings, additionalKeys )
import XMonad.Actions.FloatKeys
( keysResizeWindow, keysMoveWindow )
import Graphics.X11.ExtraTypes.XF86
( xF86XK_Sleep,
xF86XK_AudioRaiseVolume,
xF86XK_MonBrightnessDown,
xF86XK_MonBrightnessUp,
10 years ago
xF86XK_AudioPrev,
xF86XK_AudioPlay,
xF86XK_AudioNext,
xF86XK_AudioMute,
xF86XK_AudioLowerVolume )
import XMonad.Hooks.DynamicLog
( PP(ppCurrent, ppHidden, ppHiddenNoWindows, ppLayout, ppOrder,
ppOutput, ppSep, ppTitle, ppUrgent, ppVisible, ppWsSep, ppExtras),
shorten,
trim,
pad,
dynamicLogWithPP,
defaultPP )
import XMonad.Hooks.ManageDocks
( avoidStruts,
ToggleStruts(ToggleStruts),
manageDocks,
docksEventHook )
import XMonad.Hooks.SetWMName ( setWMName )
import XMonad.Hooks.Place
( underMouse, placeHook, inBounds, fixed )
import XMonad.Hooks.EwmhDesktops ( ewmh )
import System.IO ( hPutStrLn )
import XMonad.Actions.GridSelect ()
import XMonad.Util.Run ( spawnPipe )
import XMonad.Actions.CycleWS
( WSType(EmptyWS, NonEmptyWS), moveTo )
import Control.Arrow ()
import XMonad.Util.Font ()
import XMonad.Layout.LayoutModifier ()
import XMonad.Core ()
import XMonad.StackSet ()
import qualified XMonad.Util.ExtensibleState as XS ()
import Data.List ()
import XMonad.Prompt.Directory ( directoryPrompt )
import qualified XMonad.Layout.BinarySpacePartition as BSP
import Bar
( ColorControl(B, F),
Alignment(ACenter, ARight, ALeft),
clickable2,
clickable,
changeColor,
align )
import Spacing ( SPACING(SPACING), spacing )
import PerWorkspaceDirs ( getDir, currentWorkspace, changeDir )
import XMonad.Util.Loggers
import XMonad.Layout.BorderResize
import XMonad.Util.Scratchpad
import XMonad.Util.NamedScratchpad
import XMonad.Actions.Launcher
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.UrgencyHook
data FLOATED = FLOATED deriving (Read, Show, Eq, Typeable)
instance Transformer FLOATED Window where
transform FLOATED x k = k myFloaU (const x)
myFloaU = simplestFloat
myLayout = windowNavigation
$ smartBorders
$ borderResize
$ onWorkspace (myWorkspaces !! 8) (avoidStruts simplestFloat)
$ mkToggle1 NBFULL
$ mkToggle1 REFLECTX
$ mkToggle1 REFLECTY
$ mkToggle1 MIRROR
$ mkToggle1 FLOATED
$ avoidStruts all
where
all = spacing 15 BSP.emptyBSP
myWorkspaces = ["1. Alpha"
,"2. Beta"
,"3. Gamma"
,"4. Delta"
,"5. Epsilon"
,"6. Zeta"
,"7. Eta"
,"8. Theta"
,"9. Iota"
]
myManageHook = composeAll
[ resource =? "dmenu" --> doFloat
, resource =? "pavucontrol" --> doFloat
, resource =? "gsimplecal" --> placeHook ( fixed (1,20/1080) )
, resource =? "htop" --> placeHook ( fixed (1,35/1080) ) <+> doFloat
, resource =? "alsamixer" --> placeHook ( fixed (1,35/1080) ) <+> doFloat
, resource =? "runner" --> placeHook ( fixed (0,1) ) <+> doFloat
, resource =? "feh" --> doIgnore
, resource =? "dzen2" --> doIgnore
, resource =? "bar-aint-recursive" --> doIgnore
, isFullscreen --> doFullFloat
, manageDocks
]
newManageHook = myManageHook
<+> placeHook (inBounds (underMouse (0, 0)))
<+> manageHook defaultConfig
<+> scratchpadManageHookDefault
myLogHook h = dynamicLogWithPP ( defaultPP
{ ppCurrent = changeColor F (toBarC color13) . makeClickable
, ppVisible = pad . makeClickable
, ppHidden = makeClickable
, ppUrgent = changeColor B (toBarC color3) . makeClickable
, ppHiddenNoWindows = makeClickable . takeWhile (/= '.')
, ppWsSep = " | "
, ppSep = " "
, ppLayout = changeColor F (toBarC color10) . clickable "xdotool key super+space" . pad
, ppTitle = align ACenter
. changeColor F (toBarC color10)
. clickable2 (3::Int) "xdotool key super+shift+x"
. shorten 80
. pad
, ppOrder = \(ws:l:t:xs) -> [trim ws, trim l, trim t ]
, ppOutput = hPutStrLn h
} )
where makeClickable ws | take 1 ws == "N" = ""
| otherwise = let n = take 1 ws in clickable ("xdotool key super+"++n) ws
scratchpads = [ NS "htop" "urxvt -name htop -e htop" (resource =? "htop") defaultFloating
, NS "alsamixer" "urxvt -name alsamixer -e alsamixer" (resource =? "alsamixer") defaultFloating
, NS "ncmpcpp" "urxvt -name ncmpcpp -e ncmpcpp" (resource =? "ncmpcpp") defaultFloating
]
--------------------------------------------------------------------------------------------------------------------
-- Spawn pipes and menus on boot, set default settings
--------------------------------------------------------------------------------------------------------------------
myXmonadBar :: String
myXmonadBar = "lemonbar -f \"-benis-uushi-medium-r-normal--11-90-75-75-p-58-iso10646-1\" -B \"black\" | bash"
restartXmonad = "killall lemonbar; cd ~/.xmonad; ghc -threaded xmonad.hs; mv xmonad xmonad-x86_64-linux; xmonad --restart;"
spawnTerminalInDir :: String -> X ()
spawnTerminalInDir s = spawn $ "cd " ++ s ++ "; " ++ myTerminal
toBarC :: String -> String
toBarC (x:xs) = x : "FF" ++ xs
toBarC "" = ""
main :: IO ()
main = do
bar <- spawnPipe myXmonadBar
xmonad $ withUrgencyHook NoUrgencyHook $ ewmh defaultConfig
{ terminal = myTerminal
, borderWidth = 0
, normalBorderColor = "#2B2B2B"
, focusedBorderColor = color5
, modMask = myModMask
, layoutHook = myLayout
, workspaces = myWorkspaces
, manageHook = newManageHook
, handleEventHook = fullscreenEventHook <+> docksEventHook
, startupHook = setWMName "LG3D" >> spawn "~/essentials/scripts/lemonbar/bar_start.sh"
, logHook = myLogHook bar >> fadeInactiveLogHook 0.9
}
--------------------------------------------------------------------------------------------------------------------
-- Keyboard options
--------------------------------------------------------------------------------------------------------------------
`additionalKeys`
[((myModMask , xK_q ), spawn restartXmonad)
,((myModMask .|. shiftMask , xK_c ), kill)
,((myModMask .|. shiftMask , xK_b ), spawn "google-chrome-stable")
10 years ago
,((myModMask .|. shiftMask , xK_p ), spawn "mpc prev")
,((myModMask .|. shiftMask , xK_n ), spawn "mpc next")
,((myModMask .|. shiftMask , xK_i ), spawn "xcalib -invert -alter")
,((myModMask .|. shiftMask , xK_m ), spawn "~/.xmonad/scripts/dzen_music.sh")
,((myModMask .|. shiftMask , xK_t ), currentWorkspace >>= getDir >>= spawnTerminalInDir)
,((myModMask .|. shiftMask , xK_d ), directoryPrompt defaultXPConfig "Set working directory: " (\d -> currentWorkspace >>= changeDir d))
,((myModMask .|. shiftMask , xK_h ), sendMessage $ Swap L)
,((myModMask .|. shiftMask , xK_j ), sendMessage $ Swap D)
,((myModMask .|. shiftMask , xK_k ), sendMessage $ Swap U)
,((myModMask .|. shiftMask , xK_l ), sendMessage $ Swap R)
,((myModMask , xK_h ), sendMessage $ Go L)
,((myModMask , xK_j ), sendMessage $ Go D)
,((myModMask , xK_k ), sendMessage $ Go U)
,((myModMask , xK_l ), sendMessage $ Go R)
,((myModMask .|. altMask , xK_s ), sendMessage $ BSP.Swap)
,((myModMask .|. altMask , xK_r ), sendMessage $ BSP.Rotate)
,((myModMask .|. altMask , xK_h ), sendMessage $ BSP.ExpandTowards L)
,((myModMask .|. altMask , xK_j ), sendMessage $ BSP.ExpandTowards D)
,((myModMask .|. altMask , xK_k ), sendMessage $ BSP.ExpandTowards U)
,((myModMask .|. altMask , xK_l ), sendMessage $ BSP.ExpandTowards R)
,((myModMask .|. altMask .|. controlMask , xK_h ), sendMessage $ BSP.MoveSplit L)
,((myModMask .|. altMask .|. controlMask , xK_j ), sendMessage $ BSP.MoveSplit D)
,((myModMask .|. altMask .|. controlMask , xK_k ), sendMessage $ BSP.MoveSplit U)
,((myModMask .|. altMask .|. controlMask , xK_l ), sendMessage $ BSP.MoveSplit R)
,((myModMask , xK_p ), moveTo Prev NonEmptyWS)
,((myModMask , xK_n ), moveTo Next NonEmptyWS)
,((myModMask , xK_c ), moveTo Next EmptyWS)
,((myModMask , xK_w ), withFocused (keysMoveWindow (0 ,-20)))
,((myModMask , xK_a ), withFocused (keysMoveWindow (-20, 0)))
,((myModMask , xK_s ), withFocused (keysMoveWindow (0 , 20)))
,((myModMask , xK_d ), withFocused (keysMoveWindow (20 , 0)))
,((myModMask .|. shiftMask , xK_w ), withFocused (keysResizeWindow (0 ,-20) (0,0)))
,((myModMask .|. shiftMask , xK_a ), withFocused (keysResizeWindow (-20, 0) (0,0)))
,((myModMask .|. shiftMask , xK_s ), withFocused (keysResizeWindow (0 , 20) (0,0)))
,((myModMask .|. shiftMask , xK_d ), withFocused (keysResizeWindow (20 , 0) (0,0)))
,((myModMask , xK_b ), sendMessage ToggleStruts) -- toggle the statusbar gap
,((myModMask .|. controlMask, xK_f ), sendMessage $ Toggle NBFULL)
,((myModMask .|. controlMask, xK_v ), sendMessage $ Toggle REFLECTX)
,((myModMask .|. controlMask, xK_m ), sendMessage $ Toggle MIRROR)
,((myModMask .|. controlMask, xK_u ), sendMessage $ Toggle FLOATED)
,((myModMask .|. controlMask, xK_d ), sendMessage $ SPACING 5)
,((myModMask .|. controlMask, xK_i ), sendMessage $ SPACING (negate 5))
,((myModMask .|. controlMask, xK_h ), launcherPrompt defaultXPConfig $ defaultLauncherModes launcherConfig)
,((myModMask , xK_r ), shellPrompt defaultXPConfig)
,((myModMask , xK_g ), scratchpadSpawnActionTerminal "urxvt")
,((myModMask , xK_F9 ), namedScratchpadAction scratchpads "htop")
,((myModMask , xK_F10 ), namedScratchpadAction scratchpads "alsamixer")
,((myModMask , xK_F11 ), namedScratchpadAction scratchpads "ncmpcpp")
,((myModMask , xK_F12 ), spawn "gsimplecal")
,((myModMask , xK_Print ), spawn "scrot -s & mplayer /usr/share/sounds/freedesktop/stereo/screen-capture.oga")
,((myModMask , xK_space ), spawn "dmenu_run")
,((controlMask .|. altMask , xK_t ), spawn "urxvt")
,((myModMask , xK_Return), currentWorkspace >>= getDir >>= spawnTerminalInDir)
,((0 , xK_Print ), spawn "scrot & mplayer /usr/share/sounds/freedesktop/stereo/screen-capture.oga")
,((0 , xF86XK_Sleep ), spawn "pm-suspend")
,((0 , xF86XK_MonBrightnessUp ), spawn "xbacklight -inc 10")
,((0 , xF86XK_MonBrightnessDown ), spawn "xbacklight -dec 10")
10 years ago
--,((0 , xF86XK_AudioMute), spawn "~/scripts/dvol2 -t")
--,((0 , xF86XK_AudioLowerVolume), spawn "~/scripts/dvol2 -d 2 & mplayer /usr/share/sounds/freedesktop/stereo/audio-volume-change.oga")
--,((0 , xF86XK_AudioRaiseVolume ), spawn "~/scripts/dvol2 -i 2 & mplayer /usr/share/sounds/freedesktop/stereo/audio-volume-change.oga")
]
`additionalMouseBindings`
[((myModMask, 6), \_ -> moveTo Next NonEmptyWS)
,((myModMask, 7), \_ -> moveTo Prev NonEmptyWS)
,((myModMask, 5), \_ -> moveTo Prev NonEmptyWS)
,((myModMask, 4), \_ -> moveTo Next NonEmptyWS)
]
-- Define constants
launcherConfig = LauncherConfig { pathToHoogle = "/home/zubin/.cabal/bin/hoogle" , browser = "firefox"}
altMask = mod1Mask
myTerminal :: String
myTerminal = "urxvtc"
myBitmapsDir :: String
myBitmapsDir = "~/.xmonad/dzen2/"
myModMask :: KeyMask
myModMask = mod4Mask
myFont :: String
myFont = "-*-tamsyn-medium-r-normal-*-12-87-*-*-*-*-*-*"
background = "#181512"
foreground = "#d6c3b6"
color0 = "#332d29"
color1 = "#8c644c"
color2 = "#746c48"
color3 = "#bfba92"
color4 = "#646a6d"
color5 = "#766782"
color6 = "#4b5c5e"
color7 = "#504339"
color8 = "#817267"
color9 = "#9f7155"
color10 = "#9f7155"
color11 = "#e0daac"
color12 = "#777eb2"
color13 = "#897796"
color14 = "#556d70"
color15 = "#9a875f"