aboutsummaryrefslogtreecommitdiffstats
path: root/FocusNth.hs
diff options
context:
space:
mode:
Diffstat (limited to 'FocusNth.hs')
-rw-r--r--FocusNth.hs48
1 files changed, 0 insertions, 48 deletions
diff --git a/FocusNth.hs b/FocusNth.hs
deleted file mode 100644
index 28e8e96..0000000
--- a/FocusNth.hs
+++ /dev/null
@@ -1,48 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module : XMonadContrib.FocusNth
--- Copyright : (c) Karsten Schoelzel <kuser@gmx.de>
--- License : BSD
---
--- Maintainer : Karsten Schoelzel <kuser@gmx.de>
--- Stability : unstable
--- Portability : unportable
---
--- Focus the nth window on the screen.
------------------------------------------------------------------------------
-
-module XMonadContrib.FocusNth (
- -- * Usage
- -- $usage
- focusNth) where
-
-import XMonad.StackSet
-import XMonad.Operations
-import XMonad
-
--- $usage
--- > import XMonadContrib.FocusNth
-
--- > -- mod4-[1..9] @@ Switch to window N
--- > ++ [((mod4Mask, k), focusNth i)
--- > | (i, k) <- zip [0 .. 8] [xK_1 ..]]
-
--- %import XMonadContrib.FocusNth
--- %keybdindextra ++
--- %keybdindextra -- mod4-[1..9] @@ Switch to window N
--- %keybdindextra [((mod4Mask, k), focusNth i)
--- %keybdindextra | (i, k) <- zip [0 .. 8] [xK_1 ..]]
-
-focusNth :: Int -> X ()
-focusNth = windows . modify' . focusNth'
-
-focusNth' :: Int -> Stack a -> Stack a
-focusNth' n s@(Stack _ ls rs) | (n < 0) || (n > length(ls) + length(rs)) = s
- | otherwise = listToStack n (integrate s)
-
-listToStack :: Int -> [a] -> Stack a
-listToStack n l = Stack t ls rs
- where (t:rs) = drop n l
- ls = reverse (take n l)
-
-