mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
34 lines
976 B
Haskell
34 lines
976 B
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Actions.NoBorders
|
|
-- Copyright : (c) Lukas Mai
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : Lukas Mai <l.mai@web.de>
|
|
-- Stability : stable
|
|
-- Portability : unportable
|
|
--
|
|
-- This module provides helper functions for dealing with window borders.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Actions.NoBorders (
|
|
toggleBorder
|
|
) where
|
|
|
|
import XMonad
|
|
|
|
-- | Toggle the border of the currently focused window. To use it, add a
|
|
-- keybinding like so:
|
|
--
|
|
-- > , ((modm, xK_g ), withFocused toggleBorder)
|
|
--
|
|
toggleBorder :: Window -> X ()
|
|
toggleBorder w = do
|
|
bw <- asks (borderWidth . config)
|
|
withDisplay $ \d -> io $ do
|
|
cw <- wa_border_width <$> getWindowAttributes d w
|
|
if cw == 0
|
|
then setWindowBorderWidth d w bw
|
|
else setWindowBorderWidth d w 0
|