{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Docs.Types.Sum where
import Network.Google.Prelude hiding (Bytes)
data ParagraphStyleDirection
= ContentDirectionUnspecified
| LeftToRight
| RightToLeft
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ParagraphStyleDirection
instance FromHttpApiData ParagraphStyleDirection where
parseQueryParam = \case
"CONTENT_DIRECTION_UNSPECIFIED" -> Right ContentDirectionUnspecified
"LEFT_TO_RIGHT" -> Right LeftToRight
"RIGHT_TO_LEFT" -> Right RightToLeft
x -> Left ("Unable to parse ParagraphStyleDirection from: " <> x)
instance ToHttpApiData ParagraphStyleDirection where
toQueryParam = \case
ContentDirectionUnspecified -> "CONTENT_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 TableColumnPropertiesWidthType
= WidthTypeUnspecified
| EvenlyDistributed
| FixedWidth
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TableColumnPropertiesWidthType
instance FromHttpApiData TableColumnPropertiesWidthType where
parseQueryParam = \case
"WIDTH_TYPE_UNSPECIFIED" -> Right WidthTypeUnspecified
"EVENLY_DISTRIBUTED" -> Right EvenlyDistributed
"FIXED_WIDTH" -> Right FixedWidth
x -> Left ("Unable to parse TableColumnPropertiesWidthType from: " <> x)
instance ToHttpApiData TableColumnPropertiesWidthType where
toQueryParam = \case
WidthTypeUnspecified -> "WIDTH_TYPE_UNSPECIFIED"
EvenlyDistributed -> "EVENLY_DISTRIBUTED"
FixedWidth -> "FIXED_WIDTH"
instance FromJSON TableColumnPropertiesWidthType where
parseJSON = parseJSONText "TableColumnPropertiesWidthType"
instance ToJSON TableColumnPropertiesWidthType where
toJSON = toJSONText
data CreateParagraphBulletsRequestBulletPreset
= BulletGlyphPresetUnspecified
| BulletDiscCircleSquare
| BulletDiamondxARROW3DSquare
| BulletCheckbox
| BulletArrowDiamondDisc
| BulletStarCircleSquare
| BulletARROW3DCircleSquare
| BulletLefttriangleDiamondDisc
| BulletDiamondxHollowdiamondSquare
| BulletDiamondCircleSquare
| NumberedDecimalAlphaRoman
| NumberedDecimalAlphaRomanParens
| NumberedDecimalNested
| NumberedUpperalphaAlphaRoman
| NumberedUpperromanUpperalphaDecimal
| NumberedZerodecimalAlphaRoman
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CreateParagraphBulletsRequestBulletPreset
instance FromHttpApiData CreateParagraphBulletsRequestBulletPreset where
parseQueryParam = \case
"BULLET_GLYPH_PRESET_UNSPECIFIED" -> Right BulletGlyphPresetUnspecified
"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_DECIMAL_ALPHA_ROMAN" -> Right NumberedDecimalAlphaRoman
"NUMBERED_DECIMAL_ALPHA_ROMAN_PARENS" -> Right NumberedDecimalAlphaRomanParens
"NUMBERED_DECIMAL_NESTED" -> Right NumberedDecimalNested
"NUMBERED_UPPERALPHA_ALPHA_ROMAN" -> Right NumberedUpperalphaAlphaRoman
"NUMBERED_UPPERROMAN_UPPERALPHA_DECIMAL" -> Right NumberedUpperromanUpperalphaDecimal
"NUMBERED_ZERODECIMAL_ALPHA_ROMAN" -> Right NumberedZerodecimalAlphaRoman
x -> Left ("Unable to parse CreateParagraphBulletsRequestBulletPreset from: " <> x)
instance ToHttpApiData CreateParagraphBulletsRequestBulletPreset where
toQueryParam = \case
BulletGlyphPresetUnspecified -> "BULLET_GLYPH_PRESET_UNSPECIFIED"
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"
NumberedDecimalAlphaRoman -> "NUMBERED_DECIMAL_ALPHA_ROMAN"
NumberedDecimalAlphaRomanParens -> "NUMBERED_DECIMAL_ALPHA_ROMAN_PARENS"
NumberedDecimalNested -> "NUMBERED_DECIMAL_NESTED"
NumberedUpperalphaAlphaRoman -> "NUMBERED_UPPERALPHA_ALPHA_ROMAN"
NumberedUpperromanUpperalphaDecimal -> "NUMBERED_UPPERROMAN_UPPERALPHA_DECIMAL"
NumberedZerodecimalAlphaRoman -> "NUMBERED_ZERODECIMAL_ALPHA_ROMAN"
instance FromJSON CreateParagraphBulletsRequestBulletPreset where
parseJSON = parseJSONText "CreateParagraphBulletsRequestBulletPreset"
instance ToJSON CreateParagraphBulletsRequestBulletPreset where
toJSON = toJSONText
data TableCellBOrderDashStyle
= DashStyleUnspecified
| Solid
| Dot
| Dash
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TableCellBOrderDashStyle
instance FromHttpApiData TableCellBOrderDashStyle where
parseQueryParam = \case
"DASH_STYLE_UNSPECIFIED" -> Right DashStyleUnspecified
"SOLID" -> Right Solid
"DOT" -> Right Dot
"DASH" -> Right Dash
x -> Left ("Unable to parse TableCellBOrderDashStyle from: " <> x)
instance ToHttpApiData TableCellBOrderDashStyle where
toQueryParam = \case
DashStyleUnspecified -> "DASH_STYLE_UNSPECIFIED"
Solid -> "SOLID"
Dot -> "DOT"
Dash -> "DASH"
instance FromJSON TableCellBOrderDashStyle where
parseJSON = parseJSONText "TableCellBOrderDashStyle"
instance ToJSON TableCellBOrderDashStyle where
toJSON = toJSONText
data ParagraphStyleNamedStyleType
= NamedStyleTypeUnspecified
| NormalText
| Title
| Subtitle
| Heading1
| Heading2
| Heading3
| Heading4
| Heading5
| Heading6
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ParagraphStyleNamedStyleType
instance FromHttpApiData ParagraphStyleNamedStyleType where
parseQueryParam = \case
"NAMED_STYLE_TYPE_UNSPECIFIED" -> Right NamedStyleTypeUnspecified
"NORMAL_TEXT" -> Right NormalText
"TITLE" -> Right Title
"SUBTITLE" -> Right Subtitle
"HEADING_1" -> Right Heading1
"HEADING_2" -> Right Heading2
"HEADING_3" -> Right Heading3
"HEADING_4" -> Right Heading4
"HEADING_5" -> Right Heading5
"HEADING_6" -> Right Heading6
x -> Left ("Unable to parse ParagraphStyleNamedStyleType from: " <> x)
instance ToHttpApiData ParagraphStyleNamedStyleType where
toQueryParam = \case
NamedStyleTypeUnspecified -> "NAMED_STYLE_TYPE_UNSPECIFIED"
NormalText -> "NORMAL_TEXT"
Title -> "TITLE"
Subtitle -> "SUBTITLE"
Heading1 -> "HEADING_1"
Heading2 -> "HEADING_2"
Heading3 -> "HEADING_3"
Heading4 -> "HEADING_4"
Heading5 -> "HEADING_5"
Heading6 -> "HEADING_6"
instance FromJSON ParagraphStyleNamedStyleType where
parseJSON = parseJSONText "ParagraphStyleNamedStyleType"
instance ToJSON ParagraphStyleNamedStyleType where
toJSON = toJSONText
data TabStopAlignment
= TabStopAlignmentUnspecified
| Start
| Center
| End
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TabStopAlignment
instance FromHttpApiData TabStopAlignment where
parseQueryParam = \case
"TAB_STOP_ALIGNMENT_UNSPECIFIED" -> Right TabStopAlignmentUnspecified
"START" -> Right Start
"CENTER" -> Right Center
"END" -> Right End
x -> Left ("Unable to parse TabStopAlignment from: " <> x)
instance ToHttpApiData TabStopAlignment where
toQueryParam = \case
TabStopAlignmentUnspecified -> "TAB_STOP_ALIGNMENT_UNSPECIFIED"
Start -> "START"
Center -> "CENTER"
End -> "END"
instance FromJSON TabStopAlignment where
parseJSON = parseJSONText "TabStopAlignment"
instance ToJSON TabStopAlignment where
toJSON = toJSONText
data NestingLevelGlyphType
= NLGTGlyphTypeUnspecified
| NLGTNone
| NLGTDecimal
| NLGTZeroDecimal
| NLGTUpperAlpha
| NLGTAlpha
| NLGTUpperRoman
| NLGTRoman
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable NestingLevelGlyphType
instance FromHttpApiData NestingLevelGlyphType where
parseQueryParam = \case
"GLYPH_TYPE_UNSPECIFIED" -> Right NLGTGlyphTypeUnspecified
"NONE" -> Right NLGTNone
"DECIMAL" -> Right NLGTDecimal
"ZERO_DECIMAL" -> Right NLGTZeroDecimal
"UPPER_ALPHA" -> Right NLGTUpperAlpha
"ALPHA" -> Right NLGTAlpha
"UPPER_ROMAN" -> Right NLGTUpperRoman
"ROMAN" -> Right NLGTRoman
x -> Left ("Unable to parse NestingLevelGlyphType from: " <> x)
instance ToHttpApiData NestingLevelGlyphType where
toQueryParam = \case
NLGTGlyphTypeUnspecified -> "GLYPH_TYPE_UNSPECIFIED"
NLGTNone -> "NONE"
NLGTDecimal -> "DECIMAL"
NLGTZeroDecimal -> "ZERO_DECIMAL"
NLGTUpperAlpha -> "UPPER_ALPHA"
NLGTAlpha -> "ALPHA"
NLGTUpperRoman -> "UPPER_ROMAN"
NLGTRoman -> "ROMAN"
instance FromJSON NestingLevelGlyphType where
parseJSON = parseJSONText "NestingLevelGlyphType"
instance ToJSON NestingLevelGlyphType where
toJSON = toJSONText
data ParagraphBOrderDashStyle
= PBODSDashStyleUnspecified
| PBODSSolid
| PBODSDot
| PBODSDash
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ParagraphBOrderDashStyle
instance FromHttpApiData ParagraphBOrderDashStyle where
parseQueryParam = \case
"DASH_STYLE_UNSPECIFIED" -> Right PBODSDashStyleUnspecified
"SOLID" -> Right PBODSSolid
"DOT" -> Right PBODSDot
"DASH" -> Right PBODSDash
x -> Left ("Unable to parse ParagraphBOrderDashStyle from: " <> x)
instance ToHttpApiData ParagraphBOrderDashStyle where
toQueryParam = \case
PBODSDashStyleUnspecified -> "DASH_STYLE_UNSPECIFIED"
PBODSSolid -> "SOLID"
PBODSDot -> "DOT"
PBODSDash -> "DASH"
instance FromJSON ParagraphBOrderDashStyle where
parseJSON = parseJSONText "ParagraphBOrderDashStyle"
instance ToJSON ParagraphBOrderDashStyle where
toJSON = toJSONText
data ParagraphStyleAlignment
= PSAAlignmentUnspecified
| PSAStart
| PSACenter
| PSAEnd
| PSAJustified
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ParagraphStyleAlignment
instance FromHttpApiData ParagraphStyleAlignment where
parseQueryParam = \case
"ALIGNMENT_UNSPECIFIED" -> Right PSAAlignmentUnspecified
"START" -> Right PSAStart
"CENTER" -> Right PSACenter
"END" -> Right PSAEnd
"JUSTIFIED" -> Right PSAJustified
x -> Left ("Unable to parse ParagraphStyleAlignment from: " <> x)
instance ToHttpApiData ParagraphStyleAlignment where
toQueryParam = \case
PSAAlignmentUnspecified -> "ALIGNMENT_UNSPECIFIED"
PSAStart -> "START"
PSACenter -> "CENTER"
PSAEnd -> "END"
PSAJustified -> "JUSTIFIED"
instance FromJSON ParagraphStyleAlignment where
parseJSON = parseJSONText "ParagraphStyleAlignment"
instance ToJSON ParagraphStyleAlignment where
toJSON = toJSONText
data EmbeddedObjectBOrderPropertyState
= Rendered
| NotRendered
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable EmbeddedObjectBOrderPropertyState
instance FromHttpApiData EmbeddedObjectBOrderPropertyState where
parseQueryParam = \case
"RENDERED" -> Right Rendered
"NOT_RENDERED" -> Right NotRendered
x -> Left ("Unable to parse EmbeddedObjectBOrderPropertyState from: " <> x)
instance ToHttpApiData EmbeddedObjectBOrderPropertyState where
toQueryParam = \case
Rendered -> "RENDERED"
NotRendered -> "NOT_RENDERED"
instance FromJSON EmbeddedObjectBOrderPropertyState where
parseJSON = parseJSONText "EmbeddedObjectBOrderPropertyState"
instance ToJSON EmbeddedObjectBOrderPropertyState where
toJSON = toJSONText
data SectionStyleColumnSeparatorStyle
= SSCSSColumnSeparatorStyleUnspecified
| SSCSSNone
| SSCSSBetweenEachColumn
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SectionStyleColumnSeparatorStyle
instance FromHttpApiData SectionStyleColumnSeparatorStyle where
parseQueryParam = \case
"COLUMN_SEPARATOR_STYLE_UNSPECIFIED" -> Right SSCSSColumnSeparatorStyleUnspecified
"NONE" -> Right SSCSSNone
"BETWEEN_EACH_COLUMN" -> Right SSCSSBetweenEachColumn
x -> Left ("Unable to parse SectionStyleColumnSeparatorStyle from: " <> x)
instance ToHttpApiData SectionStyleColumnSeparatorStyle where
toQueryParam = \case
SSCSSColumnSeparatorStyleUnspecified -> "COLUMN_SEPARATOR_STYLE_UNSPECIFIED"
SSCSSNone -> "NONE"
SSCSSBetweenEachColumn -> "BETWEEN_EACH_COLUMN"
instance FromJSON SectionStyleColumnSeparatorStyle where
parseJSON = parseJSONText "SectionStyleColumnSeparatorStyle"
instance ToJSON SectionStyleColumnSeparatorStyle 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
= TypeUnspecified
| PageNumber
| PageCount
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AutoTextType
instance FromHttpApiData AutoTextType where
parseQueryParam = \case
"TYPE_UNSPECIFIED" -> Right TypeUnspecified
"PAGE_NUMBER" -> Right PageNumber
"PAGE_COUNT" -> Right PageCount
x -> Left ("Unable to parse AutoTextType from: " <> x)
instance ToHttpApiData AutoTextType where
toQueryParam = \case
TypeUnspecified -> "TYPE_UNSPECIFIED"
PageNumber -> "PAGE_NUMBER"
PageCount -> "PAGE_COUNT"
instance FromJSON AutoTextType where
parseJSON = parseJSONText "AutoTextType"
instance ToJSON AutoTextType where
toJSON = toJSONText
data SectionStyleContentDirection
= SSCDContentDirectionUnspecified
| SSCDLeftToRight
| SSCDRightToLeft
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SectionStyleContentDirection
instance FromHttpApiData SectionStyleContentDirection where
parseQueryParam = \case
"CONTENT_DIRECTION_UNSPECIFIED" -> Right SSCDContentDirectionUnspecified
"LEFT_TO_RIGHT" -> Right SSCDLeftToRight
"RIGHT_TO_LEFT" -> Right SSCDRightToLeft
x -> Left ("Unable to parse SectionStyleContentDirection from: " <> x)
instance ToHttpApiData SectionStyleContentDirection where
toQueryParam = \case
SSCDContentDirectionUnspecified -> "CONTENT_DIRECTION_UNSPECIFIED"
SSCDLeftToRight -> "LEFT_TO_RIGHT"
SSCDRightToLeft -> "RIGHT_TO_LEFT"
instance FromJSON SectionStyleContentDirection where
parseJSON = parseJSONText "SectionStyleContentDirection"
instance ToJSON SectionStyleContentDirection where
toJSON = toJSONText
data NamedStyleNamedStyleType
= NSNSTNamedStyleTypeUnspecified
| NSNSTNormalText
| NSNSTTitle
| NSNSTSubtitle
| NSNSTHeading1
| NSNSTHeading2
| NSNSTHeading3
| NSNSTHeading4
| NSNSTHeading5
| NSNSTHeading6
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable NamedStyleNamedStyleType
instance FromHttpApiData NamedStyleNamedStyleType where
parseQueryParam = \case
"NAMED_STYLE_TYPE_UNSPECIFIED" -> Right NSNSTNamedStyleTypeUnspecified
"NORMAL_TEXT" -> Right NSNSTNormalText
"TITLE" -> Right NSNSTTitle
"SUBTITLE" -> Right NSNSTSubtitle
"HEADING_1" -> Right NSNSTHeading1
"HEADING_2" -> Right NSNSTHeading2
"HEADING_3" -> Right NSNSTHeading3
"HEADING_4" -> Right NSNSTHeading4
"HEADING_5" -> Right NSNSTHeading5
"HEADING_6" -> Right NSNSTHeading6
x -> Left ("Unable to parse NamedStyleNamedStyleType from: " <> x)
instance ToHttpApiData NamedStyleNamedStyleType where
toQueryParam = \case
NSNSTNamedStyleTypeUnspecified -> "NAMED_STYLE_TYPE_UNSPECIFIED"
NSNSTNormalText -> "NORMAL_TEXT"
NSNSTTitle -> "TITLE"
NSNSTSubtitle -> "SUBTITLE"
NSNSTHeading1 -> "HEADING_1"
NSNSTHeading2 -> "HEADING_2"
NSNSTHeading3 -> "HEADING_3"
NSNSTHeading4 -> "HEADING_4"
NSNSTHeading5 -> "HEADING_5"
NSNSTHeading6 -> "HEADING_6"
instance FromJSON NamedStyleNamedStyleType where
parseJSON = parseJSONText "NamedStyleNamedStyleType"
instance ToJSON NamedStyleNamedStyleType 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 NestingLevelBulletAlignment
= NLBABulletAlignmentUnspecified
| NLBAStart
| NLBACenter
| NLBAEnd
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable NestingLevelBulletAlignment
instance FromHttpApiData NestingLevelBulletAlignment where
parseQueryParam = \case
"BULLET_ALIGNMENT_UNSPECIFIED" -> Right NLBABulletAlignmentUnspecified
"START" -> Right NLBAStart
"CENTER" -> Right NLBACenter
"END" -> Right NLBAEnd
x -> Left ("Unable to parse NestingLevelBulletAlignment from: " <> x)
instance ToHttpApiData NestingLevelBulletAlignment where
toQueryParam = \case
NLBABulletAlignmentUnspecified -> "BULLET_ALIGNMENT_UNSPECIFIED"
NLBAStart -> "START"
NLBACenter -> "CENTER"
NLBAEnd -> "END"
instance FromJSON NestingLevelBulletAlignment where
parseJSON = parseJSONText "NestingLevelBulletAlignment"
instance ToJSON NestingLevelBulletAlignment where
toJSON = toJSONText
data NamedStyleSuggestionStateNamedStyleType
= NSSSNSTNamedStyleTypeUnspecified
| NSSSNSTNormalText
| NSSSNSTTitle
| NSSSNSTSubtitle
| NSSSNSTHeading1
| NSSSNSTHeading2
| NSSSNSTHeading3
| NSSSNSTHeading4
| NSSSNSTHeading5
| NSSSNSTHeading6
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable NamedStyleSuggestionStateNamedStyleType
instance FromHttpApiData NamedStyleSuggestionStateNamedStyleType where
parseQueryParam = \case
"NAMED_STYLE_TYPE_UNSPECIFIED" -> Right NSSSNSTNamedStyleTypeUnspecified
"NORMAL_TEXT" -> Right NSSSNSTNormalText
"TITLE" -> Right NSSSNSTTitle
"SUBTITLE" -> Right NSSSNSTSubtitle
"HEADING_1" -> Right NSSSNSTHeading1
"HEADING_2" -> Right NSSSNSTHeading2
"HEADING_3" -> Right NSSSNSTHeading3
"HEADING_4" -> Right NSSSNSTHeading4
"HEADING_5" -> Right NSSSNSTHeading5
"HEADING_6" -> Right NSSSNSTHeading6
x -> Left ("Unable to parse NamedStyleSuggestionStateNamedStyleType from: " <> x)
instance ToHttpApiData NamedStyleSuggestionStateNamedStyleType where
toQueryParam = \case
NSSSNSTNamedStyleTypeUnspecified -> "NAMED_STYLE_TYPE_UNSPECIFIED"
NSSSNSTNormalText -> "NORMAL_TEXT"
NSSSNSTTitle -> "TITLE"
NSSSNSTSubtitle -> "SUBTITLE"
NSSSNSTHeading1 -> "HEADING_1"
NSSSNSTHeading2 -> "HEADING_2"
NSSSNSTHeading3 -> "HEADING_3"
NSSSNSTHeading4 -> "HEADING_4"
NSSSNSTHeading5 -> "HEADING_5"
NSSSNSTHeading6 -> "HEADING_6"
instance FromJSON NamedStyleSuggestionStateNamedStyleType where
parseJSON = parseJSONText "NamedStyleSuggestionStateNamedStyleType"
instance ToJSON NamedStyleSuggestionStateNamedStyleType where
toJSON = toJSONText
data EmbeddedObjectBOrderDashStyle
= EOBODSDashStyleUnspecified
| EOBODSSolid
| EOBODSDot
| EOBODSDash
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable EmbeddedObjectBOrderDashStyle
instance FromHttpApiData EmbeddedObjectBOrderDashStyle where
parseQueryParam = \case
"DASH_STYLE_UNSPECIFIED" -> Right EOBODSDashStyleUnspecified
"SOLID" -> Right EOBODSSolid
"DOT" -> Right EOBODSDot
"DASH" -> Right EOBODSDash
x -> Left ("Unable to parse EmbeddedObjectBOrderDashStyle from: " <> x)
instance ToHttpApiData EmbeddedObjectBOrderDashStyle where
toQueryParam = \case
EOBODSDashStyleUnspecified -> "DASH_STYLE_UNSPECIFIED"
EOBODSSolid -> "SOLID"
EOBODSDot -> "DOT"
EOBODSDash -> "DASH"
instance FromJSON EmbeddedObjectBOrderDashStyle where
parseJSON = parseJSONText "EmbeddedObjectBOrderDashStyle"
instance ToJSON EmbeddedObjectBOrderDashStyle where
toJSON = toJSONText
data DocumentSuggestionsViewMode
= DefaultForCurrentAccess
| SuggestionsInline
| PreviewSuggestionsAccepted
| PreviewWithoutSuggestions
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DocumentSuggestionsViewMode
instance FromHttpApiData DocumentSuggestionsViewMode where
parseQueryParam = \case
"DEFAULT_FOR_CURRENT_ACCESS" -> Right DefaultForCurrentAccess
"SUGGESTIONS_INLINE" -> Right SuggestionsInline
"PREVIEW_SUGGESTIONS_ACCEPTED" -> Right PreviewSuggestionsAccepted
"PREVIEW_WITHOUT_SUGGESTIONS" -> Right PreviewWithoutSuggestions
x -> Left ("Unable to parse DocumentSuggestionsViewMode from: " <> x)
instance ToHttpApiData DocumentSuggestionsViewMode where
toQueryParam = \case
DefaultForCurrentAccess -> "DEFAULT_FOR_CURRENT_ACCESS"
SuggestionsInline -> "SUGGESTIONS_INLINE"
PreviewSuggestionsAccepted -> "PREVIEW_SUGGESTIONS_ACCEPTED"
PreviewWithoutSuggestions -> "PREVIEW_WITHOUT_SUGGESTIONS"
instance FromJSON DocumentSuggestionsViewMode where
parseJSON = parseJSONText "DocumentSuggestionsViewMode"
instance ToJSON DocumentSuggestionsViewMode where
toJSON = toJSONText
data PositionedObjectPositioningLayout
= PositionedObjectLayoutUnspecified
| WrapText
| BreakLeft
| BreakRight
| BreakLeftRight
| InFrontOfText
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PositionedObjectPositioningLayout
instance FromHttpApiData PositionedObjectPositioningLayout where
parseQueryParam = \case
"POSITIONED_OBJECT_LAYOUT_UNSPECIFIED" -> Right PositionedObjectLayoutUnspecified
"WRAP_TEXT" -> Right WrapText
"BREAK_LEFT" -> Right BreakLeft
"BREAK_RIGHT" -> Right BreakRight
"BREAK_LEFT_RIGHT" -> Right BreakLeftRight
"IN_FRONT_OF_TEXT" -> Right InFrontOfText
x -> Left ("Unable to parse PositionedObjectPositioningLayout from: " <> x)
instance ToHttpApiData PositionedObjectPositioningLayout where
toQueryParam = \case
PositionedObjectLayoutUnspecified -> "POSITIONED_OBJECT_LAYOUT_UNSPECIFIED"
WrapText -> "WRAP_TEXT"
BreakLeft -> "BREAK_LEFT"
BreakRight -> "BREAK_RIGHT"
BreakLeftRight -> "BREAK_LEFT_RIGHT"
InFrontOfText -> "IN_FRONT_OF_TEXT"
instance FromJSON PositionedObjectPositioningLayout where
parseJSON = parseJSONText "PositionedObjectPositioningLayout"
instance ToJSON PositionedObjectPositioningLayout where
toJSON = toJSONText
data DimensionUnit
= UnitUnspecified
| PT
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DimensionUnit
instance FromHttpApiData DimensionUnit where
parseQueryParam = \case
"UNIT_UNSPECIFIED" -> Right UnitUnspecified
"PT" -> Right PT
x -> Left ("Unable to parse DimensionUnit from: " <> x)
instance ToHttpApiData DimensionUnit where
toQueryParam = \case
UnitUnspecified -> "UNIT_UNSPECIFIED"
PT -> "PT"
instance FromJSON DimensionUnit where
parseJSON = parseJSONText "DimensionUnit"
instance ToJSON DimensionUnit where
toJSON = toJSONText
data TableCellStyleContentAlignment
= ContentAlignmentUnspecified
| ContentAlignmentUnsupported
| Top
| Middle
| Bottom
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TableCellStyleContentAlignment
instance FromHttpApiData TableCellStyleContentAlignment 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 TableCellStyleContentAlignment from: " <> x)
instance ToHttpApiData TableCellStyleContentAlignment where
toQueryParam = \case
ContentAlignmentUnspecified -> "CONTENT_ALIGNMENT_UNSPECIFIED"
ContentAlignmentUnsupported -> "CONTENT_ALIGNMENT_UNSUPPORTED"
Top -> "TOP"
Middle -> "MIDDLE"
Bottom -> "BOTTOM"
instance FromJSON TableCellStyleContentAlignment where
parseJSON = parseJSONText "TableCellStyleContentAlignment"
instance ToJSON TableCellStyleContentAlignment where
toJSON = toJSONText