Strut-avoiding scratchpads?

Strutless.hs

module Strutless where

import XMonad
import XMonad.StackSet (RationalRect)
import qualified XMonad.StackSet as W

import Data.Set (Set)
import XMonad.Util.Types (Direction2D)
import XMonad.Util.Rectangle (toRatio)
import XMonad.Util.NamedScratchpad (customFloating)
import XMonad.Hooks.ManageDocks (calcGap)

strutlessRR :: Set Direction2D -> X RationalRect
strutlessRR ds = do
  calc <- calcGap ds
  SD rect <- gets (W.screenDetail . W.current . windowset)
  pure (calc rect `toRatio` rect)

strutlessFloating :: Set Direction2D -> ManageHook
strutlessFloating ds = liftX (strutlessRR ds) >>= customFloating