mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-31 12:11:52 -07:00
2469269119
This is a convenience module in order to have less import noise. It
re-exports the following:
a) Commonly used modules in full (Data.Foldable, Data.Applicative, and
so on); though only those that play nicely with each other, so that
XMonad.Prelude can be imported unqualified without any problems.
This prevents things like `Prelude.(.)` and `Control.Category.(.)`
fighting with each other.
b) Helper functions that don't necessarily fit in any other module;
e.g., the often used abbreviation `fi = fromIntegral`.
51 lines
1.7 KiB
Haskell
51 lines
1.7 KiB
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Actions.CycleSelectedLayouts
|
|
-- Copyright : (c) Roman Cheplyaka
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : Roman Cheplyaka <roma@ro-che.info>
|
|
-- Stability : unstable
|
|
-- Portability : unportable
|
|
--
|
|
-- This module allows to cycle through the given subset of layouts.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Actions.CycleSelectedLayouts (
|
|
-- * Usage
|
|
-- $usage
|
|
cycleThroughLayouts) where
|
|
|
|
import XMonad
|
|
import XMonad.Prelude (findIndex, fromMaybe)
|
|
import XMonad.Layout.LayoutCombinators (JumpToLayout(..))
|
|
import qualified XMonad.StackSet as S
|
|
|
|
-- $usage
|
|
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
|
|
--
|
|
-- > import XMonad hiding ((|||))
|
|
-- > import XMonad.Layout.LayoutCombinators ((|||))
|
|
-- > import XMonad.Actions.CycleSelectedLayouts
|
|
--
|
|
-- > , ((modm, xK_t ), cycleThroughLayouts ["Tall", "Mirror Tall"])
|
|
--
|
|
-- Make sure you are using NewSelect from XMonad.Layout.LayoutCombinators,
|
|
-- rather than the Select defined in xmonad core.
|
|
|
|
cycleToNext :: (Eq a) => [a] -> a -> Maybe a
|
|
cycleToNext lst a = do
|
|
-- not beautiful but simple and readable
|
|
ind <- findIndex (a==) lst
|
|
return $ lst !! if ind == length lst - 1 then 0 else ind+1
|
|
|
|
-- | If the current layout is in the list, cycle to the next layout. Otherwise,
|
|
-- apply the first layout from list.
|
|
cycleThroughLayouts :: [String] -> X ()
|
|
cycleThroughLayouts lst = do
|
|
winset <- gets windowset
|
|
let ld = description . S.layout . S.workspace . S.current $ winset
|
|
let newld = fromMaybe (head lst) (cycleToNext lst ld)
|
|
sendMessage $ JumpToLayout newld
|