diff options
| -rw-r--r-- | CycleWS.hs | 3 | ||||
| -rw-r--r-- | ViewPrev.hs | 26 |
2 files changed, 2 insertions, 27 deletions
@@ -1,7 +1,8 @@ ----------------------------------------------------------------------------- -- | -- Module : XMonadContrib.CycleWS --- Copyright : (c) Joachim Breitner <mail@joachim-breitner.de> +-- Copyright : (c) Joachim Breitner <mail@joachim-breitner.de>, +-- Nelson Elhage <nelhage@mit.edu> (`toggleWS' function) -- License : BSD3-style (see LICENSE) -- -- Maintainer : Joachim Breitner <mail@joachim-breitner.de> diff --git a/ViewPrev.hs b/ViewPrev.hs deleted file mode 100644 index 13a696b..0000000 --- a/ViewPrev.hs +++ /dev/null @@ -1,26 +0,0 @@ ------------------------------------------------------------------------------ --- | --- Module : XMonadContrib.ViewPrev --- Copyright : (c) Nelson Elhage <nelhage@mit.edu> --- License : BSD3-style (see LICENSE) --- --- Maintainer : Nelson Elhage <nelhage@mit.edu> --- Stability : unstable --- Portability : unportable --- --- A module that implements a command to switch to the previously --- viewed workspace --- ------------------------------------------------------------------------------ - -module XMonadContrib.ViewPrev ( - viewPrev - ) where - -import XMonad -import Operations -import qualified StackSet as W - -viewPrev :: X () -viewPrev = windows viewPrev' - where viewPrev' x = W.view (W.tag . head . W.hidden $ x) x |