module Graphics.Gnuplot.Frame.OptionSet.Style (
   fillSolid,
   fillBorder,
   fillBorderLineType,
   ) where

import qualified Graphics.Gnuplot.Private.FrameOptionSet as OptionSet
import qualified Graphics.Gnuplot.Private.FrameOption as Option
import qualified Graphics.Gnuplot.Private.Graph as Graph

import Graphics.Gnuplot.Private.FrameOptionSet (T, )

-- import Graphics.Gnuplot.Utility (quote, )


fillSolid :: Graph.C graph => T graph -> T graph
fillSolid =
   OptionSet.add Option.styleFillSolid ["solid"]

fillBorder :: Graph.C graph => Bool -> T graph -> T graph
fillBorder on =
   if on
     then OptionSet.add Option.styleFillBorder ["border"]
     else OptionSet.add Option.styleFillBorder ["noborder"]

fillBorderLineType :: Graph.C graph => Int -> T graph -> T graph
fillBorderLineType n =
   OptionSet.add Option.styleFillBorder ["border", show n]