-- |
-- Module      : FULE.Container.Config.Padding
-- Description : Padding config.
-- Copyright   : (c) Paul Schnapp, 2023
-- License     : BSD3
-- Maintainer  : Paul Schnapp <paul.schnapp@gmail.com>
--
-- Datatype and functions for specifying visual padding.
module FULE.Container.Config.Padding where


-- | Visual padding around an element.
type Padding = (Int, Int)

-- | Padding to use; see parameters for details.
padding
  :: Int -- ^ Horizontal padding to use.
  -> Int -- ^ Vertical padding to use.
  -> Padding
padding :: Int -> Int -> Padding
padding Int
horiz Int
vert = (Int
horiz, Int
vert)

-- | Don't use any padding.
noPadding :: Padding
noPadding :: Padding
noPadding = (Int
0, Int
0)