module Keybindings where

import XMonad
import qualified XMonad.StackSet as W

-- actions
import XMonad.Actions.CopyWindow
import XMonad.Actions.WithAll
import XMonad.Actions.CycleWS
import XMonad.Actions.GridSelect
import XMonad.Actions.SwapWorkspaces
import XMonad.Actions.FloatKeys
import qualified XMonad.Actions.FlexibleResize as Flex

-- layout modifiers
import XMonad.Layout.Spacing
import XMonad.Layout.WindowNavigation as WN
import XMonad.Layout.Maximize

-- Layouts
import XMonad.Layout.BinarySpacePartition as BSP

-- hooks
import XMonad.Hooks.ManageDocks

import Defaults
import TreeSelect
import Scratchpads

myMouseKeybindings :: [((ButtonMask, Button), Window -> X ())]
myMouseKeybindings = [
    ((myModMask,        4), \w -> prevWS)
    , ((myModMask,      5), \w -> nextWS)
    , ((myModShiftMask, 4), \w -> shiftToPrev >> prevWS)
    , ((myModShiftMask, 5), \w -> shiftToNext >> nextWS)
    , ((myModMask, 3), \w -> focus w >> Flex.mouseResizeWindow w)
  ]

myFnKeybindingsP :: [(String, X())]
myFnKeybindingsP = [
    ("<XF86MonBrightnessUp>",     spawn backlightUp)
    , ("<XF86MonBrightnessDown>", spawn backlightDown)

    , ("<XF86AudioRaiseVolume>",  spawn volUp)
    , ("<XF86AudioLowerVolume>",  spawn volDown)
    , ("<XF86AudioMute>",         spawn volMute)

    , ("<XF86AudioPrev>",         spawn prevTrack)
    , ("<XF86AudioNext>",         spawn nextTrack)
    , ("<XF86AudioStop>",         spawn stopTrack)
    , ("<XF86AudioPlay>",         spawn pausePlay)
    , ("<XF86AudioPause>",        spawn pausePlay)
    , ("<Pause>",                 spawn pausePlay)

    , ("<XF86Mail>",              spawn myEmailClient)
    , ("<XF86HomePage>",          spawn myWallpaperMenu)
    , ("<XF86Explorer>",          spawn myDisplayMenu)
    , ("<XF86Calculator>",        spawn myCalculator)
  ]

myKeybindings :: [((KeyMask, KeySym), X ())]
myKeybindings = [
    ((myModMask, xK_Return), spawn myTerminal)
    , ((myModShiftMask, xK_Return), spawn myLockscreen)
    , ((myModMask .|. shiftMask, xK_c), kill1)

    , ((myModMask,      xK_s), showTS myMainTS)
    , ((myModShiftMask, xK_s), spawn myLauncher)

    -- view prev/next workspaces
    , ((myModMask',              xK_h         ), prevWS)
    , ((myModMask',              xK_l         ), nextWS)

    -- move to prev/next workspaces
    , ((myModShiftMask', xK_h         ), shiftToPrev >> prevWS)
    , ((myModShiftMask', xK_l         ), shiftToNext >> nextWS)

    -- toggle maximize
    , ((myModMask, xK_f), withFocused (sendMessage . maximizeRestore))

    -- unfloat windows
    , ((myModMask .|. shiftMask, xK_f), withFocused $ windows . W.sink)

    -- cycle through windows
    , ((myModMask,      xK_Tab), windows W.focusUp)
    , ((myModShiftMask, xK_Tab), windows W.focusDown)

    -- 2D navigation
    , ((myModMask,                   xK_l), sendMessage $ Go R)
    , ((myModMask,                   xK_h), sendMessage $ Go L)
    , ((myModMask,                   xK_k), sendMessage $ Go U)
    , ((myModMask,                   xK_j), sendMessage $ Go D)

    -- swap windows
    , ((myModShiftMask,              xK_l), sendMessage $ WN.Swap R)
    , ((myModShiftMask,              xK_h), sendMessage $ WN.Swap L)
    , ((myModShiftMask,              xK_k), sendMessage $ WN.Swap U)
    , ((myModShiftMask,              xK_j), sendMessage $ WN.Swap D)

    -- resize
    , ((myModMask .|. myModMask',      xK_h), sendMessage $ ExpandTowards R)
    , ((myModMask .|. myModMask',      xK_l), sendMessage $ ExpandTowards L)
    , ((myModMask .|. myModMask',      xK_j), sendMessage $ ExpandTowards D)
    , ((myModMask .|. myModMask',      xK_k), sendMessage $ ExpandTowards U)
    , ((myModMask .|. myModShiftMask', xK_h), sendMessage $ ShrinkFrom R)
    , ((myModMask .|. myModShiftMask', xK_l), sendMessage $ ShrinkFrom L)
    , ((myModMask .|. myModShiftMask', xK_j), sendMessage $ ShrinkFrom D)
    , ((myModMask .|. myModShiftMask', xK_k), sendMessage $ ShrinkFrom U)
  ] ++ [
    -- workspace switching
    ((myModMask, key), windows $ W.greedyView ws) 
    | (key,ws) <- myExtraWorkspaces
  ] ++ [
    -- moving window to workspace
    ((myModShiftMask, key), windows $ W.shift ws) 
    | (key,ws) <- myExtraWorkspaces
  ] ++ [
    -- to swap workspace
    -- TODO: try to change this into a key chord
    ((myModShiftMask', key), windows $ swapWithCurrent ws) 
    | (key, ws) <- zip [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_8, xK_0] myWorkspaces
  -- ] ++ [
  --   -- copy
  --   ((m .|. myModMask, key), windows $ f ws) | (key, ws) <- myWorkspaces, (f, m) <- [(copy, myModShiftMask')]
  -- ] ++ [
  --   -- for not swapping tags while using multihead
  --   ((m .|. myModMask, key), windows $ f ws) | (key, ws) <- myWorkspaces, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
  ] ++ [ -- directly focus monitors instead of cycling
    ((m .|. myModMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
    | (key, sc) <- zip [xK_m, xK_w] [0..]
    , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
  ]

myKeybindingsP :: [(String, X())]
myKeybindingsP = [
  ] ++ [ -- move and resize floating windows
    ("M-" <> m <> k, withFocused $ f i)
    | (i, k) <- zip [U, D, R, L] ["<Up>", "<Down>", "<Right>", "<Left>"]
    , (f, m) <- [(directionMoveWindow 10, ""), (directionResizeWindow 10, "S-")]
  ]