Merge pull request #428 from pshevtsov/lxqt-config

Add XMonad.Config.LXQt

CHANGES.md

@@ -125,6 +125,11 @@
 
     Extends ManageHook EDSL to work on focused windows and current workspace.
 
+  * `XMonad.Config.LXQt`
+
+    This module provides a config suitable for use with the LXQt desktop
+    environment.
+
 ### Bug Fixes and Minor Changes
 
   * `XMonad.Actions.DynamicProjects`

XMonad/Config/LXQt.hs

@@ -0,0 +1,45 @@
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
+
+-----------------------------------------------------------------------------
+-- |
+-- Module       : XMonad.Config.LXQt
+-- Copyright    : (c) Petr Shevtsov <petr.shevtsov@gmail.com>
+-- License      : BSD
+--
+-- Maintainer   : none
+-- Stability    : unstable
+-- Portability  : unportable
+--
+-- This module provides a config suitable for use with the LXQt desktop
+-- environment.
+
+module XMonad.Config.LXQt (
+    -- * Usage
+    -- $usage
+    lxqtConfig,
+    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.LXQt
+-- >
+-- > main = xmonad lxqtConfig
+--
+-- For example of how to further customize @lxqtConfig@ see "XMonad.Config.Desktop".
+
+lxqtConfig = desktopConfig
+    { terminal = "qterminal"
+    , keys     = lxqtKeys <+> keys desktopConfig }
+
+lxqtKeys (XConfig {modMask = modm}) = M.fromList $
+    [ ((modm,               xK_p), spawn "lxqt-runner")
+    , ((modm .|. shiftMask, xK_q), spawn "lxqt-leave")
+    ]

XMonad/Doc/Extending.hs

@@ -415,6 +415,9 @@ own configuration, possibly with some modifications.
 * "XMonad.Config.Xfce":
     This module provides a config suitable for use with the Xfce desktop environment.
 
+* "XMonad.Config.LXQt":
+    This module provides a config suitable for use with the LXQt desktop environment.
+
 -}
 
 {- $hooks