{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Slides.Types.Sum where
import Network.Google.Prelude hiding (Bytes)
data ParagraphStyleDirection
= TextDirectionUnspecified
| LeftToRight
| RightToLeft
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ParagraphStyleDirection
instance FromHttpApiData ParagraphStyleDirection where
parseQueryParam = \case
"TEXT_DIRECTION_UNSPECIFIED" -> Right TextDirectionUnspecified
"LEFT_TO_RIGHT" -> Right LeftToRight
"RIGHT_TO_LEFT" -> Right RightToLeft
x -> Left ("Unable to parse ParagraphStyleDirection from: " <> x)
instance ToHttpApiData ParagraphStyleDirection where
toQueryParam = \case
TextDirectionUnspecified -> "TEXT_DIRECTION_UNSPECIFIED"
LeftToRight -> "LEFT_TO_RIGHT"
RightToLeft -> "RIGHT_TO_LEFT"
instance FromJSON ParagraphStyleDirection where
parseJSON = parseJSONText "ParagraphStyleDirection"
instance ToJSON ParagraphStyleDirection where
toJSON = toJSONText
data TextStyleBaselineOffSet
= BaselineOffSetUnspecified
| None
| Superscript
| Subscript
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TextStyleBaselineOffSet
instance FromHttpApiData TextStyleBaselineOffSet where
parseQueryParam = \case
"BASELINE_OFFSET_UNSPECIFIED" -> Right BaselineOffSetUnspecified
"NONE" -> Right None
"SUPERSCRIPT" -> Right Superscript
"SUBSCRIPT" -> Right Subscript
x -> Left ("Unable to parse TextStyleBaselineOffSet from: " <> x)
instance ToHttpApiData TextStyleBaselineOffSet where
toQueryParam = \case
BaselineOffSetUnspecified -> "BASELINE_OFFSET_UNSPECIFIED"
None -> "NONE"
Superscript -> "SUPERSCRIPT"
Subscript -> "SUBSCRIPT"
instance FromJSON TextStyleBaselineOffSet where
parseJSON = parseJSONText "TextStyleBaselineOffSet"
instance ToJSON TextStyleBaselineOffSet where
toJSON = toJSONText
data TableCellPropertiesContentAlignment
= ContentAlignmentUnspecified
| ContentAlignmentUnsupported
| Top
| Middle
| Bottom
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TableCellPropertiesContentAlignment
instance FromHttpApiData TableCellPropertiesContentAlignment where
parseQueryParam = \case
"CONTENT_ALIGNMENT_UNSPECIFIED" -> Right ContentAlignmentUnspecified
"CONTENT_ALIGNMENT_UNSUPPORTED" -> Right ContentAlignmentUnsupported
"TOP" -> Right Top
"MIDDLE" -> Right Middle
"BOTTOM" -> Right Bottom
x -> Left ("Unable to parse TableCellPropertiesContentAlignment from: " <> x)
instance ToHttpApiData TableCellPropertiesContentAlignment where
toQueryParam = \case
ContentAlignmentUnspecified -> "CONTENT_ALIGNMENT_UNSPECIFIED"
ContentAlignmentUnsupported -> "CONTENT_ALIGNMENT_UNSUPPORTED"
Top -> "TOP"
Middle -> "MIDDLE"
Bottom -> "BOTTOM"
instance FromJSON TableCellPropertiesContentAlignment where
parseJSON = parseJSONText "TableCellPropertiesContentAlignment"
instance ToJSON TableCellPropertiesContentAlignment where
toJSON = toJSONText
data RangeType
= RangeTypeUnspecified
| FixedRange
| FromStartIndex
| All
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RangeType
instance FromHttpApiData RangeType where
parseQueryParam = \case
"RANGE_TYPE_UNSPECIFIED" -> Right RangeTypeUnspecified
"FIXED_RANGE" -> Right FixedRange
"FROM_START_INDEX" -> Right FromStartIndex
"ALL" -> Right All
x -> Left ("Unable to parse RangeType from: " <> x)
instance ToHttpApiData RangeType where
toQueryParam = \case
RangeTypeUnspecified -> "RANGE_TYPE_UNSPECIFIED"
FixedRange -> "FIXED_RANGE"
FromStartIndex -> "FROM_START_INDEX"
All -> "ALL"
instance FromJSON RangeType where
parseJSON = parseJSONText "RangeType"
instance ToJSON RangeType where
toJSON = toJSONText
data UpdatePageElementsZOrderRequestOperation
= ZOrderOperationUnspecified
| BringToFront
| BringForward
| SendBackward
| SendToBack
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable UpdatePageElementsZOrderRequestOperation
instance FromHttpApiData UpdatePageElementsZOrderRequestOperation where
parseQueryParam = \case
"Z_ORDER_OPERATION_UNSPECIFIED" -> Right ZOrderOperationUnspecified
"BRING_TO_FRONT" -> Right BringToFront
"BRING_FORWARD" -> Right BringForward
"SEND_BACKWARD" -> Right SendBackward
"SEND_TO_BACK" -> Right SendToBack
x -> Left ("Unable to parse UpdatePageElementsZOrderRequestOperation from: " <> x)
instance ToHttpApiData UpdatePageElementsZOrderRequestOperation where
toQueryParam = \case
ZOrderOperationUnspecified -> "Z_ORDER_OPERATION_UNSPECIFIED"
BringToFront -> "BRING_TO_FRONT"
BringForward -> "BRING_FORWARD"
SendBackward -> "SEND_BACKWARD"
SendToBack -> "SEND_TO_BACK"
instance FromJSON UpdatePageElementsZOrderRequestOperation where
parseJSON = parseJSONText "UpdatePageElementsZOrderRequestOperation"
instance ToJSON UpdatePageElementsZOrderRequestOperation where
toJSON = toJSONText
data PageBackgRoundFillPropertyState
= Rendered
| NotRendered
| Inherit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PageBackgRoundFillPropertyState
instance FromHttpApiData PageBackgRoundFillPropertyState where
parseQueryParam = \case
"RENDERED" -> Right Rendered
"NOT_RENDERED" -> Right NotRendered
"INHERIT" -> Right Inherit
x -> Left ("Unable to parse PageBackgRoundFillPropertyState from: " <> x)
instance ToHttpApiData PageBackgRoundFillPropertyState where
toQueryParam = \case
Rendered -> "RENDERED"
NotRendered -> "NOT_RENDERED"
Inherit -> "INHERIT"
instance FromJSON PageBackgRoundFillPropertyState where
parseJSON = parseJSONText "PageBackgRoundFillPropertyState"
instance ToJSON PageBackgRoundFillPropertyState where
toJSON = toJSONText
data RecolorName
= RNNone
| RNLIGHT1
| RNLIGHT2
| RNLIGHT3
| RNLIGHT4
| RNLIGHT5
| RNLIGHT6
| RNLIGHT7
| RNLIGHT8
| RNLIGHT9
| RNLIGHT10
| RNDARK1
| RNDARK2
| RNDARK3
| RNDARK4
| RNDARK5
| RNDARK6
| RNDARK7
| RNDARK8
| RNDARK9
| RNDARK10
| RNGrayscale
| RNNegative
| RNSepia
| RNCustom
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RecolorName
instance FromHttpApiData RecolorName where
parseQueryParam = \case
"NONE" -> Right RNNone
"LIGHT1" -> Right RNLIGHT1
"LIGHT2" -> Right RNLIGHT2
"LIGHT3" -> Right RNLIGHT3
"LIGHT4" -> Right RNLIGHT4
"LIGHT5" -> Right RNLIGHT5
"LIGHT6" -> Right RNLIGHT6
"LIGHT7" -> Right RNLIGHT7
"LIGHT8" -> Right RNLIGHT8
"LIGHT9" -> Right RNLIGHT9
"LIGHT10" -> Right RNLIGHT10
"DARK1" -> Right RNDARK1
"DARK2" -> Right RNDARK2
"DARK3" -> Right RNDARK3
"DARK4" -> Right RNDARK4
"DARK5" -> Right RNDARK5
"DARK6" -> Right RNDARK6
"DARK7" -> Right RNDARK7
"DARK8" -> Right RNDARK8
"DARK9" -> Right RNDARK9
"DARK10" -> Right RNDARK10
"GRAYSCALE" -> Right RNGrayscale
"NEGATIVE" -> Right RNNegative
"SEPIA" -> Right RNSepia
"CUSTOM" -> Right RNCustom
x -> Left ("Unable to parse RecolorName from: " <> x)
instance ToHttpApiData RecolorName where
toQueryParam = \case
RNNone -> "NONE"
RNLIGHT1 -> "LIGHT1"
RNLIGHT2 -> "LIGHT2"
RNLIGHT3 -> "LIGHT3"
RNLIGHT4 -> "LIGHT4"
RNLIGHT5 -> "LIGHT5"
RNLIGHT6 -> "LIGHT6"
RNLIGHT7 -> "LIGHT7"
RNLIGHT8 -> "LIGHT8"
RNLIGHT9 -> "LIGHT9"
RNLIGHT10 -> "LIGHT10"
RNDARK1 -> "DARK1"
RNDARK2 -> "DARK2"
RNDARK3 -> "DARK3"
RNDARK4 -> "DARK4"
RNDARK5 -> "DARK5"
RNDARK6 -> "DARK6"
RNDARK7 -> "DARK7"
RNDARK8 -> "DARK8"
RNDARK9 -> "DARK9"
RNDARK10 -> "DARK10"
RNGrayscale -> "GRAYSCALE"
RNNegative -> "NEGATIVE"
RNSepia -> "SEPIA"
RNCustom -> "CUSTOM"
instance FromJSON RecolorName where
parseJSON = parseJSONText "RecolorName"
instance ToJSON RecolorName where
toJSON = toJSONText
data CreateParagraphBulletsRequestBulletPreset
= BulletDiscCircleSquare
| BulletDiamondxARROW3DSquare
| BulletCheckbox
| BulletArrowDiamondDisc
| BulletStarCircleSquare
| BulletARROW3DCircleSquare
| BulletLefttriangleDiamondDisc
| BulletDiamondxHollowdiamondSquare
| BulletDiamondCircleSquare
| NumberedDigitAlphaRoman
| NumberedDigitAlphaRomanParens
| NumberedDigitNested
| NumberedUpperalphaAlphaRoman
| NumberedUpperromanUpperalphaDigit
| NumberedZerodigitAlphaRoman
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CreateParagraphBulletsRequestBulletPreset
instance FromHttpApiData CreateParagraphBulletsRequestBulletPreset where
parseQueryParam = \case
"BULLET_DISC_CIRCLE_SQUARE" -> Right BulletDiscCircleSquare
"BULLET_DIAMONDX_ARROW3D_SQUARE" -> Right BulletDiamondxARROW3DSquare
"BULLET_CHECKBOX" -> Right BulletCheckbox
"BULLET_ARROW_DIAMOND_DISC" -> Right BulletArrowDiamondDisc
"BULLET_STAR_CIRCLE_SQUARE" -> Right BulletStarCircleSquare
"BULLET_ARROW3D_CIRCLE_SQUARE" -> Right BulletARROW3DCircleSquare
"BULLET_LEFTTRIANGLE_DIAMOND_DISC" -> Right BulletLefttriangleDiamondDisc
"BULLET_DIAMONDX_HOLLOWDIAMOND_SQUARE" -> Right BulletDiamondxHollowdiamondSquare
"BULLET_DIAMOND_CIRCLE_SQUARE" -> Right BulletDiamondCircleSquare
"NUMBERED_DIGIT_ALPHA_ROMAN" -> Right NumberedDigitAlphaRoman
"NUMBERED_DIGIT_ALPHA_ROMAN_PARENS" -> Right NumberedDigitAlphaRomanParens
"NUMBERED_DIGIT_NESTED" -> Right NumberedDigitNested
"NUMBERED_UPPERALPHA_ALPHA_ROMAN" -> Right NumberedUpperalphaAlphaRoman
"NUMBERED_UPPERROMAN_UPPERALPHA_DIGIT" -> Right NumberedUpperromanUpperalphaDigit
"NUMBERED_ZERODIGIT_ALPHA_ROMAN" -> Right NumberedZerodigitAlphaRoman
x -> Left ("Unable to parse CreateParagraphBulletsRequestBulletPreset from: " <> x)
instance ToHttpApiData CreateParagraphBulletsRequestBulletPreset where
toQueryParam = \case
BulletDiscCircleSquare -> "BULLET_DISC_CIRCLE_SQUARE"
BulletDiamondxARROW3DSquare -> "BULLET_DIAMONDX_ARROW3D_SQUARE"
BulletCheckbox -> "BULLET_CHECKBOX"
BulletArrowDiamondDisc -> "BULLET_ARROW_DIAMOND_DISC"
BulletStarCircleSquare -> "BULLET_STAR_CIRCLE_SQUARE"
BulletARROW3DCircleSquare -> "BULLET_ARROW3D_CIRCLE_SQUARE"
BulletLefttriangleDiamondDisc -> "BULLET_LEFTTRIANGLE_DIAMOND_DISC"
BulletDiamondxHollowdiamondSquare -> "BULLET_DIAMONDX_HOLLOWDIAMOND_SQUARE"
BulletDiamondCircleSquare -> "BULLET_DIAMOND_CIRCLE_SQUARE"
NumberedDigitAlphaRoman -> "NUMBERED_DIGIT_ALPHA_ROMAN"
NumberedDigitAlphaRomanParens -> "NUMBERED_DIGIT_ALPHA_ROMAN_PARENS"
NumberedDigitNested -> "NUMBERED_DIGIT_NESTED"
NumberedUpperalphaAlphaRoman -> "NUMBERED_UPPERALPHA_ALPHA_ROMAN"
NumberedUpperromanUpperalphaDigit -> "NUMBERED_UPPERROMAN_UPPERALPHA_DIGIT"
NumberedZerodigitAlphaRoman -> "NUMBERED_ZERODIGIT_ALPHA_ROMAN"
instance FromJSON CreateParagraphBulletsRequestBulletPreset where
parseJSON = parseJSONText "CreateParagraphBulletsRequestBulletPreset"
instance ToJSON CreateParagraphBulletsRequestBulletPreset where
toJSON = toJSONText
data CreateShapeRequestShapeType
= TypeUnspecified
| TextBox
| Rectangle
| RoundRectangle
| Ellipse
| Arc
| BentArrow
| BentUpArrow
| Bevel
| BlockArc
| BracePair
| BracketPair
| Can
| Chevron
| Chord
| Cloud
| Corner
| Cube
| CurvedDownArrow
| CurvedLeftArrow
| CurvedRightArrow
| CurvedUpArrow
| Decagon
| DiagonalStripe
| Diamond
| Dodecagon
| Donut
| DoubleWave
| DownArrow
| DownArrowCallout
| FoldedCorner
| Frame
| HalfFrame
| Heart
| Heptagon
| Hexagon
| HomePlate
| HorizontalScroll
| IrregularSeal1
| IrregularSeal2
| LeftArrow
| LeftArrowCallout
| LeftBrace
| LeftBracket
| LeftRightArrow
| LeftRightArrowCallout
| LeftRightUpArrow
| LeftUpArrow
| LightningBolt
| MathDivide
| MathEqual
| MathMinus
| MathMultiply
| MathNotEqual
| MathPlus
| Moon
| NoSmoking
| NotchedRightArrow
| Octagon
| Parallelogram
| Pentagon
| Pie
| Plaque
| Plus
| QuadArrow
| QuadArrowCallout
| Ribbon
| Ribbon2
| RightArrow
| RightArrowCallout
| RightBrace
| RightBracket
| Round1Rectangle
| Round2DiagonalRectangle
| Round2SameRectangle
| RightTriangle
| SmileyFace
| Snip1Rectangle
| Snip2DiagonalRectangle
| Snip2SameRectangle
| SnipRoundRectangle
| Star10
| Star12
| Star16
| Star24
| Star32
| Star4
| Star5
| Star6
| Star7
| Star8
| StripedRightArrow
| Sun
| Trapezoid
| Triangle
| UpArrow
| UpArrowCallout
| UpDownArrow
| UturnArrow
| VerticalScroll
| Wave
| WedgeEllipseCallout
| WedgeRectangleCallout
| WedgeRoundRectangleCallout
| FlowChartAlternateProcess
| FlowChartCollate
| FlowChartConnector
| FlowChartDecision
| FlowChartDelay
| FlowChartDisplay
| FlowChartDocument
| FlowChartExtract
| FlowChartInputOutput
| FlowChartInternalStorage
| FlowChartMagneticDisk
| FlowChartMagneticDrum
| FlowChartMagneticTape
| FlowChartManualInput
| FlowChartManualOperation
| FlowChartMerge
| FlowChartMultidocument
| FlowChartOfflineStorage
| FlowChartOffpageConnector
| FlowChartOnlineStorage
| FlowChartOr
| FlowChartPredefinedProcess
| FlowChartPreparation
| FlowChartProcess
| FlowChartPunchedCard
| FlowChartPunchedTape
| FlowChartSort
| FlowChartSummingJunction
| FlowChartTerminator
| ArrowEast
| ArrowNorthEast
| ArrowNorth
| Speech
| Starburst
| Teardrop
| EllipseRibbon
| EllipseRibbon2
| CloudCallout
| Custom
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CreateShapeRequestShapeType
instance FromHttpApiData CreateShapeRequestShapeType where
parseQueryParam = \case
"TYPE_UNSPECIFIED" -> Right TypeUnspecified
"TEXT_BOX" -> Right TextBox
"RECTANGLE" -> Right Rectangle
"ROUND_RECTANGLE" -> Right RoundRectangle
"ELLIPSE" -> Right Ellipse
"ARC" -> Right Arc
"BENT_ARROW" -> Right BentArrow
"BENT_UP_ARROW" -> Right BentUpArrow
"BEVEL" -> Right Bevel
"BLOCK_ARC" -> Right BlockArc
"BRACE_PAIR" -> Right BracePair
"BRACKET_PAIR" -> Right BracketPair
"CAN" -> Right Can
"CHEVRON" -> Right Chevron
"CHORD" -> Right Chord
"CLOUD" -> Right Cloud
"CORNER" -> Right Corner
"CUBE" -> Right Cube
"CURVED_DOWN_ARROW" -> Right CurvedDownArrow
"CURVED_LEFT_ARROW" -> Right CurvedLeftArrow
"CURVED_RIGHT_ARROW" -> Right CurvedRightArrow
"CURVED_UP_ARROW" -> Right CurvedUpArrow
"DECAGON" -> Right Decagon
"DIAGONAL_STRIPE" -> Right DiagonalStripe
"DIAMOND" -> Right Diamond
"DODECAGON" -> Right Dodecagon
"DONUT" -> Right Donut
"DOUBLE_WAVE" -> Right DoubleWave
"DOWN_ARROW" -> Right DownArrow
"DOWN_ARROW_CALLOUT" -> Right DownArrowCallout
"FOLDED_CORNER" -> Right FoldedCorner
"FRAME" -> Right Frame
"HALF_FRAME" -> Right HalfFrame
"HEART" -> Right Heart
"HEPTAGON" -> Right Heptagon
"HEXAGON" -> Right Hexagon
"HOME_PLATE" -> Right HomePlate
"HORIZONTAL_SCROLL" -> Right HorizontalScroll
"IRREGULAR_SEAL_1" -> Right IrregularSeal1
"IRREGULAR_SEAL_2" -> Right IrregularSeal2
"LEFT_ARROW" -> Right LeftArrow
"LEFT_ARROW_CALLOUT" -> Right LeftArrowCallout
"LEFT_BRACE" -> Right LeftBrace
"LEFT_BRACKET" -> Right LeftBracket
"LEFT_RIGHT_ARROW" -> Right LeftRightArrow
"LEFT_RIGHT_ARROW_CALLOUT" -> Right LeftRightArrowCallout
"LEFT_RIGHT_UP_ARROW" -> Right LeftRightUpArrow
"LEFT_UP_ARROW" -> Right LeftUpArrow
"LIGHTNING_BOLT" -> Right LightningBolt
"MATH_DIVIDE" -> Right MathDivide
"MATH_EQUAL" -> Right MathEqual
"MATH_MINUS" -> Right MathMinus
"MATH_MULTIPLY" -> Right MathMultiply
"MATH_NOT_EQUAL" -> Right MathNotEqual
"MATH_PLUS" -> Right MathPlus
"MOON" -> Right Moon
"NO_SMOKING" -> Right NoSmoking
"NOTCHED_RIGHT_ARROW" -> Right NotchedRightArrow
"OCTAGON" -> Right Octagon
"PARALLELOGRAM" -> Right Parallelogram
"PENTAGON" -> Right Pentagon
"PIE" -> Right Pie
"PLAQUE" -> Right Plaque
"PLUS" -> Right Plus
"QUAD_ARROW" -> Right QuadArrow
"QUAD_ARROW_CALLOUT" -> Right QuadArrowCallout
"RIBBON" -> Right Ribbon
"RIBBON_2" -> Right Ribbon2
"RIGHT_ARROW" -> Right RightArrow
"RIGHT_ARROW_CALLOUT" -> Right RightArrowCallout
"RIGHT_BRACE" -> Right RightBrace
"RIGHT_BRACKET" -> Right RightBracket
"ROUND_1_RECTANGLE" -> Right Round1Rectangle
"ROUND_2_DIAGONAL_RECTANGLE" -> Right Round2DiagonalRectangle
"ROUND_2_SAME_RECTANGLE" -> Right Round2SameRectangle
"RIGHT_TRIANGLE" -> Right RightTriangle
"SMILEY_FACE" -> Right SmileyFace
"SNIP_1_RECTANGLE" -> Right Snip1Rectangle
"SNIP_2_DIAGONAL_RECTANGLE" -> Right Snip2DiagonalRectangle
"SNIP_2_SAME_RECTANGLE" -> Right Snip2SameRectangle
"SNIP_ROUND_RECTANGLE" -> Right SnipRoundRectangle
"STAR_10" -> Right Star10
"STAR_12" -> Right Star12
"STAR_16" -> Right Star16
"STAR_24" -> Right Star24
"STAR_32" -> Right Star32
"STAR_4" -> Right Star4
"STAR_5" -> Right Star5
"STAR_6" -> Right Star6
"STAR_7" -> Right Star7
"STAR_8" -> Right Star8
"STRIPED_RIGHT_ARROW" -> Right StripedRightArrow
"SUN" -> Right Sun
"TRAPEZOID" -> Right Trapezoid
"TRIANGLE" -> Right Triangle
"UP_ARROW" -> Right UpArrow
"UP_ARROW_CALLOUT" -> Right UpArrowCallout
"UP_DOWN_ARROW" -> Right UpDownArrow
"UTURN_ARROW" -> Right UturnArrow
"VERTICAL_SCROLL" -> Right VerticalScroll
"WAVE" -> Right Wave
"WEDGE_ELLIPSE_CALLOUT" -> Right WedgeEllipseCallout
"WEDGE_RECTANGLE_CALLOUT" -> Right WedgeRectangleCallout
"WEDGE_ROUND_RECTANGLE_CALLOUT" -> Right WedgeRoundRectangleCallout
"FLOW_CHART_ALTERNATE_PROCESS" -> Right FlowChartAlternateProcess
"FLOW_CHART_COLLATE" -> Right FlowChartCollate
"FLOW_CHART_CONNECTOR" -> Right FlowChartConnector
"FLOW_CHART_DECISION" -> Right FlowChartDecision
"FLOW_CHART_DELAY" -> Right FlowChartDelay
"FLOW_CHART_DISPLAY" -> Right FlowChartDisplay
"FLOW_CHART_DOCUMENT" -> Right FlowChartDocument
"FLOW_CHART_EXTRACT" -> Right FlowChartExtract
"FLOW_CHART_INPUT_OUTPUT" -> Right FlowChartInputOutput
"FLOW_CHART_INTERNAL_STORAGE" -> Right FlowChartInternalStorage
"FLOW_CHART_MAGNETIC_DISK" -> Right FlowChartMagneticDisk
"FLOW_CHART_MAGNETIC_DRUM" -> Right FlowChartMagneticDrum
"FLOW_CHART_MAGNETIC_TAPE" -> Right FlowChartMagneticTape
"FLOW_CHART_MANUAL_INPUT" -> Right FlowChartManualInput
"FLOW_CHART_MANUAL_OPERATION" -> Right FlowChartManualOperation
"FLOW_CHART_MERGE" -> Right FlowChartMerge
"FLOW_CHART_MULTIDOCUMENT" -> Right FlowChartMultidocument
"FLOW_CHART_OFFLINE_STORAGE" -> Right FlowChartOfflineStorage
"FLOW_CHART_OFFPAGE_CONNECTOR" -> Right FlowChartOffpageConnector
"FLOW_CHART_ONLINE_STORAGE" -> Right FlowChartOnlineStorage
"FLOW_CHART_OR" -> Right FlowChartOr
"FLOW_CHART_PREDEFINED_PROCESS" -> Right FlowChartPredefinedProcess
"FLOW_CHART_PREPARATION" -> Right FlowChartPreparation
"FLOW_CHART_PROCESS" -> Right FlowChartProcess
"FLOW_CHART_PUNCHED_CARD" -> Right FlowChartPunchedCard
"FLOW_CHART_PUNCHED_TAPE" -> Right FlowChartPunchedTape
"FLOW_CHART_SORT" -> Right FlowChartSort
"FLOW_CHART_SUMMING_JUNCTION" -> Right FlowChartSummingJunction
"FLOW_CHART_TERMINATOR" -> Right FlowChartTerminator
"ARROW_EAST" -> Right ArrowEast
"ARROW_NORTH_EAST" -> Right ArrowNorthEast
"ARROW_NORTH" -> Right ArrowNorth
"SPEECH" -> Right Speech
"STARBURST" -> Right Starburst
"TEARDROP" -> Right Teardrop
"ELLIPSE_RIBBON" -> Right EllipseRibbon
"ELLIPSE_RIBBON_2" -> Right EllipseRibbon2
"CLOUD_CALLOUT" -> Right CloudCallout
"CUSTOM" -> Right Custom
x -> Left ("Unable to parse CreateShapeRequestShapeType from: " <> x)
instance ToHttpApiData CreateShapeRequestShapeType where
toQueryParam = \case
TypeUnspecified -> "TYPE_UNSPECIFIED"
TextBox -> "TEXT_BOX"
Rectangle -> "RECTANGLE"
RoundRectangle -> "ROUND_RECTANGLE"
Ellipse -> "ELLIPSE"
Arc -> "ARC"
BentArrow -> "BENT_ARROW"
BentUpArrow -> "BENT_UP_ARROW"
Bevel -> "BEVEL"
BlockArc -> "BLOCK_ARC"
BracePair -> "BRACE_PAIR"
BracketPair -> "BRACKET_PAIR"
Can -> "CAN"
Chevron -> "CHEVRON"
Chord -> "CHORD"
Cloud -> "CLOUD"
Corner -> "CORNER"
Cube -> "CUBE"
CurvedDownArrow -> "CURVED_DOWN_ARROW"
CurvedLeftArrow -> "CURVED_LEFT_ARROW"
CurvedRightArrow -> "CURVED_RIGHT_ARROW"
CurvedUpArrow -> "CURVED_UP_ARROW"
Decagon -> "DECAGON"
DiagonalStripe -> "DIAGONAL_STRIPE"
Diamond -> "DIAMOND"
Dodecagon -> "DODECAGON"
Donut -> "DONUT"
DoubleWave -> "DOUBLE_WAVE"
DownArrow -> "DOWN_ARROW"
DownArrowCallout -> "DOWN_ARROW_CALLOUT"
FoldedCorner -> "FOLDED_CORNER"
Frame -> "FRAME"
HalfFrame -> "HALF_FRAME"
Heart -> "HEART"
Heptagon -> "HEPTAGON"
Hexagon -> "HEXAGON"
HomePlate -> "HOME_PLATE"
HorizontalScroll -> "HORIZONTAL_SCROLL"
IrregularSeal1 -> "IRREGULAR_SEAL_1"
IrregularSeal2 -> "IRREGULAR_SEAL_2"
LeftArrow -> "LEFT_ARROW"
LeftArrowCallout -> "LEFT_ARROW_CALLOUT"
LeftBrace -> "LEFT_BRACE"
LeftBracket -> "LEFT_BRACKET"
LeftRightArrow -> "LEFT_RIGHT_ARROW"
LeftRightArrowCallout -> "LEFT_RIGHT_ARROW_CALLOUT"
LeftRightUpArrow -> "LEFT_RIGHT_UP_ARROW"
LeftUpArrow -> "LEFT_UP_ARROW"
LightningBolt -> "LIGHTNING_BOLT"
MathDivide -> "MATH_DIVIDE"
MathEqual -> "MATH_EQUAL"
MathMinus -> "MATH_MINUS"
MathMultiply -> "MATH_MULTIPLY"
MathNotEqual -> "MATH_NOT_EQUAL"
MathPlus -> "MATH_PLUS"
Moon -> "MOON"
NoSmoking -> "NO_SMOKING"
NotchedRightArrow -> "NOTCHED_RIGHT_ARROW"
Octagon -> "OCTAGON"
Parallelogram -> "PARALLELOGRAM"
Pentagon -> "PENTAGON"
Pie -> "PIE"
Plaque -> "PLAQUE"
Plus -> "PLUS"
QuadArrow -> "QUAD_ARROW"
QuadArrowCallout -> "QUAD_ARROW_CALLOUT"
Ribbon -> "RIBBON"
Ribbon2 -> "RIBBON_2"
RightArrow -> "RIGHT_ARROW"
RightArrowCallout -> "RIGHT_ARROW_CALLOUT"
RightBrace -> "RIGHT_BRACE"
RightBracket -> "RIGHT_BRACKET"
Round1Rectangle -> "ROUND_1_RECTANGLE"
Round2DiagonalRectangle -> "ROUND_2_DIAGONAL_RECTANGLE"
Round2SameRectangle -> "ROUND_2_SAME_RECTANGLE"
RightTriangle -> "RIGHT_TRIANGLE"
SmileyFace -> "SMILEY_FACE"
Snip1Rectangle -> "SNIP_1_RECTANGLE"
Snip2DiagonalRectangle -> "SNIP_2_DIAGONAL_RECTANGLE"
Snip2SameRectangle -> "SNIP_2_SAME_RECTANGLE"
SnipRoundRectangle -> "SNIP_ROUND_RECTANGLE"
Star10 -> "STAR_10"
Star12 -> "STAR_12"
Star16 -> "STAR_16"
Star24 -> "STAR_24"
Star32 -> "STAR_32"
Star4 -> "STAR_4"
Star5 -> "STAR_5"
Star6 -> "STAR_6"
Star7 -> "STAR_7"
Star8 -> "STAR_8"
StripedRightArrow -> "STRIPED_RIGHT_ARROW"
Sun -> "SUN"
Trapezoid -> "TRAPEZOID"
Triangle -> "TRIANGLE"
UpArrow -> "UP_ARROW"
UpArrowCallout -> "UP_ARROW_CALLOUT"
UpDownArrow -> "UP_DOWN_ARROW"
UturnArrow -> "UTURN_ARROW"
VerticalScroll -> "VERTICAL_SCROLL"
Wave -> "WAVE"
WedgeEllipseCallout -> "WEDGE_ELLIPSE_CALLOUT"
WedgeRectangleCallout -> "WEDGE_RECTANGLE_CALLOUT"
WedgeRoundRectangleCallout -> "WEDGE_ROUND_RECTANGLE_CALLOUT"
FlowChartAlternateProcess -> "FLOW_CHART_ALTERNATE_PROCESS"
FlowChartCollate -> "FLOW_CHART_COLLATE"
FlowChartConnector -> "FLOW_CHART_CONNECTOR"
FlowChartDecision -> "FLOW_CHART_DECISION"
FlowChartDelay -> "FLOW_CHART_DELAY"
FlowChartDisplay -> "FLOW_CHART_DISPLAY"
FlowChartDocument -> "FLOW_CHART_DOCUMENT"
FlowChartExtract -> "FLOW_CHART_EXTRACT"
FlowChartInputOutput -> "FLOW_CHART_INPUT_OUTPUT"
FlowChartInternalStorage -> "FLOW_CHART_INTERNAL_STORAGE"
FlowChartMagneticDisk -> "FLOW_CHART_MAGNETIC_DISK"
FlowChartMagneticDrum -> "FLOW_CHART_MAGNETIC_DRUM"
FlowChartMagneticTape -> "FLOW_CHART_MAGNETIC_TAPE"
FlowChartManualInput -> "FLOW_CHART_MANUAL_INPUT"
FlowChartManualOperation -> "FLOW_CHART_MANUAL_OPERATION"
FlowChartMerge -> "FLOW_CHART_MERGE"
FlowChartMultidocument -> "FLOW_CHART_MULTIDOCUMENT"
FlowChartOfflineStorage -> "FLOW_CHART_OFFLINE_STORAGE"
FlowChartOffpageConnector -> "FLOW_CHART_OFFPAGE_CONNECTOR"
FlowChartOnlineStorage -> "FLOW_CHART_ONLINE_STORAGE"
FlowChartOr -> "FLOW_CHART_OR"
FlowChartPredefinedProcess -> "FLOW_CHART_PREDEFINED_PROCESS"
FlowChartPreparation -> "FLOW_CHART_PREPARATION"
FlowChartProcess -> "FLOW_CHART_PROCESS"
FlowChartPunchedCard -> "FLOW_CHART_PUNCHED_CARD"
FlowChartPunchedTape -> "FLOW_CHART_PUNCHED_TAPE"
FlowChartSort -> "FLOW_CHART_SORT"
FlowChartSummingJunction -> "FLOW_CHART_SUMMING_JUNCTION"
FlowChartTerminator -> "FLOW_CHART_TERMINATOR"
ArrowEast -> "ARROW_EAST"
ArrowNorthEast -> "ARROW_NORTH_EAST"
ArrowNorth -> "ARROW_NORTH"
Speech -> "SPEECH"
Starburst -> "STARBURST"
Teardrop -> "TEARDROP"
EllipseRibbon -> "ELLIPSE_RIBBON"
EllipseRibbon2 -> "ELLIPSE_RIBBON_2"
CloudCallout -> "CLOUD_CALLOUT"
Custom -> "CUSTOM"
instance FromJSON CreateShapeRequestShapeType where
parseJSON = parseJSONText "CreateShapeRequestShapeType"
instance ToJSON CreateShapeRequestShapeType where
toJSON = toJSONText
data LayoutReferencePredefinedLayout
= PredefinedLayoutUnspecified
| Blank
| CaptionOnly
| Title
| TitleAndBody
| TitleAndTwoColumns
| TitleOnly
| SectionHeader
| SectionTitleAndDescription
| OneColumnText
| MainPoint
| BigNumber
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LayoutReferencePredefinedLayout
instance FromHttpApiData LayoutReferencePredefinedLayout where
parseQueryParam = \case
"PREDEFINED_LAYOUT_UNSPECIFIED" -> Right PredefinedLayoutUnspecified
"BLANK" -> Right Blank
"CAPTION_ONLY" -> Right CaptionOnly
"TITLE" -> Right Title
"TITLE_AND_BODY" -> Right TitleAndBody
"TITLE_AND_TWO_COLUMNS" -> Right TitleAndTwoColumns
"TITLE_ONLY" -> Right TitleOnly
"SECTION_HEADER" -> Right SectionHeader
"SECTION_TITLE_AND_DESCRIPTION" -> Right SectionTitleAndDescription
"ONE_COLUMN_TEXT" -> Right OneColumnText
"MAIN_POINT" -> Right MainPoint
"BIG_NUMBER" -> Right BigNumber
x -> Left ("Unable to parse LayoutReferencePredefinedLayout from: " <> x)
instance ToHttpApiData LayoutReferencePredefinedLayout where
toQueryParam = \case
PredefinedLayoutUnspecified -> "PREDEFINED_LAYOUT_UNSPECIFIED"
Blank -> "BLANK"
CaptionOnly -> "CAPTION_ONLY"
Title -> "TITLE"
TitleAndBody -> "TITLE_AND_BODY"
TitleAndTwoColumns -> "TITLE_AND_TWO_COLUMNS"
TitleOnly -> "TITLE_ONLY"
SectionHeader -> "SECTION_HEADER"
SectionTitleAndDescription -> "SECTION_TITLE_AND_DESCRIPTION"
OneColumnText -> "ONE_COLUMN_TEXT"
MainPoint -> "MAIN_POINT"
BigNumber -> "BIG_NUMBER"
instance FromJSON LayoutReferencePredefinedLayout where
parseJSON = parseJSONText "LayoutReferencePredefinedLayout"
instance ToJSON LayoutReferencePredefinedLayout where
toJSON = toJSONText
data CreateLineRequestLineCategory
= Straight
| Bent
| Curved
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CreateLineRequestLineCategory
instance FromHttpApiData CreateLineRequestLineCategory where
parseQueryParam = \case
"STRAIGHT" -> Right Straight
"BENT" -> Right Bent
"CURVED" -> Right Curved
x -> Left ("Unable to parse CreateLineRequestLineCategory from: " <> x)
instance ToHttpApiData CreateLineRequestLineCategory where
toQueryParam = \case
Straight -> "STRAIGHT"
Bent -> "BENT"
Curved -> "CURVED"
instance FromJSON CreateLineRequestLineCategory where
parseJSON = parseJSONText "CreateLineRequestLineCategory"
instance ToJSON CreateLineRequestLineCategory where
toJSON = toJSONText
data ShapeShapeType
= SSTTypeUnspecified
| SSTTextBox
| SSTRectangle
| SSTRoundRectangle
| SSTEllipse
| SSTArc
| SSTBentArrow
| SSTBentUpArrow
| SSTBevel
| SSTBlockArc
| SSTBracePair
| SSTBracketPair
| SSTCan
| SSTChevron
| SSTChord
| SSTCloud
| SSTCorner
| SSTCube
| SSTCurvedDownArrow
| SSTCurvedLeftArrow
| SSTCurvedRightArrow
| SSTCurvedUpArrow
| SSTDecagon
| SSTDiagonalStripe
| SSTDiamond
| SSTDodecagon
| SSTDonut
| SSTDoubleWave
| SSTDownArrow
| SSTDownArrowCallout
| SSTFoldedCorner
| SSTFrame
| SSTHalfFrame
| SSTHeart
| SSTHeptagon
| SSTHexagon
| SSTHomePlate
| SSTHorizontalScroll
| SSTIrregularSeal1
| SSTIrregularSeal2
| SSTLeftArrow
| SSTLeftArrowCallout
| SSTLeftBrace
| SSTLeftBracket
| SSTLeftRightArrow
| SSTLeftRightArrowCallout
| SSTLeftRightUpArrow
| SSTLeftUpArrow
| SSTLightningBolt
| SSTMathDivide
| SSTMathEqual
| SSTMathMinus
| SSTMathMultiply
| SSTMathNotEqual
| SSTMathPlus
| SSTMoon
| SSTNoSmoking
| SSTNotchedRightArrow
| SSTOctagon
| SSTParallelogram
| SSTPentagon
| SSTPie
| SSTPlaque
| SSTPlus
| SSTQuadArrow
| SSTQuadArrowCallout
| SSTRibbon
| SSTRibbon2
| SSTRightArrow
| SSTRightArrowCallout
| SSTRightBrace
| SSTRightBracket
| SSTRound1Rectangle
| SSTRound2DiagonalRectangle
| SSTRound2SameRectangle
| SSTRightTriangle
| SSTSmileyFace
| SSTSnip1Rectangle
| SSTSnip2DiagonalRectangle
| SSTSnip2SameRectangle
| SSTSnipRoundRectangle
| SSTStar10
| SSTStar12
| SSTStar16
| SSTStar24
| SSTStar32
| SSTStar4
| SSTStar5
| SSTStar6
| SSTStar7
| SSTStar8
| SSTStripedRightArrow
| SSTSun
| SSTTrapezoid
| SSTTriangle
| SSTUpArrow
| SSTUpArrowCallout
| SSTUpDownArrow
| SSTUturnArrow
| SSTVerticalScroll
| SSTWave
| SSTWedgeEllipseCallout
| SSTWedgeRectangleCallout
| SSTWedgeRoundRectangleCallout
| SSTFlowChartAlternateProcess
| SSTFlowChartCollate
| SSTFlowChartConnector
| SSTFlowChartDecision
| SSTFlowChartDelay
| SSTFlowChartDisplay
| SSTFlowChartDocument
| SSTFlowChartExtract
| SSTFlowChartInputOutput
| SSTFlowChartInternalStorage
| SSTFlowChartMagneticDisk
| SSTFlowChartMagneticDrum
| SSTFlowChartMagneticTape
| SSTFlowChartManualInput
| SSTFlowChartManualOperation
| SSTFlowChartMerge
| SSTFlowChartMultidocument
| SSTFlowChartOfflineStorage
| SSTFlowChartOffpageConnector
| SSTFlowChartOnlineStorage
| SSTFlowChartOr
| SSTFlowChartPredefinedProcess
| SSTFlowChartPreparation
| SSTFlowChartProcess
| SSTFlowChartPunchedCard
| SSTFlowChartPunchedTape
| SSTFlowChartSort
| SSTFlowChartSummingJunction
| SSTFlowChartTerminator
| SSTArrowEast
| SSTArrowNorthEast
| SSTArrowNorth
| SSTSpeech
| SSTStarburst
| SSTTeardrop
| SSTEllipseRibbon
| SSTEllipseRibbon2
| SSTCloudCallout
| SSTCustom
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ShapeShapeType
instance FromHttpApiData ShapeShapeType where
parseQueryParam = \case
"TYPE_UNSPECIFIED" -> Right SSTTypeUnspecified
"TEXT_BOX" -> Right SSTTextBox
"RECTANGLE" -> Right SSTRectangle
"ROUND_RECTANGLE" -> Right SSTRoundRectangle
"ELLIPSE" -> Right SSTEllipse
"ARC" -> Right SSTArc
"BENT_ARROW" -> Right SSTBentArrow
"BENT_UP_ARROW" -> Right SSTBentUpArrow
"BEVEL" -> Right SSTBevel
"BLOCK_ARC" -> Right SSTBlockArc
"BRACE_PAIR" -> Right SSTBracePair
"BRACKET_PAIR" -> Right SSTBracketPair
"CAN" -> Right SSTCan
"CHEVRON" -> Right SSTChevron
"CHORD" -> Right SSTChord
"CLOUD" -> Right SSTCloud
"CORNER" -> Right SSTCorner
"CUBE" -> Right SSTCube
"CURVED_DOWN_ARROW" -> Right SSTCurvedDownArrow
"CURVED_LEFT_ARROW" -> Right SSTCurvedLeftArrow
"CURVED_RIGHT_ARROW" -> Right SSTCurvedRightArrow
"CURVED_UP_ARROW" -> Right SSTCurvedUpArrow
"DECAGON" -> Right SSTDecagon
"DIAGONAL_STRIPE" -> Right SSTDiagonalStripe
"DIAMOND" -> Right SSTDiamond
"DODECAGON" -> Right SSTDodecagon
"DONUT" -> Right SSTDonut
"DOUBLE_WAVE" -> Right SSTDoubleWave
"DOWN_ARROW" -> Right SSTDownArrow
"DOWN_ARROW_CALLOUT" -> Right SSTDownArrowCallout
"FOLDED_CORNER" -> Right SSTFoldedCorner
"FRAME" -> Right SSTFrame
"HALF_FRAME" -> Right SSTHalfFrame
"HEART" -> Right SSTHeart
"HEPTAGON" -> Right SSTHeptagon
"HEXAGON" -> Right SSTHexagon
"HOME_PLATE" -> Right SSTHomePlate
"HORIZONTAL_SCROLL" -> Right SSTHorizontalScroll
"IRREGULAR_SEAL_1" -> Right SSTIrregularSeal1
"IRREGULAR_SEAL_2" -> Right SSTIrregularSeal2
"LEFT_ARROW" -> Right SSTLeftArrow
"LEFT_ARROW_CALLOUT" -> Right SSTLeftArrowCallout
"LEFT_BRACE" -> Right SSTLeftBrace
"LEFT_BRACKET" -> Right SSTLeftBracket
"LEFT_RIGHT_ARROW" -> Right SSTLeftRightArrow
"LEFT_RIGHT_ARROW_CALLOUT" -> Right SSTLeftRightArrowCallout
"LEFT_RIGHT_UP_ARROW" -> Right SSTLeftRightUpArrow
"LEFT_UP_ARROW" -> Right SSTLeftUpArrow
"LIGHTNING_BOLT" -> Right SSTLightningBolt
"MATH_DIVIDE" -> Right SSTMathDivide
"MATH_EQUAL" -> Right SSTMathEqual
"MATH_MINUS" -> Right SSTMathMinus
"MATH_MULTIPLY" -> Right SSTMathMultiply
"MATH_NOT_EQUAL" -> Right SSTMathNotEqual
"MATH_PLUS" -> Right SSTMathPlus
"MOON" -> Right SSTMoon
"NO_SMOKING" -> Right SSTNoSmoking
"NOTCHED_RIGHT_ARROW" -> Right SSTNotchedRightArrow
"OCTAGON" -> Right SSTOctagon
"PARALLELOGRAM" -> Right SSTParallelogram
"PENTAGON" -> Right SSTPentagon
"PIE" -> Right SSTPie
"PLAQUE" -> Right SSTPlaque
"PLUS" -> Right SSTPlus
"QUAD_ARROW" -> Right SSTQuadArrow
"QUAD_ARROW_CALLOUT" -> Right SSTQuadArrowCallout
"RIBBON" -> Right SSTRibbon
"RIBBON_2" -> Right SSTRibbon2
"RIGHT_ARROW" -> Right SSTRightArrow
"RIGHT_ARROW_CALLOUT" -> Right SSTRightArrowCallout
"RIGHT_BRACE" -> Right SSTRightBrace
"RIGHT_BRACKET" -> Right SSTRightBracket
"ROUND_1_RECTANGLE" -> Right SSTRound1Rectangle
"ROUND_2_DIAGONAL_RECTANGLE" -> Right SSTRound2DiagonalRectangle
"ROUND_2_SAME_RECTANGLE" -> Right SSTRound2SameRectangle
"RIGHT_TRIANGLE" -> Right SSTRightTriangle
"SMILEY_FACE" -> Right SSTSmileyFace
"SNIP_1_RECTANGLE" -> Right SSTSnip1Rectangle
"SNIP_2_DIAGONAL_RECTANGLE" -> Right SSTSnip2DiagonalRectangle
"SNIP_2_SAME_RECTANGLE" -> Right SSTSnip2SameRectangle
"SNIP_ROUND_RECTANGLE" -> Right SSTSnipRoundRectangle
"STAR_10" -> Right SSTStar10
"STAR_12" -> Right SSTStar12
"STAR_16" -> Right SSTStar16
"STAR_24" -> Right SSTStar24
"STAR_32" -> Right SSTStar32
"STAR_4" -> Right SSTStar4
"STAR_5" -> Right SSTStar5
"STAR_6" -> Right SSTStar6
"STAR_7" -> Right SSTStar7
"STAR_8" -> Right SSTStar8
"STRIPED_RIGHT_ARROW" -> Right SSTStripedRightArrow
"SUN" -> Right SSTSun
"TRAPEZOID" -> Right SSTTrapezoid
"TRIANGLE" -> Right SSTTriangle
"UP_ARROW" -> Right SSTUpArrow
"UP_ARROW_CALLOUT" -> Right SSTUpArrowCallout
"UP_DOWN_ARROW" -> Right SSTUpDownArrow
"UTURN_ARROW" -> Right SSTUturnArrow
"VERTICAL_SCROLL" -> Right SSTVerticalScroll
"WAVE" -> Right SSTWave
"WEDGE_ELLIPSE_CALLOUT" -> Right SSTWedgeEllipseCallout
"WEDGE_RECTANGLE_CALLOUT" -> Right SSTWedgeRectangleCallout
"WEDGE_ROUND_RECTANGLE_CALLOUT" -> Right SSTWedgeRoundRectangleCallout
"FLOW_CHART_ALTERNATE_PROCESS" -> Right SSTFlowChartAlternateProcess
"FLOW_CHART_COLLATE" -> Right SSTFlowChartCollate
"FLOW_CHART_CONNECTOR" -> Right SSTFlowChartConnector
"FLOW_CHART_DECISION" -> Right SSTFlowChartDecision
"FLOW_CHART_DELAY" -> Right SSTFlowChartDelay
"FLOW_CHART_DISPLAY" -> Right SSTFlowChartDisplay
"FLOW_CHART_DOCUMENT" -> Right SSTFlowChartDocument
"FLOW_CHART_EXTRACT" -> Right SSTFlowChartExtract
"FLOW_CHART_INPUT_OUTPUT" -> Right SSTFlowChartInputOutput
"FLOW_CHART_INTERNAL_STORAGE" -> Right SSTFlowChartInternalStorage
"FLOW_CHART_MAGNETIC_DISK" -> Right SSTFlowChartMagneticDisk
"FLOW_CHART_MAGNETIC_DRUM" -> Right SSTFlowChartMagneticDrum
"FLOW_CHART_MAGNETIC_TAPE" -> Right SSTFlowChartMagneticTape
"FLOW_CHART_MANUAL_INPUT" -> Right SSTFlowChartManualInput
"FLOW_CHART_MANUAL_OPERATION" -> Right SSTFlowChartManualOperation
"FLOW_CHART_MERGE" -> Right SSTFlowChartMerge
"FLOW_CHART_MULTIDOCUMENT" -> Right SSTFlowChartMultidocument
"FLOW_CHART_OFFLINE_STORAGE" -> Right SSTFlowChartOfflineStorage
"FLOW_CHART_OFFPAGE_CONNECTOR" -> Right SSTFlowChartOffpageConnector
"FLOW_CHART_ONLINE_STORAGE" -> Right SSTFlowChartOnlineStorage
"FLOW_CHART_OR" -> Right SSTFlowChartOr
"FLOW_CHART_PREDEFINED_PROCESS" -> Right SSTFlowChartPredefinedProcess
"FLOW_CHART_PREPARATION" -> Right SSTFlowChartPreparation
"FLOW_CHART_PROCESS" -> Right SSTFlowChartProcess
"FLOW_CHART_PUNCHED_CARD" -> Right SSTFlowChartPunchedCard
"FLOW_CHART_PUNCHED_TAPE" -> Right SSTFlowChartPunchedTape
"FLOW_CHART_SORT" -> Right SSTFlowChartSort
"FLOW_CHART_SUMMING_JUNCTION" -> Right SSTFlowChartSummingJunction
"FLOW_CHART_TERMINATOR" -> Right SSTFlowChartTerminator
"ARROW_EAST" -> Right SSTArrowEast
"ARROW_NORTH_EAST" -> Right SSTArrowNorthEast
"ARROW_NORTH" -> Right SSTArrowNorth
"SPEECH" -> Right SSTSpeech
"STARBURST" -> Right SSTStarburst
"TEARDROP" -> Right SSTTeardrop
"ELLIPSE_RIBBON" -> Right SSTEllipseRibbon
"ELLIPSE_RIBBON_2" -> Right SSTEllipseRibbon2
"CLOUD_CALLOUT" -> Right SSTCloudCallout
"CUSTOM" -> Right SSTCustom
x -> Left ("Unable to parse ShapeShapeType from: " <> x)
instance ToHttpApiData ShapeShapeType where
toQueryParam = \case
SSTTypeUnspecified -> "TYPE_UNSPECIFIED"
SSTTextBox -> "TEXT_BOX"
SSTRectangle -> "RECTANGLE"
SSTRoundRectangle -> "ROUND_RECTANGLE"
SSTEllipse -> "ELLIPSE"
SSTArc -> "ARC"
SSTBentArrow -> "BENT_ARROW"
SSTBentUpArrow -> "BENT_UP_ARROW"
SSTBevel -> "BEVEL"
SSTBlockArc -> "BLOCK_ARC"
SSTBracePair -> "BRACE_PAIR"
SSTBracketPair -> "BRACKET_PAIR"
SSTCan -> "CAN"
SSTChevron -> "CHEVRON"
SSTChord -> "CHORD"
SSTCloud -> "CLOUD"
SSTCorner -> "CORNER"
SSTCube -> "CUBE"
SSTCurvedDownArrow -> "CURVED_DOWN_ARROW"
SSTCurvedLeftArrow -> "CURVED_LEFT_ARROW"
SSTCurvedRightArrow -> "CURVED_RIGHT_ARROW"
SSTCurvedUpArrow -> "CURVED_UP_ARROW"
SSTDecagon -> "DECAGON"
SSTDiagonalStripe -> "DIAGONAL_STRIPE"
SSTDiamond -> "DIAMOND"
SSTDodecagon -> "DODECAGON"
SSTDonut -> "DONUT"
SSTDoubleWave -> "DOUBLE_WAVE"
SSTDownArrow -> "DOWN_ARROW"
SSTDownArrowCallout -> "DOWN_ARROW_CALLOUT"
SSTFoldedCorner -> "FOLDED_CORNER"
SSTFrame -> "FRAME"
SSTHalfFrame -> "HALF_FRAME"
SSTHeart -> "HEART"
SSTHeptagon -> "HEPTAGON"
SSTHexagon -> "HEXAGON"
SSTHomePlate -> "HOME_PLATE"
SSTHorizontalScroll -> "HORIZONTAL_SCROLL"
SSTIrregularSeal1 -> "IRREGULAR_SEAL_1"
SSTIrregularSeal2 -> "IRREGULAR_SEAL_2"
SSTLeftArrow -> "LEFT_ARROW"
SSTLeftArrowCallout -> "LEFT_ARROW_CALLOUT"
SSTLeftBrace -> "LEFT_BRACE"
SSTLeftBracket -> "LEFT_BRACKET"
SSTLeftRightArrow -> "LEFT_RIGHT_ARROW"
SSTLeftRightArrowCallout -> "LEFT_RIGHT_ARROW_CALLOUT"
SSTLeftRightUpArrow -> "LEFT_RIGHT_UP_ARROW"
SSTLeftUpArrow -> "LEFT_UP_ARROW"
SSTLightningBolt -> "LIGHTNING_BOLT"
SSTMathDivide -> "MATH_DIVIDE"
SSTMathEqual -> "MATH_EQUAL"
SSTMathMinus -> "MATH_MINUS"
SSTMathMultiply -> "MATH_MULTIPLY"
SSTMathNotEqual -> "MATH_NOT_EQUAL"
SSTMathPlus -> "MATH_PLUS"
SSTMoon -> "MOON"
SSTNoSmoking -> "NO_SMOKING"
SSTNotchedRightArrow -> "NOTCHED_RIGHT_ARROW"
SSTOctagon -> "OCTAGON"
SSTParallelogram -> "PARALLELOGRAM"
SSTPentagon -> "PENTAGON"
SSTPie -> "PIE"
SSTPlaque -> "PLAQUE"
SSTPlus -> "PLUS"
SSTQuadArrow -> "QUAD_ARROW"
SSTQuadArrowCallout -> "QUAD_ARROW_CALLOUT"
SSTRibbon -> "RIBBON"
SSTRibbon2 -> "RIBBON_2"
SSTRightArrow -> "RIGHT_ARROW"
SSTRightArrowCallout -> "RIGHT_ARROW_CALLOUT"
SSTRightBrace -> "RIGHT_BRACE"
SSTRightBracket -> "RIGHT_BRACKET"
SSTRound1Rectangle -> "ROUND_1_RECTANGLE"
SSTRound2DiagonalRectangle -> "ROUND_2_DIAGONAL_RECTANGLE"
SSTRound2SameRectangle -> "ROUND_2_SAME_RECTANGLE"
SSTRightTriangle -> "RIGHT_TRIANGLE"
SSTSmileyFace -> "SMILEY_FACE"
SSTSnip1Rectangle -> "SNIP_1_RECTANGLE"
SSTSnip2DiagonalRectangle -> "SNIP_2_DIAGONAL_RECTANGLE"
SSTSnip2SameRectangle -> "SNIP_2_SAME_RECTANGLE"
SSTSnipRoundRectangle -> "SNIP_ROUND_RECTANGLE"
SSTStar10 -> "STAR_10"
SSTStar12 -> "STAR_12"
SSTStar16 -> "STAR_16"
SSTStar24 -> "STAR_24"
SSTStar32 -> "STAR_32"
SSTStar4 -> "STAR_4"
SSTStar5 -> "STAR_5"
SSTStar6 -> "STAR_6"
SSTStar7 -> "STAR_7"
SSTStar8 -> "STAR_8"
SSTStripedRightArrow -> "STRIPED_RIGHT_ARROW"
SSTSun -> "SUN"
SSTTrapezoid -> "TRAPEZOID"
SSTTriangle -> "TRIANGLE"
SSTUpArrow -> "UP_ARROW"
SSTUpArrowCallout -> "UP_ARROW_CALLOUT"
SSTUpDownArrow -> "UP_DOWN_ARROW"
SSTUturnArrow -> "UTURN_ARROW"
SSTVerticalScroll -> "VERTICAL_SCROLL"
SSTWave -> "WAVE"
SSTWedgeEllipseCallout -> "WEDGE_ELLIPSE_CALLOUT"
SSTWedgeRectangleCallout -> "WEDGE_RECTANGLE_CALLOUT"
SSTWedgeRoundRectangleCallout -> "WEDGE_ROUND_RECTANGLE_CALLOUT"
SSTFlowChartAlternateProcess -> "FLOW_CHART_ALTERNATE_PROCESS"
SSTFlowChartCollate -> "FLOW_CHART_COLLATE"
SSTFlowChartConnector -> "FLOW_CHART_CONNECTOR"
SSTFlowChartDecision -> "FLOW_CHART_DECISION"
SSTFlowChartDelay -> "FLOW_CHART_DELAY"
SSTFlowChartDisplay -> "FLOW_CHART_DISPLAY"
SSTFlowChartDocument -> "FLOW_CHART_DOCUMENT"
SSTFlowChartExtract -> "FLOW_CHART_EXTRACT"
SSTFlowChartInputOutput -> "FLOW_CHART_INPUT_OUTPUT"
SSTFlowChartInternalStorage -> "FLOW_CHART_INTERNAL_STORAGE"
SSTFlowChartMagneticDisk -> "FLOW_CHART_MAGNETIC_DISK"
SSTFlowChartMagneticDrum -> "FLOW_CHART_MAGNETIC_DRUM"
SSTFlowChartMagneticTape -> "FLOW_CHART_MAGNETIC_TAPE"
SSTFlowChartManualInput -> "FLOW_CHART_MANUAL_INPUT"
SSTFlowChartManualOperation -> "FLOW_CHART_MANUAL_OPERATION"
SSTFlowChartMerge -> "FLOW_CHART_MERGE"
SSTFlowChartMultidocument -> "FLOW_CHART_MULTIDOCUMENT"
SSTFlowChartOfflineStorage -> "FLOW_CHART_OFFLINE_STORAGE"
SSTFlowChartOffpageConnector -> "FLOW_CHART_OFFPAGE_CONNECTOR"
SSTFlowChartOnlineStorage -> "FLOW_CHART_ONLINE_STORAGE"
SSTFlowChartOr -> "FLOW_CHART_OR"
SSTFlowChartPredefinedProcess -> "FLOW_CHART_PREDEFINED_PROCESS"
SSTFlowChartPreparation -> "FLOW_CHART_PREPARATION"
SSTFlowChartProcess -> "FLOW_CHART_PROCESS"
SSTFlowChartPunchedCard -> "FLOW_CHART_PUNCHED_CARD"
SSTFlowChartPunchedTape -> "FLOW_CHART_PUNCHED_TAPE"
SSTFlowChartSort -> "FLOW_CHART_SORT"
SSTFlowChartSummingJunction -> "FLOW_CHART_SUMMING_JUNCTION"
SSTFlowChartTerminator -> "FLOW_CHART_TERMINATOR"
SSTArrowEast -> "ARROW_EAST"
SSTArrowNorthEast -> "ARROW_NORTH_EAST"
SSTArrowNorth -> "ARROW_NORTH"
SSTSpeech -> "SPEECH"
SSTStarburst -> "STARBURST"
SSTTeardrop -> "TEARDROP"
SSTEllipseRibbon -> "ELLIPSE_RIBBON"
SSTEllipseRibbon2 -> "ELLIPSE_RIBBON_2"
SSTCloudCallout -> "CLOUD_CALLOUT"
SSTCustom -> "CUSTOM"
instance FromJSON ShapeShapeType where
parseJSON = parseJSONText "ShapeShapeType"
instance ToJSON ShapeShapeType where
toJSON = toJSONText
data ShapePropertiesContentAlignment
= SPCAContentAlignmentUnspecified
| SPCAContentAlignmentUnsupported
| SPCATop
| SPCAMiddle
| SPCABottom
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ShapePropertiesContentAlignment
instance FromHttpApiData ShapePropertiesContentAlignment where
parseQueryParam = \case
"CONTENT_ALIGNMENT_UNSPECIFIED" -> Right SPCAContentAlignmentUnspecified
"CONTENT_ALIGNMENT_UNSUPPORTED" -> Right SPCAContentAlignmentUnsupported
"TOP" -> Right SPCATop
"MIDDLE" -> Right SPCAMiddle
"BOTTOM" -> Right SPCABottom
x -> Left ("Unable to parse ShapePropertiesContentAlignment from: " <> x)
instance ToHttpApiData ShapePropertiesContentAlignment where
toQueryParam = \case
SPCAContentAlignmentUnspecified -> "CONTENT_ALIGNMENT_UNSPECIFIED"
SPCAContentAlignmentUnsupported -> "CONTENT_ALIGNMENT_UNSUPPORTED"
SPCATop -> "TOP"
SPCAMiddle -> "MIDDLE"
SPCABottom -> "BOTTOM"
instance FromJSON ShapePropertiesContentAlignment where
parseJSON = parseJSONText "ShapePropertiesContentAlignment"
instance ToJSON ShapePropertiesContentAlignment where
toJSON = toJSONText
data OutlinePropertyState
= OPSRendered
| OPSNotRendered
| OPSInherit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable OutlinePropertyState
instance FromHttpApiData OutlinePropertyState where
parseQueryParam = \case
"RENDERED" -> Right OPSRendered
"NOT_RENDERED" -> Right OPSNotRendered
"INHERIT" -> Right OPSInherit
x -> Left ("Unable to parse OutlinePropertyState from: " <> x)
instance ToHttpApiData OutlinePropertyState where
toQueryParam = \case
OPSRendered -> "RENDERED"
OPSNotRendered -> "NOT_RENDERED"
OPSInherit -> "INHERIT"
instance FromJSON OutlinePropertyState where
parseJSON = parseJSONText "OutlinePropertyState"
instance ToJSON OutlinePropertyState where
toJSON = toJSONText
data LineLineCategory
= LLCLineCategoryUnspecified
| LLCStraight
| LLCBent
| LLCCurved
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LineLineCategory
instance FromHttpApiData LineLineCategory where
parseQueryParam = \case
"LINE_CATEGORY_UNSPECIFIED" -> Right LLCLineCategoryUnspecified
"STRAIGHT" -> Right LLCStraight
"BENT" -> Right LLCBent
"CURVED" -> Right LLCCurved
x -> Left ("Unable to parse LineLineCategory from: " <> x)
instance ToHttpApiData LineLineCategory where
toQueryParam = \case
LLCLineCategoryUnspecified -> "LINE_CATEGORY_UNSPECIFIED"
LLCStraight -> "STRAIGHT"
LLCBent -> "BENT"
LLCCurved -> "CURVED"
instance FromJSON LineLineCategory where
parseJSON = parseJSONText "LineLineCategory"
instance ToJSON LineLineCategory where
toJSON = toJSONText
data PlaceholderType
= PTNone
| PTBody
| PTChart
| PTClipArt
| PTCenteredTitle
| PTDiagram
| PTDateAndTime
| PTFooter
| PTHeader
| PTMedia
| PTObject
| PTPicture
| PTSlideNumber
| PTSubtitle
| PTTable
| PTTitle
| PTSlideImage
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PlaceholderType
instance FromHttpApiData PlaceholderType where
parseQueryParam = \case
"NONE" -> Right PTNone
"BODY" -> Right PTBody
"CHART" -> Right PTChart
"CLIP_ART" -> Right PTClipArt
"CENTERED_TITLE" -> Right PTCenteredTitle
"DIAGRAM" -> Right PTDiagram
"DATE_AND_TIME" -> Right PTDateAndTime
"FOOTER" -> Right PTFooter
"HEADER" -> Right PTHeader
"MEDIA" -> Right PTMedia
"OBJECT" -> Right PTObject
"PICTURE" -> Right PTPicture
"SLIDE_NUMBER" -> Right PTSlideNumber
"SUBTITLE" -> Right PTSubtitle
"TABLE" -> Right PTTable
"TITLE" -> Right PTTitle
"SLIDE_IMAGE" -> Right PTSlideImage
x -> Left ("Unable to parse PlaceholderType from: " <> x)
instance ToHttpApiData PlaceholderType where
toQueryParam = \case
PTNone -> "NONE"
PTBody -> "BODY"
PTChart -> "CHART"
PTClipArt -> "CLIP_ART"
PTCenteredTitle -> "CENTERED_TITLE"
PTDiagram -> "DIAGRAM"
PTDateAndTime -> "DATE_AND_TIME"
PTFooter -> "FOOTER"
PTHeader -> "HEADER"
PTMedia -> "MEDIA"
PTObject -> "OBJECT"
PTPicture -> "PICTURE"
PTSlideNumber -> "SLIDE_NUMBER"
PTSubtitle -> "SUBTITLE"
PTTable -> "TABLE"
PTTitle -> "TITLE"
PTSlideImage -> "SLIDE_IMAGE"
instance FromJSON PlaceholderType where
parseJSON = parseJSONText "PlaceholderType"
instance ToJSON PlaceholderType where
toJSON = toJSONText
data ReplaceAllShapesWithImageRequestReplaceMethod
= CenterInside
| CenterCrop
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ReplaceAllShapesWithImageRequestReplaceMethod
instance FromHttpApiData ReplaceAllShapesWithImageRequestReplaceMethod where
parseQueryParam = \case
"CENTER_INSIDE" -> Right CenterInside
"CENTER_CROP" -> Right CenterCrop
x -> Left ("Unable to parse ReplaceAllShapesWithImageRequestReplaceMethod from: " <> x)
instance ToHttpApiData ReplaceAllShapesWithImageRequestReplaceMethod where
toQueryParam = \case
CenterInside -> "CENTER_INSIDE"
CenterCrop -> "CENTER_CROP"
instance FromJSON ReplaceAllShapesWithImageRequestReplaceMethod where
parseJSON = parseJSONText "ReplaceAllShapesWithImageRequestReplaceMethod"
instance ToJSON ReplaceAllShapesWithImageRequestReplaceMethod where
toJSON = toJSONText
data CreateSheetsChartRequestLinkingMode
= NotLinkedImage
| Linked
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CreateSheetsChartRequestLinkingMode
instance FromHttpApiData CreateSheetsChartRequestLinkingMode where
parseQueryParam = \case
"NOT_LINKED_IMAGE" -> Right NotLinkedImage
"LINKED" -> Right Linked
x -> Left ("Unable to parse CreateSheetsChartRequestLinkingMode from: " <> x)
instance ToHttpApiData CreateSheetsChartRequestLinkingMode where
toQueryParam = \case
NotLinkedImage -> "NOT_LINKED_IMAGE"
Linked -> "LINKED"
instance FromJSON CreateSheetsChartRequestLinkingMode where
parseJSON = parseJSONText "CreateSheetsChartRequestLinkingMode"
instance ToJSON CreateSheetsChartRequestLinkingMode where
toJSON = toJSONText
data ShapeBackgRoundFillPropertyState
= SBRFPSRendered
| SBRFPSNotRendered
| SBRFPSInherit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ShapeBackgRoundFillPropertyState
instance FromHttpApiData ShapeBackgRoundFillPropertyState where
parseQueryParam = \case
"RENDERED" -> Right SBRFPSRendered
"NOT_RENDERED" -> Right SBRFPSNotRendered
"INHERIT" -> Right SBRFPSInherit
x -> Left ("Unable to parse ShapeBackgRoundFillPropertyState from: " <> x)
instance ToHttpApiData ShapeBackgRoundFillPropertyState where
toQueryParam = \case
SBRFPSRendered -> "RENDERED"
SBRFPSNotRendered -> "NOT_RENDERED"
SBRFPSInherit -> "INHERIT"
instance FromJSON ShapeBackgRoundFillPropertyState where
parseJSON = parseJSONText "ShapeBackgRoundFillPropertyState"
instance ToJSON ShapeBackgRoundFillPropertyState where
toJSON = toJSONText
data OpaqueColorThemeColor
= ThemeColorTypeUnspecified
| DARK1
| LIGHT1
| DARK2
| LIGHT2
| ACCENT1
| ACCENT2
| ACCENT3
| ACCENT4
| ACCENT5
| ACCENT6
| Hyperlink
| FollowedHyperlink
| TEXT1
| BACKGROUND1
| TEXT2
| BACKGROUND2
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable OpaqueColorThemeColor
instance FromHttpApiData OpaqueColorThemeColor where
parseQueryParam = \case
"THEME_COLOR_TYPE_UNSPECIFIED" -> Right ThemeColorTypeUnspecified
"DARK1" -> Right DARK1
"LIGHT1" -> Right LIGHT1
"DARK2" -> Right DARK2
"LIGHT2" -> Right LIGHT2
"ACCENT1" -> Right ACCENT1
"ACCENT2" -> Right ACCENT2
"ACCENT3" -> Right ACCENT3
"ACCENT4" -> Right ACCENT4
"ACCENT5" -> Right ACCENT5
"ACCENT6" -> Right ACCENT6
"HYPERLINK" -> Right Hyperlink
"FOLLOWED_HYPERLINK" -> Right FollowedHyperlink
"TEXT1" -> Right TEXT1
"BACKGROUND1" -> Right BACKGROUND1
"TEXT2" -> Right TEXT2
"BACKGROUND2" -> Right BACKGROUND2
x -> Left ("Unable to parse OpaqueColorThemeColor from: " <> x)
instance ToHttpApiData OpaqueColorThemeColor where
toQueryParam = \case
ThemeColorTypeUnspecified -> "THEME_COLOR_TYPE_UNSPECIFIED"
DARK1 -> "DARK1"
LIGHT1 -> "LIGHT1"
DARK2 -> "DARK2"
LIGHT2 -> "LIGHT2"
ACCENT1 -> "ACCENT1"
ACCENT2 -> "ACCENT2"
ACCENT3 -> "ACCENT3"
ACCENT4 -> "ACCENT4"
ACCENT5 -> "ACCENT5"
ACCENT6 -> "ACCENT6"
Hyperlink -> "HYPERLINK"
FollowedHyperlink -> "FOLLOWED_HYPERLINK"
TEXT1 -> "TEXT1"
BACKGROUND1 -> "BACKGROUND1"
TEXT2 -> "TEXT2"
BACKGROUND2 -> "BACKGROUND2"
instance FromJSON OpaqueColorThemeColor where
parseJSON = parseJSONText "OpaqueColorThemeColor"
instance ToJSON OpaqueColorThemeColor where
toJSON = toJSONText
data LinePropertiesDashStyle
= DashStyleUnspecified
| Solid
| Dot
| Dash
| DashDot
| LongDash
| LongDashDot
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LinePropertiesDashStyle
instance FromHttpApiData LinePropertiesDashStyle where
parseQueryParam = \case
"DASH_STYLE_UNSPECIFIED" -> Right DashStyleUnspecified
"SOLID" -> Right Solid
"DOT" -> Right Dot
"DASH" -> Right Dash
"DASH_DOT" -> Right DashDot
"LONG_DASH" -> Right LongDash
"LONG_DASH_DOT" -> Right LongDashDot
x -> Left ("Unable to parse LinePropertiesDashStyle from: " <> x)
instance ToHttpApiData LinePropertiesDashStyle where
toQueryParam = \case
DashStyleUnspecified -> "DASH_STYLE_UNSPECIFIED"
Solid -> "SOLID"
Dot -> "DOT"
Dash -> "DASH"
DashDot -> "DASH_DOT"
LongDash -> "LONG_DASH"
LongDashDot -> "LONG_DASH_DOT"
instance FromJSON LinePropertiesDashStyle where
parseJSON = parseJSONText "LinePropertiesDashStyle"
instance ToJSON LinePropertiesDashStyle where
toJSON = toJSONText
data ParagraphStyleAlignment
= AlignmentUnspecified
| Start
| Center
| End
| Justified
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ParagraphStyleAlignment
instance FromHttpApiData ParagraphStyleAlignment where
parseQueryParam = \case
"ALIGNMENT_UNSPECIFIED" -> Right AlignmentUnspecified
"START" -> Right Start
"CENTER" -> Right Center
"END" -> Right End
"JUSTIFIED" -> Right Justified
x -> Left ("Unable to parse ParagraphStyleAlignment from: " <> x)
instance ToHttpApiData ParagraphStyleAlignment where
toQueryParam = \case
AlignmentUnspecified -> "ALIGNMENT_UNSPECIFIED"
Start -> "START"
Center -> "CENTER"
End -> "END"
Justified -> "JUSTIFIED"
instance FromJSON ParagraphStyleAlignment where
parseJSON = parseJSONText "ParagraphStyleAlignment"
instance ToJSON ParagraphStyleAlignment where
toJSON = toJSONText
data UpdateTableBOrderPropertiesRequestBOrderPosition
= UTBOPRBOPAll
| UTBOPRBOPBottom
| UTBOPRBOPInner
| UTBOPRBOPInnerHorizontal
| UTBOPRBOPInnerVertical
| UTBOPRBOPLeft'
| UTBOPRBOPOuter
| UTBOPRBOPRight'
| UTBOPRBOPTop
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable UpdateTableBOrderPropertiesRequestBOrderPosition
instance FromHttpApiData UpdateTableBOrderPropertiesRequestBOrderPosition where
parseQueryParam = \case
"ALL" -> Right UTBOPRBOPAll
"BOTTOM" -> Right UTBOPRBOPBottom
"INNER" -> Right UTBOPRBOPInner
"INNER_HORIZONTAL" -> Right UTBOPRBOPInnerHorizontal
"INNER_VERTICAL" -> Right UTBOPRBOPInnerVertical
"LEFT" -> Right UTBOPRBOPLeft'
"OUTER" -> Right UTBOPRBOPOuter
"RIGHT" -> Right UTBOPRBOPRight'
"TOP" -> Right UTBOPRBOPTop
x -> Left ("Unable to parse UpdateTableBOrderPropertiesRequestBOrderPosition from: " <> x)
instance ToHttpApiData UpdateTableBOrderPropertiesRequestBOrderPosition where
toQueryParam = \case
UTBOPRBOPAll -> "ALL"
UTBOPRBOPBottom -> "BOTTOM"
UTBOPRBOPInner -> "INNER"
UTBOPRBOPInnerHorizontal -> "INNER_HORIZONTAL"
UTBOPRBOPInnerVertical -> "INNER_VERTICAL"
UTBOPRBOPLeft' -> "LEFT"
UTBOPRBOPOuter -> "OUTER"
UTBOPRBOPRight' -> "RIGHT"
UTBOPRBOPTop -> "TOP"
instance FromJSON UpdateTableBOrderPropertiesRequestBOrderPosition where
parseJSON = parseJSONText "UpdateTableBOrderPropertiesRequestBOrderPosition"
instance ToJSON UpdateTableBOrderPropertiesRequestBOrderPosition where
toJSON = toJSONText
data ShadowAlignment
= SARectanglePositionUnspecified
| SATopLeft
| SATopCenter
| SATopRight
| SALeftCenter
| SACenter
| SARightCenter
| SABottomLeft
| SABottomCenter
| SABottomRight
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ShadowAlignment
instance FromHttpApiData ShadowAlignment where
parseQueryParam = \case
"RECTANGLE_POSITION_UNSPECIFIED" -> Right SARectanglePositionUnspecified
"TOP_LEFT" -> Right SATopLeft
"TOP_CENTER" -> Right SATopCenter
"TOP_RIGHT" -> Right SATopRight
"LEFT_CENTER" -> Right SALeftCenter
"CENTER" -> Right SACenter
"RIGHT_CENTER" -> Right SARightCenter
"BOTTOM_LEFT" -> Right SABottomLeft
"BOTTOM_CENTER" -> Right SABottomCenter
"BOTTOM_RIGHT" -> Right SABottomRight
x -> Left ("Unable to parse ShadowAlignment from: " <> x)
instance ToHttpApiData ShadowAlignment where
toQueryParam = \case
SARectanglePositionUnspecified -> "RECTANGLE_POSITION_UNSPECIFIED"
SATopLeft -> "TOP_LEFT"
SATopCenter -> "TOP_CENTER"
SATopRight -> "TOP_RIGHT"
SALeftCenter -> "LEFT_CENTER"
SACenter -> "CENTER"
SARightCenter -> "RIGHT_CENTER"
SABottomLeft -> "BOTTOM_LEFT"
SABottomCenter -> "BOTTOM_CENTER"
SABottomRight -> "BOTTOM_RIGHT"
instance FromJSON ShadowAlignment where
parseJSON = parseJSONText "ShadowAlignment"
instance ToJSON ShadowAlignment where
toJSON = toJSONText
data ReplaceAllShapesWithSheetsChartRequestLinkingMode
= RASWSCRLMNotLinkedImage
| RASWSCRLMLinked
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ReplaceAllShapesWithSheetsChartRequestLinkingMode
instance FromHttpApiData ReplaceAllShapesWithSheetsChartRequestLinkingMode where
parseQueryParam = \case
"NOT_LINKED_IMAGE" -> Right RASWSCRLMNotLinkedImage
"LINKED" -> Right RASWSCRLMLinked
x -> Left ("Unable to parse ReplaceAllShapesWithSheetsChartRequestLinkingMode from: " <> x)
instance ToHttpApiData ReplaceAllShapesWithSheetsChartRequestLinkingMode where
toQueryParam = \case
RASWSCRLMNotLinkedImage -> "NOT_LINKED_IMAGE"
RASWSCRLMLinked -> "LINKED"
instance FromJSON ReplaceAllShapesWithSheetsChartRequestLinkingMode where
parseJSON = parseJSONText "ReplaceAllShapesWithSheetsChartRequestLinkingMode"
instance ToJSON ReplaceAllShapesWithSheetsChartRequestLinkingMode where
toJSON = toJSONText
data LinePropertiesEndArrow
= LPEAArrowStyleUnspecified
| LPEANone
| LPEAStealthArrow
| LPEAFillArrow
| LPEAFillCircle
| LPEAFillSquare
| LPEAFillDiamond
| LPEAOpenArrow
| LPEAOpenCircle
| LPEAOpenSquare
| LPEAOpenDiamond
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LinePropertiesEndArrow
instance FromHttpApiData LinePropertiesEndArrow where
parseQueryParam = \case
"ARROW_STYLE_UNSPECIFIED" -> Right LPEAArrowStyleUnspecified
"NONE" -> Right LPEANone
"STEALTH_ARROW" -> Right LPEAStealthArrow
"FILL_ARROW" -> Right LPEAFillArrow
"FILL_CIRCLE" -> Right LPEAFillCircle
"FILL_SQUARE" -> Right LPEAFillSquare
"FILL_DIAMOND" -> Right LPEAFillDiamond
"OPEN_ARROW" -> Right LPEAOpenArrow
"OPEN_CIRCLE" -> Right LPEAOpenCircle
"OPEN_SQUARE" -> Right LPEAOpenSquare
"OPEN_DIAMOND" -> Right LPEAOpenDiamond
x -> Left ("Unable to parse LinePropertiesEndArrow from: " <> x)
instance ToHttpApiData LinePropertiesEndArrow where
toQueryParam = \case
LPEAArrowStyleUnspecified -> "ARROW_STYLE_UNSPECIFIED"
LPEANone -> "NONE"
LPEAStealthArrow -> "STEALTH_ARROW"
LPEAFillArrow -> "FILL_ARROW"
LPEAFillCircle -> "FILL_CIRCLE"
LPEAFillSquare -> "FILL_SQUARE"
LPEAFillDiamond -> "FILL_DIAMOND"
LPEAOpenArrow -> "OPEN_ARROW"
LPEAOpenCircle -> "OPEN_CIRCLE"
LPEAOpenSquare -> "OPEN_SQUARE"
LPEAOpenDiamond -> "OPEN_DIAMOND"
instance FromJSON LinePropertiesEndArrow where
parseJSON = parseJSONText "LinePropertiesEndArrow"
instance ToJSON LinePropertiesEndArrow where
toJSON = toJSONText
data TableCellBackgRoundFillPropertyState
= TCBRFPSRendered
| TCBRFPSNotRendered
| TCBRFPSInherit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TableCellBackgRoundFillPropertyState
instance FromHttpApiData TableCellBackgRoundFillPropertyState where
parseQueryParam = \case
"RENDERED" -> Right TCBRFPSRendered
"NOT_RENDERED" -> Right TCBRFPSNotRendered
"INHERIT" -> Right TCBRFPSInherit
x -> Left ("Unable to parse TableCellBackgRoundFillPropertyState from: " <> x)
instance ToHttpApiData TableCellBackgRoundFillPropertyState where
toQueryParam = \case
TCBRFPSRendered -> "RENDERED"
TCBRFPSNotRendered -> "NOT_RENDERED"
TCBRFPSInherit -> "INHERIT"
instance FromJSON TableCellBackgRoundFillPropertyState where
parseJSON = parseJSONText "TableCellBackgRoundFillPropertyState"
instance ToJSON TableCellBackgRoundFillPropertyState where
toJSON = toJSONText
data CreateVideoRequestSource
= SourceUnspecified
| YouTube
| Drive
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CreateVideoRequestSource
instance FromHttpApiData CreateVideoRequestSource where
parseQueryParam = \case
"SOURCE_UNSPECIFIED" -> Right SourceUnspecified
"YOUTUBE" -> Right YouTube
"DRIVE" -> Right Drive
x -> Left ("Unable to parse CreateVideoRequestSource from: " <> x)
instance ToHttpApiData CreateVideoRequestSource where
toQueryParam = \case
SourceUnspecified -> "SOURCE_UNSPECIFIED"
YouTube -> "YOUTUBE"
Drive -> "DRIVE"
instance FromJSON CreateVideoRequestSource where
parseJSON = parseJSONText "CreateVideoRequestSource"
instance ToJSON CreateVideoRequestSource where
toJSON = toJSONText
data LinkRelativeLink
= RelativeSlideLinkUnspecified
| NextSlide
| PreviousSlide
| FirstSlide
| LastSlide
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LinkRelativeLink
instance FromHttpApiData LinkRelativeLink where
parseQueryParam = \case
"RELATIVE_SLIDE_LINK_UNSPECIFIED" -> Right RelativeSlideLinkUnspecified
"NEXT_SLIDE" -> Right NextSlide
"PREVIOUS_SLIDE" -> Right PreviousSlide
"FIRST_SLIDE" -> Right FirstSlide
"LAST_SLIDE" -> Right LastSlide
x -> Left ("Unable to parse LinkRelativeLink from: " <> x)
instance ToHttpApiData LinkRelativeLink where
toQueryParam = \case
RelativeSlideLinkUnspecified -> "RELATIVE_SLIDE_LINK_UNSPECIFIED"
NextSlide -> "NEXT_SLIDE"
PreviousSlide -> "PREVIOUS_SLIDE"
FirstSlide -> "FIRST_SLIDE"
LastSlide -> "LAST_SLIDE"
instance FromJSON LinkRelativeLink where
parseJSON = parseJSONText "LinkRelativeLink"
instance ToJSON LinkRelativeLink where
toJSON = toJSONText
data VideoSource
= VSSourceUnspecified
| VSYouTube
| VSDrive
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable VideoSource
instance FromHttpApiData VideoSource where
parseQueryParam = \case
"SOURCE_UNSPECIFIED" -> Right VSSourceUnspecified
"YOUTUBE" -> Right VSYouTube
"DRIVE" -> Right VSDrive
x -> Left ("Unable to parse VideoSource from: " <> x)
instance ToHttpApiData VideoSource where
toQueryParam = \case
VSSourceUnspecified -> "SOURCE_UNSPECIFIED"
VSYouTube -> "YOUTUBE"
VSDrive -> "DRIVE"
instance FromJSON VideoSource where
parseJSON = parseJSONText "VideoSource"
instance ToJSON VideoSource where
toJSON = toJSONText
data Xgafv
= X1
| X2
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable Xgafv
instance FromHttpApiData Xgafv where
parseQueryParam = \case
"1" -> Right X1
"2" -> Right X2
x -> Left ("Unable to parse Xgafv from: " <> x)
instance ToHttpApiData Xgafv where
toQueryParam = \case
X1 -> "1"
X2 -> "2"
instance FromJSON Xgafv where
parseJSON = parseJSONText "Xgafv"
instance ToJSON Xgafv where
toJSON = toJSONText
data AutoTextType
= ATTTypeUnspecified
| ATTSlideNumber
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AutoTextType
instance FromHttpApiData AutoTextType where
parseQueryParam = \case
"TYPE_UNSPECIFIED" -> Right ATTTypeUnspecified
"SLIDE_NUMBER" -> Right ATTSlideNumber
x -> Left ("Unable to parse AutoTextType from: " <> x)
instance ToHttpApiData AutoTextType where
toQueryParam = \case
ATTTypeUnspecified -> "TYPE_UNSPECIFIED"
ATTSlideNumber -> "SLIDE_NUMBER"
instance FromJSON AutoTextType where
parseJSON = parseJSONText "AutoTextType"
instance ToJSON AutoTextType where
toJSON = toJSONText
data TableBOrderPropertiesDashStyle
= TBOPDSDashStyleUnspecified
| TBOPDSSolid
| TBOPDSDot
| TBOPDSDash
| TBOPDSDashDot
| TBOPDSLongDash
| TBOPDSLongDashDot
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TableBOrderPropertiesDashStyle
instance FromHttpApiData TableBOrderPropertiesDashStyle where
parseQueryParam = \case
"DASH_STYLE_UNSPECIFIED" -> Right TBOPDSDashStyleUnspecified
"SOLID" -> Right TBOPDSSolid
"DOT" -> Right TBOPDSDot
"DASH" -> Right TBOPDSDash
"DASH_DOT" -> Right TBOPDSDashDot
"LONG_DASH" -> Right TBOPDSLongDash
"LONG_DASH_DOT" -> Right TBOPDSLongDashDot
x -> Left ("Unable to parse TableBOrderPropertiesDashStyle from: " <> x)
instance ToHttpApiData TableBOrderPropertiesDashStyle where
toQueryParam = \case
TBOPDSDashStyleUnspecified -> "DASH_STYLE_UNSPECIFIED"
TBOPDSSolid -> "SOLID"
TBOPDSDot -> "DOT"
TBOPDSDash -> "DASH"
TBOPDSDashDot -> "DASH_DOT"
TBOPDSLongDash -> "LONG_DASH"
TBOPDSLongDashDot -> "LONG_DASH_DOT"
instance FromJSON TableBOrderPropertiesDashStyle where
parseJSON = parseJSONText "TableBOrderPropertiesDashStyle"
instance ToJSON TableBOrderPropertiesDashStyle where
toJSON = toJSONText
data UpdateLineCategoryRequestLineCategory
= ULCRLCLineCategoryUnspecified
| ULCRLCStraight
| ULCRLCBent
| ULCRLCCurved
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable UpdateLineCategoryRequestLineCategory
instance FromHttpApiData UpdateLineCategoryRequestLineCategory where
parseQueryParam = \case
"LINE_CATEGORY_UNSPECIFIED" -> Right ULCRLCLineCategoryUnspecified
"STRAIGHT" -> Right ULCRLCStraight
"BENT" -> Right ULCRLCBent
"CURVED" -> Right ULCRLCCurved
x -> Left ("Unable to parse UpdateLineCategoryRequestLineCategory from: " <> x)
instance ToHttpApiData UpdateLineCategoryRequestLineCategory where
toQueryParam = \case
ULCRLCLineCategoryUnspecified -> "LINE_CATEGORY_UNSPECIFIED"
ULCRLCStraight -> "STRAIGHT"
ULCRLCBent -> "BENT"
ULCRLCCurved -> "CURVED"
instance FromJSON UpdateLineCategoryRequestLineCategory where
parseJSON = parseJSONText "UpdateLineCategoryRequestLineCategory"
instance ToJSON UpdateLineCategoryRequestLineCategory where
toJSON = toJSONText
data LineLineType
= LLTTypeUnspecified
| LLTStraightConnector1
| LLTBentConnector2
| LLTBentConnector3
| LLTBentConnector4
| LLTBentConnector5
| LLTCurvedConnector2
| LLTCurvedConnector3
| LLTCurvedConnector4
| LLTCurvedConnector5
| LLTStraightLine
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LineLineType
instance FromHttpApiData LineLineType where
parseQueryParam = \case
"TYPE_UNSPECIFIED" -> Right LLTTypeUnspecified
"STRAIGHT_CONNECTOR_1" -> Right LLTStraightConnector1
"BENT_CONNECTOR_2" -> Right LLTBentConnector2
"BENT_CONNECTOR_3" -> Right LLTBentConnector3
"BENT_CONNECTOR_4" -> Right LLTBentConnector4
"BENT_CONNECTOR_5" -> Right LLTBentConnector5
"CURVED_CONNECTOR_2" -> Right LLTCurvedConnector2
"CURVED_CONNECTOR_3" -> Right LLTCurvedConnector3
"CURVED_CONNECTOR_4" -> Right LLTCurvedConnector4
"CURVED_CONNECTOR_5" -> Right LLTCurvedConnector5
"STRAIGHT_LINE" -> Right LLTStraightLine
x -> Left ("Unable to parse LineLineType from: " <> x)
instance ToHttpApiData LineLineType where
toQueryParam = \case
LLTTypeUnspecified -> "TYPE_UNSPECIFIED"
LLTStraightConnector1 -> "STRAIGHT_CONNECTOR_1"
LLTBentConnector2 -> "BENT_CONNECTOR_2"
LLTBentConnector3 -> "BENT_CONNECTOR_3"
LLTBentConnector4 -> "BENT_CONNECTOR_4"
LLTBentConnector5 -> "BENT_CONNECTOR_5"
LLTCurvedConnector2 -> "CURVED_CONNECTOR_2"
LLTCurvedConnector3 -> "CURVED_CONNECTOR_3"
LLTCurvedConnector4 -> "CURVED_CONNECTOR_4"
LLTCurvedConnector5 -> "CURVED_CONNECTOR_5"
LLTStraightLine -> "STRAIGHT_LINE"
instance FromJSON LineLineType where
parseJSON = parseJSONText "LineLineType"
instance ToJSON LineLineType where
toJSON = toJSONText
data PagePageType
= Slide
| Master
| Layout
| Notes
| NotesMaster
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PagePageType
instance FromHttpApiData PagePageType where
parseQueryParam = \case
"SLIDE" -> Right Slide
"MASTER" -> Right Master
"LAYOUT" -> Right Layout
"NOTES" -> Right Notes
"NOTES_MASTER" -> Right NotesMaster
x -> Left ("Unable to parse PagePageType from: " <> x)
instance ToHttpApiData PagePageType where
toQueryParam = \case
Slide -> "SLIDE"
Master -> "MASTER"
Layout -> "LAYOUT"
Notes -> "NOTES"
NotesMaster -> "NOTES_MASTER"
instance FromJSON PagePageType where
parseJSON = parseJSONText "PagePageType"
instance ToJSON PagePageType where
toJSON = toJSONText
data ParagraphStyleSpacingMode
= SpacingModeUnspecified
| NeverCollapse
| CollapseLists
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ParagraphStyleSpacingMode
instance FromHttpApiData ParagraphStyleSpacingMode where
parseQueryParam = \case
"SPACING_MODE_UNSPECIFIED" -> Right SpacingModeUnspecified
"NEVER_COLLAPSE" -> Right NeverCollapse
"COLLAPSE_LISTS" -> Right CollapseLists
x -> Left ("Unable to parse ParagraphStyleSpacingMode from: " <> x)
instance ToHttpApiData ParagraphStyleSpacingMode where
toQueryParam = \case
SpacingModeUnspecified -> "SPACING_MODE_UNSPECIFIED"
NeverCollapse -> "NEVER_COLLAPSE"
CollapseLists -> "COLLAPSE_LISTS"
instance FromJSON ParagraphStyleSpacingMode where
parseJSON = parseJSONText "ParagraphStyleSpacingMode"
instance ToJSON ParagraphStyleSpacingMode where
toJSON = toJSONText
data CreateLineRequestCategory
= CLRCLineCategoryUnspecified
| CLRCStraight
| CLRCBent
| CLRCCurved
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CreateLineRequestCategory
instance FromHttpApiData CreateLineRequestCategory where
parseQueryParam = \case
"LINE_CATEGORY_UNSPECIFIED" -> Right CLRCLineCategoryUnspecified
"STRAIGHT" -> Right CLRCStraight
"BENT" -> Right CLRCBent
"CURVED" -> Right CLRCCurved
x -> Left ("Unable to parse CreateLineRequestCategory from: " <> x)
instance ToHttpApiData CreateLineRequestCategory where
toQueryParam = \case
CLRCLineCategoryUnspecified -> "LINE_CATEGORY_UNSPECIFIED"
CLRCStraight -> "STRAIGHT"
CLRCBent -> "BENT"
CLRCCurved -> "CURVED"
instance FromJSON CreateLineRequestCategory where
parseJSON = parseJSONText "CreateLineRequestCategory"
instance ToJSON CreateLineRequestCategory where
toJSON = toJSONText
data ThemeColorPairType
= TCPTThemeColorTypeUnspecified
| TCPTDARK1
| TCPTLIGHT1
| TCPTDARK2
| TCPTLIGHT2
| TCPTACCENT1
| TCPTACCENT2
| TCPTACCENT3
| TCPTACCENT4
| TCPTACCENT5
| TCPTACCENT6
| TCPTHyperlink
| TCPTFollowedHyperlink
| TCPTTEXT1
| TCPTBACKGROUND1
| TCPTTEXT2
| TCPTBACKGROUND2
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ThemeColorPairType
instance FromHttpApiData ThemeColorPairType where
parseQueryParam = \case
"THEME_COLOR_TYPE_UNSPECIFIED" -> Right TCPTThemeColorTypeUnspecified
"DARK1" -> Right TCPTDARK1
"LIGHT1" -> Right TCPTLIGHT1
"DARK2" -> Right TCPTDARK2
"LIGHT2" -> Right TCPTLIGHT2
"ACCENT1" -> Right TCPTACCENT1
"ACCENT2" -> Right TCPTACCENT2
"ACCENT3" -> Right TCPTACCENT3
"ACCENT4" -> Right TCPTACCENT4
"ACCENT5" -> Right TCPTACCENT5
"ACCENT6" -> Right TCPTACCENT6
"HYPERLINK" -> Right TCPTHyperlink
"FOLLOWED_HYPERLINK" -> Right TCPTFollowedHyperlink
"TEXT1" -> Right TCPTTEXT1
"BACKGROUND1" -> Right TCPTBACKGROUND1
"TEXT2" -> Right TCPTTEXT2
"BACKGROUND2" -> Right TCPTBACKGROUND2
x -> Left ("Unable to parse ThemeColorPairType from: " <> x)
instance ToHttpApiData ThemeColorPairType where
toQueryParam = \case
TCPTThemeColorTypeUnspecified -> "THEME_COLOR_TYPE_UNSPECIFIED"
TCPTDARK1 -> "DARK1"
TCPTLIGHT1 -> "LIGHT1"
TCPTDARK2 -> "DARK2"
TCPTLIGHT2 -> "LIGHT2"
TCPTACCENT1 -> "ACCENT1"
TCPTACCENT2 -> "ACCENT2"
TCPTACCENT3 -> "ACCENT3"
TCPTACCENT4 -> "ACCENT4"
TCPTACCENT5 -> "ACCENT5"
TCPTACCENT6 -> "ACCENT6"
TCPTHyperlink -> "HYPERLINK"
TCPTFollowedHyperlink -> "FOLLOWED_HYPERLINK"
TCPTTEXT1 -> "TEXT1"
TCPTBACKGROUND1 -> "BACKGROUND1"
TCPTTEXT2 -> "TEXT2"
TCPTBACKGROUND2 -> "BACKGROUND2"
instance FromJSON ThemeColorPairType where
parseJSON = parseJSONText "ThemeColorPairType"
instance ToJSON ThemeColorPairType where
toJSON = toJSONText
data LinePropertiesStartArrow
= LPSAArrowStyleUnspecified
| LPSANone
| LPSAStealthArrow
| LPSAFillArrow
| LPSAFillCircle
| LPSAFillSquare
| LPSAFillDiamond
| LPSAOpenArrow
| LPSAOpenCircle
| LPSAOpenSquare
| LPSAOpenDiamond
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LinePropertiesStartArrow
instance FromHttpApiData LinePropertiesStartArrow where
parseQueryParam = \case
"ARROW_STYLE_UNSPECIFIED" -> Right LPSAArrowStyleUnspecified
"NONE" -> Right LPSANone
"STEALTH_ARROW" -> Right LPSAStealthArrow
"FILL_ARROW" -> Right LPSAFillArrow
"FILL_CIRCLE" -> Right LPSAFillCircle
"FILL_SQUARE" -> Right LPSAFillSquare
"FILL_DIAMOND" -> Right LPSAFillDiamond
"OPEN_ARROW" -> Right LPSAOpenArrow
"OPEN_CIRCLE" -> Right LPSAOpenCircle
"OPEN_SQUARE" -> Right LPSAOpenSquare
"OPEN_DIAMOND" -> Right LPSAOpenDiamond
x -> Left ("Unable to parse LinePropertiesStartArrow from: " <> x)
instance ToHttpApiData LinePropertiesStartArrow where
toQueryParam = \case
LPSAArrowStyleUnspecified -> "ARROW_STYLE_UNSPECIFIED"
LPSANone -> "NONE"
LPSAStealthArrow -> "STEALTH_ARROW"
LPSAFillArrow -> "FILL_ARROW"
LPSAFillCircle -> "FILL_CIRCLE"
LPSAFillSquare -> "FILL_SQUARE"
LPSAFillDiamond -> "FILL_DIAMOND"
LPSAOpenArrow -> "OPEN_ARROW"
LPSAOpenCircle -> "OPEN_CIRCLE"
LPSAOpenSquare -> "OPEN_SQUARE"
LPSAOpenDiamond -> "OPEN_DIAMOND"
instance FromJSON LinePropertiesStartArrow where
parseJSON = parseJSONText "LinePropertiesStartArrow"
instance ToJSON LinePropertiesStartArrow where
toJSON = toJSONText
data ShadowPropertyState
= SPSRendered
| SPSNotRendered
| SPSInherit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ShadowPropertyState
instance FromHttpApiData ShadowPropertyState where
parseQueryParam = \case
"RENDERED" -> Right SPSRendered
"NOT_RENDERED" -> Right SPSNotRendered
"INHERIT" -> Right SPSInherit
x -> Left ("Unable to parse ShadowPropertyState from: " <> x)
instance ToHttpApiData ShadowPropertyState where
toQueryParam = \case
SPSRendered -> "RENDERED"
SPSNotRendered -> "NOT_RENDERED"
SPSInherit -> "INHERIT"
instance FromJSON ShadowPropertyState where
parseJSON = parseJSONText "ShadowPropertyState"
instance ToJSON ShadowPropertyState where
toJSON = toJSONText
data ShadowType
= ShadowTypeUnspecified
| Outer
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ShadowType
instance FromHttpApiData ShadowType where
parseQueryParam = \case
"SHADOW_TYPE_UNSPECIFIED" -> Right ShadowTypeUnspecified
"OUTER" -> Right Outer
x -> Left ("Unable to parse ShadowType from: " <> x)
instance ToHttpApiData ShadowType where
toQueryParam = \case
ShadowTypeUnspecified -> "SHADOW_TYPE_UNSPECIFIED"
Outer -> "OUTER"
instance FromJSON ShadowType where
parseJSON = parseJSONText "ShadowType"
instance ToJSON ShadowType where
toJSON = toJSONText
data UpdatePageElementTransformRequestApplyMode
= ApplyModeUnspecified
| Relative
| Absolute
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable UpdatePageElementTransformRequestApplyMode
instance FromHttpApiData UpdatePageElementTransformRequestApplyMode where
parseQueryParam = \case
"APPLY_MODE_UNSPECIFIED" -> Right ApplyModeUnspecified
"RELATIVE" -> Right Relative
"ABSOLUTE" -> Right Absolute
x -> Left ("Unable to parse UpdatePageElementTransformRequestApplyMode from: " <> x)
instance ToHttpApiData UpdatePageElementTransformRequestApplyMode where
toQueryParam = \case
ApplyModeUnspecified -> "APPLY_MODE_UNSPECIFIED"
Relative -> "RELATIVE"
Absolute -> "ABSOLUTE"
instance FromJSON UpdatePageElementTransformRequestApplyMode where
parseJSON = parseJSONText "UpdatePageElementTransformRequestApplyMode"
instance ToJSON UpdatePageElementTransformRequestApplyMode where
toJSON = toJSONText
data DimensionUnit
= UnitUnspecified
| Emu
| PT
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DimensionUnit
instance FromHttpApiData DimensionUnit where
parseQueryParam = \case
"UNIT_UNSPECIFIED" -> Right UnitUnspecified
"EMU" -> Right Emu
"PT" -> Right PT
x -> Left ("Unable to parse DimensionUnit from: " <> x)
instance ToHttpApiData DimensionUnit where
toQueryParam = \case
UnitUnspecified -> "UNIT_UNSPECIFIED"
Emu -> "EMU"
PT -> "PT"
instance FromJSON DimensionUnit where
parseJSON = parseJSONText "DimensionUnit"
instance ToJSON DimensionUnit where
toJSON = toJSONText
data ReplaceImageRequestImageReplaceMethod
= RIRIRMImageReplaceMethodUnspecified
| RIRIRMCenterInside
| RIRIRMCenterCrop
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ReplaceImageRequestImageReplaceMethod
instance FromHttpApiData ReplaceImageRequestImageReplaceMethod where
parseQueryParam = \case
"IMAGE_REPLACE_METHOD_UNSPECIFIED" -> Right RIRIRMImageReplaceMethodUnspecified
"CENTER_INSIDE" -> Right RIRIRMCenterInside
"CENTER_CROP" -> Right RIRIRMCenterCrop
x -> Left ("Unable to parse ReplaceImageRequestImageReplaceMethod from: " <> x)
instance ToHttpApiData ReplaceImageRequestImageReplaceMethod where
toQueryParam = \case
RIRIRMImageReplaceMethodUnspecified -> "IMAGE_REPLACE_METHOD_UNSPECIFIED"
RIRIRMCenterInside -> "CENTER_INSIDE"
RIRIRMCenterCrop -> "CENTER_CROP"
instance FromJSON ReplaceImageRequestImageReplaceMethod where
parseJSON = parseJSONText "ReplaceImageRequestImageReplaceMethod"
instance ToJSON ReplaceImageRequestImageReplaceMethod where
toJSON = toJSONText
data OutlineDashStyle
= ODSDashStyleUnspecified
| ODSSolid
| ODSDot
| ODSDash
| ODSDashDot
| ODSLongDash
| ODSLongDashDot
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable OutlineDashStyle
instance FromHttpApiData OutlineDashStyle where
parseQueryParam = \case
"DASH_STYLE_UNSPECIFIED" -> Right ODSDashStyleUnspecified
"SOLID" -> Right ODSSolid
"DOT" -> Right ODSDot
"DASH" -> Right ODSDash
"DASH_DOT" -> Right ODSDashDot
"LONG_DASH" -> Right ODSLongDash
"LONG_DASH_DOT" -> Right ODSLongDashDot
x -> Left ("Unable to parse OutlineDashStyle from: " <> x)
instance ToHttpApiData OutlineDashStyle where
toQueryParam = \case
ODSDashStyleUnspecified -> "DASH_STYLE_UNSPECIFIED"
ODSSolid -> "SOLID"
ODSDot -> "DOT"
ODSDash -> "DASH"
ODSDashDot -> "DASH_DOT"
ODSLongDash -> "LONG_DASH"
ODSLongDashDot -> "LONG_DASH_DOT"
instance FromJSON OutlineDashStyle where
parseJSON = parseJSONText "OutlineDashStyle"
instance ToJSON OutlineDashStyle where
toJSON = toJSONText
data AffineTransformUnit
= ATUUnitUnspecified
| ATUEmu
| ATUPT
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AffineTransformUnit
instance FromHttpApiData AffineTransformUnit where
parseQueryParam = \case
"UNIT_UNSPECIFIED" -> Right ATUUnitUnspecified
"EMU" -> Right ATUEmu
"PT" -> Right ATUPT
x -> Left ("Unable to parse AffineTransformUnit from: " <> x)
instance ToHttpApiData AffineTransformUnit where
toQueryParam = \case
ATUUnitUnspecified -> "UNIT_UNSPECIFIED"
ATUEmu -> "EMU"
ATUPT -> "PT"
instance FromJSON AffineTransformUnit where
parseJSON = parseJSONText "AffineTransformUnit"
instance ToJSON AffineTransformUnit where
toJSON = toJSONText
data ReplaceAllShapesWithImageRequestImageReplaceMethod
= RASWIRIRMImageReplaceMethodUnspecified
| RASWIRIRMCenterInside
| RASWIRIRMCenterCrop
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ReplaceAllShapesWithImageRequestImageReplaceMethod
instance FromHttpApiData ReplaceAllShapesWithImageRequestImageReplaceMethod where
parseQueryParam = \case
"IMAGE_REPLACE_METHOD_UNSPECIFIED" -> Right RASWIRIRMImageReplaceMethodUnspecified
"CENTER_INSIDE" -> Right RASWIRIRMCenterInside
"CENTER_CROP" -> Right RASWIRIRMCenterCrop
x -> Left ("Unable to parse ReplaceAllShapesWithImageRequestImageReplaceMethod from: " <> x)
instance ToHttpApiData ReplaceAllShapesWithImageRequestImageReplaceMethod where
toQueryParam = \case
RASWIRIRMImageReplaceMethodUnspecified -> "IMAGE_REPLACE_METHOD_UNSPECIFIED"
RASWIRIRMCenterInside -> "CENTER_INSIDE"
RASWIRIRMCenterCrop -> "CENTER_CROP"
instance FromJSON ReplaceAllShapesWithImageRequestImageReplaceMethod where
parseJSON = parseJSONText "ReplaceAllShapesWithImageRequestImageReplaceMethod"
instance ToJSON ReplaceAllShapesWithImageRequestImageReplaceMethod where
toJSON = toJSONText