mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
96f3456b96
nameTail behaves slightly different if there are whitespace before the first word or the name contains tabs or other such whitespace. But I expect few users are affected since the only usecase where nameTail is actually needed is to remove automatically added prefixes. These prefixes will be removed as they should by the new implementation.
53 lines
1.6 KiB
Haskell
53 lines
1.6 KiB
Haskell
{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses #-}
|
|
|
|
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Layout.Named
|
|
-- Copyright : (c) David Roundy <droundy@darcs.net>
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : none
|
|
-- Stability : unstable
|
|
-- Portability : unportable
|
|
--
|
|
-- A module for assigning a name to a given layout. Deprecated, use
|
|
-- "XMonad.Layout.Renamed" instead.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Layout.Named
|
|
( -- * Usage
|
|
-- $usage
|
|
named,
|
|
nameTail
|
|
) where
|
|
|
|
import XMonad.Layout.LayoutModifier
|
|
import XMonad.Layout.Renamed
|
|
|
|
-- $usage
|
|
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
|
|
--
|
|
-- > import XMonad.Layout.Named
|
|
--
|
|
-- Then edit your @layoutHook@ by adding the Named layout modifier
|
|
-- to some layout:
|
|
--
|
|
-- > myLayout = named "real big" Full ||| (nameTail $ named "real big" $ Full) ||| etc..
|
|
-- > main = xmonad defaultConfig { layoutHook = myLayout }
|
|
--
|
|
-- For more detailed instructions on editing the layoutHook see:
|
|
--
|
|
-- "XMonad.Doc.Extending#Editing_the_layout_hook"
|
|
--
|
|
-- Note that this module has been deprecated and may be removed in a future
|
|
-- release, please use "XMonad.Layout.Renamed" instead.
|
|
|
|
-- | (Deprecated) Rename a layout.
|
|
named :: String -> l a -> ModifiedLayout Rename l a
|
|
named s = renamed [Replace s]
|
|
|
|
-- | (Deprecated) Remove the first word of the name.
|
|
nameTail :: l a -> ModifiedLayout Rename l a
|
|
nameTail = renamed [CutWordsLeft 1]
|