ADD layout hiding function
This commit is contained in:
parent
96b7253c9b
commit
84ba8742c2
|
@ -1,3 +1,5 @@
|
||||||
|
{-# LANGUAGE FlexibleInstances #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
{-# LANGUAGE MultiWayIf #-}
|
{-# LANGUAGE MultiWayIf #-}
|
||||||
|
|
||||||
module Main (main) where
|
module Main (main) where
|
||||||
|
@ -38,6 +40,7 @@ import XMonad.Actions.Warp
|
||||||
import XMonad.Hooks.EwmhDesktops
|
import XMonad.Hooks.EwmhDesktops
|
||||||
import XMonad.Hooks.ManageDocks
|
import XMonad.Hooks.ManageDocks
|
||||||
import XMonad.Hooks.ManageHelpers
|
import XMonad.Hooks.ManageHelpers
|
||||||
|
import XMonad.Layout.MultiToggle
|
||||||
import XMonad.Layout.NoBorders
|
import XMonad.Layout.NoBorders
|
||||||
import XMonad.Layout.NoFrillsDecoration
|
import XMonad.Layout.NoFrillsDecoration
|
||||||
import XMonad.Layout.PerWorkspace
|
import XMonad.Layout.PerWorkspace
|
||||||
|
@ -150,7 +153,8 @@ allDWs = [xsaneDynamicWorkspace, wmDynamicWorkspace, gimpDynamicWorkspace]
|
||||||
|
|
||||||
myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout
|
myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout
|
||||||
$ onWorkspace (dwTag gimpDynamicWorkspace) gimpLayout
|
$ onWorkspace (dwTag gimpDynamicWorkspace) gimpLayout
|
||||||
$ tall ||| single ||| full
|
$ mkToggle (single HIDE)
|
||||||
|
$ tall ||| fulltab ||| full
|
||||||
where
|
where
|
||||||
addTopBar = noFrillsDeco shrinkText T.tabbedTheme
|
addTopBar = noFrillsDeco shrinkText T.tabbedTheme
|
||||||
tall = renamed [Replace "Tall"]
|
tall = renamed [Replace "Tall"]
|
||||||
|
@ -158,7 +162,7 @@ myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout
|
||||||
$ addTopBar
|
$ addTopBar
|
||||||
$ noBorders
|
$ noBorders
|
||||||
$ Tall 1 0.03 0.5
|
$ Tall 1 0.03 0.5
|
||||||
single = renamed [Replace "Tabbed"]
|
fulltab = renamed [Replace "Tabbed"]
|
||||||
$ avoidStruts
|
$ avoidStruts
|
||||||
$ noBorders
|
$ noBorders
|
||||||
$ tabbedAlways shrinkText T.tabbedTheme
|
$ tabbedAlways shrinkText T.tabbedTheme
|
||||||
|
@ -172,6 +176,22 @@ myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout
|
||||||
$ addTopBar
|
$ addTopBar
|
||||||
$ Tall 1 0.025 0.8
|
$ Tall 1 0.025 0.8
|
||||||
|
|
||||||
|
data EmptyLayout a = EmptyLayout
|
||||||
|
deriving (Show, Read)
|
||||||
|
|
||||||
|
instance LayoutClass EmptyLayout a where
|
||||||
|
doLayout a b _ = emptyLayout a b
|
||||||
|
description _ = "Desktop"
|
||||||
|
|
||||||
|
data HIDE = HIDE
|
||||||
|
deriving (Read, Show, Eq, Typeable)
|
||||||
|
|
||||||
|
instance Transformer HIDE Window where
|
||||||
|
transform _ x k = k EmptyLayout (\EmptyLayout -> x)
|
||||||
|
|
||||||
|
runHide :: X ()
|
||||||
|
runHide = sendMessage $ Toggle HIDE
|
||||||
|
|
||||||
-- | Loghook configuration
|
-- | Loghook configuration
|
||||||
-- The format will be like "[<1> 2 3] 4 5 | LAYOUT" where each digit
|
-- The format will be like "[<1> 2 3] 4 5 | LAYOUT" where each digit
|
||||||
-- is the workspace and LAYOUT is the current layout. Each workspace
|
-- is the workspace and LAYOUT is the current layout. Each workspace
|
||||||
|
@ -263,6 +283,7 @@ mkKeys ts c =
|
||||||
[ ("M-j", "focus down", windows W.focusDown)
|
[ ("M-j", "focus down", windows W.focusDown)
|
||||||
, ("M-k", "focus up", windows W.focusUp)
|
, ("M-k", "focus up", windows W.focusUp)
|
||||||
, ("M-m", "focus master", windows W.focusMaster)
|
, ("M-m", "focus master", windows W.focusMaster)
|
||||||
|
, ("M-d", "focus master", runHide)
|
||||||
, ("M-S-j", "swap down", windows W.swapDown)
|
, ("M-S-j", "swap down", windows W.swapDown)
|
||||||
, ("M-S-k", "swap up", windows W.swapUp)
|
, ("M-S-k", "swap up", windows W.swapUp)
|
||||||
, ("M-S-m", "swap master", windows W.swapMaster)
|
, ("M-S-m", "swap master", windows W.swapMaster)
|
||||||
|
|
Loading…
Reference in New Issue