1import qualified Data.Map as M
  2import System.Exit
  3
  4import XMonad
  5import qualified XMonad.StackSet as W
  6
  7import XMonad.Actions.GridSelect
  8import XMonad.Actions.WithAll
  9
 10import XMonad.Hooks.DynamicLog
 11import XMonad.Hooks.EwmhDesktops
 12import XMonad.Hooks.ManageDocks
 13import XMonad.Hooks.StatusBar
 14import XMonad.Hooks.StatusBar.PP
 15
 16import XMonad.Util.ClickableWorkspaces
 17import XMonad.Util.EZConfig
 18import XMonad.Util.NamedScratchpad
 19
 20import XMonad.Layout.BoringWindows hiding (Replace)
 21import XMonad.Layout.NoBorders
 22import XMonad.Layout.Renamed
 23import XMonad.Layout.ResizableTile
 24import XMonad.Layout.ResizableThreeColumns
 25import XMonad.Layout.Simplest
 26import XMonad.Layout.Spacing
 27import XMonad.Layout.SubLayouts
 28import XMonad.Layout.Tabbed
 29import XMonad.Layout.ToggleLayouts
 30import XMonad.Layout.WindowNavigation
 31
 32import LaNinpreConfig
 33
 34myKeys :: [(String, X ())]
 35myKeys = [ ("M-<Return>", spawn myTerminal)
 36         , ("M-w",        spawn myBrowser)
 37         , ("M-p",        spawn "dmenu_run")
 38         , ("M-<Delete>", spawn "slock")
 39         , ("<Print>",    spawn "scrot_cmd -f")
 40         , ("C-<Print>",  spawn "scrot_cmd -a")
 41         , ("M1-<Print>", spawn "scrot_cmd -w")
 42
 43         , ("M-s t",      namedScratchpadAction myScratchPads "terminal")
 44         , ("M-s c",      namedScratchpadAction myScratchPads "calculator")
 45         , ("M-s m",      namedScratchpadAction myScratchPads "mocp")
 46         , ("M-s v",      namedScratchpadAction myScratchPads "mpvfloat")
 47
 48         , ("M-g t",      goToSelected myGsConfig)
 49         , ("M-g b",      bringSelected myGsConfig)
 50         , ("M-g g",      mySpawnSelected myGsConfig myAppGrid)
 51
 52         , ("M-S-c",      kill)
 53         , ("M-<Space>",  sendMessage NextLayout)
 54         , ("M-f",        sendMessage ToggleLayout >> sendMessage ToggleStruts)
 55         , ("M-h",        sendMessage Shrink)
 56         , ("M-l",        sendMessage Expand)
 57         , ("M-C-j",      sendMessage MirrorShrink)
 58         , ("M-C-k",      sendMessage MirrorExpand)
 59         , ("M-M1-h",     sendMessage $ pullGroup L)
 60         , ("M-M1-j",     sendMessage $ pullGroup D)
 61         , ("M-M1-k",     sendMessage $ pullGroup U)
 62         , ("M-M1-l",     sendMessage $ pullGroup R)
 63         , ("M-M1-u",     withFocused $ sendMessage . UnMerge)
 64         , ("M-M1-m",     withFocused $ sendMessage . UnMergeAll)
 65         , ("M-M1-,",     onGroup W.focusDown')
 66         , ("M-M1-.",     onGroup W.focusUp')
 67         , ("M-j",        focusDown)
 68         , ("M-k",        focusUp)
 69         , ("M-S-j",      swapDown)
 70         , ("M-S-k",      swapUp)
 71         , ("M-m",        focusMaster)
 72         , ("M-S-m",      windows W.swapMaster)
 73         , ("M-t",        withFocused $ windows . W.sink)
 74         , ("M-S-t",      sinkAll)
 75         , ("M-<Tab>",    toggleWindowSpacingEnabled >> toggleScreenSpacingEnabled)
 76
 77         , ("M-S-q",      io (exitWith ExitSuccess))
 78         , ("M-S-r",      spawn "xmonad --recompile && xmonad --restart")
 79
 80         , ("<XF86AudioPlay>",        spawn $ myMocp ++ " -G")
 81         , ("<XF86AudioRaiseVolume>", spawn $ myMocp ++ " -v +5")
 82         , ("<XF86AudioLowerVolume>", spawn $ myMocp ++ " -v -5")
 83         , ("<XF86AudioPrev>",        spawn $ myMocp ++ " --previous")
 84         , ("<XF86AudioNext>",        spawn $ myMocp ++ " --next")
 85         ]
 86         ++
 87         [("M-" ++ m ++ show k, windows $ f i)
 88             | (i, k) <- zip (myWorkspaces) [1..9]
 89             , (f, m) <- [(W.greedyView, ""), (W.shift, "S-")]
 90         ]
 91
 92myColorizer :: a -> Bool -> X (String, String)
 93myColorizer _ active = if active then return (col_bg_alt def, col_fg_alt def)
 94                                 else return (col_bg     def, col_fg     def)
 95
 96myGsConfig :: GSConfig a
 97myGsConfig = (buildDefaultGSConfig myColorizer)
 98           { gs_font = head myFonts
 99           , gs_bordercolor = col_bg_alt def
100           }
101
102mySpawnSelected :: GSConfig String -> [(String, String)] -> X ()
103mySpawnSelected conf lst = gridselect conf lst >>= flip whenJust spawn
104
105myXmobarPP :: PP
106myXmobarPP = def
107           { ppSep             = xmobarColor (col_bg_alt def) "" " | "
108           , ppCurrent         = xmobarColor (col_fg_alt def) "" . sitelen
109           , ppHidden          = xmobarColor (col_fg     def) "" . sitelen
110           , ppHiddenNoWindows = xmobarColor (col_bg_alt def) "" . sitelen
111           , ppLayout          = sitelen
112           } where
113               sitelen = xmobarFont 3
114
115mySB :: StatusBarConfig
116mySB = statusBarProp "xmobar"
117     $ clickablePP $ filterOutWsPP [scratchpadWorkspaceTag] myXmobarPP
118
119myTabTheme :: Theme
120myTabTheme = def
121           { fontName            = head myFonts
122           , activeTextColor     = col_fg_alt def
123           , activeColor         = col_bg_alt def
124           , activeBorderWidth   = 0
125           , inactiveTextColor   = col_fg def
126           , inactiveColor       = col_bg def
127           , inactiveBorderWidth = 0
128           , urgentTextColor     = col_bg_alt def
129           , urgentColor         = col_fg_alt def
130           , urgentBorderWidth   = 0
131           }
132
133myLayout = windowNavigation
134         $ boringWindows
135         $ toggleLayouts full
136         $ smartBorders
137         $ tiled ||| threeCol
138         where
139            tiled    = renamed [Replace "\xe624"] -- lawa
140                     $ addTabs shrinkText myTabTheme
141                     $ subLayout [] (Simplest)
142                     $ spacingWithEdge space $ ResizableTall nmaster delta ratio []
143            threeCol = renamed [Replace "\xe665"] -- supa
144                     $ addTabs shrinkText myTabTheme
145                     $ subLayout [] (Simplest)
146                     $ spacingWithEdge space $ ResizableThreeColMid nmaster delta ratio []
147            full     = renamed [Replace "\xe663"] -- suli
148                     $ noBorders Full
149            nmaster  = 1
150            ratio    = 1/2
151            delta    = 3/100
152            space    = 4
153
154myConfig = def
155         { terminal           = myTerminal
156         , modMask            = myModMask
157         , layoutHook         = myLayout
158         , manageHook         = myManageHook
159         , workspaces         = myWorkspaces
160         , borderWidth        = myBorderWidth
161         , keys               = const M.empty -- discard default keybindings
162         , normalBorderColor  = col_bg_alt def
163         , focusedBorderColor = col_fg_alt def
164         , startupHook = return () >> checkKeymap myConfig myKeys
165         } `additionalKeysP` myKeys
166
167main :: IO ()
168main = xmonad
169     . ewmhFullscreen
170     . ewmh
171     . withEasySB mySB defToggleStrutsKey
172     $ myConfig