mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
fd11b6f28e
Add a ViewPrev extension which gives a viewPrev command to view the previously visible workspace.
29 lines
856 B
Haskell
29 lines
856 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' :: (Eq a, Eq s, Eq i) => W.StackSet i a s sd -> W.StackSet i a s sd
|
|
viewPrev' x = W.view (W.tag . head . W.hidden $ x) x
|
|
|
|
viewPrev :: X ()
|
|
viewPrev = windows viewPrev'
|