mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
Default Xfce config, this time with me holding the copyright, maintainership, etc.
This commit is contained in:
parent
7ef87af128
commit
25de482d5f
42
XMonad/Config/Xfce.hs
Normal file
42
XMonad/Config/Xfce.hs
Normal file
@ -0,0 +1,42 @@
|
||||
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
-- |
|
||||
-- Module : XMonad.Config.Xfce
|
||||
-- Copyright : (c) Ivan Miljenovic <Ivan.Miljenovic@gmail.com>
|
||||
-- License : BSD
|
||||
--
|
||||
-- Maintainer : Ivan Miljenovic <Ivan.Miljenovic@gmail.com>
|
||||
--
|
||||
-- This module provides a config suitable for use with the Xfce desktop
|
||||
-- environment.
|
||||
|
||||
module XMonad.Config.Xfce (
|
||||
-- * Usage
|
||||
-- -- $usage
|
||||
xfceConfig
|
||||
) 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
|
||||
--
|
||||
|
||||
xfceConfig = desktopConfig
|
||||
{ terminal = "Terminal"
|
||||
, keys = \c -> xfceKeys c `M.union` keys desktopConfig c }
|
||||
|
||||
xfceKeys (XConfig {modMask = modm}) = M.fromList $
|
||||
[ ((modm, xK_p), spawn "xfrun4")
|
||||
, ((modm .|. shiftMask, xK_p), spawn "xfce4-appfinder")
|
||||
, ((modm .|. shiftMask, xK_q), spawn "xfce4-session-logout")
|
||||
]
|
Loading…
x
Reference in New Issue
Block a user