initial xmonad (yay haskell)

xmobar/.xmobarrc

@@ -0,0 +1,15 @@
+Config  { font = "Liberation Mono:size=13:antialias=true:autohint=true"
+	, bgColor = "#1b1918"
+	, fgColor = "#f1efee"
+	, commands = [ Run Date "%a %b %_d" "date" 36000
+		    , Run Date "%l:%M:%S%P" "time" 10
+			-- kjfk == nyc
+			-- kgeg == spokane
+		    , Run Weather "KJFK" ["-t"," <tempF>°F","-L","60","-H","80","--normal","#5ab738","--high","#f56b79","--low","#b2cbf5"] 18000
+		    , Run Com "/usr/local/bin/custom/obstrat" [] "obstrat" 18000
+		    , Run StdinReader
+		    ]
+	, sepChar = "%"
+	, alignSep = "}{"
+	, template = "%StdinReader% } %obstrat% { %KJFK% | <fc=#00ad9c>%date%</fc> <fc=#fabc3c>%time%</fc> "
+}

xmonad/.xmonad/xmonad.hs

@@ -0,0 +1,35 @@
+import XMonad
+import XMonad.Hooks.DynamicLog
+import XMonad.Layout.Spacing
+import XMonad.Hooks.ManageDocks
+import XMonad.Util.Run(spawnPipe)
+import XMonad.Util.EZConfig(additionalKeys)
+import System.IO
+
+-- main = xmonad defaultConfig
+	-- { modMask = mod4Mask
+	-- , terminal = "st"
+	-- , borderWidth = 6
+	-- , normalBorderColor = "#6666ea"
+	-- , focusedBorderColor = "#5ab738"
+	-- }
+
+main = do
+	xmproc <- spawnPipe "xmobar"
+	xmonad $ docks defaultConfig
+		{ layoutHook = spacingRaw False (Border 25 10 10 10) True (Border 10 10 10 10) True $ layoutHook defaultConfig
+		, logHook = dynamicLogWithPP xmobarPP
+				{ ppOutput = hPutStrLn xmproc
+				, ppTitle = xmobarColor "green" "" . shorten 50
+				}
+		, modMask = mod4Mask
+		, terminal = "st"
+		, borderWidth = 6
+		, normalBorderColor = "#6666ea"
+		, focusedBorderColor = "#5ab738"
+		} `additionalKeys`
+		[ ((mod4Mask .|. shiftMask, xK_z), spawn "i3lock -i ~/img/wps/rbgrad1.png -u")
+		, ((mod4Mask, xK_s), spawn "scrot '%F_%T.png' -e 'mv $f /home/jord/img/scrots'")
+		, ((mod4Mask, xK_f), spawn "firefox")
+		, ((mod4Mask, xK_e), spawn "emacs")                
+		]