-- Maxwell J. Koo's XMonad configuration file
-- Place this file in ~/.xmonad/xmonad.hs
-- Reload your XMonad's configuration with <Mod> q

import XMonad
import XMonad.Core
import XMonad.Actions.MouseResize
import XMonad.Hooks.DynamicLog
import XMonad.Layout.Decoration
import XMonad.Layout.PerWorkspace
import XMonad.Layout.SimpleFloat
import XMonad.Layout.WindowArranger
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Util.Run
import System.Exit
import System.IO

import qualified XMonad.StackSet as W
import qualified Data.Map as M

floatSimple :: (Show a, Eq a) => ModifiedLayout (Decoration DefaultDecoration DefaultShrinker)
                      (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a
floatSimple = decoration shrinkText myTheme DefaultDecoration (mouseResize $ windowArrangeAll $ SF 20)

myPromptConfig :: XPConfig
myPromptConfig = defaultXPConfig {
                   font = "-*-terminus-*-*-*-*-12-*-*-*-*-*-*-*"
                 , bgColor = "#111111"
                 , fgColor = "#FFFFFF"
                 , bgHLight = "#111111"
                 , fgHLight = "#51A366"
                 , borderColor = "#111111"
                 , promptBorderWidth = 0
                 , position = Bottom
                 , height = 16
                 , defaultText = []
                 }

myTheme :: Theme
myTheme = defaultTheme {
            fontName = "-*-terminus-*-*-*-*-12-*-*-*-*-*-*-*"
          , decoHeight = 16
          }

myPP :: PP
myPP = defaultPP {
         ppCurrent = xmobarColor "#51A366" "" . wrap "[" "]"
       , ppTitle = xmobarColor "#51A366" "" . shorten 40
       , ppVisible = wrap "(" ")"
       }

myTerminal = "urxvtc"
myBorderWidth = 2
myModMask = mod4Mask
myNumlockMask = mod2Mask
myWorkspaces = ["1", "2","3","4","5","6","7","8","float"]
myNormalBorderColor = "#444444"
myFocusedBorderColor = "#88A470"
myFocusFollowsMouse = False
-- avoidStruts does not work yet
-- gaps until stalonetray supports struts
myDefaultGaps = [(16, 16, 0, 0)]

myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
         [
          ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
         , ((modMask,               xK_p     ), shellPrompt myPromptConfig)
         , ((modMask .|. shiftMask, xK_c     ), kill)
         , ((modMask,               xK_space ), sendMessage NextLayout)
         , ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
         , ((modMask,               xK_n     ), refresh)
         , ((modMask,               xK_Tab   ), windows W.focusDown)
         , ((modMask,               xK_j     ), windows W.focusDown)
         , ((modMask,               xK_k     ), windows W.focusUp  )
         , ((modMask,               xK_m     ), windows W.focusMaster  )
         , ((modMask,               xK_Return), windows W.swapMaster)
         , ((modMask .|. shiftMask, xK_j     ), windows W.swapDown  )
         , ((modMask .|. shiftMask, xK_k     ), windows W.swapUp    )
         , ((modMask,               xK_h     ), sendMessage Shrink)
         , ((modMask,               xK_l     ), sendMessage Expand)
         , ((modMask              , xK_comma ), sendMessage (IncMasterN 1))
         , ((modMask              , xK_period), sendMessage (IncMasterN (-1)))
         , ((modMask              , xK_b     ), modifyGap (\i n -> let x = (XMonad.defaultGaps conf ++ repeat (0,0,0,0)) !! i
                                                                   in if n == x then (0,0,0,0) else x))
         , ((modMask .|. shiftMask, xK_q     ), io (exitWith ExitSuccess))
         , ((modMask              , xK_q     ), broadcastMessage ReleaseResources >> restart "xmonad" True)
         ]
         ++
         [((m .|. modMask, k), windows $ f i)
              | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
         , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
         ++
         [((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
              | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
         , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]

myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
         [
         ]

myLayoutHook = onWorkspace "float" floatSimple $
               tiled ||| Mirror tiled ||| Full
                   where
                     tiled = Tall nmaster delta ratio
                     nmaster = 1
                     ratio = 1/2
                     delta = 1/20

myManageHook = composeAll
         [
           className =? "Gimp" --> doF(W.shift "float")
         , className =? "stalonetray" --> doIgnore
         ]

main = do
  -- custom built xmobar
  pipe <- spawnPipe "~/.bin/xmobar"
  xmonad $ defaultConfig {
     terminal = myTerminal,
     focusFollowsMouse = myFocusFollowsMouse,
     borderWidth = myBorderWidth,
     modMask = myModMask,
     numlockMask = myNumlockMask,
     workspaces = myWorkspaces,
     normalBorderColor = myNormalBorderColor,
     focusedBorderColor = myFocusedBorderColor,
     defaultGaps = myDefaultGaps,
     keys = myKeys,
     mouseBindings = myMouseBindings,
     layoutHook = myLayoutHook,
     manageHook = myManageHook,
     logHook = dynamicLogWithPP $ myPP { ppOutput = hPutStrLn pipe }
    }