From de01c58b2d042baffb0395bd7f6bc372003f7b91 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@debian.org>
Date: Mon, 28 Jan 2013 16:23:57 -0500
Subject: Added dynamic workspaces to my xmonad
---
.xmonad/xmonad.hs | 70 ++++++++++++++++++++++++++++++++++++-------------------
1 file changed, 46 insertions(+), 24 deletions(-)
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index df65255..34c59a0 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -1,10 +1,13 @@
{-# OPTIONS_GHC -W -fwarn-unused-imports -fno-warn-missing-signatures -O2 #-}
import XMonad
-- import XMonad.Config.Kde
+import XMonad.Actions.CopyWindow
import XMonad.Actions.CycleWS
+import XMonad.Actions.DynamicWorkspaces
import XMonad.Actions.GridSelect
import XMonad.Actions.PerWorkspaceKeys
import XMonad.Actions.RotSlaves
+import XMonad.Actions.Submap
import XMonad.Actions.UpdatePointer
import XMonad.Config.Desktop
-- import XMonad.Config.Kde
@@ -54,7 +57,7 @@ myTerminal = "urxvtc"
-- My workspaces
-myWorkspaces = ["term", "web", "chatter", "code", "K/D", "music", "plasma", "LaTeX", "web-nb"]
+myWorkspaces = ["term", "web", "chatter", "code", "K/D", "music", "plasma", "LaTeX", "web-nb"] ++ (map show [10..20])
-- Mouse bindings: default actions bound to mouse events
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
@@ -422,29 +425,48 @@ main = do
]
viewShift = doF . liftM2 (.) W.greedyView W.shift
mykeys x = [
- -- ((myMod, xK_x), spawn myTerminal)
- -- , ((myMod, xK_c), kill)
- ((myMod, xK_Left), prevWS)
- , ((myMod, xK_Right), nextWS)
- , ((myMod, xK_a), myToggle)
- , ((myMod, xK_z), shellPrompt myXPConfig)
- , ((myMod, xK_g), goToSelected defaultGSConfig)
- , ((myMod, xK_F4), spawn "sleep 0.5 && xset dpms force suspend")
- , ((myMod, xK_F5), spawn "sleep 0.5 && xset dpms force off")
- , ((myMod, xK_F6), spawn "sleep 0.5 && /home/ryan/bin/icd")
- , ((myMod, xK_F7), spawn "sleep 0.5 && /home/ryan/bin/dpr")
- , ((myMod, xK_Up), spawn "sleep 0.5 && b u")
- , ((myMod, xK_Down), spawn "sleep 0.5 && b d")
- , ((myMod, xK_l), spawn "xautolock -enable && sleep 1 && xautolock -locknow")
- , ((myMod .|. shiftMask, xK_l), spawn "xautolock -toggle")
- , ((myMod .|. myCtrl .|. shiftMask, xK_Right), sendMessage $ Move R)
- , ((myMod .|. myCtrl .|. shiftMask, xK_Left), sendMessage $ Move L)
- , ((myMod .|. myCtrl .|. shiftMask, xK_Up), sendMessage $ Move U)
- , ((myMod .|. myCtrl .|. shiftMask, xK_Down), sendMessage $ Move D)
- , ((myMod, xK_BackSpace), focusUrgent)
- -- , ((myMod, xK_Tab), bindOn [("chat", rotSlavesDown), ("", rotAllDown)])
- -- , ((myMod .|. shiftMask, xK_Tab), bindOn [("chat", rotSlavesUp), ("", rotAllUp)])
- , ((myMod, xK_s), sendMessage $ ToggleLayout)]
+ -- ((myMod, xK_x), spawn myTerminal)
+ -- , ((myMod, xK_c), kill)
+ ((myMod, xK_Left), prevWS)
+ , ((myMod, xK_Right), nextWS)
+ , ((myMod .|. shiftMask, xK_Left), shiftToPrev >> prevWS)
+ , ((myMod .|. shiftMask, xK_Right), shiftToNext >> nextWS)
+ , ((myMod, xK_a), myToggle)
+ , ((myMod, xK_z), shellPrompt myXPConfig)
+ , ((myMod, xK_g), goToSelected defaultGSConfig)
+ , ((myMod .|. shiftMask, xK_g), gridselectWorkspace defaultGSConfig W.greedyView)
+ , ((myMod, xK_F4), spawn "sleep 0.5 && xset dpms force suspend")
+ , ((myMod, xK_F5), spawn "sleep 0.5 && xset dpms force off")
+ , ((myMod, xK_F6), spawn "sleep 0.5 && /home/ryan/bin/icd")
+ , ((myMod, xK_F7), spawn "sleep 0.5 && /home/ryan/bin/dpr")
+ , ((myMod, xK_Up), spawn "sleep 0.5 && b u")
+ , ((myMod, xK_Down), spawn "sleep 0.5 && b d")
+ , ((myMod, xK_l), spawn "xautolock -enable && sleep 1 && xautolock -locknow")
+ , ((myMod .|. shiftMask, xK_l), spawn "xautolock -toggle")
+ , ((myMod .|. myCtrl .|. shiftMask, xK_Right), sendMessage $ Move R)
+ , ((myMod .|. myCtrl .|. shiftMask, xK_Left), sendMessage $ Move L)
+ , ((myMod .|. myCtrl .|. shiftMask, xK_Up), sendMessage $ Move U)
+ , ((myMod .|. myCtrl .|. shiftMask, xK_Down), sendMessage $ Move D)
+ , ((myMod, xK_BackSpace), focusUrgent)
+ -- , ((myMod, xK_Tab), bindOn [("chat", rotSlavesDown), ("", rotAllDown)])
+ -- , ((myMod .|. shiftMask, xK_Tab), bindOn [("chat", rotSlavesUp), ("", rotAllUp)])
+ , ((myMod, xK_s), sendMessage $ ToggleLayout)
+ , (
+ (myMod, xK_m), submap . M.fromList $
+ [ ((m, k), f)
+ | m <- [0, myMod]
+ , (k, f) <- [ (xK_a, addWorkspacePrompt myXPConfig)
+ , (xK_c, withWorkspace myXPConfig (windows . copy))
+ , (xK_d, kill1)
+ , (xK_k, removeWorkspace)
+ , (xK_m, withWorkspace myXPConfig (windows . W.shift))
+ , (xK_o, killAllOtherCopies)
+ , (xK_r, renameWorkspace myXPConfig)
+ , (xK_s, selectWorkspace myXPConfig)
+ ]
+ ]
+ )
+ ]
dvorakify kl = M.fromList $ map (\((m, k), d) -> ((m, dk k), d)) $ M.toList kl
myFloats = ["MPlayer", "Plasma-netbook", "Plasma-desktop", "plasma-netbook", "plasma-desktop"]
plasmaD = ["Plasma"]
--
cgit v1.2.3