aleax

import System.IO.UTF8
import Codec.Binary.UTF8.String
import Data.Ratio ((%))

import XMonad

import XMonad.Actions.CycleWS
import XMonad.Actions.WindowGo

import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers

import XMonad.Layout
import XMonad.Layout.DragPane
import XMonad.Layout.Grid
import XMonad.Layout.NoBorders
import XMonad.Layout.PerWorkspace
import XMonad.Layout.IM

import XMonad.Prompt
import XMonad.Prompt.Shell

import XMonad.Util.EZConfig
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.Run

import qualified XMonad.StackSet as W


main = do
    h <- spawnPipe myStatusBar
    xmonad $ defaultConfig
      { manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
      , layoutHook = myLayoutHook
      , logHook    = myLogHook h
      , modMask    = myModMask
      , terminal   = myTerminal
      , workspaces = myWorkSpaces
      , startupHook        = myStartupHook
      , normalBorderColor  = myNormalBorderColor
      , focusedBorderColor = myFocusedBorderColor
      } `additionalKeysP`
      [
      --- myKeyBindings ---

      ----------------------
      ---- applications ----
      ----------------------

      --------------------
      ---- navigation ----
      --------------------



      ]`additionalKeys`
      [ ((myModMask, xK_p), spawn "dmenu_run")
       --- screenshots ----
      , ((0, xK_Print), spawn "scrot '%Y-%m-%d-%H%M%S_$wx$h_full.png' --exec 'mv $f ~/screenshots && ln -sf $f ~/screenshots/last'")
      ]

myStartupHook = do
        --spawn "~/.autostart.sh"
        --spawn "firefox"
        spawn "inet-param"
        --spawn "unclutter"
        --spawn "stalonetray"
        --spawn "echo \"bottom\" | dzen2 -y 1006 -bg '#006600' -p"
--    spawn myBottomBar

--myIM = withIM (1%7) (And (ClassName "Qutim") (Role "qutIMClass") ) $ Grid

myLayoutHook = avoidStruts $ smartBorders $ layoutHook defaultConfig |||
      Tall 1 (3 / 100) (1 / 2) ||| dragPane Horizontal 0.1 0.5 ||| Grid ||| Full
--      ||| myIM

myLogHook h = dynamicLogWithPP $ xmobarPP
      { --- ppOutput = hPutStrLn h
        ppOutput = System.IO.UTF8.hPutStrLn h
      , ppTitle = xmobarColor "green" "" . shorten 75
      }

myManageHook = composeAll
      [ className =? "feh"        --> doCenterFloat --
      , className =? "MPlayer"    --> doCenterFloat -- set these apps to float ontop of other windows --
      , className =? "Smplayer"   --> doCenterFloat --
      , className =? "Tilda"      --> doFloat       --

      , className =? "stalonetray"--> doIgnore

      , className =? "Wine"       --> doShiftAndGo "3:misc" --

      , className =? "MPlayer"    --> doShiftAndGo "6:media"  --
      , className =? "Smplayer"   --> doShiftAndGo "6:media"  --

      , className =? "Opera"      --> doShiftAndGo "8:www" --
      , className =? "Firefox"    --> doShiftAndGo "8:www" --

      , className =? "Qutim"      --> doShiftAndGo "9:im" --
      , className =? "Skype"      --> doShiftAndGo "9:im" --
      ]

doShiftAndGo :: WorkspaceId -> ManageHook
doShiftAndGo ws = doF (W.greedyView ws) <+> doShift ws


myModMask  = mod4Mask

-- Color, font and iconpath definitions:
myNormalBorderColor  = "#dddddd"
myFocusedBorderColor = "#ff6600"
myNormalFGColor = "#ffffff"
myNormalBGColor = "#0f0f0f"
myDzenFGColor = "#555555"
myDzenBGColor = ""
myFocusedFGColor = "#f0f0f0"
myFocusedBGColor = "#333333"
myUrgentFGColor = "#0099ff"
myUrgentBGColor = "#0077ff"
myIconFGColor = "#777777"
myIconBGColor = ""
mySeperatorColor = "#555555"
myFont = "-xos4-terminus-medium-r-normal-*-14-*-*-*-c-*-*-1"
myIconDir = "~/.dzen"


myTerminal = "gnome-terminal"

myWorkSpaces = ["1:work", "2:dev", "3:misk", "4:sys", "5:gfx", "6:media", "7:msg", "8:www", "9:im"]


--myXPConfig = defaultXPConfig
--      { font        = "-*-terminus-*-*-*-*-14-*-*-*-*-*-iso10646-1"
--      , bgColor     = "Black"
--      , fgColor     = "Cyan"
--      , bgHLight    = "Cyan"
--      , fgHLight    = "Black"
--      , borderColor = "Black"
--      , position    =  Top
--      }

-- Statusbars
myStatusBar = "xmobar ~/.xmonad/xmostatusbar"