diff options
| author | Valery V. Vorotyntsev <valery.vv@gmail.com> | 2007-10-27 11:09:37 +0200 |
|---|---|---|
| committer | Valery V. Vorotyntsev <valery.vv@gmail.com> | 2007-10-27 11:09:37 +0200 |
| commit | fbcfc6525f3548fe61321e5a0ae16dfb226397fc (patch) | |
| tree | 3759b810de71077b4964155b9f16b4861a4f5878 | |
| parent | 9a26658d445e98d4c9ecef000b62c37da9835fe5 (diff) | |
| download | XMonadContrib-fbcfc6525f3548fe61321e5a0ae16dfb226397fc.tar.gz XMonadContrib-fbcfc6525f3548fe61321e5a0ae16dfb226397fc.tar.xz XMonadContrib-fbcfc6525f3548fe61321e5a0ae16dfb226397fc.zip | |
ViewPrev.hs: deleted
Its functionality is now part of CycleWS module.
CycleWS.hs: Nelson Elhage added to authors.
darcs-hash:20071027090937-ae588-ea3c9773e04b0671b8b059fb3df644cc1f273efe.gz
| -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 |