mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
41 lines
1.2 KiB
Haskell
41 lines
1.2 KiB
Haskell
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
|
|
|
|
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Config.Desktop
|
|
-- Copyright : (c) Spencer Janssen <spencerjanssen@gmail.com>
|
|
-- License : BSD
|
|
--
|
|
-- Maintainer : Spencer Janssen <spencerjanssen@gmail.com>
|
|
-- Stability : unstable
|
|
-- Portability : unportable
|
|
--
|
|
-- This module provides a config suitable for use with a desktop
|
|
-- environment such as KDE or GNOME.
|
|
|
|
module XMonad.Config.Desktop (
|
|
desktopConfig,
|
|
desktopLayoutModifiers
|
|
) where
|
|
|
|
import XMonad
|
|
import XMonad.Config (defaultConfig)
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Hooks.EwmhDesktops
|
|
import XMonad.Util.Cursor
|
|
|
|
import qualified Data.Map as M
|
|
|
|
desktopConfig = defaultConfig
|
|
{ logHook = ewmhDesktopsLogHook
|
|
, layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig
|
|
, manageHook = manageHook defaultConfig <+> manageDocks
|
|
, startupHook = setDefaultCursor xC_left_ptr
|
|
, handleEventHook = ewmhDesktopsEventHook
|
|
, keys = \c -> desktopKeys c `M.union` keys defaultConfig c }
|
|
|
|
desktopKeys (XConfig {modMask = modm}) = M.fromList $
|
|
[ ((modm, xK_b), sendMessage ToggleStruts) ]
|
|
|
|
desktopLayoutModifiers layout = avoidStruts layout
|