{-# OPTIONS_GHC -fno-warn-missing-signatures #-}

-----------------------------------------------------------------------------
-- |
-- Module       : XMonad.Config.Xfce
-- Copyright    : (c) Ivan Miljenovic <Ivan.Miljenovic@gmail.com>
-- License      : BSD
--
-- Maintainer   :  none
-- Stability    :  unstable
-- Portability  :  unportable
--
-- This module provides a config suitable for use with the Xfce desktop
-- environment.

module XMonad.Config.Xfce (
    -- * Usage
    -- $usage
    xfceConfig,
    desktopLayoutModifiers
    ) where

import XMonad
import XMonad.Config.Desktop

import qualified Data.Map as M

-- $usage
-- To use this module, start with the following @~\/.xmonad\/xmonad.hs@:
--
-- > import XMonad
-- > import XMonad.Config.Xfce
-- >
-- > main = xmonad xfceConfig
--
-- For examples of how to further customize @xfceConfig@ see "XMonad.Config.Desktop".

xfceConfig :: XConfig
  (ModifiedLayout
     AvoidStruts (Choose Tall (Choose (Mirror Tall) Full)))
xfceConfig = XConfig
  (ModifiedLayout
     AvoidStruts (Choose Tall (Choose (Mirror Tall) Full)))
desktopConfig
    { terminal :: String
terminal = "Terminal"
    , keys :: XConfig Layout -> Map (ButtonMask, KeySym) (X ())
keys     = XConfig Layout -> Map (ButtonMask, KeySym) (X ())
forall (m :: * -> *) (l :: * -> *).
MonadIO m =>
XConfig l -> Map (ButtonMask, KeySym) (m ())
xfceKeys (XConfig Layout -> Map (ButtonMask, KeySym) (X ()))
-> (XConfig Layout -> Map (ButtonMask, KeySym) (X ()))
-> XConfig Layout
-> Map (ButtonMask, KeySym) (X ())
forall m. Monoid m => m -> m -> m
<+> XConfig
  (ModifiedLayout
     AvoidStruts (Choose Tall (Choose (Mirror Tall) Full)))
-> XConfig Layout -> Map (ButtonMask, KeySym) (X ())
forall (l :: * -> *).
XConfig l -> XConfig Layout -> Map (ButtonMask, KeySym) (X ())
keys XConfig
  (ModifiedLayout
     AvoidStruts (Choose Tall (Choose (Mirror Tall) Full)))
desktopConfig }

xfceKeys :: XConfig l -> Map (ButtonMask, KeySym) (m ())
xfceKeys (XConfig {modMask :: forall (l :: * -> *). XConfig l -> ButtonMask
modMask = ButtonMask
modm}) = [((ButtonMask, KeySym), m ())] -> Map (ButtonMask, KeySym) (m ())
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList ([((ButtonMask, KeySym), m ())] -> Map (ButtonMask, KeySym) (m ()))
-> [((ButtonMask, KeySym), m ())]
-> Map (ButtonMask, KeySym) (m ())
forall a b. (a -> b) -> a -> b
$
    [ ((ButtonMask
modm,               KeySym
xK_p), String -> m ()
forall (m :: * -> *). MonadIO m => String -> m ()
spawn "xfrun4")
    , ((ButtonMask
modm ButtonMask -> ButtonMask -> ButtonMask
forall a. Bits a => a -> a -> a
.|. ButtonMask
shiftMask, KeySym
xK_p), String -> m ()
forall (m :: * -> *). MonadIO m => String -> m ()
spawn "xfce4-appfinder")
    , ((ButtonMask
modm ButtonMask -> ButtonMask -> ButtonMask
forall a. Bits a => a -> a -> a
.|. ButtonMask
shiftMask, KeySym
xK_q), String -> m ()
forall (m :: * -> *). MonadIO m => String -> m ()
spawn "xfce4-session-logout")
    ]