From 58890bc80b28ed02e98b21a054849220a69919cb Mon Sep 17 00:00:00 2001
From: lassulus <lass@aidsballs.de>
Date: Fri, 13 Nov 2015 01:07:54 +0100
Subject: l: use new xserver architecture

---
 lass/5pkgs/xmonad-lass/Util/PerWorkspaceConfig.hs | 52 +++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 lass/5pkgs/xmonad-lass/Util/PerWorkspaceConfig.hs

(limited to 'lass/5pkgs/xmonad-lass/Util/PerWorkspaceConfig.hs')

diff --git a/lass/5pkgs/xmonad-lass/Util/PerWorkspaceConfig.hs b/lass/5pkgs/xmonad-lass/Util/PerWorkspaceConfig.hs
new file mode 100644
index 00000000..bba7c8c6
--- /dev/null
+++ b/lass/5pkgs/xmonad-lass/Util/PerWorkspaceConfig.hs
@@ -0,0 +1,52 @@
+module Util.PerWorkspaceConfig
+  ( WorkspaceConfig (..)
+  , WorkspaceConfigs
+  , switchToWorkspace
+  , defaultWorkspaceConfig
+  , perWorkspaceAction
+  , perWorkspaceTermAction
+--  , myLayoutHack
+  )
+where
+
+import XMonad
+import XMonad.Core (LayoutClass)
+import Control.Monad (when)
+
+import qualified Data.Map as M
+import qualified XMonad.StackSet as W
+
+data WorkspaceConfig l =
+  WorkspaceConfig
+    { switchAction :: X ()
+    , startAction  :: X ()
+    , keyAction    :: X ()
+    , termAction   :: X ()
+    }
+
+type WorkspaceConfigs l = M.Map WorkspaceId (WorkspaceConfig l)
+
+defaultWorkspaceConfig = WorkspaceConfig
+                             { switchAction = return ()
+                             , startAction  = return ()
+                             , keyAction    = return ()
+                             , termAction   = spawn "urxvtc"
+                             }
+
+whenLookup wsId cfg a =
+    when (M.member wsId cfg) (a $ cfg M.! wsId)
+
+switchToWorkspace :: WorkspaceConfigs l -> WorkspaceId -> X ()
+switchToWorkspace cfg wsId = do
+  windows $ W.greedyView wsId
+  wins <- gets (W.integrate' . W.stack . W.workspace . W.current . windowset)
+  when (null wins) $ whenLookup wsId cfg startAction
+  whenLookup wsId cfg switchAction
+
+perWorkspaceAction :: WorkspaceConfigs l -> X ()
+perWorkspaceAction cfg = withWindowSet $ \s -> whenLookup (W.currentTag s) cfg keyAction
+
+perWorkspaceTermAction :: WorkspaceConfigs l -> X ()
+perWorkspaceTermAction cfg = withWindowSet $ \s -> case M.lookup (W.currentTag s) cfg of
+                                                       Just x -> termAction x
+                                                       _      -> termAction defaultWorkspaceConfig
-- 
cgit v1.2.3