mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
27 lines
787 B
Haskell
27 lines
787 B
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- 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
|