twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.CycleRecentWS: Make unView work with greedyView as well

Browse Source 
Entirely unnecessary for the current version of `cycleWindowSets`, but
if anyone ever wants to use `greedyView`, this shows that it's not at
all complicated to adapt `unView` to that.
This commit is contained in:
Tomas Janousek
2021-05-14 00:36:32 +01:00
committed by slotThe
parent 1e2e1273b8
commit 86522a27b0
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tests/CycleRecentWS.hs
View File

@@ -6,7 +6,7 @@ import Test.Hspec.QuickCheck
import Test.QuickCheck
import XMonad.Actions.CycleRecentWS (unView)
import XMonad.StackSet (view, mapLayout)
import XMonad.StackSet (view, greedyView, mapLayout)
import Instances
import Utils (tags)
@@ -17,7 +17,8 @@ spec = do
prop_unView :: T -> Property
prop_unView ss = conjoin
[ counterexample (show t) (unView ss (state (view t ss)) === state ss)
| t <- tags ss ]
[ counterexample desc (unView ss (state (v t ss)) === state ss)
| t <- tags ss
, (desc, v) <- [("view " <> show t, view), ("greedyView " <> show t, greedyView)] ]
where
state = mapLayout succ