From 164834491c16d6d7eb17f21b3ab8b8a2f27d51bf Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Thu, 20 Dec 2007 21:39:53 +0100 Subject: add XMonad.Actions.NoBorders darcs-hash:20071220203953-462cf-2d453dbf8078836204f8baa420292adc7296fbc3.gz --- XMonad/Actions/NoBorders.hs | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 XMonad/Actions/NoBorders.hs (limited to 'XMonad/Actions/NoBorders.hs') diff --git a/XMonad/Actions/NoBorders.hs b/XMonad/Actions/NoBorders.hs new file mode 100644 index 0000000..a30d8b3 --- /dev/null +++ b/XMonad/Actions/NoBorders.hs @@ -0,0 +1,33 @@ +----------------------------------------------------------------------------- +-- | +-- Module : XMonad.Actions.NoBorders +-- Copyright : (c) Lukas Mai +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : Lukas Mai +-- Stability : unstable +-- 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: +-- +-- > , ((modMask x, xK_g ), withFocused toggleBorder) +-- +toggleBorder :: Window -> X () +toggleBorder w = do + bw <- asks (borderWidth . config) + withDisplay $ \d -> io $ do + cw <- wa_border_width `fmap` getWindowAttributes d w + if cw == 0 + then setWindowBorderWidth d w bw + else setWindowBorderWidth d w 0 -- cgit v1.2.3