-- replaces modules AlignF and SepF
module Spacer(module Spacer,Distance(..)) where
--import LayoutRequest
import Spacers
import Placer(spacer1F)

marginHVAlignF m h v = spacer1F $ marginHVAlignS m h v

alignF uladd bradd halign valign =
  spacer1F (hvMarginS uladd bradd `compS` hvAlignS halign valign)

layoutModifierF = spacer1F . layoutModifierS

noStretchF fh fv = spacer1F (noStretchS fh fv)

sepF = spacer1F . sepS
marginF = spacer1F . marginS