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 +++++++++++++++++++++++++++++++++ xmonad-contrib.cabal | 1 + 2 files changed, 34 insertions(+) create mode 100644 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 diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal index 79b1a6a..f878662 100644 --- a/xmonad-contrib.cabal +++ b/xmonad-contrib.cabal @@ -62,6 +62,7 @@ library XMonad.Actions.FloatKeys XMonad.Actions.FocusNth XMonad.Actions.MouseGestures + XMonad.Actions.NoBorders XMonad.Actions.RotSlaves XMonad.Actions.RotView XMonad.Actions.SimpleDate -- cgit v1.2.3