twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #852 from liskin/renamed-named

Browse Source 
X.L.Renamed: Provide "named" convenience alias
This commit is contained in:
Tony Zorman 2023-12-18 10:48:19 +01:00 committed by GitHub
commit 0fe948feb3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
CHANGES.md
View File

@ -68,7 +68,8 @@
* `XMonad.Layout.Named` * `XMonad.Layout.Named`
- Deprecated the entire module, use `XMonad.Layout.Renamed` instead. - Deprecated the entire module, use `XMonad.Layout.Renamed` (which newly
provides `named` for convenience) instead.
* `XMonad.Actions.SinkAll` * `XMonad.Actions.SinkAll`

4
XMonad/Layout/Named.hs
View File

@ -44,10 +44,6 @@ import XMonad.Layout.Renamed
-- Note that this module has been deprecated and may be removed in a future -- Note that this module has been deprecated and may be removed in a future
-- release, please use "XMonad.Layout.Renamed" instead. -- 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. -- | (Deprecated) Remove the first word of the name.
nameTail :: l a -> ModifiedLayout Rename l a nameTail :: l a -> ModifiedLayout Rename l a
nameTail = renamed [CutWordsLeft 1] nameTail = renamed [CutWordsLeft 1]

5
XMonad/Layout/Renamed.hs
View File

@ -19,6 +19,7 @@
module XMonad.Layout.Renamed ( -- * Usage module XMonad.Layout.Renamed ( -- * Usage
-- $usage -- $usage
renamed renamed
, named
, Rename(..) ) where , Rename(..) ) where
import XMonad import XMonad
@ -40,6 +41,10 @@ import XMonad.Layout.LayoutModifier
renamed :: [Rename a] -> l a -> ModifiedLayout Rename l a renamed :: [Rename a] -> l a -> ModifiedLayout Rename l a
renamed = ModifiedLayout . Chain renamed = ModifiedLayout . Chain
-- | Rename a layout. (Convenience alias for @renamed [Replace s]@.)
named :: String -> l a -> ModifiedLayout Rename l a
named s = renamed [Replace s]
-- | The available renaming operations -- | The available renaming operations
data Rename a = CutLeft Int -- ^ Remove a number of characters from the left data Rename a = CutLeft Int -- ^ Remove a number of characters from the left
| CutRight Int -- ^ Remove a number of characters from the right | CutRight Int -- ^ Remove a number of characters from the right