Add xmonad .hs

xmonad/.xmonad/xmonad.hs

@@ -0,0 +1,57 @@
+import qualified Data.Map as M
+
+import XMonad
+
+import XMonad.Util.Run (spawnPipe)
+import XMonad.Util.EZConfig (additionalKeysP)
+
+import XMonad.Hooks.ManageDocks (avoidStruts, docks, manageDocks)
+import XMonad.Hooks.EwmhDesktops
+
+import XMonad.Layout.NoBorders
+import XMonad.Layout.Spacing (spacing)
+import XMonad.Layout.GridVariants (Grid(Grid))
+import XMonad.Layout.ResizableTile
+
+myModKey               = mod4Mask
+myTerminal             = "st"
+myBorderWidth          = 1
+myUnfocusedBorderColor = "#ffffff"
+myFocusedBorderColor   = "#00cd00"
+myWorkspaces           = map show [1..9]
+
+-- TODO: Can this be moved down to nmaster etc. section?
+tiled   = spacing 12 $ ResizableTall 1 (1/100) (1/2) []
+grid    = spacing 12 $ Grid (16/10)
+monocle = smartBorders (Full)
+myLayout = myDefaultLayout
+    where myDefaultLayout = tiled ||| Mirror tiled ||| monocle
+        -- TODO: These don't seem used, see if we can remove/use them
+        -- Update: Examination of other xmonad.hs files seems to back up my suspicions
+        -- nmaster = 1
+        -- ratio   = 1/2
+        -- delta   = 1/100
+
+myKeys = 
+    [ ("M-a", sendMessage MirrorShrink)
+    , ("M-z", sendMessage MirrorExpand)
+    ]
+
+main = do
+    xmproc <- spawnPipe "xmobar -x 0 /home/viciouscirce/.config/xmobar/xmobarrc"
+    xmonad $ ewmh def
+        { manageHook = manageDocks
+        --, handleEventHook = docks
+        , modMask = myModKey
+        , terminal = myTerminal
+        -- , startupHook = myStartupHook
+        -- , layoutHook = myLayoutHook
+        , workspaces = myWorkspaces
+        , borderWidth = myBorderWidth
+        , normalBorderColor = myUnfocusedBorderColor
+        , focusedBorderColor = myFocusedBorderColor
+        -- , logHook = workspaceHistoryHook <+> myLogHook <+> dynamicLogWithPP xmobarPP
+        -- { ppOutput = 
+        -- }
+    }
+    --`additionalKeysP` myKeys