{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Docs.Types.Product where
import Network.Google.Docs.Types.Sum
import Network.Google.Prelude
data TableCellStyleSuggestionState =
TableCellStyleSuggestionState'
{ _tcsssPaddingLeftSuggested :: !(Maybe Bool)
, _tcsssPaddingTopSuggested :: !(Maybe Bool)
, _tcsssBOrderTopSuggested :: !(Maybe Bool)
, _tcsssRowSpanSuggested :: !(Maybe Bool)
, _tcsssPaddingBottomSuggested :: !(Maybe Bool)
, _tcsssBOrderBottomSuggested :: !(Maybe Bool)
, _tcsssPaddingRightSuggested :: !(Maybe Bool)
, _tcsssColumnSpanSuggested :: !(Maybe Bool)
, _tcsssBOrderLeftSuggested :: !(Maybe Bool)
, _tcsssContentAlignmentSuggested :: !(Maybe Bool)
, _tcsssBackgRoundColorSuggested :: !(Maybe Bool)
, _tcsssBOrderRightSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCellStyleSuggestionState
:: TableCellStyleSuggestionState
tableCellStyleSuggestionState =
TableCellStyleSuggestionState'
{ _tcsssPaddingLeftSuggested = Nothing
, _tcsssPaddingTopSuggested = Nothing
, _tcsssBOrderTopSuggested = Nothing
, _tcsssRowSpanSuggested = Nothing
, _tcsssPaddingBottomSuggested = Nothing
, _tcsssBOrderBottomSuggested = Nothing
, _tcsssPaddingRightSuggested = Nothing
, _tcsssColumnSpanSuggested = Nothing
, _tcsssBOrderLeftSuggested = Nothing
, _tcsssContentAlignmentSuggested = Nothing
, _tcsssBackgRoundColorSuggested = Nothing
, _tcsssBOrderRightSuggested = Nothing
}
tcsssPaddingLeftSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssPaddingLeftSuggested
= lens _tcsssPaddingLeftSuggested
(\ s a -> s{_tcsssPaddingLeftSuggested = a})
tcsssPaddingTopSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssPaddingTopSuggested
= lens _tcsssPaddingTopSuggested
(\ s a -> s{_tcsssPaddingTopSuggested = a})
tcsssBOrderTopSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssBOrderTopSuggested
= lens _tcsssBOrderTopSuggested
(\ s a -> s{_tcsssBOrderTopSuggested = a})
tcsssRowSpanSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssRowSpanSuggested
= lens _tcsssRowSpanSuggested
(\ s a -> s{_tcsssRowSpanSuggested = a})
tcsssPaddingBottomSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssPaddingBottomSuggested
= lens _tcsssPaddingBottomSuggested
(\ s a -> s{_tcsssPaddingBottomSuggested = a})
tcsssBOrderBottomSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssBOrderBottomSuggested
= lens _tcsssBOrderBottomSuggested
(\ s a -> s{_tcsssBOrderBottomSuggested = a})
tcsssPaddingRightSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssPaddingRightSuggested
= lens _tcsssPaddingRightSuggested
(\ s a -> s{_tcsssPaddingRightSuggested = a})
tcsssColumnSpanSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssColumnSpanSuggested
= lens _tcsssColumnSpanSuggested
(\ s a -> s{_tcsssColumnSpanSuggested = a})
tcsssBOrderLeftSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssBOrderLeftSuggested
= lens _tcsssBOrderLeftSuggested
(\ s a -> s{_tcsssBOrderLeftSuggested = a})
tcsssContentAlignmentSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssContentAlignmentSuggested
= lens _tcsssContentAlignmentSuggested
(\ s a -> s{_tcsssContentAlignmentSuggested = a})
tcsssBackgRoundColorSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssBackgRoundColorSuggested
= lens _tcsssBackgRoundColorSuggested
(\ s a -> s{_tcsssBackgRoundColorSuggested = a})
tcsssBOrderRightSuggested :: Lens' TableCellStyleSuggestionState (Maybe Bool)
tcsssBOrderRightSuggested
= lens _tcsssBOrderRightSuggested
(\ s a -> s{_tcsssBOrderRightSuggested = a})
instance FromJSON TableCellStyleSuggestionState where
parseJSON
= withObject "TableCellStyleSuggestionState"
(\ o ->
TableCellStyleSuggestionState' <$>
(o .:? "paddingLeftSuggested") <*>
(o .:? "paddingTopSuggested")
<*> (o .:? "borderTopSuggested")
<*> (o .:? "rowSpanSuggested")
<*> (o .:? "paddingBottomSuggested")
<*> (o .:? "borderBottomSuggested")
<*> (o .:? "paddingRightSuggested")
<*> (o .:? "columnSpanSuggested")
<*> (o .:? "borderLeftSuggested")
<*> (o .:? "contentAlignmentSuggested")
<*> (o .:? "backgroundColorSuggested")
<*> (o .:? "borderRightSuggested"))
instance ToJSON TableCellStyleSuggestionState where
toJSON TableCellStyleSuggestionState'{..}
= object
(catMaybes
[("paddingLeftSuggested" .=) <$>
_tcsssPaddingLeftSuggested,
("paddingTopSuggested" .=) <$>
_tcsssPaddingTopSuggested,
("borderTopSuggested" .=) <$>
_tcsssBOrderTopSuggested,
("rowSpanSuggested" .=) <$> _tcsssRowSpanSuggested,
("paddingBottomSuggested" .=) <$>
_tcsssPaddingBottomSuggested,
("borderBottomSuggested" .=) <$>
_tcsssBOrderBottomSuggested,
("paddingRightSuggested" .=) <$>
_tcsssPaddingRightSuggested,
("columnSpanSuggested" .=) <$>
_tcsssColumnSpanSuggested,
("borderLeftSuggested" .=) <$>
_tcsssBOrderLeftSuggested,
("contentAlignmentSuggested" .=) <$>
_tcsssContentAlignmentSuggested,
("backgroundColorSuggested" .=) <$>
_tcsssBackgRoundColorSuggested,
("borderRightSuggested" .=) <$>
_tcsssBOrderRightSuggested])
data EmbeddedObjectBOrderSuggestionState =
EmbeddedObjectBOrderSuggestionState'
{ _eobossDashStyleSuggested :: !(Maybe Bool)
, _eobossPropertyStateSuggested :: !(Maybe Bool)
, _eobossColorSuggested :: !(Maybe Bool)
, _eobossWidthSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
embeddedObjectBOrderSuggestionState
:: EmbeddedObjectBOrderSuggestionState
embeddedObjectBOrderSuggestionState =
EmbeddedObjectBOrderSuggestionState'
{ _eobossDashStyleSuggested = Nothing
, _eobossPropertyStateSuggested = Nothing
, _eobossColorSuggested = Nothing
, _eobossWidthSuggested = Nothing
}
eobossDashStyleSuggested :: Lens' EmbeddedObjectBOrderSuggestionState (Maybe Bool)
eobossDashStyleSuggested
= lens _eobossDashStyleSuggested
(\ s a -> s{_eobossDashStyleSuggested = a})
eobossPropertyStateSuggested :: Lens' EmbeddedObjectBOrderSuggestionState (Maybe Bool)
eobossPropertyStateSuggested
= lens _eobossPropertyStateSuggested
(\ s a -> s{_eobossPropertyStateSuggested = a})
eobossColorSuggested :: Lens' EmbeddedObjectBOrderSuggestionState (Maybe Bool)
eobossColorSuggested
= lens _eobossColorSuggested
(\ s a -> s{_eobossColorSuggested = a})
eobossWidthSuggested :: Lens' EmbeddedObjectBOrderSuggestionState (Maybe Bool)
eobossWidthSuggested
= lens _eobossWidthSuggested
(\ s a -> s{_eobossWidthSuggested = a})
instance FromJSON EmbeddedObjectBOrderSuggestionState
where
parseJSON
= withObject "EmbeddedObjectBOrderSuggestionState"
(\ o ->
EmbeddedObjectBOrderSuggestionState' <$>
(o .:? "dashStyleSuggested") <*>
(o .:? "propertyStateSuggested")
<*> (o .:? "colorSuggested")
<*> (o .:? "widthSuggested"))
instance ToJSON EmbeddedObjectBOrderSuggestionState
where
toJSON EmbeddedObjectBOrderSuggestionState'{..}
= object
(catMaybes
[("dashStyleSuggested" .=) <$>
_eobossDashStyleSuggested,
("propertyStateSuggested" .=) <$>
_eobossPropertyStateSuggested,
("colorSuggested" .=) <$> _eobossColorSuggested,
("widthSuggested" .=) <$> _eobossWidthSuggested])
data TableCellBOrder =
TableCellBOrder'
{ _tcboColor :: !(Maybe OptionalColor)
, _tcboWidth :: !(Maybe Dimension)
, _tcboDashStyle :: !(Maybe TableCellBOrderDashStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCellBOrder
:: TableCellBOrder
tableCellBOrder =
TableCellBOrder'
{_tcboColor = Nothing, _tcboWidth = Nothing, _tcboDashStyle = Nothing}
tcboColor :: Lens' TableCellBOrder (Maybe OptionalColor)
tcboColor
= lens _tcboColor (\ s a -> s{_tcboColor = a})
tcboWidth :: Lens' TableCellBOrder (Maybe Dimension)
tcboWidth
= lens _tcboWidth (\ s a -> s{_tcboWidth = a})
tcboDashStyle :: Lens' TableCellBOrder (Maybe TableCellBOrderDashStyle)
tcboDashStyle
= lens _tcboDashStyle
(\ s a -> s{_tcboDashStyle = a})
instance FromJSON TableCellBOrder where
parseJSON
= withObject "TableCellBOrder"
(\ o ->
TableCellBOrder' <$>
(o .:? "color") <*> (o .:? "width") <*>
(o .:? "dashStyle"))
instance ToJSON TableCellBOrder where
toJSON TableCellBOrder'{..}
= object
(catMaybes
[("color" .=) <$> _tcboColor,
("width" .=) <$> _tcboWidth,
("dashStyle" .=) <$> _tcboDashStyle])
newtype DeleteTableRowRequest =
DeleteTableRowRequest'
{ _dtrrTableCellLocation :: Maybe TableCellLocation
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteTableRowRequest
:: DeleteTableRowRequest
deleteTableRowRequest =
DeleteTableRowRequest' {_dtrrTableCellLocation = Nothing}
dtrrTableCellLocation :: Lens' DeleteTableRowRequest (Maybe TableCellLocation)
dtrrTableCellLocation
= lens _dtrrTableCellLocation
(\ s a -> s{_dtrrTableCellLocation = a})
instance FromJSON DeleteTableRowRequest where
parseJSON
= withObject "DeleteTableRowRequest"
(\ o ->
DeleteTableRowRequest' <$>
(o .:? "tableCellLocation"))
instance ToJSON DeleteTableRowRequest where
toJSON DeleteTableRowRequest'{..}
= object
(catMaybes
[("tableCellLocation" .=) <$>
_dtrrTableCellLocation])
newtype NamedStylesSuggestionState =
NamedStylesSuggestionState'
{ _nsssStylesSuggestionStates :: Maybe [NamedStyleSuggestionState]
}
deriving (Eq, Show, Data, Typeable, Generic)
namedStylesSuggestionState
:: NamedStylesSuggestionState
namedStylesSuggestionState =
NamedStylesSuggestionState' {_nsssStylesSuggestionStates = Nothing}
nsssStylesSuggestionStates :: Lens' NamedStylesSuggestionState [NamedStyleSuggestionState]
nsssStylesSuggestionStates
= lens _nsssStylesSuggestionStates
(\ s a -> s{_nsssStylesSuggestionStates = a})
. _Default
. _Coerce
instance FromJSON NamedStylesSuggestionState where
parseJSON
= withObject "NamedStylesSuggestionState"
(\ o ->
NamedStylesSuggestionState' <$>
(o .:? "stylesSuggestionStates" .!= mempty))
instance ToJSON NamedStylesSuggestionState where
toJSON NamedStylesSuggestionState'{..}
= object
(catMaybes
[("stylesSuggestionStates" .=) <$>
_nsssStylesSuggestionStates])
data PositionedObjectPositioning =
PositionedObjectPositioning'
{ _popLayout :: !(Maybe PositionedObjectPositioningLayout)
, _popTopOffSet :: !(Maybe Dimension)
, _popLeftOffSet :: !(Maybe Dimension)
}
deriving (Eq, Show, Data, Typeable, Generic)
positionedObjectPositioning
:: PositionedObjectPositioning
positionedObjectPositioning =
PositionedObjectPositioning'
{_popLayout = Nothing, _popTopOffSet = Nothing, _popLeftOffSet = Nothing}
popLayout :: Lens' PositionedObjectPositioning (Maybe PositionedObjectPositioningLayout)
popLayout
= lens _popLayout (\ s a -> s{_popLayout = a})
popTopOffSet :: Lens' PositionedObjectPositioning (Maybe Dimension)
popTopOffSet
= lens _popTopOffSet (\ s a -> s{_popTopOffSet = a})
popLeftOffSet :: Lens' PositionedObjectPositioning (Maybe Dimension)
popLeftOffSet
= lens _popLeftOffSet
(\ s a -> s{_popLeftOffSet = a})
instance FromJSON PositionedObjectPositioning where
parseJSON
= withObject "PositionedObjectPositioning"
(\ o ->
PositionedObjectPositioning' <$>
(o .:? "layout") <*> (o .:? "topOffset") <*>
(o .:? "leftOffset"))
instance ToJSON PositionedObjectPositioning where
toJSON PositionedObjectPositioning'{..}
= object
(catMaybes
[("layout" .=) <$> _popLayout,
("topOffset" .=) <$> _popTopOffSet,
("leftOffset" .=) <$> _popLeftOffSet])
data SuggestedParagraphStyle =
SuggestedParagraphStyle'
{ _spsParagraphStyleSuggestionState :: !(Maybe ParagraphStyleSuggestionState)
, _spsParagraphStyle :: !(Maybe ParagraphStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedParagraphStyle
:: SuggestedParagraphStyle
suggestedParagraphStyle =
SuggestedParagraphStyle'
{_spsParagraphStyleSuggestionState = Nothing, _spsParagraphStyle = Nothing}
spsParagraphStyleSuggestionState :: Lens' SuggestedParagraphStyle (Maybe ParagraphStyleSuggestionState)
spsParagraphStyleSuggestionState
= lens _spsParagraphStyleSuggestionState
(\ s a -> s{_spsParagraphStyleSuggestionState = a})
spsParagraphStyle :: Lens' SuggestedParagraphStyle (Maybe ParagraphStyle)
spsParagraphStyle
= lens _spsParagraphStyle
(\ s a -> s{_spsParagraphStyle = a})
instance FromJSON SuggestedParagraphStyle where
parseJSON
= withObject "SuggestedParagraphStyle"
(\ o ->
SuggestedParagraphStyle' <$>
(o .:? "paragraphStyleSuggestionState") <*>
(o .:? "paragraphStyle"))
instance ToJSON SuggestedParagraphStyle where
toJSON SuggestedParagraphStyle'{..}
= object
(catMaybes
[("paragraphStyleSuggestionState" .=) <$>
_spsParagraphStyleSuggestionState,
("paragraphStyle" .=) <$> _spsParagraphStyle])
data PositionedObjectProperties =
PositionedObjectProperties'
{ _popEmbeddedObject :: !(Maybe EmbeddedObject)
, _popPositioning :: !(Maybe PositionedObjectPositioning)
}
deriving (Eq, Show, Data, Typeable, Generic)
positionedObjectProperties
:: PositionedObjectProperties
positionedObjectProperties =
PositionedObjectProperties'
{_popEmbeddedObject = Nothing, _popPositioning = Nothing}
popEmbeddedObject :: Lens' PositionedObjectProperties (Maybe EmbeddedObject)
popEmbeddedObject
= lens _popEmbeddedObject
(\ s a -> s{_popEmbeddedObject = a})
popPositioning :: Lens' PositionedObjectProperties (Maybe PositionedObjectPositioning)
popPositioning
= lens _popPositioning
(\ s a -> s{_popPositioning = a})
instance FromJSON PositionedObjectProperties where
parseJSON
= withObject "PositionedObjectProperties"
(\ o ->
PositionedObjectProperties' <$>
(o .:? "embeddedObject") <*> (o .:? "positioning"))
instance ToJSON PositionedObjectProperties where
toJSON PositionedObjectProperties'{..}
= object
(catMaybes
[("embeddedObject" .=) <$> _popEmbeddedObject,
("positioning" .=) <$> _popPositioning])
data NamedStyle =
NamedStyle'
{ _nsNamedStyleType :: !(Maybe NamedStyleNamedStyleType)
, _nsTextStyle :: !(Maybe TextStyle)
, _nsParagraphStyle :: !(Maybe ParagraphStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
namedStyle
:: NamedStyle
namedStyle =
NamedStyle'
{ _nsNamedStyleType = Nothing
, _nsTextStyle = Nothing
, _nsParagraphStyle = Nothing
}
nsNamedStyleType :: Lens' NamedStyle (Maybe NamedStyleNamedStyleType)
nsNamedStyleType
= lens _nsNamedStyleType
(\ s a -> s{_nsNamedStyleType = a})
nsTextStyle :: Lens' NamedStyle (Maybe TextStyle)
nsTextStyle
= lens _nsTextStyle (\ s a -> s{_nsTextStyle = a})
nsParagraphStyle :: Lens' NamedStyle (Maybe ParagraphStyle)
nsParagraphStyle
= lens _nsParagraphStyle
(\ s a -> s{_nsParagraphStyle = a})
instance FromJSON NamedStyle where
parseJSON
= withObject "NamedStyle"
(\ o ->
NamedStyle' <$>
(o .:? "namedStyleType") <*> (o .:? "textStyle") <*>
(o .:? "paragraphStyle"))
instance ToJSON NamedStyle where
toJSON NamedStyle'{..}
= object
(catMaybes
[("namedStyleType" .=) <$> _nsNamedStyleType,
("textStyle" .=) <$> _nsTextStyle,
("paragraphStyle" .=) <$> _nsParagraphStyle])
data DeleteNamedRangeRequest =
DeleteNamedRangeRequest'
{ _dnrrNamedRangeId :: !(Maybe Text)
, _dnrrName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteNamedRangeRequest
:: DeleteNamedRangeRequest
deleteNamedRangeRequest =
DeleteNamedRangeRequest' {_dnrrNamedRangeId = Nothing, _dnrrName = Nothing}
dnrrNamedRangeId :: Lens' DeleteNamedRangeRequest (Maybe Text)
dnrrNamedRangeId
= lens _dnrrNamedRangeId
(\ s a -> s{_dnrrNamedRangeId = a})
dnrrName :: Lens' DeleteNamedRangeRequest (Maybe Text)
dnrrName = lens _dnrrName (\ s a -> s{_dnrrName = a})
instance FromJSON DeleteNamedRangeRequest where
parseJSON
= withObject "DeleteNamedRangeRequest"
(\ o ->
DeleteNamedRangeRequest' <$>
(o .:? "namedRangeId") <*> (o .:? "name"))
instance ToJSON DeleteNamedRangeRequest where
toJSON DeleteNamedRangeRequest'{..}
= object
(catMaybes
[("namedRangeId" .=) <$> _dnrrNamedRangeId,
("name" .=) <$> _dnrrName])
data EmbeddedDrawingPropertiesSuggestionState =
EmbeddedDrawingPropertiesSuggestionState'
deriving (Eq, Show, Data, Typeable, Generic)
embeddedDrawingPropertiesSuggestionState
:: EmbeddedDrawingPropertiesSuggestionState
embeddedDrawingPropertiesSuggestionState =
EmbeddedDrawingPropertiesSuggestionState'
instance FromJSON
EmbeddedDrawingPropertiesSuggestionState
where
parseJSON
= withObject
"EmbeddedDrawingPropertiesSuggestionState"
(\ o ->
pure EmbeddedDrawingPropertiesSuggestionState')
instance ToJSON
EmbeddedDrawingPropertiesSuggestionState
where
toJSON = const emptyObject
data TabStop =
TabStop'
{ _tsOffSet :: !(Maybe Dimension)
, _tsAlignment :: !(Maybe TabStopAlignment)
}
deriving (Eq, Show, Data, Typeable, Generic)
tabStop
:: TabStop
tabStop = TabStop' {_tsOffSet = Nothing, _tsAlignment = Nothing}
tsOffSet :: Lens' TabStop (Maybe Dimension)
tsOffSet = lens _tsOffSet (\ s a -> s{_tsOffSet = a})
tsAlignment :: Lens' TabStop (Maybe TabStopAlignment)
tsAlignment
= lens _tsAlignment (\ s a -> s{_tsAlignment = a})
instance FromJSON TabStop where
parseJSON
= withObject "TabStop"
(\ o ->
TabStop' <$>
(o .:? "offset") <*> (o .:? "alignment"))
instance ToJSON TabStop where
toJSON TabStop'{..}
= object
(catMaybes
[("offset" .=) <$> _tsOffSet,
("alignment" .=) <$> _tsAlignment])
data NamedRanges =
NamedRanges'
{ _nrNamedRanges :: !(Maybe [NamedRange])
, _nrName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
namedRanges
:: NamedRanges
namedRanges = NamedRanges' {_nrNamedRanges = Nothing, _nrName = Nothing}
nrNamedRanges :: Lens' NamedRanges [NamedRange]
nrNamedRanges
= lens _nrNamedRanges
(\ s a -> s{_nrNamedRanges = a})
. _Default
. _Coerce
nrName :: Lens' NamedRanges (Maybe Text)
nrName = lens _nrName (\ s a -> s{_nrName = a})
instance FromJSON NamedRanges where
parseJSON
= withObject "NamedRanges"
(\ o ->
NamedRanges' <$>
(o .:? "namedRanges" .!= mempty) <*> (o .:? "name"))
instance ToJSON NamedRanges where
toJSON NamedRanges'{..}
= object
(catMaybes
[("namedRanges" .=) <$> _nrNamedRanges,
("name" .=) <$> _nrName])
newtype TableRowSuggestedTableRowStyleChanges =
TableRowSuggestedTableRowStyleChanges'
{ _trstrscAddtional :: HashMap Text SuggestedTableRowStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
tableRowSuggestedTableRowStyleChanges
:: HashMap Text SuggestedTableRowStyle
-> TableRowSuggestedTableRowStyleChanges
tableRowSuggestedTableRowStyleChanges pTrstrscAddtional_ =
TableRowSuggestedTableRowStyleChanges'
{_trstrscAddtional = _Coerce # pTrstrscAddtional_}
trstrscAddtional :: Lens' TableRowSuggestedTableRowStyleChanges (HashMap Text SuggestedTableRowStyle)
trstrscAddtional
= lens _trstrscAddtional
(\ s a -> s{_trstrscAddtional = a})
. _Coerce
instance FromJSON
TableRowSuggestedTableRowStyleChanges
where
parseJSON
= withObject "TableRowSuggestedTableRowStyleChanges"
(\ o ->
TableRowSuggestedTableRowStyleChanges' <$>
(parseJSONObject o))
instance ToJSON TableRowSuggestedTableRowStyleChanges
where
toJSON = toJSON . _trstrscAddtional
data PositionedObjectPropertiesSuggestionState =
PositionedObjectPropertiesSuggestionState'
{ _popssPositioningSuggestionState :: !(Maybe PositionedObjectPositioningSuggestionState)
, _popssEmbeddedObjectSuggestionState :: !(Maybe EmbeddedObjectSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
positionedObjectPropertiesSuggestionState
:: PositionedObjectPropertiesSuggestionState
positionedObjectPropertiesSuggestionState =
PositionedObjectPropertiesSuggestionState'
{ _popssPositioningSuggestionState = Nothing
, _popssEmbeddedObjectSuggestionState = Nothing
}
popssPositioningSuggestionState :: Lens' PositionedObjectPropertiesSuggestionState (Maybe PositionedObjectPositioningSuggestionState)
popssPositioningSuggestionState
= lens _popssPositioningSuggestionState
(\ s a -> s{_popssPositioningSuggestionState = a})
popssEmbeddedObjectSuggestionState :: Lens' PositionedObjectPropertiesSuggestionState (Maybe EmbeddedObjectSuggestionState)
popssEmbeddedObjectSuggestionState
= lens _popssEmbeddedObjectSuggestionState
(\ s a -> s{_popssEmbeddedObjectSuggestionState = a})
instance FromJSON
PositionedObjectPropertiesSuggestionState
where
parseJSON
= withObject
"PositionedObjectPropertiesSuggestionState"
(\ o ->
PositionedObjectPropertiesSuggestionState' <$>
(o .:? "positioningSuggestionState") <*>
(o .:? "embeddedObjectSuggestionState"))
instance ToJSON
PositionedObjectPropertiesSuggestionState
where
toJSON PositionedObjectPropertiesSuggestionState'{..}
= object
(catMaybes
[("positioningSuggestionState" .=) <$>
_popssPositioningSuggestionState,
("embeddedObjectSuggestionState" .=) <$>
_popssEmbeddedObjectSuggestionState])
data PositionedObjectPositioningSuggestionState =
PositionedObjectPositioningSuggestionState'
{ _popssTopOffSetSuggested :: !(Maybe Bool)
, _popssLayoutSuggested :: !(Maybe Bool)
, _popssLeftOffSetSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
positionedObjectPositioningSuggestionState
:: PositionedObjectPositioningSuggestionState
positionedObjectPositioningSuggestionState =
PositionedObjectPositioningSuggestionState'
{ _popssTopOffSetSuggested = Nothing
, _popssLayoutSuggested = Nothing
, _popssLeftOffSetSuggested = Nothing
}
popssTopOffSetSuggested :: Lens' PositionedObjectPositioningSuggestionState (Maybe Bool)
popssTopOffSetSuggested
= lens _popssTopOffSetSuggested
(\ s a -> s{_popssTopOffSetSuggested = a})
popssLayoutSuggested :: Lens' PositionedObjectPositioningSuggestionState (Maybe Bool)
popssLayoutSuggested
= lens _popssLayoutSuggested
(\ s a -> s{_popssLayoutSuggested = a})
popssLeftOffSetSuggested :: Lens' PositionedObjectPositioningSuggestionState (Maybe Bool)
popssLeftOffSetSuggested
= lens _popssLeftOffSetSuggested
(\ s a -> s{_popssLeftOffSetSuggested = a})
instance FromJSON
PositionedObjectPositioningSuggestionState
where
parseJSON
= withObject
"PositionedObjectPositioningSuggestionState"
(\ o ->
PositionedObjectPositioningSuggestionState' <$>
(o .:? "topOffsetSuggested") <*>
(o .:? "layoutSuggested")
<*> (o .:? "leftOffsetSuggested"))
instance ToJSON
PositionedObjectPositioningSuggestionState
where
toJSON
PositionedObjectPositioningSuggestionState'{..}
= object
(catMaybes
[("topOffsetSuggested" .=) <$>
_popssTopOffSetSuggested,
("layoutSuggested" .=) <$> _popssLayoutSuggested,
("leftOffsetSuggested" .=) <$>
_popssLeftOffSetSuggested])
data NamedStyleSuggestionState =
NamedStyleSuggestionState'
{ _nsssParagraphStyleSuggestionState :: !(Maybe ParagraphStyleSuggestionState)
, _nsssNamedStyleType :: !(Maybe NamedStyleSuggestionStateNamedStyleType)
, _nsssTextStyleSuggestionState :: !(Maybe TextStyleSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
namedStyleSuggestionState
:: NamedStyleSuggestionState
namedStyleSuggestionState =
NamedStyleSuggestionState'
{ _nsssParagraphStyleSuggestionState = Nothing
, _nsssNamedStyleType = Nothing
, _nsssTextStyleSuggestionState = Nothing
}
nsssParagraphStyleSuggestionState :: Lens' NamedStyleSuggestionState (Maybe ParagraphStyleSuggestionState)
nsssParagraphStyleSuggestionState
= lens _nsssParagraphStyleSuggestionState
(\ s a -> s{_nsssParagraphStyleSuggestionState = a})
nsssNamedStyleType :: Lens' NamedStyleSuggestionState (Maybe NamedStyleSuggestionStateNamedStyleType)
nsssNamedStyleType
= lens _nsssNamedStyleType
(\ s a -> s{_nsssNamedStyleType = a})
nsssTextStyleSuggestionState :: Lens' NamedStyleSuggestionState (Maybe TextStyleSuggestionState)
nsssTextStyleSuggestionState
= lens _nsssTextStyleSuggestionState
(\ s a -> s{_nsssTextStyleSuggestionState = a})
instance FromJSON NamedStyleSuggestionState where
parseJSON
= withObject "NamedStyleSuggestionState"
(\ o ->
NamedStyleSuggestionState' <$>
(o .:? "paragraphStyleSuggestionState") <*>
(o .:? "namedStyleType")
<*> (o .:? "textStyleSuggestionState"))
instance ToJSON NamedStyleSuggestionState where
toJSON NamedStyleSuggestionState'{..}
= object
(catMaybes
[("paragraphStyleSuggestionState" .=) <$>
_nsssParagraphStyleSuggestionState,
("namedStyleType" .=) <$> _nsssNamedStyleType,
("textStyleSuggestionState" .=) <$>
_nsssTextStyleSuggestionState])
data CropProperties =
CropProperties'
{ _cpOffSetBottom :: !(Maybe (Textual Double))
, _cpOffSetRight :: !(Maybe (Textual Double))
, _cpAngle :: !(Maybe (Textual Double))
, _cpOffSetTop :: !(Maybe (Textual Double))
, _cpOffSetLeft :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
cropProperties
:: CropProperties
cropProperties =
CropProperties'
{ _cpOffSetBottom = Nothing
, _cpOffSetRight = Nothing
, _cpAngle = Nothing
, _cpOffSetTop = Nothing
, _cpOffSetLeft = Nothing
}
cpOffSetBottom :: Lens' CropProperties (Maybe Double)
cpOffSetBottom
= lens _cpOffSetBottom
(\ s a -> s{_cpOffSetBottom = a})
. mapping _Coerce
cpOffSetRight :: Lens' CropProperties (Maybe Double)
cpOffSetRight
= lens _cpOffSetRight
(\ s a -> s{_cpOffSetRight = a})
. mapping _Coerce
cpAngle :: Lens' CropProperties (Maybe Double)
cpAngle
= lens _cpAngle (\ s a -> s{_cpAngle = a}) .
mapping _Coerce
cpOffSetTop :: Lens' CropProperties (Maybe Double)
cpOffSetTop
= lens _cpOffSetTop (\ s a -> s{_cpOffSetTop = a}) .
mapping _Coerce
cpOffSetLeft :: Lens' CropProperties (Maybe Double)
cpOffSetLeft
= lens _cpOffSetLeft (\ s a -> s{_cpOffSetLeft = a})
. mapping _Coerce
instance FromJSON CropProperties where
parseJSON
= withObject "CropProperties"
(\ o ->
CropProperties' <$>
(o .:? "offsetBottom") <*> (o .:? "offsetRight") <*>
(o .:? "angle")
<*> (o .:? "offsetTop")
<*> (o .:? "offsetLeft"))
instance ToJSON CropProperties where
toJSON CropProperties'{..}
= object
(catMaybes
[("offsetBottom" .=) <$> _cpOffSetBottom,
("offsetRight" .=) <$> _cpOffSetRight,
("angle" .=) <$> _cpAngle,
("offsetTop" .=) <$> _cpOffSetTop,
("offsetLeft" .=) <$> _cpOffSetLeft])
data ParagraphStyleSuggestionState =
ParagraphStyleSuggestionState'
{ _psssSpacingModeSuggested :: !(Maybe Bool)
, _psssBOrderTopSuggested :: !(Maybe Bool)
, _psssLineSpacingSuggested :: !(Maybe Bool)
, _psssDirectionSuggested :: !(Maybe Bool)
, _psssAvoidWidowAndOrphanSuggested :: !(Maybe Bool)
, _psssBOrderBottomSuggested :: !(Maybe Bool)
, _psssSpaceAboveSuggested :: !(Maybe Bool)
, _psssNamedStyleTypeSuggested :: !(Maybe Bool)
, _psssIndentStartSuggested :: !(Maybe Bool)
, _psssAlignmentSuggested :: !(Maybe Bool)
, _psssBOrderLeftSuggested :: !(Maybe Bool)
, _psssSpaceBelowSuggested :: !(Maybe Bool)
, _psssIndentFirstLineSuggested :: !(Maybe Bool)
, _psssShadingSuggestionState :: !(Maybe ShadingSuggestionState)
, _psssHeadingIdSuggested :: !(Maybe Bool)
, _psssBOrderBetweenSuggested :: !(Maybe Bool)
, _psssKeepWithNextSuggested :: !(Maybe Bool)
, _psssIndentEndSuggested :: !(Maybe Bool)
, _psssBOrderRightSuggested :: !(Maybe Bool)
, _psssKeepLinesTogetherSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphStyleSuggestionState
:: ParagraphStyleSuggestionState
paragraphStyleSuggestionState =
ParagraphStyleSuggestionState'
{ _psssSpacingModeSuggested = Nothing
, _psssBOrderTopSuggested = Nothing
, _psssLineSpacingSuggested = Nothing
, _psssDirectionSuggested = Nothing
, _psssAvoidWidowAndOrphanSuggested = Nothing
, _psssBOrderBottomSuggested = Nothing
, _psssSpaceAboveSuggested = Nothing
, _psssNamedStyleTypeSuggested = Nothing
, _psssIndentStartSuggested = Nothing
, _psssAlignmentSuggested = Nothing
, _psssBOrderLeftSuggested = Nothing
, _psssSpaceBelowSuggested = Nothing
, _psssIndentFirstLineSuggested = Nothing
, _psssShadingSuggestionState = Nothing
, _psssHeadingIdSuggested = Nothing
, _psssBOrderBetweenSuggested = Nothing
, _psssKeepWithNextSuggested = Nothing
, _psssIndentEndSuggested = Nothing
, _psssBOrderRightSuggested = Nothing
, _psssKeepLinesTogetherSuggested = Nothing
}
psssSpacingModeSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssSpacingModeSuggested
= lens _psssSpacingModeSuggested
(\ s a -> s{_psssSpacingModeSuggested = a})
psssBOrderTopSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssBOrderTopSuggested
= lens _psssBOrderTopSuggested
(\ s a -> s{_psssBOrderTopSuggested = a})
psssLineSpacingSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssLineSpacingSuggested
= lens _psssLineSpacingSuggested
(\ s a -> s{_psssLineSpacingSuggested = a})
psssDirectionSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssDirectionSuggested
= lens _psssDirectionSuggested
(\ s a -> s{_psssDirectionSuggested = a})
psssAvoidWidowAndOrphanSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssAvoidWidowAndOrphanSuggested
= lens _psssAvoidWidowAndOrphanSuggested
(\ s a -> s{_psssAvoidWidowAndOrphanSuggested = a})
psssBOrderBottomSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssBOrderBottomSuggested
= lens _psssBOrderBottomSuggested
(\ s a -> s{_psssBOrderBottomSuggested = a})
psssSpaceAboveSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssSpaceAboveSuggested
= lens _psssSpaceAboveSuggested
(\ s a -> s{_psssSpaceAboveSuggested = a})
psssNamedStyleTypeSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssNamedStyleTypeSuggested
= lens _psssNamedStyleTypeSuggested
(\ s a -> s{_psssNamedStyleTypeSuggested = a})
psssIndentStartSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssIndentStartSuggested
= lens _psssIndentStartSuggested
(\ s a -> s{_psssIndentStartSuggested = a})
psssAlignmentSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssAlignmentSuggested
= lens _psssAlignmentSuggested
(\ s a -> s{_psssAlignmentSuggested = a})
psssBOrderLeftSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssBOrderLeftSuggested
= lens _psssBOrderLeftSuggested
(\ s a -> s{_psssBOrderLeftSuggested = a})
psssSpaceBelowSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssSpaceBelowSuggested
= lens _psssSpaceBelowSuggested
(\ s a -> s{_psssSpaceBelowSuggested = a})
psssIndentFirstLineSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssIndentFirstLineSuggested
= lens _psssIndentFirstLineSuggested
(\ s a -> s{_psssIndentFirstLineSuggested = a})
psssShadingSuggestionState :: Lens' ParagraphStyleSuggestionState (Maybe ShadingSuggestionState)
psssShadingSuggestionState
= lens _psssShadingSuggestionState
(\ s a -> s{_psssShadingSuggestionState = a})
psssHeadingIdSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssHeadingIdSuggested
= lens _psssHeadingIdSuggested
(\ s a -> s{_psssHeadingIdSuggested = a})
psssBOrderBetweenSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssBOrderBetweenSuggested
= lens _psssBOrderBetweenSuggested
(\ s a -> s{_psssBOrderBetweenSuggested = a})
psssKeepWithNextSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssKeepWithNextSuggested
= lens _psssKeepWithNextSuggested
(\ s a -> s{_psssKeepWithNextSuggested = a})
psssIndentEndSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssIndentEndSuggested
= lens _psssIndentEndSuggested
(\ s a -> s{_psssIndentEndSuggested = a})
psssBOrderRightSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssBOrderRightSuggested
= lens _psssBOrderRightSuggested
(\ s a -> s{_psssBOrderRightSuggested = a})
psssKeepLinesTogetherSuggested :: Lens' ParagraphStyleSuggestionState (Maybe Bool)
psssKeepLinesTogetherSuggested
= lens _psssKeepLinesTogetherSuggested
(\ s a -> s{_psssKeepLinesTogetherSuggested = a})
instance FromJSON ParagraphStyleSuggestionState where
parseJSON
= withObject "ParagraphStyleSuggestionState"
(\ o ->
ParagraphStyleSuggestionState' <$>
(o .:? "spacingModeSuggested") <*>
(o .:? "borderTopSuggested")
<*> (o .:? "lineSpacingSuggested")
<*> (o .:? "directionSuggested")
<*> (o .:? "avoidWidowAndOrphanSuggested")
<*> (o .:? "borderBottomSuggested")
<*> (o .:? "spaceAboveSuggested")
<*> (o .:? "namedStyleTypeSuggested")
<*> (o .:? "indentStartSuggested")
<*> (o .:? "alignmentSuggested")
<*> (o .:? "borderLeftSuggested")
<*> (o .:? "spaceBelowSuggested")
<*> (o .:? "indentFirstLineSuggested")
<*> (o .:? "shadingSuggestionState")
<*> (o .:? "headingIdSuggested")
<*> (o .:? "borderBetweenSuggested")
<*> (o .:? "keepWithNextSuggested")
<*> (o .:? "indentEndSuggested")
<*> (o .:? "borderRightSuggested")
<*> (o .:? "keepLinesTogetherSuggested"))
instance ToJSON ParagraphStyleSuggestionState where
toJSON ParagraphStyleSuggestionState'{..}
= object
(catMaybes
[("spacingModeSuggested" .=) <$>
_psssSpacingModeSuggested,
("borderTopSuggested" .=) <$>
_psssBOrderTopSuggested,
("lineSpacingSuggested" .=) <$>
_psssLineSpacingSuggested,
("directionSuggested" .=) <$>
_psssDirectionSuggested,
("avoidWidowAndOrphanSuggested" .=) <$>
_psssAvoidWidowAndOrphanSuggested,
("borderBottomSuggested" .=) <$>
_psssBOrderBottomSuggested,
("spaceAboveSuggested" .=) <$>
_psssSpaceAboveSuggested,
("namedStyleTypeSuggested" .=) <$>
_psssNamedStyleTypeSuggested,
("indentStartSuggested" .=) <$>
_psssIndentStartSuggested,
("alignmentSuggested" .=) <$>
_psssAlignmentSuggested,
("borderLeftSuggested" .=) <$>
_psssBOrderLeftSuggested,
("spaceBelowSuggested" .=) <$>
_psssSpaceBelowSuggested,
("indentFirstLineSuggested" .=) <$>
_psssIndentFirstLineSuggested,
("shadingSuggestionState" .=) <$>
_psssShadingSuggestionState,
("headingIdSuggested" .=) <$>
_psssHeadingIdSuggested,
("borderBetweenSuggested" .=) <$>
_psssBOrderBetweenSuggested,
("keepWithNextSuggested" .=) <$>
_psssKeepWithNextSuggested,
("indentEndSuggested" .=) <$>
_psssIndentEndSuggested,
("borderRightSuggested" .=) <$>
_psssBOrderRightSuggested,
("keepLinesTogetherSuggested" .=) <$>
_psssKeepLinesTogetherSuggested])
data FootNote =
FootNote'
{ _fnContent :: !(Maybe [StructuralElement])
, _fnFootNoteId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
footNote
:: FootNote
footNote = FootNote' {_fnContent = Nothing, _fnFootNoteId = Nothing}
fnContent :: Lens' FootNote [StructuralElement]
fnContent
= lens _fnContent (\ s a -> s{_fnContent = a}) .
_Default
. _Coerce
fnFootNoteId :: Lens' FootNote (Maybe Text)
fnFootNoteId
= lens _fnFootNoteId (\ s a -> s{_fnFootNoteId = a})
instance FromJSON FootNote where
parseJSON
= withObject "FootNote"
(\ o ->
FootNote' <$>
(o .:? "content" .!= mempty) <*>
(o .:? "footnoteId"))
instance ToJSON FootNote where
toJSON FootNote'{..}
= object
(catMaybes
[("content" .=) <$> _fnContent,
("footnoteId" .=) <$> _fnFootNoteId])
data AutoText =
AutoText'
{ _atSuggestedInsertionIds :: !(Maybe [Text])
, _atSuggestedTextStyleChanges :: !(Maybe AutoTextSuggestedTextStyleChanges)
, _atSuggestedDeletionIds :: !(Maybe [Text])
, _atTextStyle :: !(Maybe TextStyle)
, _atType :: !(Maybe AutoTextType)
}
deriving (Eq, Show, Data, Typeable, Generic)
autoText
:: AutoText
autoText =
AutoText'
{ _atSuggestedInsertionIds = Nothing
, _atSuggestedTextStyleChanges = Nothing
, _atSuggestedDeletionIds = Nothing
, _atTextStyle = Nothing
, _atType = Nothing
}
atSuggestedInsertionIds :: Lens' AutoText [Text]
atSuggestedInsertionIds
= lens _atSuggestedInsertionIds
(\ s a -> s{_atSuggestedInsertionIds = a})
. _Default
. _Coerce
atSuggestedTextStyleChanges :: Lens' AutoText (Maybe AutoTextSuggestedTextStyleChanges)
atSuggestedTextStyleChanges
= lens _atSuggestedTextStyleChanges
(\ s a -> s{_atSuggestedTextStyleChanges = a})
atSuggestedDeletionIds :: Lens' AutoText [Text]
atSuggestedDeletionIds
= lens _atSuggestedDeletionIds
(\ s a -> s{_atSuggestedDeletionIds = a})
. _Default
. _Coerce
atTextStyle :: Lens' AutoText (Maybe TextStyle)
atTextStyle
= lens _atTextStyle (\ s a -> s{_atTextStyle = a})
atType :: Lens' AutoText (Maybe AutoTextType)
atType = lens _atType (\ s a -> s{_atType = a})
instance FromJSON AutoText where
parseJSON
= withObject "AutoText"
(\ o ->
AutoText' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedTextStyleChanges")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "textStyle")
<*> (o .:? "type"))
instance ToJSON AutoText where
toJSON AutoText'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_atSuggestedInsertionIds,
("suggestedTextStyleChanges" .=) <$>
_atSuggestedTextStyleChanges,
("suggestedDeletionIds" .=) <$>
_atSuggestedDeletionIds,
("textStyle" .=) <$> _atTextStyle,
("type" .=) <$> _atType])
data List =
List'
{ _lSuggestedInsertionId :: !(Maybe Text)
, _lSuggestedListPropertiesChanges :: !(Maybe ListSuggestedListPropertiesChanges)
, _lSuggestedDeletionIds :: !(Maybe [Text])
, _lListProperties :: !(Maybe ListProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
list
:: List
list =
List'
{ _lSuggestedInsertionId = Nothing
, _lSuggestedListPropertiesChanges = Nothing
, _lSuggestedDeletionIds = Nothing
, _lListProperties = Nothing
}
lSuggestedInsertionId :: Lens' List (Maybe Text)
lSuggestedInsertionId
= lens _lSuggestedInsertionId
(\ s a -> s{_lSuggestedInsertionId = a})
lSuggestedListPropertiesChanges :: Lens' List (Maybe ListSuggestedListPropertiesChanges)
lSuggestedListPropertiesChanges
= lens _lSuggestedListPropertiesChanges
(\ s a -> s{_lSuggestedListPropertiesChanges = a})
lSuggestedDeletionIds :: Lens' List [Text]
lSuggestedDeletionIds
= lens _lSuggestedDeletionIds
(\ s a -> s{_lSuggestedDeletionIds = a})
. _Default
. _Coerce
lListProperties :: Lens' List (Maybe ListProperties)
lListProperties
= lens _lListProperties
(\ s a -> s{_lListProperties = a})
instance FromJSON List where
parseJSON
= withObject "List"
(\ o ->
List' <$>
(o .:? "suggestedInsertionId") <*>
(o .:? "suggestedListPropertiesChanges")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "listProperties"))
instance ToJSON List where
toJSON List'{..}
= object
(catMaybes
[("suggestedInsertionId" .=) <$>
_lSuggestedInsertionId,
("suggestedListPropertiesChanges" .=) <$>
_lSuggestedListPropertiesChanges,
("suggestedDeletionIds" .=) <$>
_lSuggestedDeletionIds,
("listProperties" .=) <$> _lListProperties])
data ParagraphBOrder =
ParagraphBOrder'
{ _pboColor :: !(Maybe OptionalColor)
, _pboWidth :: !(Maybe Dimension)
, _pboDashStyle :: !(Maybe ParagraphBOrderDashStyle)
, _pboPadding :: !(Maybe Dimension)
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphBOrder
:: ParagraphBOrder
paragraphBOrder =
ParagraphBOrder'
{ _pboColor = Nothing
, _pboWidth = Nothing
, _pboDashStyle = Nothing
, _pboPadding = Nothing
}
pboColor :: Lens' ParagraphBOrder (Maybe OptionalColor)
pboColor = lens _pboColor (\ s a -> s{_pboColor = a})
pboWidth :: Lens' ParagraphBOrder (Maybe Dimension)
pboWidth = lens _pboWidth (\ s a -> s{_pboWidth = a})
pboDashStyle :: Lens' ParagraphBOrder (Maybe ParagraphBOrderDashStyle)
pboDashStyle
= lens _pboDashStyle (\ s a -> s{_pboDashStyle = a})
pboPadding :: Lens' ParagraphBOrder (Maybe Dimension)
pboPadding
= lens _pboPadding (\ s a -> s{_pboPadding = a})
instance FromJSON ParagraphBOrder where
parseJSON
= withObject "ParagraphBOrder"
(\ o ->
ParagraphBOrder' <$>
(o .:? "color") <*> (o .:? "width") <*>
(o .:? "dashStyle")
<*> (o .:? "padding"))
instance ToJSON ParagraphBOrder where
toJSON ParagraphBOrder'{..}
= object
(catMaybes
[("color" .=) <$> _pboColor,
("width" .=) <$> _pboWidth,
("dashStyle" .=) <$> _pboDashStyle,
("padding" .=) <$> _pboPadding])
data SuggestedTableCellStyle =
SuggestedTableCellStyle'
{ _stcsTableCellStyleSuggestionState :: !(Maybe TableCellStyleSuggestionState)
, _stcsTableCellStyle :: !(Maybe TableCellStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedTableCellStyle
:: SuggestedTableCellStyle
suggestedTableCellStyle =
SuggestedTableCellStyle'
{ _stcsTableCellStyleSuggestionState = Nothing
, _stcsTableCellStyle = Nothing
}
stcsTableCellStyleSuggestionState :: Lens' SuggestedTableCellStyle (Maybe TableCellStyleSuggestionState)
stcsTableCellStyleSuggestionState
= lens _stcsTableCellStyleSuggestionState
(\ s a -> s{_stcsTableCellStyleSuggestionState = a})
stcsTableCellStyle :: Lens' SuggestedTableCellStyle (Maybe TableCellStyle)
stcsTableCellStyle
= lens _stcsTableCellStyle
(\ s a -> s{_stcsTableCellStyle = a})
instance FromJSON SuggestedTableCellStyle where
parseJSON
= withObject "SuggestedTableCellStyle"
(\ o ->
SuggestedTableCellStyle' <$>
(o .:? "tableCellStyleSuggestionState") <*>
(o .:? "tableCellStyle"))
instance ToJSON SuggestedTableCellStyle where
toJSON SuggestedTableCellStyle'{..}
= object
(catMaybes
[("tableCellStyleSuggestionState" .=) <$>
_stcsTableCellStyleSuggestionState,
("tableCellStyle" .=) <$> _stcsTableCellStyle])
newtype InsertInlineImageResponse =
InsertInlineImageResponse'
{ _iiirObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
insertInlineImageResponse
:: InsertInlineImageResponse
insertInlineImageResponse = InsertInlineImageResponse' {_iiirObjectId = Nothing}
iiirObjectId :: Lens' InsertInlineImageResponse (Maybe Text)
iiirObjectId
= lens _iiirObjectId (\ s a -> s{_iiirObjectId = a})
instance FromJSON InsertInlineImageResponse where
parseJSON
= withObject "InsertInlineImageResponse"
(\ o ->
InsertInlineImageResponse' <$> (o .:? "objectId"))
instance ToJSON InsertInlineImageResponse where
toJSON InsertInlineImageResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _iiirObjectId])
data RgbColor =
RgbColor'
{ _rcRed :: !(Maybe (Textual Double))
, _rcGreen :: !(Maybe (Textual Double))
, _rcBlue :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
rgbColor
:: RgbColor
rgbColor = RgbColor' {_rcRed = Nothing, _rcGreen = Nothing, _rcBlue = Nothing}
rcRed :: Lens' RgbColor (Maybe Double)
rcRed
= lens _rcRed (\ s a -> s{_rcRed = a}) .
mapping _Coerce
rcGreen :: Lens' RgbColor (Maybe Double)
rcGreen
= lens _rcGreen (\ s a -> s{_rcGreen = a}) .
mapping _Coerce
rcBlue :: Lens' RgbColor (Maybe Double)
rcBlue
= lens _rcBlue (\ s a -> s{_rcBlue = a}) .
mapping _Coerce
instance FromJSON RgbColor where
parseJSON
= withObject "RgbColor"
(\ o ->
RgbColor' <$>
(o .:? "red") <*> (o .:? "green") <*> (o .:? "blue"))
instance ToJSON RgbColor where
toJSON RgbColor'{..}
= object
(catMaybes
[("red" .=) <$> _rcRed, ("green" .=) <$> _rcGreen,
("blue" .=) <$> _rcBlue])
data InsertPageBreakRequest =
InsertPageBreakRequest'
{ _ipbrLocation :: !(Maybe Location)
, _ipbrEndOfSegmentLocation :: !(Maybe EndOfSegmentLocation)
}
deriving (Eq, Show, Data, Typeable, Generic)
insertPageBreakRequest
:: InsertPageBreakRequest
insertPageBreakRequest =
InsertPageBreakRequest'
{_ipbrLocation = Nothing, _ipbrEndOfSegmentLocation = Nothing}
ipbrLocation :: Lens' InsertPageBreakRequest (Maybe Location)
ipbrLocation
= lens _ipbrLocation (\ s a -> s{_ipbrLocation = a})
ipbrEndOfSegmentLocation :: Lens' InsertPageBreakRequest (Maybe EndOfSegmentLocation)
ipbrEndOfSegmentLocation
= lens _ipbrEndOfSegmentLocation
(\ s a -> s{_ipbrEndOfSegmentLocation = a})
instance FromJSON InsertPageBreakRequest where
parseJSON
= withObject "InsertPageBreakRequest"
(\ o ->
InsertPageBreakRequest' <$>
(o .:? "location") <*>
(o .:? "endOfSegmentLocation"))
instance ToJSON InsertPageBreakRequest where
toJSON InsertPageBreakRequest'{..}
= object
(catMaybes
[("location" .=) <$> _ipbrLocation,
("endOfSegmentLocation" .=) <$>
_ipbrEndOfSegmentLocation])
newtype BackgRoundSuggestionState =
BackgRoundSuggestionState'
{ _brssBackgRoundColorSuggested :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
backgRoundSuggestionState
:: BackgRoundSuggestionState
backgRoundSuggestionState =
BackgRoundSuggestionState' {_brssBackgRoundColorSuggested = Nothing}
brssBackgRoundColorSuggested :: Lens' BackgRoundSuggestionState (Maybe Bool)
brssBackgRoundColorSuggested
= lens _brssBackgRoundColorSuggested
(\ s a -> s{_brssBackgRoundColorSuggested = a})
instance FromJSON BackgRoundSuggestionState where
parseJSON
= withObject "BackgRoundSuggestionState"
(\ o ->
BackgRoundSuggestionState' <$>
(o .:? "backgroundColorSuggested"))
instance ToJSON BackgRoundSuggestionState where
toJSON BackgRoundSuggestionState'{..}
= object
(catMaybes
[("backgroundColorSuggested" .=) <$>
_brssBackgRoundColorSuggested])
newtype InlineObjectProperties =
InlineObjectProperties'
{ _iopEmbeddedObject :: Maybe EmbeddedObject
}
deriving (Eq, Show, Data, Typeable, Generic)
inlineObjectProperties
:: InlineObjectProperties
inlineObjectProperties = InlineObjectProperties' {_iopEmbeddedObject = Nothing}
iopEmbeddedObject :: Lens' InlineObjectProperties (Maybe EmbeddedObject)
iopEmbeddedObject
= lens _iopEmbeddedObject
(\ s a -> s{_iopEmbeddedObject = a})
instance FromJSON InlineObjectProperties where
parseJSON
= withObject "InlineObjectProperties"
(\ o ->
InlineObjectProperties' <$> (o .:? "embeddedObject"))
instance ToJSON InlineObjectProperties where
toJSON InlineObjectProperties'{..}
= object
(catMaybes
[("embeddedObject" .=) <$> _iopEmbeddedObject])
data SuggestedDocumentStyle =
SuggestedDocumentStyle'
{ _sdsDocumentStyle :: !(Maybe DocumentStyle)
, _sdsDocumentStyleSuggestionState :: !(Maybe DocumentStyleSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedDocumentStyle
:: SuggestedDocumentStyle
suggestedDocumentStyle =
SuggestedDocumentStyle'
{_sdsDocumentStyle = Nothing, _sdsDocumentStyleSuggestionState = Nothing}
sdsDocumentStyle :: Lens' SuggestedDocumentStyle (Maybe DocumentStyle)
sdsDocumentStyle
= lens _sdsDocumentStyle
(\ s a -> s{_sdsDocumentStyle = a})
sdsDocumentStyleSuggestionState :: Lens' SuggestedDocumentStyle (Maybe DocumentStyleSuggestionState)
sdsDocumentStyleSuggestionState
= lens _sdsDocumentStyleSuggestionState
(\ s a -> s{_sdsDocumentStyleSuggestionState = a})
instance FromJSON SuggestedDocumentStyle where
parseJSON
= withObject "SuggestedDocumentStyle"
(\ o ->
SuggestedDocumentStyle' <$>
(o .:? "documentStyle") <*>
(o .:? "documentStyleSuggestionState"))
instance ToJSON SuggestedDocumentStyle where
toJSON SuggestedDocumentStyle'{..}
= object
(catMaybes
[("documentStyle" .=) <$> _sdsDocumentStyle,
("documentStyleSuggestionState" .=) <$>
_sdsDocumentStyleSuggestionState])
data Location =
Location'
{ _lIndex :: !(Maybe (Textual Int32))
, _lSegmentId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
location
:: Location
location = Location' {_lIndex = Nothing, _lSegmentId = Nothing}
lIndex :: Lens' Location (Maybe Int32)
lIndex
= lens _lIndex (\ s a -> s{_lIndex = a}) .
mapping _Coerce
lSegmentId :: Lens' Location (Maybe Text)
lSegmentId
= lens _lSegmentId (\ s a -> s{_lSegmentId = a})
instance FromJSON Location where
parseJSON
= withObject "Location"
(\ o ->
Location' <$>
(o .:? "index") <*> (o .:? "segmentId"))
instance ToJSON Location where
toJSON Location'{..}
= object
(catMaybes
[("index" .=) <$> _lIndex,
("segmentId" .=) <$> _lSegmentId])
data TableOfContents =
TableOfContents'
{ _tocSuggestedInsertionIds :: !(Maybe [Text])
, _tocContent :: !(Maybe [StructuralElement])
, _tocSuggestedDeletionIds :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
tableOfContents
:: TableOfContents
tableOfContents =
TableOfContents'
{ _tocSuggestedInsertionIds = Nothing
, _tocContent = Nothing
, _tocSuggestedDeletionIds = Nothing
}
tocSuggestedInsertionIds :: Lens' TableOfContents [Text]
tocSuggestedInsertionIds
= lens _tocSuggestedInsertionIds
(\ s a -> s{_tocSuggestedInsertionIds = a})
. _Default
. _Coerce
tocContent :: Lens' TableOfContents [StructuralElement]
tocContent
= lens _tocContent (\ s a -> s{_tocContent = a}) .
_Default
. _Coerce
tocSuggestedDeletionIds :: Lens' TableOfContents [Text]
tocSuggestedDeletionIds
= lens _tocSuggestedDeletionIds
(\ s a -> s{_tocSuggestedDeletionIds = a})
. _Default
. _Coerce
instance FromJSON TableOfContents where
parseJSON
= withObject "TableOfContents"
(\ o ->
TableOfContents' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "content" .!= mempty)
<*> (o .:? "suggestedDeletionIds" .!= mempty))
instance ToJSON TableOfContents where
toJSON TableOfContents'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_tocSuggestedInsertionIds,
("content" .=) <$> _tocContent,
("suggestedDeletionIds" .=) <$>
_tocSuggestedDeletionIds])
newtype Color =
Color'
{ _cRgbColor :: Maybe RgbColor
}
deriving (Eq, Show, Data, Typeable, Generic)
color
:: Color
color = Color' {_cRgbColor = Nothing}
cRgbColor :: Lens' Color (Maybe RgbColor)
cRgbColor
= lens _cRgbColor (\ s a -> s{_cRgbColor = a})
instance FromJSON Color where
parseJSON
= withObject "Color"
(\ o -> Color' <$> (o .:? "rgbColor"))
instance ToJSON Color where
toJSON Color'{..}
= object (catMaybes [("rgbColor" .=) <$> _cRgbColor])
data Size =
Size'
{ _sHeight :: !(Maybe Dimension)
, _sWidth :: !(Maybe Dimension)
}
deriving (Eq, Show, Data, Typeable, Generic)
size
:: Size
size = Size' {_sHeight = Nothing, _sWidth = Nothing}
sHeight :: Lens' Size (Maybe Dimension)
sHeight = lens _sHeight (\ s a -> s{_sHeight = a})
sWidth :: Lens' Size (Maybe Dimension)
sWidth = lens _sWidth (\ s a -> s{_sWidth = a})
instance FromJSON Size where
parseJSON
= withObject "Size"
(\ o ->
Size' <$> (o .:? "height") <*> (o .:? "width"))
instance ToJSON Size where
toJSON Size'{..}
= object
(catMaybes
[("height" .=) <$> _sHeight,
("width" .=) <$> _sWidth])
newtype InsertInlineSheetsChartResponse =
InsertInlineSheetsChartResponse'
{ _iiscrObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
insertInlineSheetsChartResponse
:: InsertInlineSheetsChartResponse
insertInlineSheetsChartResponse =
InsertInlineSheetsChartResponse' {_iiscrObjectId = Nothing}
iiscrObjectId :: Lens' InsertInlineSheetsChartResponse (Maybe Text)
iiscrObjectId
= lens _iiscrObjectId
(\ s a -> s{_iiscrObjectId = a})
instance FromJSON InsertInlineSheetsChartResponse
where
parseJSON
= withObject "InsertInlineSheetsChartResponse"
(\ o ->
InsertInlineSheetsChartResponse' <$>
(o .:? "objectId"))
instance ToJSON InsertInlineSheetsChartResponse where
toJSON InsertInlineSheetsChartResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _iiscrObjectId])
newtype TableRowStyleSuggestionState =
TableRowStyleSuggestionState'
{ _trsssMinRowHeightSuggested :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
tableRowStyleSuggestionState
:: TableRowStyleSuggestionState
tableRowStyleSuggestionState =
TableRowStyleSuggestionState' {_trsssMinRowHeightSuggested = Nothing}
trsssMinRowHeightSuggested :: Lens' TableRowStyleSuggestionState (Maybe Bool)
trsssMinRowHeightSuggested
= lens _trsssMinRowHeightSuggested
(\ s a -> s{_trsssMinRowHeightSuggested = a})
instance FromJSON TableRowStyleSuggestionState where
parseJSON
= withObject "TableRowStyleSuggestionState"
(\ o ->
TableRowStyleSuggestionState' <$>
(o .:? "minRowHeightSuggested"))
instance ToJSON TableRowStyleSuggestionState where
toJSON TableRowStyleSuggestionState'{..}
= object
(catMaybes
[("minRowHeightSuggested" .=) <$>
_trsssMinRowHeightSuggested])
newtype DeleteTableColumnRequest =
DeleteTableColumnRequest'
{ _dtcrTableCellLocation :: Maybe TableCellLocation
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteTableColumnRequest
:: DeleteTableColumnRequest
deleteTableColumnRequest =
DeleteTableColumnRequest' {_dtcrTableCellLocation = Nothing}
dtcrTableCellLocation :: Lens' DeleteTableColumnRequest (Maybe TableCellLocation)
dtcrTableCellLocation
= lens _dtcrTableCellLocation
(\ s a -> s{_dtcrTableCellLocation = a})
instance FromJSON DeleteTableColumnRequest where
parseJSON
= withObject "DeleteTableColumnRequest"
(\ o ->
DeleteTableColumnRequest' <$>
(o .:? "tableCellLocation"))
instance ToJSON DeleteTableColumnRequest where
toJSON DeleteTableColumnRequest'{..}
= object
(catMaybes
[("tableCellLocation" .=) <$>
_dtcrTableCellLocation])
newtype DocumentNamedRanges =
DocumentNamedRanges'
{ _dnrAddtional :: HashMap Text NamedRanges
}
deriving (Eq, Show, Data, Typeable, Generic)
documentNamedRanges
:: HashMap Text NamedRanges
-> DocumentNamedRanges
documentNamedRanges pDnrAddtional_ =
DocumentNamedRanges' {_dnrAddtional = _Coerce # pDnrAddtional_}
dnrAddtional :: Lens' DocumentNamedRanges (HashMap Text NamedRanges)
dnrAddtional
= lens _dnrAddtional (\ s a -> s{_dnrAddtional = a})
. _Coerce
instance FromJSON DocumentNamedRanges where
parseJSON
= withObject "DocumentNamedRanges"
(\ o -> DocumentNamedRanges' <$> (parseJSONObject o))
instance ToJSON DocumentNamedRanges where
toJSON = toJSON . _dnrAddtional
newtype EndOfSegmentLocation =
EndOfSegmentLocation'
{ _eoslSegmentId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
endOfSegmentLocation
:: EndOfSegmentLocation
endOfSegmentLocation = EndOfSegmentLocation' {_eoslSegmentId = Nothing}
eoslSegmentId :: Lens' EndOfSegmentLocation (Maybe Text)
eoslSegmentId
= lens _eoslSegmentId
(\ s a -> s{_eoslSegmentId = a})
instance FromJSON EndOfSegmentLocation where
parseJSON
= withObject "EndOfSegmentLocation"
(\ o ->
EndOfSegmentLocation' <$> (o .:? "segmentId"))
instance ToJSON EndOfSegmentLocation where
toJSON EndOfSegmentLocation'{..}
= object
(catMaybes [("segmentId" .=) <$> _eoslSegmentId])
newtype DocumentInlineObjects =
DocumentInlineObjects'
{ _dioAddtional :: HashMap Text InlineObject
}
deriving (Eq, Show, Data, Typeable, Generic)
documentInlineObjects
:: HashMap Text InlineObject
-> DocumentInlineObjects
documentInlineObjects pDioAddtional_ =
DocumentInlineObjects' {_dioAddtional = _Coerce # pDioAddtional_}
dioAddtional :: Lens' DocumentInlineObjects (HashMap Text InlineObject)
dioAddtional
= lens _dioAddtional (\ s a -> s{_dioAddtional = a})
. _Coerce
instance FromJSON DocumentInlineObjects where
parseJSON
= withObject "DocumentInlineObjects"
(\ o ->
DocumentInlineObjects' <$> (parseJSONObject o))
instance ToJSON DocumentInlineObjects where
toJSON = toJSON . _dioAddtional
newtype ParagraphSuggestedPositionedObjectIds =
ParagraphSuggestedPositionedObjectIds'
{ _pspoiAddtional :: HashMap Text ObjectReferences
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphSuggestedPositionedObjectIds
:: HashMap Text ObjectReferences
-> ParagraphSuggestedPositionedObjectIds
paragraphSuggestedPositionedObjectIds pPspoiAddtional_ =
ParagraphSuggestedPositionedObjectIds'
{_pspoiAddtional = _Coerce # pPspoiAddtional_}
pspoiAddtional :: Lens' ParagraphSuggestedPositionedObjectIds (HashMap Text ObjectReferences)
pspoiAddtional
= lens _pspoiAddtional
(\ s a -> s{_pspoiAddtional = a})
. _Coerce
instance FromJSON
ParagraphSuggestedPositionedObjectIds
where
parseJSON
= withObject "ParagraphSuggestedPositionedObjectIds"
(\ o ->
ParagraphSuggestedPositionedObjectIds' <$>
(parseJSONObject o))
instance ToJSON ParagraphSuggestedPositionedObjectIds
where
toJSON = toJSON . _pspoiAddtional
data Link =
Link'
{ _lURL :: !(Maybe Text)
, _lHeadingId :: !(Maybe Text)
, _lBookmarkId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
link
:: Link
link = Link' {_lURL = Nothing, _lHeadingId = Nothing, _lBookmarkId = Nothing}
lURL :: Lens' Link (Maybe Text)
lURL = lens _lURL (\ s a -> s{_lURL = a})
lHeadingId :: Lens' Link (Maybe Text)
lHeadingId
= lens _lHeadingId (\ s a -> s{_lHeadingId = a})
lBookmarkId :: Lens' Link (Maybe Text)
lBookmarkId
= lens _lBookmarkId (\ s a -> s{_lBookmarkId = a})
instance FromJSON Link where
parseJSON
= withObject "Link"
(\ o ->
Link' <$>
(o .:? "url") <*> (o .:? "headingId") <*>
(o .:? "bookmarkId"))
instance ToJSON Link where
toJSON Link'{..}
= object
(catMaybes
[("url" .=) <$> _lURL,
("headingId" .=) <$> _lHeadingId,
("bookmarkId" .=) <$> _lBookmarkId])
newtype AutoTextSuggestedTextStyleChanges =
AutoTextSuggestedTextStyleChanges'
{ _atstscAddtional :: HashMap Text SuggestedTextStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
autoTextSuggestedTextStyleChanges
:: HashMap Text SuggestedTextStyle
-> AutoTextSuggestedTextStyleChanges
autoTextSuggestedTextStyleChanges pAtstscAddtional_ =
AutoTextSuggestedTextStyleChanges'
{_atstscAddtional = _Coerce # pAtstscAddtional_}
atstscAddtional :: Lens' AutoTextSuggestedTextStyleChanges (HashMap Text SuggestedTextStyle)
atstscAddtional
= lens _atstscAddtional
(\ s a -> s{_atstscAddtional = a})
. _Coerce
instance FromJSON AutoTextSuggestedTextStyleChanges
where
parseJSON
= withObject "AutoTextSuggestedTextStyleChanges"
(\ o ->
AutoTextSuggestedTextStyleChanges' <$>
(parseJSONObject o))
instance ToJSON AutoTextSuggestedTextStyleChanges
where
toJSON = toJSON . _atstscAddtional
data InsertInlineImageRequest =
InsertInlineImageRequest'
{ _iiirLocation :: !(Maybe Location)
, _iiirEndOfSegmentLocation :: !(Maybe EndOfSegmentLocation)
, _iiirURI :: !(Maybe Text)
, _iiirObjectSize :: !(Maybe Size)
}
deriving (Eq, Show, Data, Typeable, Generic)
insertInlineImageRequest
:: InsertInlineImageRequest
insertInlineImageRequest =
InsertInlineImageRequest'
{ _iiirLocation = Nothing
, _iiirEndOfSegmentLocation = Nothing
, _iiirURI = Nothing
, _iiirObjectSize = Nothing
}
iiirLocation :: Lens' InsertInlineImageRequest (Maybe Location)
iiirLocation
= lens _iiirLocation (\ s a -> s{_iiirLocation = a})
iiirEndOfSegmentLocation :: Lens' InsertInlineImageRequest (Maybe EndOfSegmentLocation)
iiirEndOfSegmentLocation
= lens _iiirEndOfSegmentLocation
(\ s a -> s{_iiirEndOfSegmentLocation = a})
iiirURI :: Lens' InsertInlineImageRequest (Maybe Text)
iiirURI = lens _iiirURI (\ s a -> s{_iiirURI = a})
iiirObjectSize :: Lens' InsertInlineImageRequest (Maybe Size)
iiirObjectSize
= lens _iiirObjectSize
(\ s a -> s{_iiirObjectSize = a})
instance FromJSON InsertInlineImageRequest where
parseJSON
= withObject "InsertInlineImageRequest"
(\ o ->
InsertInlineImageRequest' <$>
(o .:? "location") <*> (o .:? "endOfSegmentLocation")
<*> (o .:? "uri")
<*> (o .:? "objectSize"))
instance ToJSON InsertInlineImageRequest where
toJSON InsertInlineImageRequest'{..}
= object
(catMaybes
[("location" .=) <$> _iiirLocation,
("endOfSegmentLocation" .=) <$>
_iiirEndOfSegmentLocation,
("uri" .=) <$> _iiirURI,
("objectSize" .=) <$> _iiirObjectSize])
data Dimension =
Dimension'
{ _dMagnitude :: !(Maybe (Textual Double))
, _dUnit :: !(Maybe DimensionUnit)
}
deriving (Eq, Show, Data, Typeable, Generic)
dimension
:: Dimension
dimension = Dimension' {_dMagnitude = Nothing, _dUnit = Nothing}
dMagnitude :: Lens' Dimension (Maybe Double)
dMagnitude
= lens _dMagnitude (\ s a -> s{_dMagnitude = a}) .
mapping _Coerce
dUnit :: Lens' Dimension (Maybe DimensionUnit)
dUnit = lens _dUnit (\ s a -> s{_dUnit = a})
instance FromJSON Dimension where
parseJSON
= withObject "Dimension"
(\ o ->
Dimension' <$>
(o .:? "magnitude") <*> (o .:? "unit"))
instance ToJSON Dimension where
toJSON Dimension'{..}
= object
(catMaybes
[("magnitude" .=) <$> _dMagnitude,
("unit" .=) <$> _dUnit])
data DocumentStyle =
DocumentStyle'
{ _dsMarginTop :: !(Maybe Dimension)
, _dsDefaultFooterId :: !(Maybe Text)
, _dsFirstPageHeaderId :: !(Maybe Text)
, _dsFirstPageFooterId :: !(Maybe Text)
, _dsDefaultHeaderId :: !(Maybe Text)
, _dsUseEvenPageHeaderFooter :: !(Maybe Bool)
, _dsMarginLeft :: !(Maybe Dimension)
, _dsPageNumberStart :: !(Maybe (Textual Int32))
, _dsUseFirstPageHeaderFooter :: !(Maybe Bool)
, _dsEvenPageFooterId :: !(Maybe Text)
, _dsPageSize :: !(Maybe Size)
, _dsBackgRound :: !(Maybe BackgRound)
, _dsMarginRight :: !(Maybe Dimension)
, _dsMarginBottom :: !(Maybe Dimension)
, _dsEvenPageHeaderId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
documentStyle
:: DocumentStyle
documentStyle =
DocumentStyle'
{ _dsMarginTop = Nothing
, _dsDefaultFooterId = Nothing
, _dsFirstPageHeaderId = Nothing
, _dsFirstPageFooterId = Nothing
, _dsDefaultHeaderId = Nothing
, _dsUseEvenPageHeaderFooter = Nothing
, _dsMarginLeft = Nothing
, _dsPageNumberStart = Nothing
, _dsUseFirstPageHeaderFooter = Nothing
, _dsEvenPageFooterId = Nothing
, _dsPageSize = Nothing
, _dsBackgRound = Nothing
, _dsMarginRight = Nothing
, _dsMarginBottom = Nothing
, _dsEvenPageHeaderId = Nothing
}
dsMarginTop :: Lens' DocumentStyle (Maybe Dimension)
dsMarginTop
= lens _dsMarginTop (\ s a -> s{_dsMarginTop = a})
dsDefaultFooterId :: Lens' DocumentStyle (Maybe Text)
dsDefaultFooterId
= lens _dsDefaultFooterId
(\ s a -> s{_dsDefaultFooterId = a})
dsFirstPageHeaderId :: Lens' DocumentStyle (Maybe Text)
dsFirstPageHeaderId
= lens _dsFirstPageHeaderId
(\ s a -> s{_dsFirstPageHeaderId = a})
dsFirstPageFooterId :: Lens' DocumentStyle (Maybe Text)
dsFirstPageFooterId
= lens _dsFirstPageFooterId
(\ s a -> s{_dsFirstPageFooterId = a})
dsDefaultHeaderId :: Lens' DocumentStyle (Maybe Text)
dsDefaultHeaderId
= lens _dsDefaultHeaderId
(\ s a -> s{_dsDefaultHeaderId = a})
dsUseEvenPageHeaderFooter :: Lens' DocumentStyle (Maybe Bool)
dsUseEvenPageHeaderFooter
= lens _dsUseEvenPageHeaderFooter
(\ s a -> s{_dsUseEvenPageHeaderFooter = a})
dsMarginLeft :: Lens' DocumentStyle (Maybe Dimension)
dsMarginLeft
= lens _dsMarginLeft (\ s a -> s{_dsMarginLeft = a})
dsPageNumberStart :: Lens' DocumentStyle (Maybe Int32)
dsPageNumberStart
= lens _dsPageNumberStart
(\ s a -> s{_dsPageNumberStart = a})
. mapping _Coerce
dsUseFirstPageHeaderFooter :: Lens' DocumentStyle (Maybe Bool)
dsUseFirstPageHeaderFooter
= lens _dsUseFirstPageHeaderFooter
(\ s a -> s{_dsUseFirstPageHeaderFooter = a})
dsEvenPageFooterId :: Lens' DocumentStyle (Maybe Text)
dsEvenPageFooterId
= lens _dsEvenPageFooterId
(\ s a -> s{_dsEvenPageFooterId = a})
dsPageSize :: Lens' DocumentStyle (Maybe Size)
dsPageSize
= lens _dsPageSize (\ s a -> s{_dsPageSize = a})
dsBackgRound :: Lens' DocumentStyle (Maybe BackgRound)
dsBackgRound
= lens _dsBackgRound (\ s a -> s{_dsBackgRound = a})
dsMarginRight :: Lens' DocumentStyle (Maybe Dimension)
dsMarginRight
= lens _dsMarginRight
(\ s a -> s{_dsMarginRight = a})
dsMarginBottom :: Lens' DocumentStyle (Maybe Dimension)
dsMarginBottom
= lens _dsMarginBottom
(\ s a -> s{_dsMarginBottom = a})
dsEvenPageHeaderId :: Lens' DocumentStyle (Maybe Text)
dsEvenPageHeaderId
= lens _dsEvenPageHeaderId
(\ s a -> s{_dsEvenPageHeaderId = a})
instance FromJSON DocumentStyle where
parseJSON
= withObject "DocumentStyle"
(\ o ->
DocumentStyle' <$>
(o .:? "marginTop") <*> (o .:? "defaultFooterId") <*>
(o .:? "firstPageHeaderId")
<*> (o .:? "firstPageFooterId")
<*> (o .:? "defaultHeaderId")
<*> (o .:? "useEvenPageHeaderFooter")
<*> (o .:? "marginLeft")
<*> (o .:? "pageNumberStart")
<*> (o .:? "useFirstPageHeaderFooter")
<*> (o .:? "evenPageFooterId")
<*> (o .:? "pageSize")
<*> (o .:? "background")
<*> (o .:? "marginRight")
<*> (o .:? "marginBottom")
<*> (o .:? "evenPageHeaderId"))
instance ToJSON DocumentStyle where
toJSON DocumentStyle'{..}
= object
(catMaybes
[("marginTop" .=) <$> _dsMarginTop,
("defaultFooterId" .=) <$> _dsDefaultFooterId,
("firstPageHeaderId" .=) <$> _dsFirstPageHeaderId,
("firstPageFooterId" .=) <$> _dsFirstPageFooterId,
("defaultHeaderId" .=) <$> _dsDefaultHeaderId,
("useEvenPageHeaderFooter" .=) <$>
_dsUseEvenPageHeaderFooter,
("marginLeft" .=) <$> _dsMarginLeft,
("pageNumberStart" .=) <$> _dsPageNumberStart,
("useFirstPageHeaderFooter" .=) <$>
_dsUseFirstPageHeaderFooter,
("evenPageFooterId" .=) <$> _dsEvenPageFooterId,
("pageSize" .=) <$> _dsPageSize,
("background" .=) <$> _dsBackgRound,
("marginRight" .=) <$> _dsMarginRight,
("marginBottom" .=) <$> _dsMarginBottom,
("evenPageHeaderId" .=) <$> _dsEvenPageHeaderId])
newtype Body =
Body'
{ _bContent :: Maybe [StructuralElement]
}
deriving (Eq, Show, Data, Typeable, Generic)
body
:: Body
body = Body' {_bContent = Nothing}
bContent :: Lens' Body [StructuralElement]
bContent
= lens _bContent (\ s a -> s{_bContent = a}) .
_Default
. _Coerce
instance FromJSON Body where
parseJSON
= withObject "Body"
(\ o -> Body' <$> (o .:? "content" .!= mempty))
instance ToJSON Body where
toJSON Body'{..}
= object (catMaybes [("content" .=) <$> _bContent])
newtype ListPropertiesSuggestionState =
ListPropertiesSuggestionState'
{ _lpssNestingLevelsSuggestionStates :: Maybe [NestingLevelSuggestionState]
}
deriving (Eq, Show, Data, Typeable, Generic)
listPropertiesSuggestionState
:: ListPropertiesSuggestionState
listPropertiesSuggestionState =
ListPropertiesSuggestionState' {_lpssNestingLevelsSuggestionStates = Nothing}
lpssNestingLevelsSuggestionStates :: Lens' ListPropertiesSuggestionState [NestingLevelSuggestionState]
lpssNestingLevelsSuggestionStates
= lens _lpssNestingLevelsSuggestionStates
(\ s a -> s{_lpssNestingLevelsSuggestionStates = a})
. _Default
. _Coerce
instance FromJSON ListPropertiesSuggestionState where
parseJSON
= withObject "ListPropertiesSuggestionState"
(\ o ->
ListPropertiesSuggestionState' <$>
(o .:? "nestingLevelsSuggestionStates" .!= mempty))
instance ToJSON ListPropertiesSuggestionState where
toJSON ListPropertiesSuggestionState'{..}
= object
(catMaybes
[("nestingLevelsSuggestionStates" .=) <$>
_lpssNestingLevelsSuggestionStates])
newtype ParagraphSuggestedBulletChanges =
ParagraphSuggestedBulletChanges'
{ _psbcAddtional :: HashMap Text SuggestedBullet
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphSuggestedBulletChanges
:: HashMap Text SuggestedBullet
-> ParagraphSuggestedBulletChanges
paragraphSuggestedBulletChanges pPsbcAddtional_ =
ParagraphSuggestedBulletChanges' {_psbcAddtional = _Coerce # pPsbcAddtional_}
psbcAddtional :: Lens' ParagraphSuggestedBulletChanges (HashMap Text SuggestedBullet)
psbcAddtional
= lens _psbcAddtional
(\ s a -> s{_psbcAddtional = a})
. _Coerce
instance FromJSON ParagraphSuggestedBulletChanges
where
parseJSON
= withObject "ParagraphSuggestedBulletChanges"
(\ o ->
ParagraphSuggestedBulletChanges' <$>
(parseJSONObject o))
instance ToJSON ParagraphSuggestedBulletChanges where
toJSON = toJSON . _psbcAddtional
data Response =
Response'
{ _rReplaceAllText :: !(Maybe ReplaceAllTextResponse)
, _rCreateNamedRange :: !(Maybe CreateNamedRangeResponse)
, _rInsertInlineImage :: !(Maybe InsertInlineImageResponse)
, _rInsertInlineSheetsChart :: !(Maybe InsertInlineSheetsChartResponse)
}
deriving (Eq, Show, Data, Typeable, Generic)
response
:: Response
response =
Response'
{ _rReplaceAllText = Nothing
, _rCreateNamedRange = Nothing
, _rInsertInlineImage = Nothing
, _rInsertInlineSheetsChart = Nothing
}
rReplaceAllText :: Lens' Response (Maybe ReplaceAllTextResponse)
rReplaceAllText
= lens _rReplaceAllText
(\ s a -> s{_rReplaceAllText = a})
rCreateNamedRange :: Lens' Response (Maybe CreateNamedRangeResponse)
rCreateNamedRange
= lens _rCreateNamedRange
(\ s a -> s{_rCreateNamedRange = a})
rInsertInlineImage :: Lens' Response (Maybe InsertInlineImageResponse)
rInsertInlineImage
= lens _rInsertInlineImage
(\ s a -> s{_rInsertInlineImage = a})
rInsertInlineSheetsChart :: Lens' Response (Maybe InsertInlineSheetsChartResponse)
rInsertInlineSheetsChart
= lens _rInsertInlineSheetsChart
(\ s a -> s{_rInsertInlineSheetsChart = a})
instance FromJSON Response where
parseJSON
= withObject "Response"
(\ o ->
Response' <$>
(o .:? "replaceAllText") <*>
(o .:? "createNamedRange")
<*> (o .:? "insertInlineImage")
<*> (o .:? "insertInlineSheetsChart"))
instance ToJSON Response where
toJSON Response'{..}
= object
(catMaybes
[("replaceAllText" .=) <$> _rReplaceAllText,
("createNamedRange" .=) <$> _rCreateNamedRange,
("insertInlineImage" .=) <$> _rInsertInlineImage,
("insertInlineSheetsChart" .=) <$>
_rInsertInlineSheetsChart])
data SheetsChartReference =
SheetsChartReference'
{ _scrSpreadsheetId :: !(Maybe Text)
, _scrChartId :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
sheetsChartReference
:: SheetsChartReference
sheetsChartReference =
SheetsChartReference' {_scrSpreadsheetId = Nothing, _scrChartId = Nothing}
scrSpreadsheetId :: Lens' SheetsChartReference (Maybe Text)
scrSpreadsheetId
= lens _scrSpreadsheetId
(\ s a -> s{_scrSpreadsheetId = a})
scrChartId :: Lens' SheetsChartReference (Maybe Int32)
scrChartId
= lens _scrChartId (\ s a -> s{_scrChartId = a}) .
mapping _Coerce
instance FromJSON SheetsChartReference where
parseJSON
= withObject "SheetsChartReference"
(\ o ->
SheetsChartReference' <$>
(o .:? "spreadsheetId") <*> (o .:? "chartId"))
instance ToJSON SheetsChartReference where
toJSON SheetsChartReference'{..}
= object
(catMaybes
[("spreadsheetId" .=) <$> _scrSpreadsheetId,
("chartId" .=) <$> _scrChartId])
newtype OptionalColor =
OptionalColor'
{ _ocColor :: Maybe Color
}
deriving (Eq, Show, Data, Typeable, Generic)
optionalColor
:: OptionalColor
optionalColor = OptionalColor' {_ocColor = Nothing}
ocColor :: Lens' OptionalColor (Maybe Color)
ocColor = lens _ocColor (\ s a -> s{_ocColor = a})
instance FromJSON OptionalColor where
parseJSON
= withObject "OptionalColor"
(\ o -> OptionalColor' <$> (o .:? "color"))
instance ToJSON OptionalColor where
toJSON OptionalColor'{..}
= object (catMaybes [("color" .=) <$> _ocColor])
newtype CreateNamedRangeResponse =
CreateNamedRangeResponse'
{ _cnrrNamedRangeId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createNamedRangeResponse
:: CreateNamedRangeResponse
createNamedRangeResponse =
CreateNamedRangeResponse' {_cnrrNamedRangeId = Nothing}
cnrrNamedRangeId :: Lens' CreateNamedRangeResponse (Maybe Text)
cnrrNamedRangeId
= lens _cnrrNamedRangeId
(\ s a -> s{_cnrrNamedRangeId = a})
instance FromJSON CreateNamedRangeResponse where
parseJSON
= withObject "CreateNamedRangeResponse"
(\ o ->
CreateNamedRangeResponse' <$> (o .:? "namedRangeId"))
instance ToJSON CreateNamedRangeResponse where
toJSON CreateNamedRangeResponse'{..}
= object
(catMaybes
[("namedRangeId" .=) <$> _cnrrNamedRangeId])
data SuggestedBullet =
SuggestedBullet'
{ _sbBullet :: !(Maybe Bullet)
, _sbBulletSuggestionState :: !(Maybe BulletSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedBullet
:: SuggestedBullet
suggestedBullet =
SuggestedBullet' {_sbBullet = Nothing, _sbBulletSuggestionState = Nothing}
sbBullet :: Lens' SuggestedBullet (Maybe Bullet)
sbBullet = lens _sbBullet (\ s a -> s{_sbBullet = a})
sbBulletSuggestionState :: Lens' SuggestedBullet (Maybe BulletSuggestionState)
sbBulletSuggestionState
= lens _sbBulletSuggestionState
(\ s a -> s{_sbBulletSuggestionState = a})
instance FromJSON SuggestedBullet where
parseJSON
= withObject "SuggestedBullet"
(\ o ->
SuggestedBullet' <$>
(o .:? "bullet") <*> (o .:? "bulletSuggestionState"))
instance ToJSON SuggestedBullet where
toJSON SuggestedBullet'{..}
= object
(catMaybes
[("bullet" .=) <$> _sbBullet,
("bulletSuggestionState" .=) <$>
_sbBulletSuggestionState])
data EmbeddedObject =
EmbeddedObject'
{ _eoMarginTop :: !(Maybe Dimension)
, _eoSize :: !(Maybe Size)
, _eoLinkedContentReference :: !(Maybe LinkedContentReference)
, _eoImageProperties :: !(Maybe ImageProperties)
, _eoEmbeddedObjectBOrder :: !(Maybe EmbeddedObjectBOrder)
, _eoEmbeddedDrawingProperties :: !(Maybe EmbeddedDrawingProperties)
, _eoMarginLeft :: !(Maybe Dimension)
, _eoTitle :: !(Maybe Text)
, _eoMarginRight :: !(Maybe Dimension)
, _eoDescription :: !(Maybe Text)
, _eoMarginBottom :: !(Maybe Dimension)
}
deriving (Eq, Show, Data, Typeable, Generic)
embeddedObject
:: EmbeddedObject
embeddedObject =
EmbeddedObject'
{ _eoMarginTop = Nothing
, _eoSize = Nothing
, _eoLinkedContentReference = Nothing
, _eoImageProperties = Nothing
, _eoEmbeddedObjectBOrder = Nothing
, _eoEmbeddedDrawingProperties = Nothing
, _eoMarginLeft = Nothing
, _eoTitle = Nothing
, _eoMarginRight = Nothing
, _eoDescription = Nothing
, _eoMarginBottom = Nothing
}
eoMarginTop :: Lens' EmbeddedObject (Maybe Dimension)
eoMarginTop
= lens _eoMarginTop (\ s a -> s{_eoMarginTop = a})
eoSize :: Lens' EmbeddedObject (Maybe Size)
eoSize = lens _eoSize (\ s a -> s{_eoSize = a})
eoLinkedContentReference :: Lens' EmbeddedObject (Maybe LinkedContentReference)
eoLinkedContentReference
= lens _eoLinkedContentReference
(\ s a -> s{_eoLinkedContentReference = a})
eoImageProperties :: Lens' EmbeddedObject (Maybe ImageProperties)
eoImageProperties
= lens _eoImageProperties
(\ s a -> s{_eoImageProperties = a})
eoEmbeddedObjectBOrder :: Lens' EmbeddedObject (Maybe EmbeddedObjectBOrder)
eoEmbeddedObjectBOrder
= lens _eoEmbeddedObjectBOrder
(\ s a -> s{_eoEmbeddedObjectBOrder = a})
eoEmbeddedDrawingProperties :: Lens' EmbeddedObject (Maybe EmbeddedDrawingProperties)
eoEmbeddedDrawingProperties
= lens _eoEmbeddedDrawingProperties
(\ s a -> s{_eoEmbeddedDrawingProperties = a})
eoMarginLeft :: Lens' EmbeddedObject (Maybe Dimension)
eoMarginLeft
= lens _eoMarginLeft (\ s a -> s{_eoMarginLeft = a})
eoTitle :: Lens' EmbeddedObject (Maybe Text)
eoTitle = lens _eoTitle (\ s a -> s{_eoTitle = a})
eoMarginRight :: Lens' EmbeddedObject (Maybe Dimension)
eoMarginRight
= lens _eoMarginRight
(\ s a -> s{_eoMarginRight = a})
eoDescription :: Lens' EmbeddedObject (Maybe Text)
eoDescription
= lens _eoDescription
(\ s a -> s{_eoDescription = a})
eoMarginBottom :: Lens' EmbeddedObject (Maybe Dimension)
eoMarginBottom
= lens _eoMarginBottom
(\ s a -> s{_eoMarginBottom = a})
instance FromJSON EmbeddedObject where
parseJSON
= withObject "EmbeddedObject"
(\ o ->
EmbeddedObject' <$>
(o .:? "marginTop") <*> (o .:? "size") <*>
(o .:? "linkedContentReference")
<*> (o .:? "imageProperties")
<*> (o .:? "embeddedObjectBorder")
<*> (o .:? "embeddedDrawingProperties")
<*> (o .:? "marginLeft")
<*> (o .:? "title")
<*> (o .:? "marginRight")
<*> (o .:? "description")
<*> (o .:? "marginBottom"))
instance ToJSON EmbeddedObject where
toJSON EmbeddedObject'{..}
= object
(catMaybes
[("marginTop" .=) <$> _eoMarginTop,
("size" .=) <$> _eoSize,
("linkedContentReference" .=) <$>
_eoLinkedContentReference,
("imageProperties" .=) <$> _eoImageProperties,
("embeddedObjectBorder" .=) <$>
_eoEmbeddedObjectBOrder,
("embeddedDrawingProperties" .=) <$>
_eoEmbeddedDrawingProperties,
("marginLeft" .=) <$> _eoMarginLeft,
("title" .=) <$> _eoTitle,
("marginRight" .=) <$> _eoMarginRight,
("description" .=) <$> _eoDescription,
("marginBottom" .=) <$> _eoMarginBottom])
newtype ReplaceAllTextResponse =
ReplaceAllTextResponse'
{ _ratrOccurrencesChanged :: Maybe (Textual Int32)
}
deriving (Eq, Show, Data, Typeable, Generic)
replaceAllTextResponse
:: ReplaceAllTextResponse
replaceAllTextResponse =
ReplaceAllTextResponse' {_ratrOccurrencesChanged = Nothing}
ratrOccurrencesChanged :: Lens' ReplaceAllTextResponse (Maybe Int32)
ratrOccurrencesChanged
= lens _ratrOccurrencesChanged
(\ s a -> s{_ratrOccurrencesChanged = a})
. mapping _Coerce
instance FromJSON ReplaceAllTextResponse where
parseJSON
= withObject "ReplaceAllTextResponse"
(\ o ->
ReplaceAllTextResponse' <$>
(o .:? "occurrencesChanged"))
instance ToJSON ReplaceAllTextResponse where
toJSON ReplaceAllTextResponse'{..}
= object
(catMaybes
[("occurrencesChanged" .=) <$>
_ratrOccurrencesChanged])
data DocumentStyleSuggestionState =
DocumentStyleSuggestionState'
{ _dsssFirstPageFooterIdSuggested :: !(Maybe Bool)
, _dsssDefaultHeaderIdSuggested :: !(Maybe Bool)
, _dsssUseEvenPageHeaderFooterSuggested :: !(Maybe Bool)
, _dsssPageNumberStartSuggested :: !(Maybe Bool)
, _dsssBackgRoundSuggestionState :: !(Maybe BackgRoundSuggestionState)
, _dsssUseFirstPageHeaderFooterSuggested :: !(Maybe Bool)
, _dsssPageSizeSuggestionState :: !(Maybe SizeSuggestionState)
, _dsssMarginTopSuggested :: !(Maybe Bool)
, _dsssEvenPageFooterIdSuggested :: !(Maybe Bool)
, _dsssMarginBottomSuggested :: !(Maybe Bool)
, _dsssEvenPageHeaderIdSuggested :: !(Maybe Bool)
, _dsssMarginLeftSuggested :: !(Maybe Bool)
, _dsssMarginRightSuggested :: !(Maybe Bool)
, _dsssFirstPageHeaderIdSuggested :: !(Maybe Bool)
, _dsssDefaultFooterIdSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
documentStyleSuggestionState
:: DocumentStyleSuggestionState
documentStyleSuggestionState =
DocumentStyleSuggestionState'
{ _dsssFirstPageFooterIdSuggested = Nothing
, _dsssDefaultHeaderIdSuggested = Nothing
, _dsssUseEvenPageHeaderFooterSuggested = Nothing
, _dsssPageNumberStartSuggested = Nothing
, _dsssBackgRoundSuggestionState = Nothing
, _dsssUseFirstPageHeaderFooterSuggested = Nothing
, _dsssPageSizeSuggestionState = Nothing
, _dsssMarginTopSuggested = Nothing
, _dsssEvenPageFooterIdSuggested = Nothing
, _dsssMarginBottomSuggested = Nothing
, _dsssEvenPageHeaderIdSuggested = Nothing
, _dsssMarginLeftSuggested = Nothing
, _dsssMarginRightSuggested = Nothing
, _dsssFirstPageHeaderIdSuggested = Nothing
, _dsssDefaultFooterIdSuggested = Nothing
}
dsssFirstPageFooterIdSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssFirstPageFooterIdSuggested
= lens _dsssFirstPageFooterIdSuggested
(\ s a -> s{_dsssFirstPageFooterIdSuggested = a})
dsssDefaultHeaderIdSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssDefaultHeaderIdSuggested
= lens _dsssDefaultHeaderIdSuggested
(\ s a -> s{_dsssDefaultHeaderIdSuggested = a})
dsssUseEvenPageHeaderFooterSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssUseEvenPageHeaderFooterSuggested
= lens _dsssUseEvenPageHeaderFooterSuggested
(\ s a ->
s{_dsssUseEvenPageHeaderFooterSuggested = a})
dsssPageNumberStartSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssPageNumberStartSuggested
= lens _dsssPageNumberStartSuggested
(\ s a -> s{_dsssPageNumberStartSuggested = a})
dsssBackgRoundSuggestionState :: Lens' DocumentStyleSuggestionState (Maybe BackgRoundSuggestionState)
dsssBackgRoundSuggestionState
= lens _dsssBackgRoundSuggestionState
(\ s a -> s{_dsssBackgRoundSuggestionState = a})
dsssUseFirstPageHeaderFooterSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssUseFirstPageHeaderFooterSuggested
= lens _dsssUseFirstPageHeaderFooterSuggested
(\ s a ->
s{_dsssUseFirstPageHeaderFooterSuggested = a})
dsssPageSizeSuggestionState :: Lens' DocumentStyleSuggestionState (Maybe SizeSuggestionState)
dsssPageSizeSuggestionState
= lens _dsssPageSizeSuggestionState
(\ s a -> s{_dsssPageSizeSuggestionState = a})
dsssMarginTopSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssMarginTopSuggested
= lens _dsssMarginTopSuggested
(\ s a -> s{_dsssMarginTopSuggested = a})
dsssEvenPageFooterIdSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssEvenPageFooterIdSuggested
= lens _dsssEvenPageFooterIdSuggested
(\ s a -> s{_dsssEvenPageFooterIdSuggested = a})
dsssMarginBottomSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssMarginBottomSuggested
= lens _dsssMarginBottomSuggested
(\ s a -> s{_dsssMarginBottomSuggested = a})
dsssEvenPageHeaderIdSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssEvenPageHeaderIdSuggested
= lens _dsssEvenPageHeaderIdSuggested
(\ s a -> s{_dsssEvenPageHeaderIdSuggested = a})
dsssMarginLeftSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssMarginLeftSuggested
= lens _dsssMarginLeftSuggested
(\ s a -> s{_dsssMarginLeftSuggested = a})
dsssMarginRightSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssMarginRightSuggested
= lens _dsssMarginRightSuggested
(\ s a -> s{_dsssMarginRightSuggested = a})
dsssFirstPageHeaderIdSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssFirstPageHeaderIdSuggested
= lens _dsssFirstPageHeaderIdSuggested
(\ s a -> s{_dsssFirstPageHeaderIdSuggested = a})
dsssDefaultFooterIdSuggested :: Lens' DocumentStyleSuggestionState (Maybe Bool)
dsssDefaultFooterIdSuggested
= lens _dsssDefaultFooterIdSuggested
(\ s a -> s{_dsssDefaultFooterIdSuggested = a})
instance FromJSON DocumentStyleSuggestionState where
parseJSON
= withObject "DocumentStyleSuggestionState"
(\ o ->
DocumentStyleSuggestionState' <$>
(o .:? "firstPageFooterIdSuggested") <*>
(o .:? "defaultHeaderIdSuggested")
<*> (o .:? "useEvenPageHeaderFooterSuggested")
<*> (o .:? "pageNumberStartSuggested")
<*> (o .:? "backgroundSuggestionState")
<*> (o .:? "useFirstPageHeaderFooterSuggested")
<*> (o .:? "pageSizeSuggestionState")
<*> (o .:? "marginTopSuggested")
<*> (o .:? "evenPageFooterIdSuggested")
<*> (o .:? "marginBottomSuggested")
<*> (o .:? "evenPageHeaderIdSuggested")
<*> (o .:? "marginLeftSuggested")
<*> (o .:? "marginRightSuggested")
<*> (o .:? "firstPageHeaderIdSuggested")
<*> (o .:? "defaultFooterIdSuggested"))
instance ToJSON DocumentStyleSuggestionState where
toJSON DocumentStyleSuggestionState'{..}
= object
(catMaybes
[("firstPageFooterIdSuggested" .=) <$>
_dsssFirstPageFooterIdSuggested,
("defaultHeaderIdSuggested" .=) <$>
_dsssDefaultHeaderIdSuggested,
("useEvenPageHeaderFooterSuggested" .=) <$>
_dsssUseEvenPageHeaderFooterSuggested,
("pageNumberStartSuggested" .=) <$>
_dsssPageNumberStartSuggested,
("backgroundSuggestionState" .=) <$>
_dsssBackgRoundSuggestionState,
("useFirstPageHeaderFooterSuggested" .=) <$>
_dsssUseFirstPageHeaderFooterSuggested,
("pageSizeSuggestionState" .=) <$>
_dsssPageSizeSuggestionState,
("marginTopSuggested" .=) <$>
_dsssMarginTopSuggested,
("evenPageFooterIdSuggested" .=) <$>
_dsssEvenPageFooterIdSuggested,
("marginBottomSuggested" .=) <$>
_dsssMarginBottomSuggested,
("evenPageHeaderIdSuggested" .=) <$>
_dsssEvenPageHeaderIdSuggested,
("marginLeftSuggested" .=) <$>
_dsssMarginLeftSuggested,
("marginRightSuggested" .=) <$>
_dsssMarginRightSuggested,
("firstPageHeaderIdSuggested" .=) <$>
_dsssFirstPageHeaderIdSuggested,
("defaultFooterIdSuggested" .=) <$>
_dsssDefaultFooterIdSuggested])
newtype LinkedContentReference =
LinkedContentReference'
{ _lcrSheetsChartReference :: Maybe SheetsChartReference
}
deriving (Eq, Show, Data, Typeable, Generic)
linkedContentReference
:: LinkedContentReference
linkedContentReference =
LinkedContentReference' {_lcrSheetsChartReference = Nothing}
lcrSheetsChartReference :: Lens' LinkedContentReference (Maybe SheetsChartReference)
lcrSheetsChartReference
= lens _lcrSheetsChartReference
(\ s a -> s{_lcrSheetsChartReference = a})
instance FromJSON LinkedContentReference where
parseJSON
= withObject "LinkedContentReference"
(\ o ->
LinkedContentReference' <$>
(o .:? "sheetsChartReference"))
instance ToJSON LinkedContentReference where
toJSON LinkedContentReference'{..}
= object
(catMaybes
[("sheetsChartReference" .=) <$>
_lcrSheetsChartReference])
newtype Shading =
Shading'
{ _sBackgRoundColor :: Maybe OptionalColor
}
deriving (Eq, Show, Data, Typeable, Generic)
shading
:: Shading
shading = Shading' {_sBackgRoundColor = Nothing}
sBackgRoundColor :: Lens' Shading (Maybe OptionalColor)
sBackgRoundColor
= lens _sBackgRoundColor
(\ s a -> s{_sBackgRoundColor = a})
instance FromJSON Shading where
parseJSON
= withObject "Shading"
(\ o -> Shading' <$> (o .:? "backgroundColor"))
instance ToJSON Shading where
toJSON Shading'{..}
= object
(catMaybes
[("backgroundColor" .=) <$> _sBackgRoundColor])
newtype InlineObjectPropertiesSuggestionState =
InlineObjectPropertiesSuggestionState'
{ _iopssEmbeddedObjectSuggestionState :: Maybe EmbeddedObjectSuggestionState
}
deriving (Eq, Show, Data, Typeable, Generic)
inlineObjectPropertiesSuggestionState
:: InlineObjectPropertiesSuggestionState
inlineObjectPropertiesSuggestionState =
InlineObjectPropertiesSuggestionState'
{_iopssEmbeddedObjectSuggestionState = Nothing}
iopssEmbeddedObjectSuggestionState :: Lens' InlineObjectPropertiesSuggestionState (Maybe EmbeddedObjectSuggestionState)
iopssEmbeddedObjectSuggestionState
= lens _iopssEmbeddedObjectSuggestionState
(\ s a -> s{_iopssEmbeddedObjectSuggestionState = a})
instance FromJSON
InlineObjectPropertiesSuggestionState
where
parseJSON
= withObject "InlineObjectPropertiesSuggestionState"
(\ o ->
InlineObjectPropertiesSuggestionState' <$>
(o .:? "embeddedObjectSuggestionState"))
instance ToJSON InlineObjectPropertiesSuggestionState
where
toJSON InlineObjectPropertiesSuggestionState'{..}
= object
(catMaybes
[("embeddedObjectSuggestionState" .=) <$>
_iopssEmbeddedObjectSuggestionState])
newtype PageBreakSuggestedTextStyleChanges =
PageBreakSuggestedTextStyleChanges'
{ _pbstscAddtional :: HashMap Text SuggestedTextStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
pageBreakSuggestedTextStyleChanges
:: HashMap Text SuggestedTextStyle
-> PageBreakSuggestedTextStyleChanges
pageBreakSuggestedTextStyleChanges pPbstscAddtional_ =
PageBreakSuggestedTextStyleChanges'
{_pbstscAddtional = _Coerce # pPbstscAddtional_}
pbstscAddtional :: Lens' PageBreakSuggestedTextStyleChanges (HashMap Text SuggestedTextStyle)
pbstscAddtional
= lens _pbstscAddtional
(\ s a -> s{_pbstscAddtional = a})
. _Coerce
instance FromJSON PageBreakSuggestedTextStyleChanges
where
parseJSON
= withObject "PageBreakSuggestedTextStyleChanges"
(\ o ->
PageBreakSuggestedTextStyleChanges' <$>
(parseJSONObject o))
instance ToJSON PageBreakSuggestedTextStyleChanges
where
toJSON = toJSON . _pbstscAddtional
newtype DocumentLists =
DocumentLists'
{ _dlAddtional :: HashMap Text List
}
deriving (Eq, Show, Data, Typeable, Generic)
documentLists
:: HashMap Text List
-> DocumentLists
documentLists pDlAddtional_ =
DocumentLists' {_dlAddtional = _Coerce # pDlAddtional_}
dlAddtional :: Lens' DocumentLists (HashMap Text List)
dlAddtional
= lens _dlAddtional (\ s a -> s{_dlAddtional = a}) .
_Coerce
instance FromJSON DocumentLists where
parseJSON
= withObject "DocumentLists"
(\ o -> DocumentLists' <$> (parseJSONObject o))
instance ToJSON DocumentLists where
toJSON = toJSON . _dlAddtional
newtype DeleteContentRangeRequest =
DeleteContentRangeRequest'
{ _dcrrRange :: Maybe Range
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteContentRangeRequest
:: DeleteContentRangeRequest
deleteContentRangeRequest = DeleteContentRangeRequest' {_dcrrRange = Nothing}
dcrrRange :: Lens' DeleteContentRangeRequest (Maybe Range)
dcrrRange
= lens _dcrrRange (\ s a -> s{_dcrrRange = a})
instance FromJSON DeleteContentRangeRequest where
parseJSON
= withObject "DeleteContentRangeRequest"
(\ o ->
DeleteContentRangeRequest' <$> (o .:? "range"))
instance ToJSON DeleteContentRangeRequest where
toJSON DeleteContentRangeRequest'{..}
= object (catMaybes [("range" .=) <$> _dcrrRange])
data Bullet =
Bullet'
{ _bListId :: !(Maybe Text)
, _bTextStyle :: !(Maybe TextStyle)
, _bNestingLevel :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
bullet
:: Bullet
bullet =
Bullet' {_bListId = Nothing, _bTextStyle = Nothing, _bNestingLevel = Nothing}
bListId :: Lens' Bullet (Maybe Text)
bListId = lens _bListId (\ s a -> s{_bListId = a})
bTextStyle :: Lens' Bullet (Maybe TextStyle)
bTextStyle
= lens _bTextStyle (\ s a -> s{_bTextStyle = a})
bNestingLevel :: Lens' Bullet (Maybe Int32)
bNestingLevel
= lens _bNestingLevel
(\ s a -> s{_bNestingLevel = a})
. mapping _Coerce
instance FromJSON Bullet where
parseJSON
= withObject "Bullet"
(\ o ->
Bullet' <$>
(o .:? "listId") <*> (o .:? "textStyle") <*>
(o .:? "nestingLevel"))
instance ToJSON Bullet where
toJSON Bullet'{..}
= object
(catMaybes
[("listId" .=) <$> _bListId,
("textStyle" .=) <$> _bTextStyle,
("nestingLevel" .=) <$> _bNestingLevel])
data Paragraph =
Paragraph'
{ _pBullet :: !(Maybe Bullet)
, _pSuggestedBulletChanges :: !(Maybe ParagraphSuggestedBulletChanges)
, _pSuggestedPositionedObjectIds :: !(Maybe ParagraphSuggestedPositionedObjectIds)
, _pSuggestedParagraphStyleChanges :: !(Maybe ParagraphSuggestedParagraphStyleChanges)
, _pElements :: !(Maybe [ParagraphElement])
, _pPositionedObjectIds :: !(Maybe [Text])
, _pParagraphStyle :: !(Maybe ParagraphStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraph
:: Paragraph
paragraph =
Paragraph'
{ _pBullet = Nothing
, _pSuggestedBulletChanges = Nothing
, _pSuggestedPositionedObjectIds = Nothing
, _pSuggestedParagraphStyleChanges = Nothing
, _pElements = Nothing
, _pPositionedObjectIds = Nothing
, _pParagraphStyle = Nothing
}
pBullet :: Lens' Paragraph (Maybe Bullet)
pBullet = lens _pBullet (\ s a -> s{_pBullet = a})
pSuggestedBulletChanges :: Lens' Paragraph (Maybe ParagraphSuggestedBulletChanges)
pSuggestedBulletChanges
= lens _pSuggestedBulletChanges
(\ s a -> s{_pSuggestedBulletChanges = a})
pSuggestedPositionedObjectIds :: Lens' Paragraph (Maybe ParagraphSuggestedPositionedObjectIds)
pSuggestedPositionedObjectIds
= lens _pSuggestedPositionedObjectIds
(\ s a -> s{_pSuggestedPositionedObjectIds = a})
pSuggestedParagraphStyleChanges :: Lens' Paragraph (Maybe ParagraphSuggestedParagraphStyleChanges)
pSuggestedParagraphStyleChanges
= lens _pSuggestedParagraphStyleChanges
(\ s a -> s{_pSuggestedParagraphStyleChanges = a})
pElements :: Lens' Paragraph [ParagraphElement]
pElements
= lens _pElements (\ s a -> s{_pElements = a}) .
_Default
. _Coerce
pPositionedObjectIds :: Lens' Paragraph [Text]
pPositionedObjectIds
= lens _pPositionedObjectIds
(\ s a -> s{_pPositionedObjectIds = a})
. _Default
. _Coerce
pParagraphStyle :: Lens' Paragraph (Maybe ParagraphStyle)
pParagraphStyle
= lens _pParagraphStyle
(\ s a -> s{_pParagraphStyle = a})
instance FromJSON Paragraph where
parseJSON
= withObject "Paragraph"
(\ o ->
Paragraph' <$>
(o .:? "bullet") <*> (o .:? "suggestedBulletChanges")
<*> (o .:? "suggestedPositionedObjectIds")
<*> (o .:? "suggestedParagraphStyleChanges")
<*> (o .:? "elements" .!= mempty)
<*> (o .:? "positionedObjectIds" .!= mempty)
<*> (o .:? "paragraphStyle"))
instance ToJSON Paragraph where
toJSON Paragraph'{..}
= object
(catMaybes
[("bullet" .=) <$> _pBullet,
("suggestedBulletChanges" .=) <$>
_pSuggestedBulletChanges,
("suggestedPositionedObjectIds" .=) <$>
_pSuggestedPositionedObjectIds,
("suggestedParagraphStyleChanges" .=) <$>
_pSuggestedParagraphStyleChanges,
("elements" .=) <$> _pElements,
("positionedObjectIds" .=) <$> _pPositionedObjectIds,
("paragraphStyle" .=) <$> _pParagraphStyle])
newtype TextRunSuggestedTextStyleChanges =
TextRunSuggestedTextStyleChanges'
{ _trstscAddtional :: HashMap Text SuggestedTextStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
textRunSuggestedTextStyleChanges
:: HashMap Text SuggestedTextStyle
-> TextRunSuggestedTextStyleChanges
textRunSuggestedTextStyleChanges pTrstscAddtional_ =
TextRunSuggestedTextStyleChanges'
{_trstscAddtional = _Coerce # pTrstscAddtional_}
trstscAddtional :: Lens' TextRunSuggestedTextStyleChanges (HashMap Text SuggestedTextStyle)
trstscAddtional
= lens _trstscAddtional
(\ s a -> s{_trstscAddtional = a})
. _Coerce
instance FromJSON TextRunSuggestedTextStyleChanges
where
parseJSON
= withObject "TextRunSuggestedTextStyleChanges"
(\ o ->
TextRunSuggestedTextStyleChanges' <$>
(parseJSONObject o))
instance ToJSON TextRunSuggestedTextStyleChanges
where
toJSON = toJSON . _trstscAddtional
data SuggestedTableRowStyle =
SuggestedTableRowStyle'
{ _strsTableRowStyleSuggestionState :: !(Maybe TableRowStyleSuggestionState)
, _strsTableRowStyle :: !(Maybe TableRowStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedTableRowStyle
:: SuggestedTableRowStyle
suggestedTableRowStyle =
SuggestedTableRowStyle'
{_strsTableRowStyleSuggestionState = Nothing, _strsTableRowStyle = Nothing}
strsTableRowStyleSuggestionState :: Lens' SuggestedTableRowStyle (Maybe TableRowStyleSuggestionState)
strsTableRowStyleSuggestionState
= lens _strsTableRowStyleSuggestionState
(\ s a -> s{_strsTableRowStyleSuggestionState = a})
strsTableRowStyle :: Lens' SuggestedTableRowStyle (Maybe TableRowStyle)
strsTableRowStyle
= lens _strsTableRowStyle
(\ s a -> s{_strsTableRowStyle = a})
instance FromJSON SuggestedTableRowStyle where
parseJSON
= withObject "SuggestedTableRowStyle"
(\ o ->
SuggestedTableRowStyle' <$>
(o .:? "tableRowStyleSuggestionState") <*>
(o .:? "tableRowStyle"))
instance ToJSON SuggestedTableRowStyle where
toJSON SuggestedTableRowStyle'{..}
= object
(catMaybes
[("tableRowStyleSuggestionState" .=) <$>
_strsTableRowStyleSuggestionState,
("tableRowStyle" .=) <$> _strsTableRowStyle])
newtype DocumentFootNotes =
DocumentFootNotes'
{ _dfnAddtional :: HashMap Text FootNote
}
deriving (Eq, Show, Data, Typeable, Generic)
documentFootNotes
:: HashMap Text FootNote
-> DocumentFootNotes
documentFootNotes pDfnAddtional_ =
DocumentFootNotes' {_dfnAddtional = _Coerce # pDfnAddtional_}
dfnAddtional :: Lens' DocumentFootNotes (HashMap Text FootNote)
dfnAddtional
= lens _dfnAddtional (\ s a -> s{_dfnAddtional = a})
. _Coerce
instance FromJSON DocumentFootNotes where
parseJSON
= withObject "DocumentFootNotes"
(\ o -> DocumentFootNotes' <$> (parseJSONObject o))
instance ToJSON DocumentFootNotes where
toJSON = toJSON . _dfnAddtional
data ImageProperties =
ImageProperties'
{ _ipCropProperties :: !(Maybe CropProperties)
, _ipContentURI :: !(Maybe Text)
, _ipTransparency :: !(Maybe (Textual Double))
, _ipAngle :: !(Maybe (Textual Double))
, _ipContrast :: !(Maybe (Textual Double))
, _ipSourceURI :: !(Maybe Text)
, _ipBrightness :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
imageProperties
:: ImageProperties
imageProperties =
ImageProperties'
{ _ipCropProperties = Nothing
, _ipContentURI = Nothing
, _ipTransparency = Nothing
, _ipAngle = Nothing
, _ipContrast = Nothing
, _ipSourceURI = Nothing
, _ipBrightness = Nothing
}
ipCropProperties :: Lens' ImageProperties (Maybe CropProperties)
ipCropProperties
= lens _ipCropProperties
(\ s a -> s{_ipCropProperties = a})
ipContentURI :: Lens' ImageProperties (Maybe Text)
ipContentURI
= lens _ipContentURI (\ s a -> s{_ipContentURI = a})
ipTransparency :: Lens' ImageProperties (Maybe Double)
ipTransparency
= lens _ipTransparency
(\ s a -> s{_ipTransparency = a})
. mapping _Coerce
ipAngle :: Lens' ImageProperties (Maybe Double)
ipAngle
= lens _ipAngle (\ s a -> s{_ipAngle = a}) .
mapping _Coerce
ipContrast :: Lens' ImageProperties (Maybe Double)
ipContrast
= lens _ipContrast (\ s a -> s{_ipContrast = a}) .
mapping _Coerce
ipSourceURI :: Lens' ImageProperties (Maybe Text)
ipSourceURI
= lens _ipSourceURI (\ s a -> s{_ipSourceURI = a})
ipBrightness :: Lens' ImageProperties (Maybe Double)
ipBrightness
= lens _ipBrightness (\ s a -> s{_ipBrightness = a})
. mapping _Coerce
instance FromJSON ImageProperties where
parseJSON
= withObject "ImageProperties"
(\ o ->
ImageProperties' <$>
(o .:? "cropProperties") <*> (o .:? "contentUri") <*>
(o .:? "transparency")
<*> (o .:? "angle")
<*> (o .:? "contrast")
<*> (o .:? "sourceUri")
<*> (o .:? "brightness"))
instance ToJSON ImageProperties where
toJSON ImageProperties'{..}
= object
(catMaybes
[("cropProperties" .=) <$> _ipCropProperties,
("contentUri" .=) <$> _ipContentURI,
("transparency" .=) <$> _ipTransparency,
("angle" .=) <$> _ipAngle,
("contrast" .=) <$> _ipContrast,
("sourceUri" .=) <$> _ipSourceURI,
("brightness" .=) <$> _ipBrightness])
data SizeSuggestionState =
SizeSuggestionState'
{ _sssHeightSuggested :: !(Maybe Bool)
, _sssWidthSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
sizeSuggestionState
:: SizeSuggestionState
sizeSuggestionState =
SizeSuggestionState'
{_sssHeightSuggested = Nothing, _sssWidthSuggested = Nothing}
sssHeightSuggested :: Lens' SizeSuggestionState (Maybe Bool)
sssHeightSuggested
= lens _sssHeightSuggested
(\ s a -> s{_sssHeightSuggested = a})
sssWidthSuggested :: Lens' SizeSuggestionState (Maybe Bool)
sssWidthSuggested
= lens _sssWidthSuggested
(\ s a -> s{_sssWidthSuggested = a})
instance FromJSON SizeSuggestionState where
parseJSON
= withObject "SizeSuggestionState"
(\ o ->
SizeSuggestionState' <$>
(o .:? "heightSuggested") <*>
(o .:? "widthSuggested"))
instance ToJSON SizeSuggestionState where
toJSON SizeSuggestionState'{..}
= object
(catMaybes
[("heightSuggested" .=) <$> _sssHeightSuggested,
("widthSuggested" .=) <$> _sssWidthSuggested])
newtype ListSuggestedListPropertiesChanges =
ListSuggestedListPropertiesChanges'
{ _lslpcAddtional :: HashMap Text SuggestedListProperties
}
deriving (Eq, Show, Data, Typeable, Generic)
listSuggestedListPropertiesChanges
:: HashMap Text SuggestedListProperties
-> ListSuggestedListPropertiesChanges
listSuggestedListPropertiesChanges pLslpcAddtional_ =
ListSuggestedListPropertiesChanges'
{_lslpcAddtional = _Coerce # pLslpcAddtional_}
lslpcAddtional :: Lens' ListSuggestedListPropertiesChanges (HashMap Text SuggestedListProperties)
lslpcAddtional
= lens _lslpcAddtional
(\ s a -> s{_lslpcAddtional = a})
. _Coerce
instance FromJSON ListSuggestedListPropertiesChanges
where
parseJSON
= withObject "ListSuggestedListPropertiesChanges"
(\ o ->
ListSuggestedListPropertiesChanges' <$>
(parseJSONObject o))
instance ToJSON ListSuggestedListPropertiesChanges
where
toJSON = toJSON . _lslpcAddtional
data BatchUpdateDocumentResponse =
BatchUpdateDocumentResponse'
{ _budrDocumentId :: !(Maybe Text)
, _budrReplies :: !(Maybe [Response])
, _budrWriteControl :: !(Maybe WriteControl)
}
deriving (Eq, Show, Data, Typeable, Generic)
batchUpdateDocumentResponse
:: BatchUpdateDocumentResponse
batchUpdateDocumentResponse =
BatchUpdateDocumentResponse'
{ _budrDocumentId = Nothing
, _budrReplies = Nothing
, _budrWriteControl = Nothing
}
budrDocumentId :: Lens' BatchUpdateDocumentResponse (Maybe Text)
budrDocumentId
= lens _budrDocumentId
(\ s a -> s{_budrDocumentId = a})
budrReplies :: Lens' BatchUpdateDocumentResponse [Response]
budrReplies
= lens _budrReplies (\ s a -> s{_budrReplies = a}) .
_Default
. _Coerce
budrWriteControl :: Lens' BatchUpdateDocumentResponse (Maybe WriteControl)
budrWriteControl
= lens _budrWriteControl
(\ s a -> s{_budrWriteControl = a})
instance FromJSON BatchUpdateDocumentResponse where
parseJSON
= withObject "BatchUpdateDocumentResponse"
(\ o ->
BatchUpdateDocumentResponse' <$>
(o .:? "documentId") <*> (o .:? "replies" .!= mempty)
<*> (o .:? "writeControl"))
instance ToJSON BatchUpdateDocumentResponse where
toJSON BatchUpdateDocumentResponse'{..}
= object
(catMaybes
[("documentId" .=) <$> _budrDocumentId,
("replies" .=) <$> _budrReplies,
("writeControl" .=) <$> _budrWriteControl])
newtype TableStyle =
TableStyle'
{ _tsTableColumnProperties :: Maybe [TableColumnProperties]
}
deriving (Eq, Show, Data, Typeable, Generic)
tableStyle
:: TableStyle
tableStyle = TableStyle' {_tsTableColumnProperties = Nothing}
tsTableColumnProperties :: Lens' TableStyle [TableColumnProperties]
tsTableColumnProperties
= lens _tsTableColumnProperties
(\ s a -> s{_tsTableColumnProperties = a})
. _Default
. _Coerce
instance FromJSON TableStyle where
parseJSON
= withObject "TableStyle"
(\ o ->
TableStyle' <$>
(o .:? "tableColumnProperties" .!= mempty))
instance ToJSON TableStyle where
toJSON TableStyle'{..}
= object
(catMaybes
[("tableColumnProperties" .=) <$>
_tsTableColumnProperties])
data FootNoteReference =
FootNoteReference'
{ _fnrSuggestedInsertionIds :: !(Maybe [Text])
, _fnrSuggestedTextStyleChanges :: !(Maybe FootNoteReferenceSuggestedTextStyleChanges)
, _fnrFootNoteId :: !(Maybe Text)
, _fnrSuggestedDeletionIds :: !(Maybe [Text])
, _fnrTextStyle :: !(Maybe TextStyle)
, _fnrFootNoteNumber :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
footNoteReference
:: FootNoteReference
footNoteReference =
FootNoteReference'
{ _fnrSuggestedInsertionIds = Nothing
, _fnrSuggestedTextStyleChanges = Nothing
, _fnrFootNoteId = Nothing
, _fnrSuggestedDeletionIds = Nothing
, _fnrTextStyle = Nothing
, _fnrFootNoteNumber = Nothing
}
fnrSuggestedInsertionIds :: Lens' FootNoteReference [Text]
fnrSuggestedInsertionIds
= lens _fnrSuggestedInsertionIds
(\ s a -> s{_fnrSuggestedInsertionIds = a})
. _Default
. _Coerce
fnrSuggestedTextStyleChanges :: Lens' FootNoteReference (Maybe FootNoteReferenceSuggestedTextStyleChanges)
fnrSuggestedTextStyleChanges
= lens _fnrSuggestedTextStyleChanges
(\ s a -> s{_fnrSuggestedTextStyleChanges = a})
fnrFootNoteId :: Lens' FootNoteReference (Maybe Text)
fnrFootNoteId
= lens _fnrFootNoteId
(\ s a -> s{_fnrFootNoteId = a})
fnrSuggestedDeletionIds :: Lens' FootNoteReference [Text]
fnrSuggestedDeletionIds
= lens _fnrSuggestedDeletionIds
(\ s a -> s{_fnrSuggestedDeletionIds = a})
. _Default
. _Coerce
fnrTextStyle :: Lens' FootNoteReference (Maybe TextStyle)
fnrTextStyle
= lens _fnrTextStyle (\ s a -> s{_fnrTextStyle = a})
fnrFootNoteNumber :: Lens' FootNoteReference (Maybe Text)
fnrFootNoteNumber
= lens _fnrFootNoteNumber
(\ s a -> s{_fnrFootNoteNumber = a})
instance FromJSON FootNoteReference where
parseJSON
= withObject "FootNoteReference"
(\ o ->
FootNoteReference' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedTextStyleChanges")
<*> (o .:? "footnoteId")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "textStyle")
<*> (o .:? "footnoteNumber"))
instance ToJSON FootNoteReference where
toJSON FootNoteReference'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_fnrSuggestedInsertionIds,
("suggestedTextStyleChanges" .=) <$>
_fnrSuggestedTextStyleChanges,
("footnoteId" .=) <$> _fnrFootNoteId,
("suggestedDeletionIds" .=) <$>
_fnrSuggestedDeletionIds,
("textStyle" .=) <$> _fnrTextStyle,
("footnoteNumber" .=) <$> _fnrFootNoteNumber])
data ColumnBreak =
ColumnBreak'
{ _cbSuggestedInsertionIds :: !(Maybe [Text])
, _cbSuggestedTextStyleChanges :: !(Maybe ColumnBreakSuggestedTextStyleChanges)
, _cbSuggestedDeletionIds :: !(Maybe [Text])
, _cbTextStyle :: !(Maybe TextStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
columnBreak
:: ColumnBreak
columnBreak =
ColumnBreak'
{ _cbSuggestedInsertionIds = Nothing
, _cbSuggestedTextStyleChanges = Nothing
, _cbSuggestedDeletionIds = Nothing
, _cbTextStyle = Nothing
}
cbSuggestedInsertionIds :: Lens' ColumnBreak [Text]
cbSuggestedInsertionIds
= lens _cbSuggestedInsertionIds
(\ s a -> s{_cbSuggestedInsertionIds = a})
. _Default
. _Coerce
cbSuggestedTextStyleChanges :: Lens' ColumnBreak (Maybe ColumnBreakSuggestedTextStyleChanges)
cbSuggestedTextStyleChanges
= lens _cbSuggestedTextStyleChanges
(\ s a -> s{_cbSuggestedTextStyleChanges = a})
cbSuggestedDeletionIds :: Lens' ColumnBreak [Text]
cbSuggestedDeletionIds
= lens _cbSuggestedDeletionIds
(\ s a -> s{_cbSuggestedDeletionIds = a})
. _Default
. _Coerce
cbTextStyle :: Lens' ColumnBreak (Maybe TextStyle)
cbTextStyle
= lens _cbTextStyle (\ s a -> s{_cbTextStyle = a})
instance FromJSON ColumnBreak where
parseJSON
= withObject "ColumnBreak"
(\ o ->
ColumnBreak' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedTextStyleChanges")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "textStyle"))
instance ToJSON ColumnBreak where
toJSON ColumnBreak'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_cbSuggestedInsertionIds,
("suggestedTextStyleChanges" .=) <$>
_cbSuggestedTextStyleChanges,
("suggestedDeletionIds" .=) <$>
_cbSuggestedDeletionIds,
("textStyle" .=) <$> _cbTextStyle])
newtype InlineObjectSuggestedInlineObjectPropertiesChanges =
InlineObjectSuggestedInlineObjectPropertiesChanges'
{ _iosiopcAddtional :: HashMap Text SuggestedInlineObjectProperties
}
deriving (Eq, Show, Data, Typeable, Generic)
inlineObjectSuggestedInlineObjectPropertiesChanges
:: HashMap Text SuggestedInlineObjectProperties
-> InlineObjectSuggestedInlineObjectPropertiesChanges
inlineObjectSuggestedInlineObjectPropertiesChanges pIosiopcAddtional_ =
InlineObjectSuggestedInlineObjectPropertiesChanges'
{_iosiopcAddtional = _Coerce # pIosiopcAddtional_}
iosiopcAddtional :: Lens' InlineObjectSuggestedInlineObjectPropertiesChanges (HashMap Text SuggestedInlineObjectProperties)
iosiopcAddtional
= lens _iosiopcAddtional
(\ s a -> s{_iosiopcAddtional = a})
. _Coerce
instance FromJSON
InlineObjectSuggestedInlineObjectPropertiesChanges
where
parseJSON
= withObject
"InlineObjectSuggestedInlineObjectPropertiesChanges"
(\ o ->
InlineObjectSuggestedInlineObjectPropertiesChanges'
<$> (parseJSONObject o))
instance ToJSON
InlineObjectSuggestedInlineObjectPropertiesChanges
where
toJSON = toJSON . _iosiopcAddtional
data Equation =
Equation'
{ _eSuggestedInsertionIds :: !(Maybe [Text])
, _eSuggestedDeletionIds :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
equation
:: Equation
equation =
Equation'
{_eSuggestedInsertionIds = Nothing, _eSuggestedDeletionIds = Nothing}
eSuggestedInsertionIds :: Lens' Equation [Text]
eSuggestedInsertionIds
= lens _eSuggestedInsertionIds
(\ s a -> s{_eSuggestedInsertionIds = a})
. _Default
. _Coerce
eSuggestedDeletionIds :: Lens' Equation [Text]
eSuggestedDeletionIds
= lens _eSuggestedDeletionIds
(\ s a -> s{_eSuggestedDeletionIds = a})
. _Default
. _Coerce
instance FromJSON Equation where
parseJSON
= withObject "Equation"
(\ o ->
Equation' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedDeletionIds" .!= mempty))
instance ToJSON Equation where
toJSON Equation'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_eSuggestedInsertionIds,
("suggestedDeletionIds" .=) <$>
_eSuggestedDeletionIds])
data NamedRange =
NamedRange'
{ _nNamedRangeId :: !(Maybe Text)
, _nRanges :: !(Maybe [Range])
, _nName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
namedRange
:: NamedRange
namedRange =
NamedRange' {_nNamedRangeId = Nothing, _nRanges = Nothing, _nName = Nothing}
nNamedRangeId :: Lens' NamedRange (Maybe Text)
nNamedRangeId
= lens _nNamedRangeId
(\ s a -> s{_nNamedRangeId = a})
nRanges :: Lens' NamedRange [Range]
nRanges
= lens _nRanges (\ s a -> s{_nRanges = a}) . _Default
. _Coerce
nName :: Lens' NamedRange (Maybe Text)
nName = lens _nName (\ s a -> s{_nName = a})
instance FromJSON NamedRange where
parseJSON
= withObject "NamedRange"
(\ o ->
NamedRange' <$>
(o .:? "namedRangeId") <*>
(o .:? "ranges" .!= mempty)
<*> (o .:? "name"))
instance ToJSON NamedRange where
toJSON NamedRange'{..}
= object
(catMaybes
[("namedRangeId" .=) <$> _nNamedRangeId,
("ranges" .=) <$> _nRanges, ("name" .=) <$> _nName])
data CropPropertiesSuggestionState =
CropPropertiesSuggestionState'
{ _cpssAngleSuggested :: !(Maybe Bool)
, _cpssOffSetRightSuggested :: !(Maybe Bool)
, _cpssOffSetBottomSuggested :: !(Maybe Bool)
, _cpssOffSetTopSuggested :: !(Maybe Bool)
, _cpssOffSetLeftSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
cropPropertiesSuggestionState
:: CropPropertiesSuggestionState
cropPropertiesSuggestionState =
CropPropertiesSuggestionState'
{ _cpssAngleSuggested = Nothing
, _cpssOffSetRightSuggested = Nothing
, _cpssOffSetBottomSuggested = Nothing
, _cpssOffSetTopSuggested = Nothing
, _cpssOffSetLeftSuggested = Nothing
}
cpssAngleSuggested :: Lens' CropPropertiesSuggestionState (Maybe Bool)
cpssAngleSuggested
= lens _cpssAngleSuggested
(\ s a -> s{_cpssAngleSuggested = a})
cpssOffSetRightSuggested :: Lens' CropPropertiesSuggestionState (Maybe Bool)
cpssOffSetRightSuggested
= lens _cpssOffSetRightSuggested
(\ s a -> s{_cpssOffSetRightSuggested = a})
cpssOffSetBottomSuggested :: Lens' CropPropertiesSuggestionState (Maybe Bool)
cpssOffSetBottomSuggested
= lens _cpssOffSetBottomSuggested
(\ s a -> s{_cpssOffSetBottomSuggested = a})
cpssOffSetTopSuggested :: Lens' CropPropertiesSuggestionState (Maybe Bool)
cpssOffSetTopSuggested
= lens _cpssOffSetTopSuggested
(\ s a -> s{_cpssOffSetTopSuggested = a})
cpssOffSetLeftSuggested :: Lens' CropPropertiesSuggestionState (Maybe Bool)
cpssOffSetLeftSuggested
= lens _cpssOffSetLeftSuggested
(\ s a -> s{_cpssOffSetLeftSuggested = a})
instance FromJSON CropPropertiesSuggestionState where
parseJSON
= withObject "CropPropertiesSuggestionState"
(\ o ->
CropPropertiesSuggestionState' <$>
(o .:? "angleSuggested") <*>
(o .:? "offsetRightSuggested")
<*> (o .:? "offsetBottomSuggested")
<*> (o .:? "offsetTopSuggested")
<*> (o .:? "offsetLeftSuggested"))
instance ToJSON CropPropertiesSuggestionState where
toJSON CropPropertiesSuggestionState'{..}
= object
(catMaybes
[("angleSuggested" .=) <$> _cpssAngleSuggested,
("offsetRightSuggested" .=) <$>
_cpssOffSetRightSuggested,
("offsetBottomSuggested" .=) <$>
_cpssOffSetBottomSuggested,
("offsetTopSuggested" .=) <$>
_cpssOffSetTopSuggested,
("offsetLeftSuggested" .=) <$>
_cpssOffSetLeftSuggested])
data TextRun =
TextRun'
{ _trSuggestedInsertionIds :: !(Maybe [Text])
, _trSuggestedTextStyleChanges :: !(Maybe TextRunSuggestedTextStyleChanges)
, _trContent :: !(Maybe Text)
, _trSuggestedDeletionIds :: !(Maybe [Text])
, _trTextStyle :: !(Maybe TextStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
textRun
:: TextRun
textRun =
TextRun'
{ _trSuggestedInsertionIds = Nothing
, _trSuggestedTextStyleChanges = Nothing
, _trContent = Nothing
, _trSuggestedDeletionIds = Nothing
, _trTextStyle = Nothing
}
trSuggestedInsertionIds :: Lens' TextRun [Text]
trSuggestedInsertionIds
= lens _trSuggestedInsertionIds
(\ s a -> s{_trSuggestedInsertionIds = a})
. _Default
. _Coerce
trSuggestedTextStyleChanges :: Lens' TextRun (Maybe TextRunSuggestedTextStyleChanges)
trSuggestedTextStyleChanges
= lens _trSuggestedTextStyleChanges
(\ s a -> s{_trSuggestedTextStyleChanges = a})
trContent :: Lens' TextRun (Maybe Text)
trContent
= lens _trContent (\ s a -> s{_trContent = a})
trSuggestedDeletionIds :: Lens' TextRun [Text]
trSuggestedDeletionIds
= lens _trSuggestedDeletionIds
(\ s a -> s{_trSuggestedDeletionIds = a})
. _Default
. _Coerce
trTextStyle :: Lens' TextRun (Maybe TextStyle)
trTextStyle
= lens _trTextStyle (\ s a -> s{_trTextStyle = a})
instance FromJSON TextRun where
parseJSON
= withObject "TextRun"
(\ o ->
TextRun' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedTextStyleChanges")
<*> (o .:? "content")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "textStyle"))
instance ToJSON TextRun where
toJSON TextRun'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_trSuggestedInsertionIds,
("suggestedTextStyleChanges" .=) <$>
_trSuggestedTextStyleChanges,
("content" .=) <$> _trContent,
("suggestedDeletionIds" .=) <$>
_trSuggestedDeletionIds,
("textStyle" .=) <$> _trTextStyle])
data TableRow =
TableRow'
{ _tSuggestedInsertionIds :: !(Maybe [Text])
, _tTableCells :: !(Maybe [TableCell])
, _tEndIndex :: !(Maybe (Textual Int32))
, _tSuggestedDeletionIds :: !(Maybe [Text])
, _tSuggestedTableRowStyleChanges :: !(Maybe TableRowSuggestedTableRowStyleChanges)
, _tTableRowStyle :: !(Maybe TableRowStyle)
, _tStartIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
tableRow
:: TableRow
tableRow =
TableRow'
{ _tSuggestedInsertionIds = Nothing
, _tTableCells = Nothing
, _tEndIndex = Nothing
, _tSuggestedDeletionIds = Nothing
, _tSuggestedTableRowStyleChanges = Nothing
, _tTableRowStyle = Nothing
, _tStartIndex = Nothing
}
tSuggestedInsertionIds :: Lens' TableRow [Text]
tSuggestedInsertionIds
= lens _tSuggestedInsertionIds
(\ s a -> s{_tSuggestedInsertionIds = a})
. _Default
. _Coerce
tTableCells :: Lens' TableRow [TableCell]
tTableCells
= lens _tTableCells (\ s a -> s{_tTableCells = a}) .
_Default
. _Coerce
tEndIndex :: Lens' TableRow (Maybe Int32)
tEndIndex
= lens _tEndIndex (\ s a -> s{_tEndIndex = a}) .
mapping _Coerce
tSuggestedDeletionIds :: Lens' TableRow [Text]
tSuggestedDeletionIds
= lens _tSuggestedDeletionIds
(\ s a -> s{_tSuggestedDeletionIds = a})
. _Default
. _Coerce
tSuggestedTableRowStyleChanges :: Lens' TableRow (Maybe TableRowSuggestedTableRowStyleChanges)
tSuggestedTableRowStyleChanges
= lens _tSuggestedTableRowStyleChanges
(\ s a -> s{_tSuggestedTableRowStyleChanges = a})
tTableRowStyle :: Lens' TableRow (Maybe TableRowStyle)
tTableRowStyle
= lens _tTableRowStyle
(\ s a -> s{_tTableRowStyle = a})
tStartIndex :: Lens' TableRow (Maybe Int32)
tStartIndex
= lens _tStartIndex (\ s a -> s{_tStartIndex = a}) .
mapping _Coerce
instance FromJSON TableRow where
parseJSON
= withObject "TableRow"
(\ o ->
TableRow' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "tableCells" .!= mempty)
<*> (o .:? "endIndex")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "suggestedTableRowStyleChanges")
<*> (o .:? "tableRowStyle")
<*> (o .:? "startIndex"))
instance ToJSON TableRow where
toJSON TableRow'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_tSuggestedInsertionIds,
("tableCells" .=) <$> _tTableCells,
("endIndex" .=) <$> _tEndIndex,
("suggestedDeletionIds" .=) <$>
_tSuggestedDeletionIds,
("suggestedTableRowStyleChanges" .=) <$>
_tSuggestedTableRowStyleChanges,
("tableRowStyle" .=) <$> _tTableRowStyle,
("startIndex" .=) <$> _tStartIndex])
data WeightedFontFamily =
WeightedFontFamily'
{ _wffFontFamily :: !(Maybe Text)
, _wffWeight :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
weightedFontFamily
:: WeightedFontFamily
weightedFontFamily =
WeightedFontFamily' {_wffFontFamily = Nothing, _wffWeight = Nothing}
wffFontFamily :: Lens' WeightedFontFamily (Maybe Text)
wffFontFamily
= lens _wffFontFamily
(\ s a -> s{_wffFontFamily = a})
wffWeight :: Lens' WeightedFontFamily (Maybe Int32)
wffWeight
= lens _wffWeight (\ s a -> s{_wffWeight = a}) .
mapping _Coerce
instance FromJSON WeightedFontFamily where
parseJSON
= withObject "WeightedFontFamily"
(\ o ->
WeightedFontFamily' <$>
(o .:? "fontFamily") <*> (o .:? "weight"))
instance ToJSON WeightedFontFamily where
toJSON WeightedFontFamily'{..}
= object
(catMaybes
[("fontFamily" .=) <$> _wffFontFamily,
("weight" .=) <$> _wffWeight])
data PageBreak =
PageBreak'
{ _pbSuggestedInsertionIds :: !(Maybe [Text])
, _pbSuggestedTextStyleChanges :: !(Maybe PageBreakSuggestedTextStyleChanges)
, _pbSuggestedDeletionIds :: !(Maybe [Text])
, _pbTextStyle :: !(Maybe TextStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
pageBreak
:: PageBreak
pageBreak =
PageBreak'
{ _pbSuggestedInsertionIds = Nothing
, _pbSuggestedTextStyleChanges = Nothing
, _pbSuggestedDeletionIds = Nothing
, _pbTextStyle = Nothing
}
pbSuggestedInsertionIds :: Lens' PageBreak [Text]
pbSuggestedInsertionIds
= lens _pbSuggestedInsertionIds
(\ s a -> s{_pbSuggestedInsertionIds = a})
. _Default
. _Coerce
pbSuggestedTextStyleChanges :: Lens' PageBreak (Maybe PageBreakSuggestedTextStyleChanges)
pbSuggestedTextStyleChanges
= lens _pbSuggestedTextStyleChanges
(\ s a -> s{_pbSuggestedTextStyleChanges = a})
pbSuggestedDeletionIds :: Lens' PageBreak [Text]
pbSuggestedDeletionIds
= lens _pbSuggestedDeletionIds
(\ s a -> s{_pbSuggestedDeletionIds = a})
. _Default
. _Coerce
pbTextStyle :: Lens' PageBreak (Maybe TextStyle)
pbTextStyle
= lens _pbTextStyle (\ s a -> s{_pbTextStyle = a})
instance FromJSON PageBreak where
parseJSON
= withObject "PageBreak"
(\ o ->
PageBreak' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedTextStyleChanges")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "textStyle"))
instance ToJSON PageBreak where
toJSON PageBreak'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_pbSuggestedInsertionIds,
("suggestedTextStyleChanges" .=) <$>
_pbSuggestedTextStyleChanges,
("suggestedDeletionIds" .=) <$>
_pbSuggestedDeletionIds,
("textStyle" .=) <$> _pbTextStyle])
data InlineObject =
InlineObject'
{ _ioSuggestedInsertionId :: !(Maybe Text)
, _ioInlineObjectProperties :: !(Maybe InlineObjectProperties)
, _ioObjectId :: !(Maybe Text)
, _ioSuggestedDeletionIds :: !(Maybe [Text])
, _ioSuggestedInlineObjectPropertiesChanges :: !(Maybe InlineObjectSuggestedInlineObjectPropertiesChanges)
}
deriving (Eq, Show, Data, Typeable, Generic)
inlineObject
:: InlineObject
inlineObject =
InlineObject'
{ _ioSuggestedInsertionId = Nothing
, _ioInlineObjectProperties = Nothing
, _ioObjectId = Nothing
, _ioSuggestedDeletionIds = Nothing
, _ioSuggestedInlineObjectPropertiesChanges = Nothing
}
ioSuggestedInsertionId :: Lens' InlineObject (Maybe Text)
ioSuggestedInsertionId
= lens _ioSuggestedInsertionId
(\ s a -> s{_ioSuggestedInsertionId = a})
ioInlineObjectProperties :: Lens' InlineObject (Maybe InlineObjectProperties)
ioInlineObjectProperties
= lens _ioInlineObjectProperties
(\ s a -> s{_ioInlineObjectProperties = a})
ioObjectId :: Lens' InlineObject (Maybe Text)
ioObjectId
= lens _ioObjectId (\ s a -> s{_ioObjectId = a})
ioSuggestedDeletionIds :: Lens' InlineObject [Text]
ioSuggestedDeletionIds
= lens _ioSuggestedDeletionIds
(\ s a -> s{_ioSuggestedDeletionIds = a})
. _Default
. _Coerce
ioSuggestedInlineObjectPropertiesChanges :: Lens' InlineObject (Maybe InlineObjectSuggestedInlineObjectPropertiesChanges)
ioSuggestedInlineObjectPropertiesChanges
= lens _ioSuggestedInlineObjectPropertiesChanges
(\ s a ->
s{_ioSuggestedInlineObjectPropertiesChanges = a})
instance FromJSON InlineObject where
parseJSON
= withObject "InlineObject"
(\ o ->
InlineObject' <$>
(o .:? "suggestedInsertionId") <*>
(o .:? "inlineObjectProperties")
<*> (o .:? "objectId")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "suggestedInlineObjectPropertiesChanges"))
instance ToJSON InlineObject where
toJSON InlineObject'{..}
= object
(catMaybes
[("suggestedInsertionId" .=) <$>
_ioSuggestedInsertionId,
("inlineObjectProperties" .=) <$>
_ioInlineObjectProperties,
("objectId" .=) <$> _ioObjectId,
("suggestedDeletionIds" .=) <$>
_ioSuggestedDeletionIds,
("suggestedInlineObjectPropertiesChanges" .=) <$>
_ioSuggestedInlineObjectPropertiesChanges])
data EmbeddedObjectBOrder =
EmbeddedObjectBOrder'
{ _eoboColor :: !(Maybe OptionalColor)
, _eoboWidth :: !(Maybe Dimension)
, _eoboDashStyle :: !(Maybe EmbeddedObjectBOrderDashStyle)
, _eoboPropertyState :: !(Maybe EmbeddedObjectBOrderPropertyState)
}
deriving (Eq, Show, Data, Typeable, Generic)
embeddedObjectBOrder
:: EmbeddedObjectBOrder
embeddedObjectBOrder =
EmbeddedObjectBOrder'
{ _eoboColor = Nothing
, _eoboWidth = Nothing
, _eoboDashStyle = Nothing
, _eoboPropertyState = Nothing
}
eoboColor :: Lens' EmbeddedObjectBOrder (Maybe OptionalColor)
eoboColor
= lens _eoboColor (\ s a -> s{_eoboColor = a})
eoboWidth :: Lens' EmbeddedObjectBOrder (Maybe Dimension)
eoboWidth
= lens _eoboWidth (\ s a -> s{_eoboWidth = a})
eoboDashStyle :: Lens' EmbeddedObjectBOrder (Maybe EmbeddedObjectBOrderDashStyle)
eoboDashStyle
= lens _eoboDashStyle
(\ s a -> s{_eoboDashStyle = a})
eoboPropertyState :: Lens' EmbeddedObjectBOrder (Maybe EmbeddedObjectBOrderPropertyState)
eoboPropertyState
= lens _eoboPropertyState
(\ s a -> s{_eoboPropertyState = a})
instance FromJSON EmbeddedObjectBOrder where
parseJSON
= withObject "EmbeddedObjectBOrder"
(\ o ->
EmbeddedObjectBOrder' <$>
(o .:? "color") <*> (o .:? "width") <*>
(o .:? "dashStyle")
<*> (o .:? "propertyState"))
instance ToJSON EmbeddedObjectBOrder where
toJSON EmbeddedObjectBOrder'{..}
= object
(catMaybes
[("color" .=) <$> _eoboColor,
("width" .=) <$> _eoboWidth,
("dashStyle" .=) <$> _eoboDashStyle,
("propertyState" .=) <$> _eoboPropertyState])
newtype TableCellSuggestedTableCellStyleChanges =
TableCellSuggestedTableCellStyleChanges'
{ _tcstcscAddtional :: HashMap Text SuggestedTableCellStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCellSuggestedTableCellStyleChanges
:: HashMap Text SuggestedTableCellStyle
-> TableCellSuggestedTableCellStyleChanges
tableCellSuggestedTableCellStyleChanges pTcstcscAddtional_ =
TableCellSuggestedTableCellStyleChanges'
{_tcstcscAddtional = _Coerce # pTcstcscAddtional_}
tcstcscAddtional :: Lens' TableCellSuggestedTableCellStyleChanges (HashMap Text SuggestedTableCellStyle)
tcstcscAddtional
= lens _tcstcscAddtional
(\ s a -> s{_tcstcscAddtional = a})
. _Coerce
instance FromJSON
TableCellSuggestedTableCellStyleChanges
where
parseJSON
= withObject
"TableCellSuggestedTableCellStyleChanges"
(\ o ->
TableCellSuggestedTableCellStyleChanges' <$>
(parseJSONObject o))
instance ToJSON
TableCellSuggestedTableCellStyleChanges
where
toJSON = toJSON . _tcstcscAddtional
data TableCellStyle =
TableCellStyle'
{ _tcsBOrderRight :: !(Maybe TableCellBOrder)
, _tcsBOrderTop :: !(Maybe TableCellBOrder)
, _tcsColumnSpan :: !(Maybe (Textual Int32))
, _tcsBackgRoundColor :: !(Maybe OptionalColor)
, _tcsPaddingBottom :: !(Maybe Dimension)
, _tcsRowSpan :: !(Maybe (Textual Int32))
, _tcsBOrderLeft :: !(Maybe TableCellBOrder)
, _tcsPaddingLeft :: !(Maybe Dimension)
, _tcsPaddingTop :: !(Maybe Dimension)
, _tcsBOrderBottom :: !(Maybe TableCellBOrder)
, _tcsContentAlignment :: !(Maybe TableCellStyleContentAlignment)
, _tcsPaddingRight :: !(Maybe Dimension)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCellStyle
:: TableCellStyle
tableCellStyle =
TableCellStyle'
{ _tcsBOrderRight = Nothing
, _tcsBOrderTop = Nothing
, _tcsColumnSpan = Nothing
, _tcsBackgRoundColor = Nothing
, _tcsPaddingBottom = Nothing
, _tcsRowSpan = Nothing
, _tcsBOrderLeft = Nothing
, _tcsPaddingLeft = Nothing
, _tcsPaddingTop = Nothing
, _tcsBOrderBottom = Nothing
, _tcsContentAlignment = Nothing
, _tcsPaddingRight = Nothing
}
tcsBOrderRight :: Lens' TableCellStyle (Maybe TableCellBOrder)
tcsBOrderRight
= lens _tcsBOrderRight
(\ s a -> s{_tcsBOrderRight = a})
tcsBOrderTop :: Lens' TableCellStyle (Maybe TableCellBOrder)
tcsBOrderTop
= lens _tcsBOrderTop (\ s a -> s{_tcsBOrderTop = a})
tcsColumnSpan :: Lens' TableCellStyle (Maybe Int32)
tcsColumnSpan
= lens _tcsColumnSpan
(\ s a -> s{_tcsColumnSpan = a})
. mapping _Coerce
tcsBackgRoundColor :: Lens' TableCellStyle (Maybe OptionalColor)
tcsBackgRoundColor
= lens _tcsBackgRoundColor
(\ s a -> s{_tcsBackgRoundColor = a})
tcsPaddingBottom :: Lens' TableCellStyle (Maybe Dimension)
tcsPaddingBottom
= lens _tcsPaddingBottom
(\ s a -> s{_tcsPaddingBottom = a})
tcsRowSpan :: Lens' TableCellStyle (Maybe Int32)
tcsRowSpan
= lens _tcsRowSpan (\ s a -> s{_tcsRowSpan = a}) .
mapping _Coerce
tcsBOrderLeft :: Lens' TableCellStyle (Maybe TableCellBOrder)
tcsBOrderLeft
= lens _tcsBOrderLeft
(\ s a -> s{_tcsBOrderLeft = a})
tcsPaddingLeft :: Lens' TableCellStyle (Maybe Dimension)
tcsPaddingLeft
= lens _tcsPaddingLeft
(\ s a -> s{_tcsPaddingLeft = a})
tcsPaddingTop :: Lens' TableCellStyle (Maybe Dimension)
tcsPaddingTop
= lens _tcsPaddingTop
(\ s a -> s{_tcsPaddingTop = a})
tcsBOrderBottom :: Lens' TableCellStyle (Maybe TableCellBOrder)
tcsBOrderBottom
= lens _tcsBOrderBottom
(\ s a -> s{_tcsBOrderBottom = a})
tcsContentAlignment :: Lens' TableCellStyle (Maybe TableCellStyleContentAlignment)
tcsContentAlignment
= lens _tcsContentAlignment
(\ s a -> s{_tcsContentAlignment = a})
tcsPaddingRight :: Lens' TableCellStyle (Maybe Dimension)
tcsPaddingRight
= lens _tcsPaddingRight
(\ s a -> s{_tcsPaddingRight = a})
instance FromJSON TableCellStyle where
parseJSON
= withObject "TableCellStyle"
(\ o ->
TableCellStyle' <$>
(o .:? "borderRight") <*> (o .:? "borderTop") <*>
(o .:? "columnSpan")
<*> (o .:? "backgroundColor")
<*> (o .:? "paddingBottom")
<*> (o .:? "rowSpan")
<*> (o .:? "borderLeft")
<*> (o .:? "paddingLeft")
<*> (o .:? "paddingTop")
<*> (o .:? "borderBottom")
<*> (o .:? "contentAlignment")
<*> (o .:? "paddingRight"))
instance ToJSON TableCellStyle where
toJSON TableCellStyle'{..}
= object
(catMaybes
[("borderRight" .=) <$> _tcsBOrderRight,
("borderTop" .=) <$> _tcsBOrderTop,
("columnSpan" .=) <$> _tcsColumnSpan,
("backgroundColor" .=) <$> _tcsBackgRoundColor,
("paddingBottom" .=) <$> _tcsPaddingBottom,
("rowSpan" .=) <$> _tcsRowSpan,
("borderLeft" .=) <$> _tcsBOrderLeft,
("paddingLeft" .=) <$> _tcsPaddingLeft,
("paddingTop" .=) <$> _tcsPaddingTop,
("borderBottom" .=) <$> _tcsBOrderBottom,
("contentAlignment" .=) <$> _tcsContentAlignment,
("paddingRight" .=) <$> _tcsPaddingRight])
data Header =
Header'
{ _hHeaderId :: !(Maybe Text)
, _hContent :: !(Maybe [StructuralElement])
}
deriving (Eq, Show, Data, Typeable, Generic)
header
:: Header
header = Header' {_hHeaderId = Nothing, _hContent = Nothing}
hHeaderId :: Lens' Header (Maybe Text)
hHeaderId
= lens _hHeaderId (\ s a -> s{_hHeaderId = a})
hContent :: Lens' Header [StructuralElement]
hContent
= lens _hContent (\ s a -> s{_hContent = a}) .
_Default
. _Coerce
instance FromJSON Header where
parseJSON
= withObject "Header"
(\ o ->
Header' <$>
(o .:? "headerId") <*> (o .:? "content" .!= mempty))
instance ToJSON Header where
toJSON Header'{..}
= object
(catMaybes
[("headerId" .=) <$> _hHeaderId,
("content" .=) <$> _hContent])
data Range =
Range'
{ _rEndIndex :: !(Maybe (Textual Int32))
, _rStartIndex :: !(Maybe (Textual Int32))
, _rSegmentId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
range
:: Range
range =
Range' {_rEndIndex = Nothing, _rStartIndex = Nothing, _rSegmentId = Nothing}
rEndIndex :: Lens' Range (Maybe Int32)
rEndIndex
= lens _rEndIndex (\ s a -> s{_rEndIndex = a}) .
mapping _Coerce
rStartIndex :: Lens' Range (Maybe Int32)
rStartIndex
= lens _rStartIndex (\ s a -> s{_rStartIndex = a}) .
mapping _Coerce
rSegmentId :: Lens' Range (Maybe Text)
rSegmentId
= lens _rSegmentId (\ s a -> s{_rSegmentId = a})
instance FromJSON Range where
parseJSON
= withObject "Range"
(\ o ->
Range' <$>
(o .:? "endIndex") <*> (o .:? "startIndex") <*>
(o .:? "segmentId"))
instance ToJSON Range where
toJSON Range'{..}
= object
(catMaybes
[("endIndex" .=) <$> _rEndIndex,
("startIndex" .=) <$> _rStartIndex,
("segmentId" .=) <$> _rSegmentId])
data Document =
Document'
{ _dNamedRanges :: !(Maybe DocumentNamedRanges)
, _dInlineObjects :: !(Maybe DocumentInlineObjects)
, _dDocumentId :: !(Maybe Text)
, _dBody :: !(Maybe Body)
, _dDocumentStyle :: !(Maybe DocumentStyle)
, _dFooters :: !(Maybe DocumentFooters)
, _dPositionedObjects :: !(Maybe DocumentPositionedObjects)
, _dSuggestionsViewMode :: !(Maybe DocumentSuggestionsViewMode)
, _dHeaders :: !(Maybe DocumentHeaders)
, _dNamedStyles :: !(Maybe NamedStyles)
, _dSuggestedNamedStylesChanges :: !(Maybe DocumentSuggestedNamedStylesChanges)
, _dSuggestedDocumentStyleChanges :: !(Maybe DocumentSuggestedDocumentStyleChanges)
, _dTitle :: !(Maybe Text)
, _dRevisionId :: !(Maybe Text)
, _dFootNotes :: !(Maybe DocumentFootNotes)
, _dLists :: !(Maybe DocumentLists)
}
deriving (Eq, Show, Data, Typeable, Generic)
document
:: Document
document =
Document'
{ _dNamedRanges = Nothing
, _dInlineObjects = Nothing
, _dDocumentId = Nothing
, _dBody = Nothing
, _dDocumentStyle = Nothing
, _dFooters = Nothing
, _dPositionedObjects = Nothing
, _dSuggestionsViewMode = Nothing
, _dHeaders = Nothing
, _dNamedStyles = Nothing
, _dSuggestedNamedStylesChanges = Nothing
, _dSuggestedDocumentStyleChanges = Nothing
, _dTitle = Nothing
, _dRevisionId = Nothing
, _dFootNotes = Nothing
, _dLists = Nothing
}
dNamedRanges :: Lens' Document (Maybe DocumentNamedRanges)
dNamedRanges
= lens _dNamedRanges (\ s a -> s{_dNamedRanges = a})
dInlineObjects :: Lens' Document (Maybe DocumentInlineObjects)
dInlineObjects
= lens _dInlineObjects
(\ s a -> s{_dInlineObjects = a})
dDocumentId :: Lens' Document (Maybe Text)
dDocumentId
= lens _dDocumentId (\ s a -> s{_dDocumentId = a})
dBody :: Lens' Document (Maybe Body)
dBody = lens _dBody (\ s a -> s{_dBody = a})
dDocumentStyle :: Lens' Document (Maybe DocumentStyle)
dDocumentStyle
= lens _dDocumentStyle
(\ s a -> s{_dDocumentStyle = a})
dFooters :: Lens' Document (Maybe DocumentFooters)
dFooters = lens _dFooters (\ s a -> s{_dFooters = a})
dPositionedObjects :: Lens' Document (Maybe DocumentPositionedObjects)
dPositionedObjects
= lens _dPositionedObjects
(\ s a -> s{_dPositionedObjects = a})
dSuggestionsViewMode :: Lens' Document (Maybe DocumentSuggestionsViewMode)
dSuggestionsViewMode
= lens _dSuggestionsViewMode
(\ s a -> s{_dSuggestionsViewMode = a})
dHeaders :: Lens' Document (Maybe DocumentHeaders)
dHeaders = lens _dHeaders (\ s a -> s{_dHeaders = a})
dNamedStyles :: Lens' Document (Maybe NamedStyles)
dNamedStyles
= lens _dNamedStyles (\ s a -> s{_dNamedStyles = a})
dSuggestedNamedStylesChanges :: Lens' Document (Maybe DocumentSuggestedNamedStylesChanges)
dSuggestedNamedStylesChanges
= lens _dSuggestedNamedStylesChanges
(\ s a -> s{_dSuggestedNamedStylesChanges = a})
dSuggestedDocumentStyleChanges :: Lens' Document (Maybe DocumentSuggestedDocumentStyleChanges)
dSuggestedDocumentStyleChanges
= lens _dSuggestedDocumentStyleChanges
(\ s a -> s{_dSuggestedDocumentStyleChanges = a})
dTitle :: Lens' Document (Maybe Text)
dTitle = lens _dTitle (\ s a -> s{_dTitle = a})
dRevisionId :: Lens' Document (Maybe Text)
dRevisionId
= lens _dRevisionId (\ s a -> s{_dRevisionId = a})
dFootNotes :: Lens' Document (Maybe DocumentFootNotes)
dFootNotes
= lens _dFootNotes (\ s a -> s{_dFootNotes = a})
dLists :: Lens' Document (Maybe DocumentLists)
dLists = lens _dLists (\ s a -> s{_dLists = a})
instance FromJSON Document where
parseJSON
= withObject "Document"
(\ o ->
Document' <$>
(o .:? "namedRanges") <*> (o .:? "inlineObjects") <*>
(o .:? "documentId")
<*> (o .:? "body")
<*> (o .:? "documentStyle")
<*> (o .:? "footers")
<*> (o .:? "positionedObjects")
<*> (o .:? "suggestionsViewMode")
<*> (o .:? "headers")
<*> (o .:? "namedStyles")
<*> (o .:? "suggestedNamedStylesChanges")
<*> (o .:? "suggestedDocumentStyleChanges")
<*> (o .:? "title")
<*> (o .:? "revisionId")
<*> (o .:? "footnotes")
<*> (o .:? "lists"))
instance ToJSON Document where
toJSON Document'{..}
= object
(catMaybes
[("namedRanges" .=) <$> _dNamedRanges,
("inlineObjects" .=) <$> _dInlineObjects,
("documentId" .=) <$> _dDocumentId,
("body" .=) <$> _dBody,
("documentStyle" .=) <$> _dDocumentStyle,
("footers" .=) <$> _dFooters,
("positionedObjects" .=) <$> _dPositionedObjects,
("suggestionsViewMode" .=) <$> _dSuggestionsViewMode,
("headers" .=) <$> _dHeaders,
("namedStyles" .=) <$> _dNamedStyles,
("suggestedNamedStylesChanges" .=) <$>
_dSuggestedNamedStylesChanges,
("suggestedDocumentStyleChanges" .=) <$>
_dSuggestedDocumentStyleChanges,
("title" .=) <$> _dTitle,
("revisionId" .=) <$> _dRevisionId,
("footnotes" .=) <$> _dFootNotes,
("lists" .=) <$> _dLists])
newtype DocumentSuggestedDocumentStyleChanges =
DocumentSuggestedDocumentStyleChanges'
{ _dsdscAddtional :: HashMap Text SuggestedDocumentStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
documentSuggestedDocumentStyleChanges
:: HashMap Text SuggestedDocumentStyle
-> DocumentSuggestedDocumentStyleChanges
documentSuggestedDocumentStyleChanges pDsdscAddtional_ =
DocumentSuggestedDocumentStyleChanges'
{_dsdscAddtional = _Coerce # pDsdscAddtional_}
dsdscAddtional :: Lens' DocumentSuggestedDocumentStyleChanges (HashMap Text SuggestedDocumentStyle)
dsdscAddtional
= lens _dsdscAddtional
(\ s a -> s{_dsdscAddtional = a})
. _Coerce
instance FromJSON
DocumentSuggestedDocumentStyleChanges
where
parseJSON
= withObject "DocumentSuggestedDocumentStyleChanges"
(\ o ->
DocumentSuggestedDocumentStyleChanges' <$>
(parseJSONObject o))
instance ToJSON DocumentSuggestedDocumentStyleChanges
where
toJSON = toJSON . _dsdscAddtional
newtype NamedStyles =
NamedStyles'
{ _nsStyles :: Maybe [NamedStyle]
}
deriving (Eq, Show, Data, Typeable, Generic)
namedStyles
:: NamedStyles
namedStyles = NamedStyles' {_nsStyles = Nothing}
nsStyles :: Lens' NamedStyles [NamedStyle]
nsStyles
= lens _nsStyles (\ s a -> s{_nsStyles = a}) .
_Default
. _Coerce
instance FromJSON NamedStyles where
parseJSON
= withObject "NamedStyles"
(\ o -> NamedStyles' <$> (o .:? "styles" .!= mempty))
instance ToJSON NamedStyles where
toJSON NamedStyles'{..}
= object (catMaybes [("styles" .=) <$> _nsStyles])
newtype ParagraphSuggestedParagraphStyleChanges =
ParagraphSuggestedParagraphStyleChanges'
{ _pspscAddtional :: HashMap Text SuggestedParagraphStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphSuggestedParagraphStyleChanges
:: HashMap Text SuggestedParagraphStyle
-> ParagraphSuggestedParagraphStyleChanges
paragraphSuggestedParagraphStyleChanges pPspscAddtional_ =
ParagraphSuggestedParagraphStyleChanges'
{_pspscAddtional = _Coerce # pPspscAddtional_}
pspscAddtional :: Lens' ParagraphSuggestedParagraphStyleChanges (HashMap Text SuggestedParagraphStyle)
pspscAddtional
= lens _pspscAddtional
(\ s a -> s{_pspscAddtional = a})
. _Coerce
instance FromJSON
ParagraphSuggestedParagraphStyleChanges
where
parseJSON
= withObject
"ParagraphSuggestedParagraphStyleChanges"
(\ o ->
ParagraphSuggestedParagraphStyleChanges' <$>
(parseJSONObject o))
instance ToJSON
ParagraphSuggestedParagraphStyleChanges
where
toJSON = toJSON . _pspscAddtional
data EmbeddedDrawingProperties =
EmbeddedDrawingProperties'
deriving (Eq, Show, Data, Typeable, Generic)
embeddedDrawingProperties
:: EmbeddedDrawingProperties
embeddedDrawingProperties = EmbeddedDrawingProperties'
instance FromJSON EmbeddedDrawingProperties where
parseJSON
= withObject "EmbeddedDrawingProperties"
(\ o -> pure EmbeddedDrawingProperties')
instance ToJSON EmbeddedDrawingProperties where
toJSON = const emptyObject
data SuggestedTextStyle =
SuggestedTextStyle'
{ _stsTextStyle :: !(Maybe TextStyle)
, _stsTextStyleSuggestionState :: !(Maybe TextStyleSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedTextStyle
:: SuggestedTextStyle
suggestedTextStyle =
SuggestedTextStyle'
{_stsTextStyle = Nothing, _stsTextStyleSuggestionState = Nothing}
stsTextStyle :: Lens' SuggestedTextStyle (Maybe TextStyle)
stsTextStyle
= lens _stsTextStyle (\ s a -> s{_stsTextStyle = a})
stsTextStyleSuggestionState :: Lens' SuggestedTextStyle (Maybe TextStyleSuggestionState)
stsTextStyleSuggestionState
= lens _stsTextStyleSuggestionState
(\ s a -> s{_stsTextStyleSuggestionState = a})
instance FromJSON SuggestedTextStyle where
parseJSON
= withObject "SuggestedTextStyle"
(\ o ->
SuggestedTextStyle' <$>
(o .:? "textStyle") <*>
(o .:? "textStyleSuggestionState"))
instance ToJSON SuggestedTextStyle where
toJSON SuggestedTextStyle'{..}
= object
(catMaybes
[("textStyle" .=) <$> _stsTextStyle,
("textStyleSuggestionState" .=) <$>
_stsTextStyleSuggestionState])
data InsertTableRowRequest =
InsertTableRowRequest'
{ _itrrInsertBelow :: !(Maybe Bool)
, _itrrTableCellLocation :: !(Maybe TableCellLocation)
}
deriving (Eq, Show, Data, Typeable, Generic)
insertTableRowRequest
:: InsertTableRowRequest
insertTableRowRequest =
InsertTableRowRequest'
{_itrrInsertBelow = Nothing, _itrrTableCellLocation = Nothing}
itrrInsertBelow :: Lens' InsertTableRowRequest (Maybe Bool)
itrrInsertBelow
= lens _itrrInsertBelow
(\ s a -> s{_itrrInsertBelow = a})
itrrTableCellLocation :: Lens' InsertTableRowRequest (Maybe TableCellLocation)
itrrTableCellLocation
= lens _itrrTableCellLocation
(\ s a -> s{_itrrTableCellLocation = a})
instance FromJSON InsertTableRowRequest where
parseJSON
= withObject "InsertTableRowRequest"
(\ o ->
InsertTableRowRequest' <$>
(o .:? "insertBelow") <*>
(o .:? "tableCellLocation"))
instance ToJSON InsertTableRowRequest where
toJSON InsertTableRowRequest'{..}
= object
(catMaybes
[("insertBelow" .=) <$> _itrrInsertBelow,
("tableCellLocation" .=) <$> _itrrTableCellLocation])
data SuggestedNamedStyles =
SuggestedNamedStyles'
{ _snsNamedStylesSuggestionState :: !(Maybe NamedStylesSuggestionState)
, _snsNamedStyles :: !(Maybe NamedStyles)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedNamedStyles
:: SuggestedNamedStyles
suggestedNamedStyles =
SuggestedNamedStyles'
{_snsNamedStylesSuggestionState = Nothing, _snsNamedStyles = Nothing}
snsNamedStylesSuggestionState :: Lens' SuggestedNamedStyles (Maybe NamedStylesSuggestionState)
snsNamedStylesSuggestionState
= lens _snsNamedStylesSuggestionState
(\ s a -> s{_snsNamedStylesSuggestionState = a})
snsNamedStyles :: Lens' SuggestedNamedStyles (Maybe NamedStyles)
snsNamedStyles
= lens _snsNamedStyles
(\ s a -> s{_snsNamedStyles = a})
instance FromJSON SuggestedNamedStyles where
parseJSON
= withObject "SuggestedNamedStyles"
(\ o ->
SuggestedNamedStyles' <$>
(o .:? "namedStylesSuggestionState") <*>
(o .:? "namedStyles"))
instance ToJSON SuggestedNamedStyles where
toJSON SuggestedNamedStyles'{..}
= object
(catMaybes
[("namedStylesSuggestionState" .=) <$>
_snsNamedStylesSuggestionState,
("namedStyles" .=) <$> _snsNamedStyles])
data WriteControl =
WriteControl'
{ _wcRequiredRevisionId :: !(Maybe Text)
, _wcTargetRevisionId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
writeControl
:: WriteControl
writeControl =
WriteControl' {_wcRequiredRevisionId = Nothing, _wcTargetRevisionId = Nothing}
wcRequiredRevisionId :: Lens' WriteControl (Maybe Text)
wcRequiredRevisionId
= lens _wcRequiredRevisionId
(\ s a -> s{_wcRequiredRevisionId = a})
wcTargetRevisionId :: Lens' WriteControl (Maybe Text)
wcTargetRevisionId
= lens _wcTargetRevisionId
(\ s a -> s{_wcTargetRevisionId = a})
instance FromJSON WriteControl where
parseJSON
= withObject "WriteControl"
(\ o ->
WriteControl' <$>
(o .:? "requiredRevisionId") <*>
(o .:? "targetRevisionId"))
instance ToJSON WriteControl where
toJSON WriteControl'{..}
= object
(catMaybes
[("requiredRevisionId" .=) <$> _wcRequiredRevisionId,
("targetRevisionId" .=) <$> _wcTargetRevisionId])
data TextStyle =
TextStyle'
{ _tsLink :: !(Maybe Link)
, _tsBackgRoundColor :: !(Maybe OptionalColor)
, _tsBaselineOffSet :: !(Maybe TextStyleBaselineOffSet)
, _tsForegRoundColor :: !(Maybe OptionalColor)
, _tsFontSize :: !(Maybe Dimension)
, _tsSmallCaps :: !(Maybe Bool)
, _tsUnderline :: !(Maybe Bool)
, _tsWeightedFontFamily :: !(Maybe WeightedFontFamily)
, _tsItalic :: !(Maybe Bool)
, _tsBold :: !(Maybe Bool)
, _tsStrikethrough :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
textStyle
:: TextStyle
textStyle =
TextStyle'
{ _tsLink = Nothing
, _tsBackgRoundColor = Nothing
, _tsBaselineOffSet = Nothing
, _tsForegRoundColor = Nothing
, _tsFontSize = Nothing
, _tsSmallCaps = Nothing
, _tsUnderline = Nothing
, _tsWeightedFontFamily = Nothing
, _tsItalic = Nothing
, _tsBold = Nothing
, _tsStrikethrough = Nothing
}
tsLink :: Lens' TextStyle (Maybe Link)
tsLink = lens _tsLink (\ s a -> s{_tsLink = a})
tsBackgRoundColor :: Lens' TextStyle (Maybe OptionalColor)
tsBackgRoundColor
= lens _tsBackgRoundColor
(\ s a -> s{_tsBackgRoundColor = a})
tsBaselineOffSet :: Lens' TextStyle (Maybe TextStyleBaselineOffSet)
tsBaselineOffSet
= lens _tsBaselineOffSet
(\ s a -> s{_tsBaselineOffSet = a})
tsForegRoundColor :: Lens' TextStyle (Maybe OptionalColor)
tsForegRoundColor
= lens _tsForegRoundColor
(\ s a -> s{_tsForegRoundColor = a})
tsFontSize :: Lens' TextStyle (Maybe Dimension)
tsFontSize
= lens _tsFontSize (\ s a -> s{_tsFontSize = a})
tsSmallCaps :: Lens' TextStyle (Maybe Bool)
tsSmallCaps
= lens _tsSmallCaps (\ s a -> s{_tsSmallCaps = a})
tsUnderline :: Lens' TextStyle (Maybe Bool)
tsUnderline
= lens _tsUnderline (\ s a -> s{_tsUnderline = a})
tsWeightedFontFamily :: Lens' TextStyle (Maybe WeightedFontFamily)
tsWeightedFontFamily
= lens _tsWeightedFontFamily
(\ s a -> s{_tsWeightedFontFamily = a})
tsItalic :: Lens' TextStyle (Maybe Bool)
tsItalic = lens _tsItalic (\ s a -> s{_tsItalic = a})
tsBold :: Lens' TextStyle (Maybe Bool)
tsBold = lens _tsBold (\ s a -> s{_tsBold = a})
tsStrikethrough :: Lens' TextStyle (Maybe Bool)
tsStrikethrough
= lens _tsStrikethrough
(\ s a -> s{_tsStrikethrough = a})
instance FromJSON TextStyle where
parseJSON
= withObject "TextStyle"
(\ o ->
TextStyle' <$>
(o .:? "link") <*> (o .:? "backgroundColor") <*>
(o .:? "baselineOffset")
<*> (o .:? "foregroundColor")
<*> (o .:? "fontSize")
<*> (o .:? "smallCaps")
<*> (o .:? "underline")
<*> (o .:? "weightedFontFamily")
<*> (o .:? "italic")
<*> (o .:? "bold")
<*> (o .:? "strikethrough"))
instance ToJSON TextStyle where
toJSON TextStyle'{..}
= object
(catMaybes
[("link" .=) <$> _tsLink,
("backgroundColor" .=) <$> _tsBackgRoundColor,
("baselineOffset" .=) <$> _tsBaselineOffSet,
("foregroundColor" .=) <$> _tsForegRoundColor,
("fontSize" .=) <$> _tsFontSize,
("smallCaps" .=) <$> _tsSmallCaps,
("underline" .=) <$> _tsUnderline,
("weightedFontFamily" .=) <$> _tsWeightedFontFamily,
("italic" .=) <$> _tsItalic, ("bold" .=) <$> _tsBold,
("strikethrough" .=) <$> _tsStrikethrough])
newtype HorizontalRuleSuggestedTextStyleChanges =
HorizontalRuleSuggestedTextStyleChanges'
{ _hrstscAddtional :: HashMap Text SuggestedTextStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
horizontalRuleSuggestedTextStyleChanges
:: HashMap Text SuggestedTextStyle
-> HorizontalRuleSuggestedTextStyleChanges
horizontalRuleSuggestedTextStyleChanges pHrstscAddtional_ =
HorizontalRuleSuggestedTextStyleChanges'
{_hrstscAddtional = _Coerce # pHrstscAddtional_}
hrstscAddtional :: Lens' HorizontalRuleSuggestedTextStyleChanges (HashMap Text SuggestedTextStyle)
hrstscAddtional
= lens _hrstscAddtional
(\ s a -> s{_hrstscAddtional = a})
. _Coerce
instance FromJSON
HorizontalRuleSuggestedTextStyleChanges
where
parseJSON
= withObject
"HorizontalRuleSuggestedTextStyleChanges"
(\ o ->
HorizontalRuleSuggestedTextStyleChanges' <$>
(parseJSONObject o))
instance ToJSON
HorizontalRuleSuggestedTextStyleChanges
where
toJSON = toJSON . _hrstscAddtional
data UpdateTextStyleRequest =
UpdateTextStyleRequest'
{ _utsrRange :: !(Maybe Range)
, _utsrTextStyle :: !(Maybe TextStyle)
, _utsrFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateTextStyleRequest
:: UpdateTextStyleRequest
updateTextStyleRequest =
UpdateTextStyleRequest'
{_utsrRange = Nothing, _utsrTextStyle = Nothing, _utsrFields = Nothing}
utsrRange :: Lens' UpdateTextStyleRequest (Maybe Range)
utsrRange
= lens _utsrRange (\ s a -> s{_utsrRange = a})
utsrTextStyle :: Lens' UpdateTextStyleRequest (Maybe TextStyle)
utsrTextStyle
= lens _utsrTextStyle
(\ s a -> s{_utsrTextStyle = a})
utsrFields :: Lens' UpdateTextStyleRequest (Maybe GFieldMask)
utsrFields
= lens _utsrFields (\ s a -> s{_utsrFields = a})
instance FromJSON UpdateTextStyleRequest where
parseJSON
= withObject "UpdateTextStyleRequest"
(\ o ->
UpdateTextStyleRequest' <$>
(o .:? "range") <*> (o .:? "textStyle") <*>
(o .:? "fields"))
instance ToJSON UpdateTextStyleRequest where
toJSON UpdateTextStyleRequest'{..}
= object
(catMaybes
[("range" .=) <$> _utsrRange,
("textStyle" .=) <$> _utsrTextStyle,
("fields" .=) <$> _utsrFields])
data InlineObjectElement =
InlineObjectElement'
{ _ioeSuggestedInsertionIds :: !(Maybe [Text])
, _ioeSuggestedTextStyleChanges :: !(Maybe InlineObjectElementSuggestedTextStyleChanges)
, _ioeInlineObjectId :: !(Maybe Text)
, _ioeSuggestedDeletionIds :: !(Maybe [Text])
, _ioeTextStyle :: !(Maybe TextStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
inlineObjectElement
:: InlineObjectElement
inlineObjectElement =
InlineObjectElement'
{ _ioeSuggestedInsertionIds = Nothing
, _ioeSuggestedTextStyleChanges = Nothing
, _ioeInlineObjectId = Nothing
, _ioeSuggestedDeletionIds = Nothing
, _ioeTextStyle = Nothing
}
ioeSuggestedInsertionIds :: Lens' InlineObjectElement [Text]
ioeSuggestedInsertionIds
= lens _ioeSuggestedInsertionIds
(\ s a -> s{_ioeSuggestedInsertionIds = a})
. _Default
. _Coerce
ioeSuggestedTextStyleChanges :: Lens' InlineObjectElement (Maybe InlineObjectElementSuggestedTextStyleChanges)
ioeSuggestedTextStyleChanges
= lens _ioeSuggestedTextStyleChanges
(\ s a -> s{_ioeSuggestedTextStyleChanges = a})
ioeInlineObjectId :: Lens' InlineObjectElement (Maybe Text)
ioeInlineObjectId
= lens _ioeInlineObjectId
(\ s a -> s{_ioeInlineObjectId = a})
ioeSuggestedDeletionIds :: Lens' InlineObjectElement [Text]
ioeSuggestedDeletionIds
= lens _ioeSuggestedDeletionIds
(\ s a -> s{_ioeSuggestedDeletionIds = a})
. _Default
. _Coerce
ioeTextStyle :: Lens' InlineObjectElement (Maybe TextStyle)
ioeTextStyle
= lens _ioeTextStyle (\ s a -> s{_ioeTextStyle = a})
instance FromJSON InlineObjectElement where
parseJSON
= withObject "InlineObjectElement"
(\ o ->
InlineObjectElement' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedTextStyleChanges")
<*> (o .:? "inlineObjectId")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "textStyle"))
instance ToJSON InlineObjectElement where
toJSON InlineObjectElement'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_ioeSuggestedInsertionIds,
("suggestedTextStyleChanges" .=) <$>
_ioeSuggestedTextStyleChanges,
("inlineObjectId" .=) <$> _ioeInlineObjectId,
("suggestedDeletionIds" .=) <$>
_ioeSuggestedDeletionIds,
("textStyle" .=) <$> _ioeTextStyle])
data NestingLevel =
NestingLevel'
{ _nlIndentFirstLine :: !(Maybe Dimension)
, _nlGlyphFormat :: !(Maybe Text)
, _nlBulletAlignment :: !(Maybe NestingLevelBulletAlignment)
, _nlIndentStart :: !(Maybe Dimension)
, _nlGlyphSymbol :: !(Maybe Text)
, _nlTextStyle :: !(Maybe TextStyle)
, _nlGlyphType :: !(Maybe NestingLevelGlyphType)
, _nlStartNumber :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
nestingLevel
:: NestingLevel
nestingLevel =
NestingLevel'
{ _nlIndentFirstLine = Nothing
, _nlGlyphFormat = Nothing
, _nlBulletAlignment = Nothing
, _nlIndentStart = Nothing
, _nlGlyphSymbol = Nothing
, _nlTextStyle = Nothing
, _nlGlyphType = Nothing
, _nlStartNumber = Nothing
}
nlIndentFirstLine :: Lens' NestingLevel (Maybe Dimension)
nlIndentFirstLine
= lens _nlIndentFirstLine
(\ s a -> s{_nlIndentFirstLine = a})
nlGlyphFormat :: Lens' NestingLevel (Maybe Text)
nlGlyphFormat
= lens _nlGlyphFormat
(\ s a -> s{_nlGlyphFormat = a})
nlBulletAlignment :: Lens' NestingLevel (Maybe NestingLevelBulletAlignment)
nlBulletAlignment
= lens _nlBulletAlignment
(\ s a -> s{_nlBulletAlignment = a})
nlIndentStart :: Lens' NestingLevel (Maybe Dimension)
nlIndentStart
= lens _nlIndentStart
(\ s a -> s{_nlIndentStart = a})
nlGlyphSymbol :: Lens' NestingLevel (Maybe Text)
nlGlyphSymbol
= lens _nlGlyphSymbol
(\ s a -> s{_nlGlyphSymbol = a})
nlTextStyle :: Lens' NestingLevel (Maybe TextStyle)
nlTextStyle
= lens _nlTextStyle (\ s a -> s{_nlTextStyle = a})
nlGlyphType :: Lens' NestingLevel (Maybe NestingLevelGlyphType)
nlGlyphType
= lens _nlGlyphType (\ s a -> s{_nlGlyphType = a})
nlStartNumber :: Lens' NestingLevel (Maybe Int32)
nlStartNumber
= lens _nlStartNumber
(\ s a -> s{_nlStartNumber = a})
. mapping _Coerce
instance FromJSON NestingLevel where
parseJSON
= withObject "NestingLevel"
(\ o ->
NestingLevel' <$>
(o .:? "indentFirstLine") <*> (o .:? "glyphFormat")
<*> (o .:? "bulletAlignment")
<*> (o .:? "indentStart")
<*> (o .:? "glyphSymbol")
<*> (o .:? "textStyle")
<*> (o .:? "glyphType")
<*> (o .:? "startNumber"))
instance ToJSON NestingLevel where
toJSON NestingLevel'{..}
= object
(catMaybes
[("indentFirstLine" .=) <$> _nlIndentFirstLine,
("glyphFormat" .=) <$> _nlGlyphFormat,
("bulletAlignment" .=) <$> _nlBulletAlignment,
("indentStart" .=) <$> _nlIndentStart,
("glyphSymbol" .=) <$> _nlGlyphSymbol,
("textStyle" .=) <$> _nlTextStyle,
("glyphType" .=) <$> _nlGlyphType,
("startNumber" .=) <$> _nlStartNumber])
data TableCellLocation =
TableCellLocation'
{ _tclColumnIndex :: !(Maybe (Textual Int32))
, _tclTableStartLocation :: !(Maybe Location)
, _tclRowIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCellLocation
:: TableCellLocation
tableCellLocation =
TableCellLocation'
{ _tclColumnIndex = Nothing
, _tclTableStartLocation = Nothing
, _tclRowIndex = Nothing
}
tclColumnIndex :: Lens' TableCellLocation (Maybe Int32)
tclColumnIndex
= lens _tclColumnIndex
(\ s a -> s{_tclColumnIndex = a})
. mapping _Coerce
tclTableStartLocation :: Lens' TableCellLocation (Maybe Location)
tclTableStartLocation
= lens _tclTableStartLocation
(\ s a -> s{_tclTableStartLocation = a})
tclRowIndex :: Lens' TableCellLocation (Maybe Int32)
tclRowIndex
= lens _tclRowIndex (\ s a -> s{_tclRowIndex = a}) .
mapping _Coerce
instance FromJSON TableCellLocation where
parseJSON
= withObject "TableCellLocation"
(\ o ->
TableCellLocation' <$>
(o .:? "columnIndex") <*>
(o .:? "tableStartLocation")
<*> (o .:? "rowIndex"))
instance ToJSON TableCellLocation where
toJSON TableCellLocation'{..}
= object
(catMaybes
[("columnIndex" .=) <$> _tclColumnIndex,
("tableStartLocation" .=) <$> _tclTableStartLocation,
("rowIndex" .=) <$> _tclRowIndex])
newtype DeletePositionedObjectRequest =
DeletePositionedObjectRequest'
{ _dporObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
deletePositionedObjectRequest
:: DeletePositionedObjectRequest
deletePositionedObjectRequest =
DeletePositionedObjectRequest' {_dporObjectId = Nothing}
dporObjectId :: Lens' DeletePositionedObjectRequest (Maybe Text)
dporObjectId
= lens _dporObjectId (\ s a -> s{_dporObjectId = a})
instance FromJSON DeletePositionedObjectRequest where
parseJSON
= withObject "DeletePositionedObjectRequest"
(\ o ->
DeletePositionedObjectRequest' <$>
(o .:? "objectId"))
instance ToJSON DeletePositionedObjectRequest where
toJSON DeletePositionedObjectRequest'{..}
= object
(catMaybes [("objectId" .=) <$> _dporObjectId])
data Footer =
Footer'
{ _fFooterId :: !(Maybe Text)
, _fContent :: !(Maybe [StructuralElement])
}
deriving (Eq, Show, Data, Typeable, Generic)
footer
:: Footer
footer = Footer' {_fFooterId = Nothing, _fContent = Nothing}
fFooterId :: Lens' Footer (Maybe Text)
fFooterId
= lens _fFooterId (\ s a -> s{_fFooterId = a})
fContent :: Lens' Footer [StructuralElement]
fContent
= lens _fContent (\ s a -> s{_fContent = a}) .
_Default
. _Coerce
instance FromJSON Footer where
parseJSON
= withObject "Footer"
(\ o ->
Footer' <$>
(o .:? "footerId") <*> (o .:? "content" .!= mempty))
instance ToJSON Footer where
toJSON Footer'{..}
= object
(catMaybes
[("footerId" .=) <$> _fFooterId,
("content" .=) <$> _fContent])
data PositionedObject =
PositionedObject'
{ _poSuggestedPositionedObjectPropertiesChanges :: !(Maybe PositionedObjectSuggestedPositionedObjectPropertiesChanges)
, _poPositionedObjectProperties :: !(Maybe PositionedObjectProperties)
, _poSuggestedInsertionId :: !(Maybe Text)
, _poObjectId :: !(Maybe Text)
, _poSuggestedDeletionIds :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
positionedObject
:: PositionedObject
positionedObject =
PositionedObject'
{ _poSuggestedPositionedObjectPropertiesChanges = Nothing
, _poPositionedObjectProperties = Nothing
, _poSuggestedInsertionId = Nothing
, _poObjectId = Nothing
, _poSuggestedDeletionIds = Nothing
}
poSuggestedPositionedObjectPropertiesChanges :: Lens' PositionedObject (Maybe PositionedObjectSuggestedPositionedObjectPropertiesChanges)
poSuggestedPositionedObjectPropertiesChanges
= lens _poSuggestedPositionedObjectPropertiesChanges
(\ s a ->
s{_poSuggestedPositionedObjectPropertiesChanges = a})
poPositionedObjectProperties :: Lens' PositionedObject (Maybe PositionedObjectProperties)
poPositionedObjectProperties
= lens _poPositionedObjectProperties
(\ s a -> s{_poPositionedObjectProperties = a})
poSuggestedInsertionId :: Lens' PositionedObject (Maybe Text)
poSuggestedInsertionId
= lens _poSuggestedInsertionId
(\ s a -> s{_poSuggestedInsertionId = a})
poObjectId :: Lens' PositionedObject (Maybe Text)
poObjectId
= lens _poObjectId (\ s a -> s{_poObjectId = a})
poSuggestedDeletionIds :: Lens' PositionedObject [Text]
poSuggestedDeletionIds
= lens _poSuggestedDeletionIds
(\ s a -> s{_poSuggestedDeletionIds = a})
. _Default
. _Coerce
instance FromJSON PositionedObject where
parseJSON
= withObject "PositionedObject"
(\ o ->
PositionedObject' <$>
(o .:? "suggestedPositionedObjectPropertiesChanges")
<*> (o .:? "positionedObjectProperties")
<*> (o .:? "suggestedInsertionId")
<*> (o .:? "objectId")
<*> (o .:? "suggestedDeletionIds" .!= mempty))
instance ToJSON PositionedObject where
toJSON PositionedObject'{..}
= object
(catMaybes
[("suggestedPositionedObjectPropertiesChanges" .=)
<$> _poSuggestedPositionedObjectPropertiesChanges,
("positionedObjectProperties" .=) <$>
_poPositionedObjectProperties,
("suggestedInsertionId" .=) <$>
_poSuggestedInsertionId,
("objectId" .=) <$> _poObjectId,
("suggestedDeletionIds" .=) <$>
_poSuggestedDeletionIds])
newtype ObjectReferences =
ObjectReferences'
{ _orObjectIds :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
objectReferences
:: ObjectReferences
objectReferences = ObjectReferences' {_orObjectIds = Nothing}
orObjectIds :: Lens' ObjectReferences [Text]
orObjectIds
= lens _orObjectIds (\ s a -> s{_orObjectIds = a}) .
_Default
. _Coerce
instance FromJSON ObjectReferences where
parseJSON
= withObject "ObjectReferences"
(\ o ->
ObjectReferences' <$> (o .:? "objectIds" .!= mempty))
instance ToJSON ObjectReferences where
toJSON ObjectReferences'{..}
= object
(catMaybes [("objectIds" .=) <$> _orObjectIds])
data BulletSuggestionState =
BulletSuggestionState'
{ _bssNestingLevelSuggested :: !(Maybe Bool)
, _bssListIdSuggested :: !(Maybe Bool)
, _bssTextStyleSuggestionState :: !(Maybe TextStyleSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
bulletSuggestionState
:: BulletSuggestionState
bulletSuggestionState =
BulletSuggestionState'
{ _bssNestingLevelSuggested = Nothing
, _bssListIdSuggested = Nothing
, _bssTextStyleSuggestionState = Nothing
}
bssNestingLevelSuggested :: Lens' BulletSuggestionState (Maybe Bool)
bssNestingLevelSuggested
= lens _bssNestingLevelSuggested
(\ s a -> s{_bssNestingLevelSuggested = a})
bssListIdSuggested :: Lens' BulletSuggestionState (Maybe Bool)
bssListIdSuggested
= lens _bssListIdSuggested
(\ s a -> s{_bssListIdSuggested = a})
bssTextStyleSuggestionState :: Lens' BulletSuggestionState (Maybe TextStyleSuggestionState)
bssTextStyleSuggestionState
= lens _bssTextStyleSuggestionState
(\ s a -> s{_bssTextStyleSuggestionState = a})
instance FromJSON BulletSuggestionState where
parseJSON
= withObject "BulletSuggestionState"
(\ o ->
BulletSuggestionState' <$>
(o .:? "nestingLevelSuggested") <*>
(o .:? "listIdSuggested")
<*> (o .:? "textStyleSuggestionState"))
instance ToJSON BulletSuggestionState where
toJSON BulletSuggestionState'{..}
= object
(catMaybes
[("nestingLevelSuggested" .=) <$>
_bssNestingLevelSuggested,
("listIdSuggested" .=) <$> _bssListIdSuggested,
("textStyleSuggestionState" .=) <$>
_bssTextStyleSuggestionState])
data ImagePropertiesSuggestionState =
ImagePropertiesSuggestionState'
{ _ipssAngleSuggested :: !(Maybe Bool)
, _ipssContrastSuggested :: !(Maybe Bool)
, _ipssContentURISuggested :: !(Maybe Bool)
, _ipssSourceURISuggested :: !(Maybe Bool)
, _ipssCropPropertiesSuggestionState :: !(Maybe CropPropertiesSuggestionState)
, _ipssBrightnessSuggested :: !(Maybe Bool)
, _ipssTransparencySuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
imagePropertiesSuggestionState
:: ImagePropertiesSuggestionState
imagePropertiesSuggestionState =
ImagePropertiesSuggestionState'
{ _ipssAngleSuggested = Nothing
, _ipssContrastSuggested = Nothing
, _ipssContentURISuggested = Nothing
, _ipssSourceURISuggested = Nothing
, _ipssCropPropertiesSuggestionState = Nothing
, _ipssBrightnessSuggested = Nothing
, _ipssTransparencySuggested = Nothing
}
ipssAngleSuggested :: Lens' ImagePropertiesSuggestionState (Maybe Bool)
ipssAngleSuggested
= lens _ipssAngleSuggested
(\ s a -> s{_ipssAngleSuggested = a})
ipssContrastSuggested :: Lens' ImagePropertiesSuggestionState (Maybe Bool)
ipssContrastSuggested
= lens _ipssContrastSuggested
(\ s a -> s{_ipssContrastSuggested = a})
ipssContentURISuggested :: Lens' ImagePropertiesSuggestionState (Maybe Bool)
ipssContentURISuggested
= lens _ipssContentURISuggested
(\ s a -> s{_ipssContentURISuggested = a})
ipssSourceURISuggested :: Lens' ImagePropertiesSuggestionState (Maybe Bool)
ipssSourceURISuggested
= lens _ipssSourceURISuggested
(\ s a -> s{_ipssSourceURISuggested = a})
ipssCropPropertiesSuggestionState :: Lens' ImagePropertiesSuggestionState (Maybe CropPropertiesSuggestionState)
ipssCropPropertiesSuggestionState
= lens _ipssCropPropertiesSuggestionState
(\ s a -> s{_ipssCropPropertiesSuggestionState = a})
ipssBrightnessSuggested :: Lens' ImagePropertiesSuggestionState (Maybe Bool)
ipssBrightnessSuggested
= lens _ipssBrightnessSuggested
(\ s a -> s{_ipssBrightnessSuggested = a})
ipssTransparencySuggested :: Lens' ImagePropertiesSuggestionState (Maybe Bool)
ipssTransparencySuggested
= lens _ipssTransparencySuggested
(\ s a -> s{_ipssTransparencySuggested = a})
instance FromJSON ImagePropertiesSuggestionState
where
parseJSON
= withObject "ImagePropertiesSuggestionState"
(\ o ->
ImagePropertiesSuggestionState' <$>
(o .:? "angleSuggested") <*>
(o .:? "contrastSuggested")
<*> (o .:? "contentUriSuggested")
<*> (o .:? "sourceUriSuggested")
<*> (o .:? "cropPropertiesSuggestionState")
<*> (o .:? "brightnessSuggested")
<*> (o .:? "transparencySuggested"))
instance ToJSON ImagePropertiesSuggestionState where
toJSON ImagePropertiesSuggestionState'{..}
= object
(catMaybes
[("angleSuggested" .=) <$> _ipssAngleSuggested,
("contrastSuggested" .=) <$> _ipssContrastSuggested,
("contentUriSuggested" .=) <$>
_ipssContentURISuggested,
("sourceUriSuggested" .=) <$>
_ipssSourceURISuggested,
("cropPropertiesSuggestionState" .=) <$>
_ipssCropPropertiesSuggestionState,
("brightnessSuggested" .=) <$>
_ipssBrightnessSuggested,
("transparencySuggested" .=) <$>
_ipssTransparencySuggested])
newtype ShadingSuggestionState =
ShadingSuggestionState'
{ _sssBackgRoundColorSuggested :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
shadingSuggestionState
:: ShadingSuggestionState
shadingSuggestionState =
ShadingSuggestionState' {_sssBackgRoundColorSuggested = Nothing}
sssBackgRoundColorSuggested :: Lens' ShadingSuggestionState (Maybe Bool)
sssBackgRoundColorSuggested
= lens _sssBackgRoundColorSuggested
(\ s a -> s{_sssBackgRoundColorSuggested = a})
instance FromJSON ShadingSuggestionState where
parseJSON
= withObject "ShadingSuggestionState"
(\ o ->
ShadingSuggestionState' <$>
(o .:? "backgroundColorSuggested"))
instance ToJSON ShadingSuggestionState where
toJSON ShadingSuggestionState'{..}
= object
(catMaybes
[("backgroundColorSuggested" .=) <$>
_sssBackgRoundColorSuggested])
newtype DocumentSuggestedNamedStylesChanges =
DocumentSuggestedNamedStylesChanges'
{ _dsnscAddtional :: HashMap Text SuggestedNamedStyles
}
deriving (Eq, Show, Data, Typeable, Generic)
documentSuggestedNamedStylesChanges
:: HashMap Text SuggestedNamedStyles
-> DocumentSuggestedNamedStylesChanges
documentSuggestedNamedStylesChanges pDsnscAddtional_ =
DocumentSuggestedNamedStylesChanges'
{_dsnscAddtional = _Coerce # pDsnscAddtional_}
dsnscAddtional :: Lens' DocumentSuggestedNamedStylesChanges (HashMap Text SuggestedNamedStyles)
dsnscAddtional
= lens _dsnscAddtional
(\ s a -> s{_dsnscAddtional = a})
. _Coerce
instance FromJSON DocumentSuggestedNamedStylesChanges
where
parseJSON
= withObject "DocumentSuggestedNamedStylesChanges"
(\ o ->
DocumentSuggestedNamedStylesChanges' <$>
(parseJSONObject o))
instance ToJSON DocumentSuggestedNamedStylesChanges
where
toJSON = toJSON . _dsnscAddtional
data TableCell =
TableCell'
{ _tcSuggestedInsertionIds :: !(Maybe [Text])
, _tcSuggestedTableCellStyleChanges :: !(Maybe TableCellSuggestedTableCellStyleChanges)
, _tcEndIndex :: !(Maybe (Textual Int32))
, _tcContent :: !(Maybe [StructuralElement])
, _tcTableCellStyle :: !(Maybe TableCellStyle)
, _tcSuggestedDeletionIds :: !(Maybe [Text])
, _tcStartIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCell
:: TableCell
tableCell =
TableCell'
{ _tcSuggestedInsertionIds = Nothing
, _tcSuggestedTableCellStyleChanges = Nothing
, _tcEndIndex = Nothing
, _tcContent = Nothing
, _tcTableCellStyle = Nothing
, _tcSuggestedDeletionIds = Nothing
, _tcStartIndex = Nothing
}
tcSuggestedInsertionIds :: Lens' TableCell [Text]
tcSuggestedInsertionIds
= lens _tcSuggestedInsertionIds
(\ s a -> s{_tcSuggestedInsertionIds = a})
. _Default
. _Coerce
tcSuggestedTableCellStyleChanges :: Lens' TableCell (Maybe TableCellSuggestedTableCellStyleChanges)
tcSuggestedTableCellStyleChanges
= lens _tcSuggestedTableCellStyleChanges
(\ s a -> s{_tcSuggestedTableCellStyleChanges = a})
tcEndIndex :: Lens' TableCell (Maybe Int32)
tcEndIndex
= lens _tcEndIndex (\ s a -> s{_tcEndIndex = a}) .
mapping _Coerce
tcContent :: Lens' TableCell [StructuralElement]
tcContent
= lens _tcContent (\ s a -> s{_tcContent = a}) .
_Default
. _Coerce
tcTableCellStyle :: Lens' TableCell (Maybe TableCellStyle)
tcTableCellStyle
= lens _tcTableCellStyle
(\ s a -> s{_tcTableCellStyle = a})
tcSuggestedDeletionIds :: Lens' TableCell [Text]
tcSuggestedDeletionIds
= lens _tcSuggestedDeletionIds
(\ s a -> s{_tcSuggestedDeletionIds = a})
. _Default
. _Coerce
tcStartIndex :: Lens' TableCell (Maybe Int32)
tcStartIndex
= lens _tcStartIndex (\ s a -> s{_tcStartIndex = a})
. mapping _Coerce
instance FromJSON TableCell where
parseJSON
= withObject "TableCell"
(\ o ->
TableCell' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedTableCellStyleChanges")
<*> (o .:? "endIndex")
<*> (o .:? "content" .!= mempty)
<*> (o .:? "tableCellStyle")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "startIndex"))
instance ToJSON TableCell where
toJSON TableCell'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_tcSuggestedInsertionIds,
("suggestedTableCellStyleChanges" .=) <$>
_tcSuggestedTableCellStyleChanges,
("endIndex" .=) <$> _tcEndIndex,
("content" .=) <$> _tcContent,
("tableCellStyle" .=) <$> _tcTableCellStyle,
("suggestedDeletionIds" .=) <$>
_tcSuggestedDeletionIds,
("startIndex" .=) <$> _tcStartIndex])
data SheetsChartReferenceSuggestionState =
SheetsChartReferenceSuggestionState'
{ _scrssChartIdSuggested :: !(Maybe Bool)
, _scrssSpreadsheetIdSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
sheetsChartReferenceSuggestionState
:: SheetsChartReferenceSuggestionState
sheetsChartReferenceSuggestionState =
SheetsChartReferenceSuggestionState'
{_scrssChartIdSuggested = Nothing, _scrssSpreadsheetIdSuggested = Nothing}
scrssChartIdSuggested :: Lens' SheetsChartReferenceSuggestionState (Maybe Bool)
scrssChartIdSuggested
= lens _scrssChartIdSuggested
(\ s a -> s{_scrssChartIdSuggested = a})
scrssSpreadsheetIdSuggested :: Lens' SheetsChartReferenceSuggestionState (Maybe Bool)
scrssSpreadsheetIdSuggested
= lens _scrssSpreadsheetIdSuggested
(\ s a -> s{_scrssSpreadsheetIdSuggested = a})
instance FromJSON SheetsChartReferenceSuggestionState
where
parseJSON
= withObject "SheetsChartReferenceSuggestionState"
(\ o ->
SheetsChartReferenceSuggestionState' <$>
(o .:? "chartIdSuggested") <*>
(o .:? "spreadsheetIdSuggested"))
instance ToJSON SheetsChartReferenceSuggestionState
where
toJSON SheetsChartReferenceSuggestionState'{..}
= object
(catMaybes
[("chartIdSuggested" .=) <$> _scrssChartIdSuggested,
("spreadsheetIdSuggested" .=) <$>
_scrssSpreadsheetIdSuggested])
data ParagraphElement =
ParagraphElement'
{ _peAutoText :: !(Maybe AutoText)
, _peEndIndex :: !(Maybe (Textual Int32))
, _peFootNoteReference :: !(Maybe FootNoteReference)
, _peColumnBreak :: !(Maybe ColumnBreak)
, _peTextRun :: !(Maybe TextRun)
, _peEquation :: !(Maybe Equation)
, _pePageBreak :: !(Maybe PageBreak)
, _peInlineObjectElement :: !(Maybe InlineObjectElement)
, _peHorizontalRule :: !(Maybe HorizontalRule)
, _peStartIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphElement
:: ParagraphElement
paragraphElement =
ParagraphElement'
{ _peAutoText = Nothing
, _peEndIndex = Nothing
, _peFootNoteReference = Nothing
, _peColumnBreak = Nothing
, _peTextRun = Nothing
, _peEquation = Nothing
, _pePageBreak = Nothing
, _peInlineObjectElement = Nothing
, _peHorizontalRule = Nothing
, _peStartIndex = Nothing
}
peAutoText :: Lens' ParagraphElement (Maybe AutoText)
peAutoText
= lens _peAutoText (\ s a -> s{_peAutoText = a})
peEndIndex :: Lens' ParagraphElement (Maybe Int32)
peEndIndex
= lens _peEndIndex (\ s a -> s{_peEndIndex = a}) .
mapping _Coerce
peFootNoteReference :: Lens' ParagraphElement (Maybe FootNoteReference)
peFootNoteReference
= lens _peFootNoteReference
(\ s a -> s{_peFootNoteReference = a})
peColumnBreak :: Lens' ParagraphElement (Maybe ColumnBreak)
peColumnBreak
= lens _peColumnBreak
(\ s a -> s{_peColumnBreak = a})
peTextRun :: Lens' ParagraphElement (Maybe TextRun)
peTextRun
= lens _peTextRun (\ s a -> s{_peTextRun = a})
peEquation :: Lens' ParagraphElement (Maybe Equation)
peEquation
= lens _peEquation (\ s a -> s{_peEquation = a})
pePageBreak :: Lens' ParagraphElement (Maybe PageBreak)
pePageBreak
= lens _pePageBreak (\ s a -> s{_pePageBreak = a})
peInlineObjectElement :: Lens' ParagraphElement (Maybe InlineObjectElement)
peInlineObjectElement
= lens _peInlineObjectElement
(\ s a -> s{_peInlineObjectElement = a})
peHorizontalRule :: Lens' ParagraphElement (Maybe HorizontalRule)
peHorizontalRule
= lens _peHorizontalRule
(\ s a -> s{_peHorizontalRule = a})
peStartIndex :: Lens' ParagraphElement (Maybe Int32)
peStartIndex
= lens _peStartIndex (\ s a -> s{_peStartIndex = a})
. mapping _Coerce
instance FromJSON ParagraphElement where
parseJSON
= withObject "ParagraphElement"
(\ o ->
ParagraphElement' <$>
(o .:? "autoText") <*> (o .:? "endIndex") <*>
(o .:? "footnoteReference")
<*> (o .:? "columnBreak")
<*> (o .:? "textRun")
<*> (o .:? "equation")
<*> (o .:? "pageBreak")
<*> (o .:? "inlineObjectElement")
<*> (o .:? "horizontalRule")
<*> (o .:? "startIndex"))
instance ToJSON ParagraphElement where
toJSON ParagraphElement'{..}
= object
(catMaybes
[("autoText" .=) <$> _peAutoText,
("endIndex" .=) <$> _peEndIndex,
("footnoteReference" .=) <$> _peFootNoteReference,
("columnBreak" .=) <$> _peColumnBreak,
("textRun" .=) <$> _peTextRun,
("equation" .=) <$> _peEquation,
("pageBreak" .=) <$> _pePageBreak,
("inlineObjectElement" .=) <$>
_peInlineObjectElement,
("horizontalRule" .=) <$> _peHorizontalRule,
("startIndex" .=) <$> _peStartIndex])
data HorizontalRule =
HorizontalRule'
{ _hrSuggestedInsertionIds :: !(Maybe [Text])
, _hrSuggestedTextStyleChanges :: !(Maybe HorizontalRuleSuggestedTextStyleChanges)
, _hrSuggestedDeletionIds :: !(Maybe [Text])
, _hrTextStyle :: !(Maybe TextStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
horizontalRule
:: HorizontalRule
horizontalRule =
HorizontalRule'
{ _hrSuggestedInsertionIds = Nothing
, _hrSuggestedTextStyleChanges = Nothing
, _hrSuggestedDeletionIds = Nothing
, _hrTextStyle = Nothing
}
hrSuggestedInsertionIds :: Lens' HorizontalRule [Text]
hrSuggestedInsertionIds
= lens _hrSuggestedInsertionIds
(\ s a -> s{_hrSuggestedInsertionIds = a})
. _Default
. _Coerce
hrSuggestedTextStyleChanges :: Lens' HorizontalRule (Maybe HorizontalRuleSuggestedTextStyleChanges)
hrSuggestedTextStyleChanges
= lens _hrSuggestedTextStyleChanges
(\ s a -> s{_hrSuggestedTextStyleChanges = a})
hrSuggestedDeletionIds :: Lens' HorizontalRule [Text]
hrSuggestedDeletionIds
= lens _hrSuggestedDeletionIds
(\ s a -> s{_hrSuggestedDeletionIds = a})
. _Default
. _Coerce
hrTextStyle :: Lens' HorizontalRule (Maybe TextStyle)
hrTextStyle
= lens _hrTextStyle (\ s a -> s{_hrTextStyle = a})
instance FromJSON HorizontalRule where
parseJSON
= withObject "HorizontalRule"
(\ o ->
HorizontalRule' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedTextStyleChanges")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "textStyle"))
instance ToJSON HorizontalRule where
toJSON HorizontalRule'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_hrSuggestedInsertionIds,
("suggestedTextStyleChanges" .=) <$>
_hrSuggestedTextStyleChanges,
("suggestedDeletionIds" .=) <$>
_hrSuggestedDeletionIds,
("textStyle" .=) <$> _hrTextStyle])
data EmbeddedObjectSuggestionState =
EmbeddedObjectSuggestionState'
{ _eossEmbeddedObjectBOrderSuggestionState :: !(Maybe EmbeddedObjectBOrderSuggestionState)
, _eossEmbeddedDrawingPropertiesSuggestionState :: !(Maybe EmbeddedDrawingPropertiesSuggestionState)
, _eossTitleSuggested :: !(Maybe Bool)
, _eossMarginTopSuggested :: !(Maybe Bool)
, _eossSizeSuggestionState :: !(Maybe SizeSuggestionState)
, _eossMarginBottomSuggested :: !(Maybe Bool)
, _eossImagePropertiesSuggestionState :: !(Maybe ImagePropertiesSuggestionState)
, _eossMarginLeftSuggested :: !(Maybe Bool)
, _eossLinkedContentReferenceSuggestionState :: !(Maybe LinkedContentReferenceSuggestionState)
, _eossDescriptionSuggested :: !(Maybe Bool)
, _eossMarginRightSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
embeddedObjectSuggestionState
:: EmbeddedObjectSuggestionState
embeddedObjectSuggestionState =
EmbeddedObjectSuggestionState'
{ _eossEmbeddedObjectBOrderSuggestionState = Nothing
, _eossEmbeddedDrawingPropertiesSuggestionState = Nothing
, _eossTitleSuggested = Nothing
, _eossMarginTopSuggested = Nothing
, _eossSizeSuggestionState = Nothing
, _eossMarginBottomSuggested = Nothing
, _eossImagePropertiesSuggestionState = Nothing
, _eossMarginLeftSuggested = Nothing
, _eossLinkedContentReferenceSuggestionState = Nothing
, _eossDescriptionSuggested = Nothing
, _eossMarginRightSuggested = Nothing
}
eossEmbeddedObjectBOrderSuggestionState :: Lens' EmbeddedObjectSuggestionState (Maybe EmbeddedObjectBOrderSuggestionState)
eossEmbeddedObjectBOrderSuggestionState
= lens _eossEmbeddedObjectBOrderSuggestionState
(\ s a ->
s{_eossEmbeddedObjectBOrderSuggestionState = a})
eossEmbeddedDrawingPropertiesSuggestionState :: Lens' EmbeddedObjectSuggestionState (Maybe EmbeddedDrawingPropertiesSuggestionState)
eossEmbeddedDrawingPropertiesSuggestionState
= lens _eossEmbeddedDrawingPropertiesSuggestionState
(\ s a ->
s{_eossEmbeddedDrawingPropertiesSuggestionState = a})
eossTitleSuggested :: Lens' EmbeddedObjectSuggestionState (Maybe Bool)
eossTitleSuggested
= lens _eossTitleSuggested
(\ s a -> s{_eossTitleSuggested = a})
eossMarginTopSuggested :: Lens' EmbeddedObjectSuggestionState (Maybe Bool)
eossMarginTopSuggested
= lens _eossMarginTopSuggested
(\ s a -> s{_eossMarginTopSuggested = a})
eossSizeSuggestionState :: Lens' EmbeddedObjectSuggestionState (Maybe SizeSuggestionState)
eossSizeSuggestionState
= lens _eossSizeSuggestionState
(\ s a -> s{_eossSizeSuggestionState = a})
eossMarginBottomSuggested :: Lens' EmbeddedObjectSuggestionState (Maybe Bool)
eossMarginBottomSuggested
= lens _eossMarginBottomSuggested
(\ s a -> s{_eossMarginBottomSuggested = a})
eossImagePropertiesSuggestionState :: Lens' EmbeddedObjectSuggestionState (Maybe ImagePropertiesSuggestionState)
eossImagePropertiesSuggestionState
= lens _eossImagePropertiesSuggestionState
(\ s a -> s{_eossImagePropertiesSuggestionState = a})
eossMarginLeftSuggested :: Lens' EmbeddedObjectSuggestionState (Maybe Bool)
eossMarginLeftSuggested
= lens _eossMarginLeftSuggested
(\ s a -> s{_eossMarginLeftSuggested = a})
eossLinkedContentReferenceSuggestionState :: Lens' EmbeddedObjectSuggestionState (Maybe LinkedContentReferenceSuggestionState)
eossLinkedContentReferenceSuggestionState
= lens _eossLinkedContentReferenceSuggestionState
(\ s a ->
s{_eossLinkedContentReferenceSuggestionState = a})
eossDescriptionSuggested :: Lens' EmbeddedObjectSuggestionState (Maybe Bool)
eossDescriptionSuggested
= lens _eossDescriptionSuggested
(\ s a -> s{_eossDescriptionSuggested = a})
eossMarginRightSuggested :: Lens' EmbeddedObjectSuggestionState (Maybe Bool)
eossMarginRightSuggested
= lens _eossMarginRightSuggested
(\ s a -> s{_eossMarginRightSuggested = a})
instance FromJSON EmbeddedObjectSuggestionState where
parseJSON
= withObject "EmbeddedObjectSuggestionState"
(\ o ->
EmbeddedObjectSuggestionState' <$>
(o .:? "embeddedObjectBorderSuggestionState") <*>
(o .:? "embeddedDrawingPropertiesSuggestionState")
<*> (o .:? "titleSuggested")
<*> (o .:? "marginTopSuggested")
<*> (o .:? "sizeSuggestionState")
<*> (o .:? "marginBottomSuggested")
<*> (o .:? "imagePropertiesSuggestionState")
<*> (o .:? "marginLeftSuggested")
<*> (o .:? "linkedContentReferenceSuggestionState")
<*> (o .:? "descriptionSuggested")
<*> (o .:? "marginRightSuggested"))
instance ToJSON EmbeddedObjectSuggestionState where
toJSON EmbeddedObjectSuggestionState'{..}
= object
(catMaybes
[("embeddedObjectBorderSuggestionState" .=) <$>
_eossEmbeddedObjectBOrderSuggestionState,
("embeddedDrawingPropertiesSuggestionState" .=) <$>
_eossEmbeddedDrawingPropertiesSuggestionState,
("titleSuggested" .=) <$> _eossTitleSuggested,
("marginTopSuggested" .=) <$>
_eossMarginTopSuggested,
("sizeSuggestionState" .=) <$>
_eossSizeSuggestionState,
("marginBottomSuggested" .=) <$>
_eossMarginBottomSuggested,
("imagePropertiesSuggestionState" .=) <$>
_eossImagePropertiesSuggestionState,
("marginLeftSuggested" .=) <$>
_eossMarginLeftSuggested,
("linkedContentReferenceSuggestionState" .=) <$>
_eossLinkedContentReferenceSuggestionState,
("descriptionSuggested" .=) <$>
_eossDescriptionSuggested,
("marginRightSuggested" .=) <$>
_eossMarginRightSuggested])
data InsertTableRequest =
InsertTableRequest'
{ _itrLocation :: !(Maybe Location)
, _itrEndOfSegmentLocation :: !(Maybe EndOfSegmentLocation)
, _itrRows :: !(Maybe (Textual Int32))
, _itrColumns :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
insertTableRequest
:: InsertTableRequest
insertTableRequest =
InsertTableRequest'
{ _itrLocation = Nothing
, _itrEndOfSegmentLocation = Nothing
, _itrRows = Nothing
, _itrColumns = Nothing
}
itrLocation :: Lens' InsertTableRequest (Maybe Location)
itrLocation
= lens _itrLocation (\ s a -> s{_itrLocation = a})
itrEndOfSegmentLocation :: Lens' InsertTableRequest (Maybe EndOfSegmentLocation)
itrEndOfSegmentLocation
= lens _itrEndOfSegmentLocation
(\ s a -> s{_itrEndOfSegmentLocation = a})
itrRows :: Lens' InsertTableRequest (Maybe Int32)
itrRows
= lens _itrRows (\ s a -> s{_itrRows = a}) .
mapping _Coerce
itrColumns :: Lens' InsertTableRequest (Maybe Int32)
itrColumns
= lens _itrColumns (\ s a -> s{_itrColumns = a}) .
mapping _Coerce
instance FromJSON InsertTableRequest where
parseJSON
= withObject "InsertTableRequest"
(\ o ->
InsertTableRequest' <$>
(o .:? "location") <*> (o .:? "endOfSegmentLocation")
<*> (o .:? "rows")
<*> (o .:? "columns"))
instance ToJSON InsertTableRequest where
toJSON InsertTableRequest'{..}
= object
(catMaybes
[("location" .=) <$> _itrLocation,
("endOfSegmentLocation" .=) <$>
_itrEndOfSegmentLocation,
("rows" .=) <$> _itrRows,
("columns" .=) <$> _itrColumns])
data SuggestedInlineObjectProperties =
SuggestedInlineObjectProperties'
{ _siopInlineObjectProperties :: !(Maybe InlineObjectProperties)
, _siopInlineObjectPropertiesSuggestionState :: !(Maybe InlineObjectPropertiesSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedInlineObjectProperties
:: SuggestedInlineObjectProperties
suggestedInlineObjectProperties =
SuggestedInlineObjectProperties'
{ _siopInlineObjectProperties = Nothing
, _siopInlineObjectPropertiesSuggestionState = Nothing
}
siopInlineObjectProperties :: Lens' SuggestedInlineObjectProperties (Maybe InlineObjectProperties)
siopInlineObjectProperties
= lens _siopInlineObjectProperties
(\ s a -> s{_siopInlineObjectProperties = a})
siopInlineObjectPropertiesSuggestionState :: Lens' SuggestedInlineObjectProperties (Maybe InlineObjectPropertiesSuggestionState)
siopInlineObjectPropertiesSuggestionState
= lens _siopInlineObjectPropertiesSuggestionState
(\ s a ->
s{_siopInlineObjectPropertiesSuggestionState = a})
instance FromJSON SuggestedInlineObjectProperties
where
parseJSON
= withObject "SuggestedInlineObjectProperties"
(\ o ->
SuggestedInlineObjectProperties' <$>
(o .:? "inlineObjectProperties") <*>
(o .:? "inlineObjectPropertiesSuggestionState"))
instance ToJSON SuggestedInlineObjectProperties where
toJSON SuggestedInlineObjectProperties'{..}
= object
(catMaybes
[("inlineObjectProperties" .=) <$>
_siopInlineObjectProperties,
("inlineObjectPropertiesSuggestionState" .=) <$>
_siopInlineObjectPropertiesSuggestionState])
newtype LinkedContentReferenceSuggestionState =
LinkedContentReferenceSuggestionState'
{ _lcrssSheetsChartReferenceSuggestionState :: Maybe SheetsChartReferenceSuggestionState
}
deriving (Eq, Show, Data, Typeable, Generic)
linkedContentReferenceSuggestionState
:: LinkedContentReferenceSuggestionState
linkedContentReferenceSuggestionState =
LinkedContentReferenceSuggestionState'
{_lcrssSheetsChartReferenceSuggestionState = Nothing}
lcrssSheetsChartReferenceSuggestionState :: Lens' LinkedContentReferenceSuggestionState (Maybe SheetsChartReferenceSuggestionState)
lcrssSheetsChartReferenceSuggestionState
= lens _lcrssSheetsChartReferenceSuggestionState
(\ s a ->
s{_lcrssSheetsChartReferenceSuggestionState = a})
instance FromJSON
LinkedContentReferenceSuggestionState
where
parseJSON
= withObject "LinkedContentReferenceSuggestionState"
(\ o ->
LinkedContentReferenceSuggestionState' <$>
(o .:? "sheetsChartReferenceSuggestionState"))
instance ToJSON LinkedContentReferenceSuggestionState
where
toJSON LinkedContentReferenceSuggestionState'{..}
= object
(catMaybes
[("sheetsChartReferenceSuggestionState" .=) <$>
_lcrssSheetsChartReferenceSuggestionState])
newtype InlineObjectElementSuggestedTextStyleChanges =
InlineObjectElementSuggestedTextStyleChanges'
{ _ioestscAddtional :: HashMap Text SuggestedTextStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
inlineObjectElementSuggestedTextStyleChanges
:: HashMap Text SuggestedTextStyle
-> InlineObjectElementSuggestedTextStyleChanges
inlineObjectElementSuggestedTextStyleChanges pIoestscAddtional_ =
InlineObjectElementSuggestedTextStyleChanges'
{_ioestscAddtional = _Coerce # pIoestscAddtional_}
ioestscAddtional :: Lens' InlineObjectElementSuggestedTextStyleChanges (HashMap Text SuggestedTextStyle)
ioestscAddtional
= lens _ioestscAddtional
(\ s a -> s{_ioestscAddtional = a})
. _Coerce
instance FromJSON
InlineObjectElementSuggestedTextStyleChanges
where
parseJSON
= withObject
"InlineObjectElementSuggestedTextStyleChanges"
(\ o ->
InlineObjectElementSuggestedTextStyleChanges' <$>
(parseJSONObject o))
instance ToJSON
InlineObjectElementSuggestedTextStyleChanges
where
toJSON = toJSON . _ioestscAddtional
data StructuralElement =
StructuralElement'
{ _seTableOfContents :: !(Maybe TableOfContents)
, _seParagraph :: !(Maybe Paragraph)
, _seEndIndex :: !(Maybe (Textual Int32))
, _seTable :: !(Maybe Table)
, _seStartIndex :: !(Maybe (Textual Int32))
, _seSectionBreak :: !(Maybe SectionBreak)
}
deriving (Eq, Show, Data, Typeable, Generic)
structuralElement
:: StructuralElement
structuralElement =
StructuralElement'
{ _seTableOfContents = Nothing
, _seParagraph = Nothing
, _seEndIndex = Nothing
, _seTable = Nothing
, _seStartIndex = Nothing
, _seSectionBreak = Nothing
}
seTableOfContents :: Lens' StructuralElement (Maybe TableOfContents)
seTableOfContents
= lens _seTableOfContents
(\ s a -> s{_seTableOfContents = a})
seParagraph :: Lens' StructuralElement (Maybe Paragraph)
seParagraph
= lens _seParagraph (\ s a -> s{_seParagraph = a})
seEndIndex :: Lens' StructuralElement (Maybe Int32)
seEndIndex
= lens _seEndIndex (\ s a -> s{_seEndIndex = a}) .
mapping _Coerce
seTable :: Lens' StructuralElement (Maybe Table)
seTable = lens _seTable (\ s a -> s{_seTable = a})
seStartIndex :: Lens' StructuralElement (Maybe Int32)
seStartIndex
= lens _seStartIndex (\ s a -> s{_seStartIndex = a})
. mapping _Coerce
seSectionBreak :: Lens' StructuralElement (Maybe SectionBreak)
seSectionBreak
= lens _seSectionBreak
(\ s a -> s{_seSectionBreak = a})
instance FromJSON StructuralElement where
parseJSON
= withObject "StructuralElement"
(\ o ->
StructuralElement' <$>
(o .:? "tableOfContents") <*> (o .:? "paragraph") <*>
(o .:? "endIndex")
<*> (o .:? "table")
<*> (o .:? "startIndex")
<*> (o .:? "sectionBreak"))
instance ToJSON StructuralElement where
toJSON StructuralElement'{..}
= object
(catMaybes
[("tableOfContents" .=) <$> _seTableOfContents,
("paragraph" .=) <$> _seParagraph,
("endIndex" .=) <$> _seEndIndex,
("table" .=) <$> _seTable,
("startIndex" .=) <$> _seStartIndex,
("sectionBreak" .=) <$> _seSectionBreak])
newtype DeleteParagraphBulletsRequest =
DeleteParagraphBulletsRequest'
{ _dpbrRange :: Maybe Range
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteParagraphBulletsRequest
:: DeleteParagraphBulletsRequest
deleteParagraphBulletsRequest =
DeleteParagraphBulletsRequest' {_dpbrRange = Nothing}
dpbrRange :: Lens' DeleteParagraphBulletsRequest (Maybe Range)
dpbrRange
= lens _dpbrRange (\ s a -> s{_dpbrRange = a})
instance FromJSON DeleteParagraphBulletsRequest where
parseJSON
= withObject "DeleteParagraphBulletsRequest"
(\ o ->
DeleteParagraphBulletsRequest' <$> (o .:? "range"))
instance ToJSON DeleteParagraphBulletsRequest where
toJSON DeleteParagraphBulletsRequest'{..}
= object (catMaybes [("range" .=) <$> _dpbrRange])
data BatchUpdateDocumentRequest =
BatchUpdateDocumentRequest'
{ _bRequests :: !(Maybe [Request'])
, _bWriteControl :: !(Maybe WriteControl)
}
deriving (Eq, Show, Data, Typeable, Generic)
batchUpdateDocumentRequest
:: BatchUpdateDocumentRequest
batchUpdateDocumentRequest =
BatchUpdateDocumentRequest' {_bRequests = Nothing, _bWriteControl = Nothing}
bRequests :: Lens' BatchUpdateDocumentRequest [Request']
bRequests
= lens _bRequests (\ s a -> s{_bRequests = a}) .
_Default
. _Coerce
bWriteControl :: Lens' BatchUpdateDocumentRequest (Maybe WriteControl)
bWriteControl
= lens _bWriteControl
(\ s a -> s{_bWriteControl = a})
instance FromJSON BatchUpdateDocumentRequest where
parseJSON
= withObject "BatchUpdateDocumentRequest"
(\ o ->
BatchUpdateDocumentRequest' <$>
(o .:? "requests" .!= mempty) <*>
(o .:? "writeControl"))
instance ToJSON BatchUpdateDocumentRequest where
toJSON BatchUpdateDocumentRequest'{..}
= object
(catMaybes
[("requests" .=) <$> _bRequests,
("writeControl" .=) <$> _bWriteControl])
newtype ListProperties =
ListProperties'
{ _lpNestingLevels :: Maybe [NestingLevel]
}
deriving (Eq, Show, Data, Typeable, Generic)
listProperties
:: ListProperties
listProperties = ListProperties' {_lpNestingLevels = Nothing}
lpNestingLevels :: Lens' ListProperties [NestingLevel]
lpNestingLevels
= lens _lpNestingLevels
(\ s a -> s{_lpNestingLevels = a})
. _Default
. _Coerce
instance FromJSON ListProperties where
parseJSON
= withObject "ListProperties"
(\ o ->
ListProperties' <$>
(o .:? "nestingLevels" .!= mempty))
instance ToJSON ListProperties where
toJSON ListProperties'{..}
= object
(catMaybes
[("nestingLevels" .=) <$> _lpNestingLevels])
data InsertTextRequest =
InsertTextRequest'
{ _iLocation :: !(Maybe Location)
, _iText :: !(Maybe Text)
, _iEndOfSegmentLocation :: !(Maybe EndOfSegmentLocation)
}
deriving (Eq, Show, Data, Typeable, Generic)
insertTextRequest
:: InsertTextRequest
insertTextRequest =
InsertTextRequest'
{_iLocation = Nothing, _iText = Nothing, _iEndOfSegmentLocation = Nothing}
iLocation :: Lens' InsertTextRequest (Maybe Location)
iLocation
= lens _iLocation (\ s a -> s{_iLocation = a})
iText :: Lens' InsertTextRequest (Maybe Text)
iText = lens _iText (\ s a -> s{_iText = a})
iEndOfSegmentLocation :: Lens' InsertTextRequest (Maybe EndOfSegmentLocation)
iEndOfSegmentLocation
= lens _iEndOfSegmentLocation
(\ s a -> s{_iEndOfSegmentLocation = a})
instance FromJSON InsertTextRequest where
parseJSON
= withObject "InsertTextRequest"
(\ o ->
InsertTextRequest' <$>
(o .:? "location") <*> (o .:? "text") <*>
(o .:? "endOfSegmentLocation"))
instance ToJSON InsertTextRequest where
toJSON InsertTextRequest'{..}
= object
(catMaybes
[("location" .=) <$> _iLocation,
("text" .=) <$> _iText,
("endOfSegmentLocation" .=) <$>
_iEndOfSegmentLocation])
newtype ColumnBreakSuggestedTextStyleChanges =
ColumnBreakSuggestedTextStyleChanges'
{ _cbstscAddtional :: HashMap Text SuggestedTextStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
columnBreakSuggestedTextStyleChanges
:: HashMap Text SuggestedTextStyle
-> ColumnBreakSuggestedTextStyleChanges
columnBreakSuggestedTextStyleChanges pCbstscAddtional_ =
ColumnBreakSuggestedTextStyleChanges'
{_cbstscAddtional = _Coerce # pCbstscAddtional_}
cbstscAddtional :: Lens' ColumnBreakSuggestedTextStyleChanges (HashMap Text SuggestedTextStyle)
cbstscAddtional
= lens _cbstscAddtional
(\ s a -> s{_cbstscAddtional = a})
. _Coerce
instance FromJSON
ColumnBreakSuggestedTextStyleChanges
where
parseJSON
= withObject "ColumnBreakSuggestedTextStyleChanges"
(\ o ->
ColumnBreakSuggestedTextStyleChanges' <$>
(parseJSONObject o))
instance ToJSON ColumnBreakSuggestedTextStyleChanges
where
toJSON = toJSON . _cbstscAddtional
newtype FootNoteReferenceSuggestedTextStyleChanges =
FootNoteReferenceSuggestedTextStyleChanges'
{ _fnrstscAddtional :: HashMap Text SuggestedTextStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
footNoteReferenceSuggestedTextStyleChanges
:: HashMap Text SuggestedTextStyle
-> FootNoteReferenceSuggestedTextStyleChanges
footNoteReferenceSuggestedTextStyleChanges pFnrstscAddtional_ =
FootNoteReferenceSuggestedTextStyleChanges'
{_fnrstscAddtional = _Coerce # pFnrstscAddtional_}
fnrstscAddtional :: Lens' FootNoteReferenceSuggestedTextStyleChanges (HashMap Text SuggestedTextStyle)
fnrstscAddtional
= lens _fnrstscAddtional
(\ s a -> s{_fnrstscAddtional = a})
. _Coerce
instance FromJSON
FootNoteReferenceSuggestedTextStyleChanges
where
parseJSON
= withObject
"FootNoteReferenceSuggestedTextStyleChanges"
(\ o ->
FootNoteReferenceSuggestedTextStyleChanges' <$>
(parseJSONObject o))
instance ToJSON
FootNoteReferenceSuggestedTextStyleChanges
where
toJSON = toJSON . _fnrstscAddtional
newtype DocumentHeaders =
DocumentHeaders'
{ _dhAddtional :: HashMap Text Header
}
deriving (Eq, Show, Data, Typeable, Generic)
documentHeaders
:: HashMap Text Header
-> DocumentHeaders
documentHeaders pDhAddtional_ =
DocumentHeaders' {_dhAddtional = _Coerce # pDhAddtional_}
dhAddtional :: Lens' DocumentHeaders (HashMap Text Header)
dhAddtional
= lens _dhAddtional (\ s a -> s{_dhAddtional = a}) .
_Coerce
instance FromJSON DocumentHeaders where
parseJSON
= withObject "DocumentHeaders"
(\ o -> DocumentHeaders' <$> (parseJSONObject o))
instance ToJSON DocumentHeaders where
toJSON = toJSON . _dhAddtional
newtype TableRowStyle =
TableRowStyle'
{ _trsMinRowHeight :: Maybe Dimension
}
deriving (Eq, Show, Data, Typeable, Generic)
tableRowStyle
:: TableRowStyle
tableRowStyle = TableRowStyle' {_trsMinRowHeight = Nothing}
trsMinRowHeight :: Lens' TableRowStyle (Maybe Dimension)
trsMinRowHeight
= lens _trsMinRowHeight
(\ s a -> s{_trsMinRowHeight = a})
instance FromJSON TableRowStyle where
parseJSON
= withObject "TableRowStyle"
(\ o -> TableRowStyle' <$> (o .:? "minRowHeight"))
instance ToJSON TableRowStyle where
toJSON TableRowStyle'{..}
= object
(catMaybes
[("minRowHeight" .=) <$> _trsMinRowHeight])
data SectionBreak =
SectionBreak'
{ _sbSuggestedInsertionIds :: !(Maybe [Text])
, _sbSuggestedDeletionIds :: !(Maybe [Text])
, _sbSectionStyle :: !(Maybe SectionStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
sectionBreak
:: SectionBreak
sectionBreak =
SectionBreak'
{ _sbSuggestedInsertionIds = Nothing
, _sbSuggestedDeletionIds = Nothing
, _sbSectionStyle = Nothing
}
sbSuggestedInsertionIds :: Lens' SectionBreak [Text]
sbSuggestedInsertionIds
= lens _sbSuggestedInsertionIds
(\ s a -> s{_sbSuggestedInsertionIds = a})
. _Default
. _Coerce
sbSuggestedDeletionIds :: Lens' SectionBreak [Text]
sbSuggestedDeletionIds
= lens _sbSuggestedDeletionIds
(\ s a -> s{_sbSuggestedDeletionIds = a})
. _Default
. _Coerce
sbSectionStyle :: Lens' SectionBreak (Maybe SectionStyle)
sbSectionStyle
= lens _sbSectionStyle
(\ s a -> s{_sbSectionStyle = a})
instance FromJSON SectionBreak where
parseJSON
= withObject "SectionBreak"
(\ o ->
SectionBreak' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "sectionStyle"))
instance ToJSON SectionBreak where
toJSON SectionBreak'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_sbSuggestedInsertionIds,
("suggestedDeletionIds" .=) <$>
_sbSuggestedDeletionIds,
("sectionStyle" .=) <$> _sbSectionStyle])
data Table =
Table'
{ _tabSuggestedInsertionIds :: !(Maybe [Text])
, _tabTableRows :: !(Maybe [TableRow])
, _tabRows :: !(Maybe (Textual Int32))
, _tabTableStyle :: !(Maybe TableStyle)
, _tabSuggestedDeletionIds :: !(Maybe [Text])
, _tabColumns :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
table
:: Table
table =
Table'
{ _tabSuggestedInsertionIds = Nothing
, _tabTableRows = Nothing
, _tabRows = Nothing
, _tabTableStyle = Nothing
, _tabSuggestedDeletionIds = Nothing
, _tabColumns = Nothing
}
tabSuggestedInsertionIds :: Lens' Table [Text]
tabSuggestedInsertionIds
= lens _tabSuggestedInsertionIds
(\ s a -> s{_tabSuggestedInsertionIds = a})
. _Default
. _Coerce
tabTableRows :: Lens' Table [TableRow]
tabTableRows
= lens _tabTableRows (\ s a -> s{_tabTableRows = a})
. _Default
. _Coerce
tabRows :: Lens' Table (Maybe Int32)
tabRows
= lens _tabRows (\ s a -> s{_tabRows = a}) .
mapping _Coerce
tabTableStyle :: Lens' Table (Maybe TableStyle)
tabTableStyle
= lens _tabTableStyle
(\ s a -> s{_tabTableStyle = a})
tabSuggestedDeletionIds :: Lens' Table [Text]
tabSuggestedDeletionIds
= lens _tabSuggestedDeletionIds
(\ s a -> s{_tabSuggestedDeletionIds = a})
. _Default
. _Coerce
tabColumns :: Lens' Table (Maybe Int32)
tabColumns
= lens _tabColumns (\ s a -> s{_tabColumns = a}) .
mapping _Coerce
instance FromJSON Table where
parseJSON
= withObject "Table"
(\ o ->
Table' <$>
(o .:? "suggestedInsertionIds" .!= mempty) <*>
(o .:? "tableRows" .!= mempty)
<*> (o .:? "rows")
<*> (o .:? "tableStyle")
<*> (o .:? "suggestedDeletionIds" .!= mempty)
<*> (o .:? "columns"))
instance ToJSON Table where
toJSON Table'{..}
= object
(catMaybes
[("suggestedInsertionIds" .=) <$>
_tabSuggestedInsertionIds,
("tableRows" .=) <$> _tabTableRows,
("rows" .=) <$> _tabRows,
("tableStyle" .=) <$> _tabTableStyle,
("suggestedDeletionIds" .=) <$>
_tabSuggestedDeletionIds,
("columns" .=) <$> _tabColumns])
data SectionStyle =
SectionStyle'
{ _ssColumnSeparatorStyle :: !(Maybe SectionStyleColumnSeparatorStyle)
, _ssContentDirection :: !(Maybe SectionStyleContentDirection)
, _ssColumnProperties :: !(Maybe [SectionColumnProperties])
}
deriving (Eq, Show, Data, Typeable, Generic)
sectionStyle
:: SectionStyle
sectionStyle =
SectionStyle'
{ _ssColumnSeparatorStyle = Nothing
, _ssContentDirection = Nothing
, _ssColumnProperties = Nothing
}
ssColumnSeparatorStyle :: Lens' SectionStyle (Maybe SectionStyleColumnSeparatorStyle)
ssColumnSeparatorStyle
= lens _ssColumnSeparatorStyle
(\ s a -> s{_ssColumnSeparatorStyle = a})
ssContentDirection :: Lens' SectionStyle (Maybe SectionStyleContentDirection)
ssContentDirection
= lens _ssContentDirection
(\ s a -> s{_ssContentDirection = a})
ssColumnProperties :: Lens' SectionStyle [SectionColumnProperties]
ssColumnProperties
= lens _ssColumnProperties
(\ s a -> s{_ssColumnProperties = a})
. _Default
. _Coerce
instance FromJSON SectionStyle where
parseJSON
= withObject "SectionStyle"
(\ o ->
SectionStyle' <$>
(o .:? "columnSeparatorStyle") <*>
(o .:? "contentDirection")
<*> (o .:? "columnProperties" .!= mempty))
instance ToJSON SectionStyle where
toJSON SectionStyle'{..}
= object
(catMaybes
[("columnSeparatorStyle" .=) <$>
_ssColumnSeparatorStyle,
("contentDirection" .=) <$> _ssContentDirection,
("columnProperties" .=) <$> _ssColumnProperties])
newtype BackgRound =
BackgRound'
{ _brColor :: Maybe OptionalColor
}
deriving (Eq, Show, Data, Typeable, Generic)
backgRound
:: BackgRound
backgRound = BackgRound' {_brColor = Nothing}
brColor :: Lens' BackgRound (Maybe OptionalColor)
brColor = lens _brColor (\ s a -> s{_brColor = a})
instance FromJSON BackgRound where
parseJSON
= withObject "BackgRound"
(\ o -> BackgRound' <$> (o .:? "color"))
instance ToJSON BackgRound where
toJSON BackgRound'{..}
= object (catMaybes [("color" .=) <$> _brColor])
data SuggestedListProperties =
SuggestedListProperties'
{ _slpListPropertiesSuggestionState :: !(Maybe ListPropertiesSuggestionState)
, _slpListProperties :: !(Maybe ListProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedListProperties
:: SuggestedListProperties
suggestedListProperties =
SuggestedListProperties'
{_slpListPropertiesSuggestionState = Nothing, _slpListProperties = Nothing}
slpListPropertiesSuggestionState :: Lens' SuggestedListProperties (Maybe ListPropertiesSuggestionState)
slpListPropertiesSuggestionState
= lens _slpListPropertiesSuggestionState
(\ s a -> s{_slpListPropertiesSuggestionState = a})
slpListProperties :: Lens' SuggestedListProperties (Maybe ListProperties)
slpListProperties
= lens _slpListProperties
(\ s a -> s{_slpListProperties = a})
instance FromJSON SuggestedListProperties where
parseJSON
= withObject "SuggestedListProperties"
(\ o ->
SuggestedListProperties' <$>
(o .:? "listPropertiesSuggestionState") <*>
(o .:? "listProperties"))
instance ToJSON SuggestedListProperties where
toJSON SuggestedListProperties'{..}
= object
(catMaybes
[("listPropertiesSuggestionState" .=) <$>
_slpListPropertiesSuggestionState,
("listProperties" .=) <$> _slpListProperties])
data SectionColumnProperties =
SectionColumnProperties'
{ _scpWidth :: !(Maybe Dimension)
, _scpPaddingEnd :: !(Maybe Dimension)
}
deriving (Eq, Show, Data, Typeable, Generic)
sectionColumnProperties
:: SectionColumnProperties
sectionColumnProperties =
SectionColumnProperties' {_scpWidth = Nothing, _scpPaddingEnd = Nothing}
scpWidth :: Lens' SectionColumnProperties (Maybe Dimension)
scpWidth = lens _scpWidth (\ s a -> s{_scpWidth = a})
scpPaddingEnd :: Lens' SectionColumnProperties (Maybe Dimension)
scpPaddingEnd
= lens _scpPaddingEnd
(\ s a -> s{_scpPaddingEnd = a})
instance FromJSON SectionColumnProperties where
parseJSON
= withObject "SectionColumnProperties"
(\ o ->
SectionColumnProperties' <$>
(o .:? "width") <*> (o .:? "paddingEnd"))
instance ToJSON SectionColumnProperties where
toJSON SectionColumnProperties'{..}
= object
(catMaybes
[("width" .=) <$> _scpWidth,
("paddingEnd" .=) <$> _scpPaddingEnd])
data CreateParagraphBulletsRequest =
CreateParagraphBulletsRequest'
{ _cpbrBulletPreset :: !(Maybe CreateParagraphBulletsRequestBulletPreset)
, _cpbrRange :: !(Maybe Range)
}
deriving (Eq, Show, Data, Typeable, Generic)
createParagraphBulletsRequest
:: CreateParagraphBulletsRequest
createParagraphBulletsRequest =
CreateParagraphBulletsRequest'
{_cpbrBulletPreset = Nothing, _cpbrRange = Nothing}
cpbrBulletPreset :: Lens' CreateParagraphBulletsRequest (Maybe CreateParagraphBulletsRequestBulletPreset)
cpbrBulletPreset
= lens _cpbrBulletPreset
(\ s a -> s{_cpbrBulletPreset = a})
cpbrRange :: Lens' CreateParagraphBulletsRequest (Maybe Range)
cpbrRange
= lens _cpbrRange (\ s a -> s{_cpbrRange = a})
instance FromJSON CreateParagraphBulletsRequest where
parseJSON
= withObject "CreateParagraphBulletsRequest"
(\ o ->
CreateParagraphBulletsRequest' <$>
(o .:? "bulletPreset") <*> (o .:? "range"))
instance ToJSON CreateParagraphBulletsRequest where
toJSON CreateParagraphBulletsRequest'{..}
= object
(catMaybes
[("bulletPreset" .=) <$> _cpbrBulletPreset,
("range" .=) <$> _cpbrRange])
newtype DocumentFooters =
DocumentFooters'
{ _dfAddtional :: HashMap Text Footer
}
deriving (Eq, Show, Data, Typeable, Generic)
documentFooters
:: HashMap Text Footer
-> DocumentFooters
documentFooters pDfAddtional_ =
DocumentFooters' {_dfAddtional = _Coerce # pDfAddtional_}
dfAddtional :: Lens' DocumentFooters (HashMap Text Footer)
dfAddtional
= lens _dfAddtional (\ s a -> s{_dfAddtional = a}) .
_Coerce
instance FromJSON DocumentFooters where
parseJSON
= withObject "DocumentFooters"
(\ o -> DocumentFooters' <$> (parseJSONObject o))
instance ToJSON DocumentFooters where
toJSON = toJSON . _dfAddtional
data CreateNamedRangeRequest =
CreateNamedRangeRequest'
{ _cnrrName :: !(Maybe Text)
, _cnrrRange :: !(Maybe Range)
}
deriving (Eq, Show, Data, Typeable, Generic)
createNamedRangeRequest
:: CreateNamedRangeRequest
createNamedRangeRequest =
CreateNamedRangeRequest' {_cnrrName = Nothing, _cnrrRange = Nothing}
cnrrName :: Lens' CreateNamedRangeRequest (Maybe Text)
cnrrName = lens _cnrrName (\ s a -> s{_cnrrName = a})
cnrrRange :: Lens' CreateNamedRangeRequest (Maybe Range)
cnrrRange
= lens _cnrrRange (\ s a -> s{_cnrrRange = a})
instance FromJSON CreateNamedRangeRequest where
parseJSON
= withObject "CreateNamedRangeRequest"
(\ o ->
CreateNamedRangeRequest' <$>
(o .:? "name") <*> (o .:? "range"))
instance ToJSON CreateNamedRangeRequest where
toJSON CreateNamedRangeRequest'{..}
= object
(catMaybes
[("name" .=) <$> _cnrrName,
("range" .=) <$> _cnrrRange])
data TextStyleSuggestionState =
TextStyleSuggestionState'
{ _tsssItalicSuggested :: !(Maybe Bool)
, _tsssUnderlineSuggested :: !(Maybe Bool)
, _tsssFontSizeSuggested :: !(Maybe Bool)
, _tsssSmallCapsSuggested :: !(Maybe Bool)
, _tsssForegRoundColorSuggested :: !(Maybe Bool)
, _tsssBaselineOffSetSuggested :: !(Maybe Bool)
, _tsssWeightedFontFamilySuggested :: !(Maybe Bool)
, _tsssStrikethroughSuggested :: !(Maybe Bool)
, _tsssLinkSuggested :: !(Maybe Bool)
, _tsssBoldSuggested :: !(Maybe Bool)
, _tsssBackgRoundColorSuggested :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
textStyleSuggestionState
:: TextStyleSuggestionState
textStyleSuggestionState =
TextStyleSuggestionState'
{ _tsssItalicSuggested = Nothing
, _tsssUnderlineSuggested = Nothing
, _tsssFontSizeSuggested = Nothing
, _tsssSmallCapsSuggested = Nothing
, _tsssForegRoundColorSuggested = Nothing
, _tsssBaselineOffSetSuggested = Nothing
, _tsssWeightedFontFamilySuggested = Nothing
, _tsssStrikethroughSuggested = Nothing
, _tsssLinkSuggested = Nothing
, _tsssBoldSuggested = Nothing
, _tsssBackgRoundColorSuggested = Nothing
}
tsssItalicSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssItalicSuggested
= lens _tsssItalicSuggested
(\ s a -> s{_tsssItalicSuggested = a})
tsssUnderlineSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssUnderlineSuggested
= lens _tsssUnderlineSuggested
(\ s a -> s{_tsssUnderlineSuggested = a})
tsssFontSizeSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssFontSizeSuggested
= lens _tsssFontSizeSuggested
(\ s a -> s{_tsssFontSizeSuggested = a})
tsssSmallCapsSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssSmallCapsSuggested
= lens _tsssSmallCapsSuggested
(\ s a -> s{_tsssSmallCapsSuggested = a})
tsssForegRoundColorSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssForegRoundColorSuggested
= lens _tsssForegRoundColorSuggested
(\ s a -> s{_tsssForegRoundColorSuggested = a})
tsssBaselineOffSetSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssBaselineOffSetSuggested
= lens _tsssBaselineOffSetSuggested
(\ s a -> s{_tsssBaselineOffSetSuggested = a})
tsssWeightedFontFamilySuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssWeightedFontFamilySuggested
= lens _tsssWeightedFontFamilySuggested
(\ s a -> s{_tsssWeightedFontFamilySuggested = a})
tsssStrikethroughSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssStrikethroughSuggested
= lens _tsssStrikethroughSuggested
(\ s a -> s{_tsssStrikethroughSuggested = a})
tsssLinkSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssLinkSuggested
= lens _tsssLinkSuggested
(\ s a -> s{_tsssLinkSuggested = a})
tsssBoldSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssBoldSuggested
= lens _tsssBoldSuggested
(\ s a -> s{_tsssBoldSuggested = a})
tsssBackgRoundColorSuggested :: Lens' TextStyleSuggestionState (Maybe Bool)
tsssBackgRoundColorSuggested
= lens _tsssBackgRoundColorSuggested
(\ s a -> s{_tsssBackgRoundColorSuggested = a})
instance FromJSON TextStyleSuggestionState where
parseJSON
= withObject "TextStyleSuggestionState"
(\ o ->
TextStyleSuggestionState' <$>
(o .:? "italicSuggested") <*>
(o .:? "underlineSuggested")
<*> (o .:? "fontSizeSuggested")
<*> (o .:? "smallCapsSuggested")
<*> (o .:? "foregroundColorSuggested")
<*> (o .:? "baselineOffsetSuggested")
<*> (o .:? "weightedFontFamilySuggested")
<*> (o .:? "strikethroughSuggested")
<*> (o .:? "linkSuggested")
<*> (o .:? "boldSuggested")
<*> (o .:? "backgroundColorSuggested"))
instance ToJSON TextStyleSuggestionState where
toJSON TextStyleSuggestionState'{..}
= object
(catMaybes
[("italicSuggested" .=) <$> _tsssItalicSuggested,
("underlineSuggested" .=) <$>
_tsssUnderlineSuggested,
("fontSizeSuggested" .=) <$> _tsssFontSizeSuggested,
("smallCapsSuggested" .=) <$>
_tsssSmallCapsSuggested,
("foregroundColorSuggested" .=) <$>
_tsssForegRoundColorSuggested,
("baselineOffsetSuggested" .=) <$>
_tsssBaselineOffSetSuggested,
("weightedFontFamilySuggested" .=) <$>
_tsssWeightedFontFamilySuggested,
("strikethroughSuggested" .=) <$>
_tsssStrikethroughSuggested,
("linkSuggested" .=) <$> _tsssLinkSuggested,
("boldSuggested" .=) <$> _tsssBoldSuggested,
("backgroundColorSuggested" .=) <$>
_tsssBackgRoundColorSuggested])
data NestingLevelSuggestionState =
NestingLevelSuggestionState'
{ _nlssGlyphFormatSuggested :: !(Maybe Bool)
, _nlssBulletAlignmentSuggested :: !(Maybe Bool)
, _nlssGlyphTypeSuggested :: !(Maybe Bool)
, _nlssStartNumberSuggested :: !(Maybe Bool)
, _nlssIndentStartSuggested :: !(Maybe Bool)
, _nlssGlyphSymbolSuggested :: !(Maybe Bool)
, _nlssIndentFirstLineSuggested :: !(Maybe Bool)
, _nlssTextStyleSuggestionState :: !(Maybe TextStyleSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
nestingLevelSuggestionState
:: NestingLevelSuggestionState
nestingLevelSuggestionState =
NestingLevelSuggestionState'
{ _nlssGlyphFormatSuggested = Nothing
, _nlssBulletAlignmentSuggested = Nothing
, _nlssGlyphTypeSuggested = Nothing
, _nlssStartNumberSuggested = Nothing
, _nlssIndentStartSuggested = Nothing
, _nlssGlyphSymbolSuggested = Nothing
, _nlssIndentFirstLineSuggested = Nothing
, _nlssTextStyleSuggestionState = Nothing
}
nlssGlyphFormatSuggested :: Lens' NestingLevelSuggestionState (Maybe Bool)
nlssGlyphFormatSuggested
= lens _nlssGlyphFormatSuggested
(\ s a -> s{_nlssGlyphFormatSuggested = a})
nlssBulletAlignmentSuggested :: Lens' NestingLevelSuggestionState (Maybe Bool)
nlssBulletAlignmentSuggested
= lens _nlssBulletAlignmentSuggested
(\ s a -> s{_nlssBulletAlignmentSuggested = a})
nlssGlyphTypeSuggested :: Lens' NestingLevelSuggestionState (Maybe Bool)
nlssGlyphTypeSuggested
= lens _nlssGlyphTypeSuggested
(\ s a -> s{_nlssGlyphTypeSuggested = a})
nlssStartNumberSuggested :: Lens' NestingLevelSuggestionState (Maybe Bool)
nlssStartNumberSuggested
= lens _nlssStartNumberSuggested
(\ s a -> s{_nlssStartNumberSuggested = a})
nlssIndentStartSuggested :: Lens' NestingLevelSuggestionState (Maybe Bool)
nlssIndentStartSuggested
= lens _nlssIndentStartSuggested
(\ s a -> s{_nlssIndentStartSuggested = a})
nlssGlyphSymbolSuggested :: Lens' NestingLevelSuggestionState (Maybe Bool)
nlssGlyphSymbolSuggested
= lens _nlssGlyphSymbolSuggested
(\ s a -> s{_nlssGlyphSymbolSuggested = a})
nlssIndentFirstLineSuggested :: Lens' NestingLevelSuggestionState (Maybe Bool)
nlssIndentFirstLineSuggested
= lens _nlssIndentFirstLineSuggested
(\ s a -> s{_nlssIndentFirstLineSuggested = a})
nlssTextStyleSuggestionState :: Lens' NestingLevelSuggestionState (Maybe TextStyleSuggestionState)
nlssTextStyleSuggestionState
= lens _nlssTextStyleSuggestionState
(\ s a -> s{_nlssTextStyleSuggestionState = a})
instance FromJSON NestingLevelSuggestionState where
parseJSON
= withObject "NestingLevelSuggestionState"
(\ o ->
NestingLevelSuggestionState' <$>
(o .:? "glyphFormatSuggested") <*>
(o .:? "bulletAlignmentSuggested")
<*> (o .:? "glyphTypeSuggested")
<*> (o .:? "startNumberSuggested")
<*> (o .:? "indentStartSuggested")
<*> (o .:? "glyphSymbolSuggested")
<*> (o .:? "indentFirstLineSuggested")
<*> (o .:? "textStyleSuggestionState"))
instance ToJSON NestingLevelSuggestionState where
toJSON NestingLevelSuggestionState'{..}
= object
(catMaybes
[("glyphFormatSuggested" .=) <$>
_nlssGlyphFormatSuggested,
("bulletAlignmentSuggested" .=) <$>
_nlssBulletAlignmentSuggested,
("glyphTypeSuggested" .=) <$>
_nlssGlyphTypeSuggested,
("startNumberSuggested" .=) <$>
_nlssStartNumberSuggested,
("indentStartSuggested" .=) <$>
_nlssIndentStartSuggested,
("glyphSymbolSuggested" .=) <$>
_nlssGlyphSymbolSuggested,
("indentFirstLineSuggested" .=) <$>
_nlssIndentFirstLineSuggested,
("textStyleSuggestionState" .=) <$>
_nlssTextStyleSuggestionState])
data ParagraphStyle =
ParagraphStyle'
{ _psBOrderRight :: !(Maybe ParagraphBOrder)
, _psKeepLinesTogether :: !(Maybe Bool)
, _psTabStops :: !(Maybe [TabStop])
, _psBOrderTop :: !(Maybe ParagraphBOrder)
, _psLineSpacing :: !(Maybe (Textual Double))
, _psDirection :: !(Maybe ParagraphStyleDirection)
, _psIndentFirstLine :: !(Maybe Dimension)
, _psIndentEnd :: !(Maybe Dimension)
, _psShading :: !(Maybe Shading)
, _psAvoidWidowAndOrphan :: !(Maybe Bool)
, _psNamedStyleType :: !(Maybe ParagraphStyleNamedStyleType)
, _psIndentStart :: !(Maybe Dimension)
, _psAlignment :: !(Maybe ParagraphStyleAlignment)
, _psBOrderLeft :: !(Maybe ParagraphBOrder)
, _psSpaceBelow :: !(Maybe Dimension)
, _psSpacingMode :: !(Maybe ParagraphStyleSpacingMode)
, _psHeadingId :: !(Maybe Text)
, _psSpaceAbove :: !(Maybe Dimension)
, _psBOrderBottom :: !(Maybe ParagraphBOrder)
, _psKeepWithNext :: !(Maybe Bool)
, _psBOrderBetween :: !(Maybe ParagraphBOrder)
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphStyle
:: ParagraphStyle
paragraphStyle =
ParagraphStyle'
{ _psBOrderRight = Nothing
, _psKeepLinesTogether = Nothing
, _psTabStops = Nothing
, _psBOrderTop = Nothing
, _psLineSpacing = Nothing
, _psDirection = Nothing
, _psIndentFirstLine = Nothing
, _psIndentEnd = Nothing
, _psShading = Nothing
, _psAvoidWidowAndOrphan = Nothing
, _psNamedStyleType = Nothing
, _psIndentStart = Nothing
, _psAlignment = Nothing
, _psBOrderLeft = Nothing
, _psSpaceBelow = Nothing
, _psSpacingMode = Nothing
, _psHeadingId = Nothing
, _psSpaceAbove = Nothing
, _psBOrderBottom = Nothing
, _psKeepWithNext = Nothing
, _psBOrderBetween = Nothing
}
psBOrderRight :: Lens' ParagraphStyle (Maybe ParagraphBOrder)
psBOrderRight
= lens _psBOrderRight
(\ s a -> s{_psBOrderRight = a})
psKeepLinesTogether :: Lens' ParagraphStyle (Maybe Bool)
psKeepLinesTogether
= lens _psKeepLinesTogether
(\ s a -> s{_psKeepLinesTogether = a})
psTabStops :: Lens' ParagraphStyle [TabStop]
psTabStops
= lens _psTabStops (\ s a -> s{_psTabStops = a}) .
_Default
. _Coerce
psBOrderTop :: Lens' ParagraphStyle (Maybe ParagraphBOrder)
psBOrderTop
= lens _psBOrderTop (\ s a -> s{_psBOrderTop = a})
psLineSpacing :: Lens' ParagraphStyle (Maybe Double)
psLineSpacing
= lens _psLineSpacing
(\ s a -> s{_psLineSpacing = a})
. mapping _Coerce
psDirection :: Lens' ParagraphStyle (Maybe ParagraphStyleDirection)
psDirection
= lens _psDirection (\ s a -> s{_psDirection = a})
psIndentFirstLine :: Lens' ParagraphStyle (Maybe Dimension)
psIndentFirstLine
= lens _psIndentFirstLine
(\ s a -> s{_psIndentFirstLine = a})
psIndentEnd :: Lens' ParagraphStyle (Maybe Dimension)
psIndentEnd
= lens _psIndentEnd (\ s a -> s{_psIndentEnd = a})
psShading :: Lens' ParagraphStyle (Maybe Shading)
psShading
= lens _psShading (\ s a -> s{_psShading = a})
psAvoidWidowAndOrphan :: Lens' ParagraphStyle (Maybe Bool)
psAvoidWidowAndOrphan
= lens _psAvoidWidowAndOrphan
(\ s a -> s{_psAvoidWidowAndOrphan = a})
psNamedStyleType :: Lens' ParagraphStyle (Maybe ParagraphStyleNamedStyleType)
psNamedStyleType
= lens _psNamedStyleType
(\ s a -> s{_psNamedStyleType = a})
psIndentStart :: Lens' ParagraphStyle (Maybe Dimension)
psIndentStart
= lens _psIndentStart
(\ s a -> s{_psIndentStart = a})
psAlignment :: Lens' ParagraphStyle (Maybe ParagraphStyleAlignment)
psAlignment
= lens _psAlignment (\ s a -> s{_psAlignment = a})
psBOrderLeft :: Lens' ParagraphStyle (Maybe ParagraphBOrder)
psBOrderLeft
= lens _psBOrderLeft (\ s a -> s{_psBOrderLeft = a})
psSpaceBelow :: Lens' ParagraphStyle (Maybe Dimension)
psSpaceBelow
= lens _psSpaceBelow (\ s a -> s{_psSpaceBelow = a})
psSpacingMode :: Lens' ParagraphStyle (Maybe ParagraphStyleSpacingMode)
psSpacingMode
= lens _psSpacingMode
(\ s a -> s{_psSpacingMode = a})
psHeadingId :: Lens' ParagraphStyle (Maybe Text)
psHeadingId
= lens _psHeadingId (\ s a -> s{_psHeadingId = a})
psSpaceAbove :: Lens' ParagraphStyle (Maybe Dimension)
psSpaceAbove
= lens _psSpaceAbove (\ s a -> s{_psSpaceAbove = a})
psBOrderBottom :: Lens' ParagraphStyle (Maybe ParagraphBOrder)
psBOrderBottom
= lens _psBOrderBottom
(\ s a -> s{_psBOrderBottom = a})
psKeepWithNext :: Lens' ParagraphStyle (Maybe Bool)
psKeepWithNext
= lens _psKeepWithNext
(\ s a -> s{_psKeepWithNext = a})
psBOrderBetween :: Lens' ParagraphStyle (Maybe ParagraphBOrder)
psBOrderBetween
= lens _psBOrderBetween
(\ s a -> s{_psBOrderBetween = a})
instance FromJSON ParagraphStyle where
parseJSON
= withObject "ParagraphStyle"
(\ o ->
ParagraphStyle' <$>
(o .:? "borderRight") <*> (o .:? "keepLinesTogether")
<*> (o .:? "tabStops" .!= mempty)
<*> (o .:? "borderTop")
<*> (o .:? "lineSpacing")
<*> (o .:? "direction")
<*> (o .:? "indentFirstLine")
<*> (o .:? "indentEnd")
<*> (o .:? "shading")
<*> (o .:? "avoidWidowAndOrphan")
<*> (o .:? "namedStyleType")
<*> (o .:? "indentStart")
<*> (o .:? "alignment")
<*> (o .:? "borderLeft")
<*> (o .:? "spaceBelow")
<*> (o .:? "spacingMode")
<*> (o .:? "headingId")
<*> (o .:? "spaceAbove")
<*> (o .:? "borderBottom")
<*> (o .:? "keepWithNext")
<*> (o .:? "borderBetween"))
instance ToJSON ParagraphStyle where
toJSON ParagraphStyle'{..}
= object
(catMaybes
[("borderRight" .=) <$> _psBOrderRight,
("keepLinesTogether" .=) <$> _psKeepLinesTogether,
("tabStops" .=) <$> _psTabStops,
("borderTop" .=) <$> _psBOrderTop,
("lineSpacing" .=) <$> _psLineSpacing,
("direction" .=) <$> _psDirection,
("indentFirstLine" .=) <$> _psIndentFirstLine,
("indentEnd" .=) <$> _psIndentEnd,
("shading" .=) <$> _psShading,
("avoidWidowAndOrphan" .=) <$>
_psAvoidWidowAndOrphan,
("namedStyleType" .=) <$> _psNamedStyleType,
("indentStart" .=) <$> _psIndentStart,
("alignment" .=) <$> _psAlignment,
("borderLeft" .=) <$> _psBOrderLeft,
("spaceBelow" .=) <$> _psSpaceBelow,
("spacingMode" .=) <$> _psSpacingMode,
("headingId" .=) <$> _psHeadingId,
("spaceAbove" .=) <$> _psSpaceAbove,
("borderBottom" .=) <$> _psBOrderBottom,
("keepWithNext" .=) <$> _psKeepWithNext,
("borderBetween" .=) <$> _psBOrderBetween])
data SuggestedPositionedObjectProperties =
SuggestedPositionedObjectProperties'
{ _spopPositionedObjectProperties :: !(Maybe PositionedObjectProperties)
, _spopPositionedObjectPropertiesSuggestionState :: !(Maybe PositionedObjectPropertiesSuggestionState)
}
deriving (Eq, Show, Data, Typeable, Generic)
suggestedPositionedObjectProperties
:: SuggestedPositionedObjectProperties
suggestedPositionedObjectProperties =
SuggestedPositionedObjectProperties'
{ _spopPositionedObjectProperties = Nothing
, _spopPositionedObjectPropertiesSuggestionState = Nothing
}
spopPositionedObjectProperties :: Lens' SuggestedPositionedObjectProperties (Maybe PositionedObjectProperties)
spopPositionedObjectProperties
= lens _spopPositionedObjectProperties
(\ s a -> s{_spopPositionedObjectProperties = a})
spopPositionedObjectPropertiesSuggestionState :: Lens' SuggestedPositionedObjectProperties (Maybe PositionedObjectPropertiesSuggestionState)
spopPositionedObjectPropertiesSuggestionState
= lens _spopPositionedObjectPropertiesSuggestionState
(\ s a ->
s{_spopPositionedObjectPropertiesSuggestionState =
a})
instance FromJSON SuggestedPositionedObjectProperties
where
parseJSON
= withObject "SuggestedPositionedObjectProperties"
(\ o ->
SuggestedPositionedObjectProperties' <$>
(o .:? "positionedObjectProperties") <*>
(o .:? "positionedObjectPropertiesSuggestionState"))
instance ToJSON SuggestedPositionedObjectProperties
where
toJSON SuggestedPositionedObjectProperties'{..}
= object
(catMaybes
[("positionedObjectProperties" .=) <$>
_spopPositionedObjectProperties,
("positionedObjectPropertiesSuggestionState" .=) <$>
_spopPositionedObjectPropertiesSuggestionState])
data TableColumnProperties =
TableColumnProperties'
{ _tcpWidth :: !(Maybe Dimension)
, _tcpWidthType :: !(Maybe TableColumnPropertiesWidthType)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableColumnProperties
:: TableColumnProperties
tableColumnProperties =
TableColumnProperties' {_tcpWidth = Nothing, _tcpWidthType = Nothing}
tcpWidth :: Lens' TableColumnProperties (Maybe Dimension)
tcpWidth = lens _tcpWidth (\ s a -> s{_tcpWidth = a})
tcpWidthType :: Lens' TableColumnProperties (Maybe TableColumnPropertiesWidthType)
tcpWidthType
= lens _tcpWidthType (\ s a -> s{_tcpWidthType = a})
instance FromJSON TableColumnProperties where
parseJSON
= withObject "TableColumnProperties"
(\ o ->
TableColumnProperties' <$>
(o .:? "width") <*> (o .:? "widthType"))
instance ToJSON TableColumnProperties where
toJSON TableColumnProperties'{..}
= object
(catMaybes
[("width" .=) <$> _tcpWidth,
("widthType" .=) <$> _tcpWidthType])
data UpdateParagraphStyleRequest =
UpdateParagraphStyleRequest'
{ _upsrRange :: !(Maybe Range)
, _upsrFields :: !(Maybe GFieldMask)
, _upsrParagraphStyle :: !(Maybe ParagraphStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateParagraphStyleRequest
:: UpdateParagraphStyleRequest
updateParagraphStyleRequest =
UpdateParagraphStyleRequest'
{_upsrRange = Nothing, _upsrFields = Nothing, _upsrParagraphStyle = Nothing}
upsrRange :: Lens' UpdateParagraphStyleRequest (Maybe Range)
upsrRange
= lens _upsrRange (\ s a -> s{_upsrRange = a})
upsrFields :: Lens' UpdateParagraphStyleRequest (Maybe GFieldMask)
upsrFields
= lens _upsrFields (\ s a -> s{_upsrFields = a})
upsrParagraphStyle :: Lens' UpdateParagraphStyleRequest (Maybe ParagraphStyle)
upsrParagraphStyle
= lens _upsrParagraphStyle
(\ s a -> s{_upsrParagraphStyle = a})
instance FromJSON UpdateParagraphStyleRequest where
parseJSON
= withObject "UpdateParagraphStyleRequest"
(\ o ->
UpdateParagraphStyleRequest' <$>
(o .:? "range") <*> (o .:? "fields") <*>
(o .:? "paragraphStyle"))
instance ToJSON UpdateParagraphStyleRequest where
toJSON UpdateParagraphStyleRequest'{..}
= object
(catMaybes
[("range" .=) <$> _upsrRange,
("fields" .=) <$> _upsrFields,
("paragraphStyle" .=) <$> _upsrParagraphStyle])
data ReplaceAllTextRequest =
ReplaceAllTextRequest'
{ _ratrContainsText :: !(Maybe SubstringMatchCriteria)
, _ratrReplaceText :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
replaceAllTextRequest
:: ReplaceAllTextRequest
replaceAllTextRequest =
ReplaceAllTextRequest'
{_ratrContainsText = Nothing, _ratrReplaceText = Nothing}
ratrContainsText :: Lens' ReplaceAllTextRequest (Maybe SubstringMatchCriteria)
ratrContainsText
= lens _ratrContainsText
(\ s a -> s{_ratrContainsText = a})
ratrReplaceText :: Lens' ReplaceAllTextRequest (Maybe Text)
ratrReplaceText
= lens _ratrReplaceText
(\ s a -> s{_ratrReplaceText = a})
instance FromJSON ReplaceAllTextRequest where
parseJSON
= withObject "ReplaceAllTextRequest"
(\ o ->
ReplaceAllTextRequest' <$>
(o .:? "containsText") <*> (o .:? "replaceText"))
instance ToJSON ReplaceAllTextRequest where
toJSON ReplaceAllTextRequest'{..}
= object
(catMaybes
[("containsText" .=) <$> _ratrContainsText,
("replaceText" .=) <$> _ratrReplaceText])
newtype DocumentPositionedObjects =
DocumentPositionedObjects'
{ _dpoAddtional :: HashMap Text PositionedObject
}
deriving (Eq, Show, Data, Typeable, Generic)
documentPositionedObjects
:: HashMap Text PositionedObject
-> DocumentPositionedObjects
documentPositionedObjects pDpoAddtional_ =
DocumentPositionedObjects' {_dpoAddtional = _Coerce # pDpoAddtional_}
dpoAddtional :: Lens' DocumentPositionedObjects (HashMap Text PositionedObject)
dpoAddtional
= lens _dpoAddtional (\ s a -> s{_dpoAddtional = a})
. _Coerce
instance FromJSON DocumentPositionedObjects where
parseJSON
= withObject "DocumentPositionedObjects"
(\ o ->
DocumentPositionedObjects' <$> (parseJSONObject o))
instance ToJSON DocumentPositionedObjects where
toJSON = toJSON . _dpoAddtional
data Request' =
Request''
{ _reqDeletePositionedObject :: !(Maybe DeletePositionedObjectRequest)
, _reqCreateParagraphBullets :: !(Maybe CreateParagraphBulletsRequest)
, _reqInsertText :: !(Maybe InsertTextRequest)
, _reqDeleteParagraphBullets :: !(Maybe DeleteParagraphBulletsRequest)
, _reqDeleteTableRow :: !(Maybe DeleteTableRowRequest)
, _reqDeleteNamedRange :: !(Maybe DeleteNamedRangeRequest)
, _reqReplaceAllText :: !(Maybe ReplaceAllTextRequest)
, _reqUpdateParagraphStyle :: !(Maybe UpdateParagraphStyleRequest)
, _reqCreateNamedRange :: !(Maybe CreateNamedRangeRequest)
, _reqInsertPageBreak :: !(Maybe InsertPageBreakRequest)
, _reqDeleteTableColumn :: !(Maybe DeleteTableColumnRequest)
, _reqInsertInlineImage :: !(Maybe InsertInlineImageRequest)
, _reqDeleteContentRange :: !(Maybe DeleteContentRangeRequest)
, _reqInsertTableRow :: !(Maybe InsertTableRowRequest)
, _reqUpdateTextStyle :: !(Maybe UpdateTextStyleRequest)
, _reqInsertTable :: !(Maybe InsertTableRequest)
}
deriving (Eq, Show, Data, Typeable, Generic)
request'
:: Request'
request' =
Request''
{ _reqDeletePositionedObject = Nothing
, _reqCreateParagraphBullets = Nothing
, _reqInsertText = Nothing
, _reqDeleteParagraphBullets = Nothing
, _reqDeleteTableRow = Nothing
, _reqDeleteNamedRange = Nothing
, _reqReplaceAllText = Nothing
, _reqUpdateParagraphStyle = Nothing
, _reqCreateNamedRange = Nothing
, _reqInsertPageBreak = Nothing
, _reqDeleteTableColumn = Nothing
, _reqInsertInlineImage = Nothing
, _reqDeleteContentRange = Nothing
, _reqInsertTableRow = Nothing
, _reqUpdateTextStyle = Nothing
, _reqInsertTable = Nothing
}
reqDeletePositionedObject :: Lens' Request' (Maybe DeletePositionedObjectRequest)
reqDeletePositionedObject
= lens _reqDeletePositionedObject
(\ s a -> s{_reqDeletePositionedObject = a})
reqCreateParagraphBullets :: Lens' Request' (Maybe CreateParagraphBulletsRequest)
reqCreateParagraphBullets
= lens _reqCreateParagraphBullets
(\ s a -> s{_reqCreateParagraphBullets = a})
reqInsertText :: Lens' Request' (Maybe InsertTextRequest)
reqInsertText
= lens _reqInsertText
(\ s a -> s{_reqInsertText = a})
reqDeleteParagraphBullets :: Lens' Request' (Maybe DeleteParagraphBulletsRequest)
reqDeleteParagraphBullets
= lens _reqDeleteParagraphBullets
(\ s a -> s{_reqDeleteParagraphBullets = a})
reqDeleteTableRow :: Lens' Request' (Maybe DeleteTableRowRequest)
reqDeleteTableRow
= lens _reqDeleteTableRow
(\ s a -> s{_reqDeleteTableRow = a})
reqDeleteNamedRange :: Lens' Request' (Maybe DeleteNamedRangeRequest)
reqDeleteNamedRange
= lens _reqDeleteNamedRange
(\ s a -> s{_reqDeleteNamedRange = a})
reqReplaceAllText :: Lens' Request' (Maybe ReplaceAllTextRequest)
reqReplaceAllText
= lens _reqReplaceAllText
(\ s a -> s{_reqReplaceAllText = a})
reqUpdateParagraphStyle :: Lens' Request' (Maybe UpdateParagraphStyleRequest)
reqUpdateParagraphStyle
= lens _reqUpdateParagraphStyle
(\ s a -> s{_reqUpdateParagraphStyle = a})
reqCreateNamedRange :: Lens' Request' (Maybe CreateNamedRangeRequest)
reqCreateNamedRange
= lens _reqCreateNamedRange
(\ s a -> s{_reqCreateNamedRange = a})
reqInsertPageBreak :: Lens' Request' (Maybe InsertPageBreakRequest)
reqInsertPageBreak
= lens _reqInsertPageBreak
(\ s a -> s{_reqInsertPageBreak = a})
reqDeleteTableColumn :: Lens' Request' (Maybe DeleteTableColumnRequest)
reqDeleteTableColumn
= lens _reqDeleteTableColumn
(\ s a -> s{_reqDeleteTableColumn = a})
reqInsertInlineImage :: Lens' Request' (Maybe InsertInlineImageRequest)
reqInsertInlineImage
= lens _reqInsertInlineImage
(\ s a -> s{_reqInsertInlineImage = a})
reqDeleteContentRange :: Lens' Request' (Maybe DeleteContentRangeRequest)
reqDeleteContentRange
= lens _reqDeleteContentRange
(\ s a -> s{_reqDeleteContentRange = a})
reqInsertTableRow :: Lens' Request' (Maybe InsertTableRowRequest)
reqInsertTableRow
= lens _reqInsertTableRow
(\ s a -> s{_reqInsertTableRow = a})
reqUpdateTextStyle :: Lens' Request' (Maybe UpdateTextStyleRequest)
reqUpdateTextStyle
= lens _reqUpdateTextStyle
(\ s a -> s{_reqUpdateTextStyle = a})
reqInsertTable :: Lens' Request' (Maybe InsertTableRequest)
reqInsertTable
= lens _reqInsertTable
(\ s a -> s{_reqInsertTable = a})
instance FromJSON Request' where
parseJSON
= withObject "Request"
(\ o ->
Request'' <$>
(o .:? "deletePositionedObject") <*>
(o .:? "createParagraphBullets")
<*> (o .:? "insertText")
<*> (o .:? "deleteParagraphBullets")
<*> (o .:? "deleteTableRow")
<*> (o .:? "deleteNamedRange")
<*> (o .:? "replaceAllText")
<*> (o .:? "updateParagraphStyle")
<*> (o .:? "createNamedRange")
<*> (o .:? "insertPageBreak")
<*> (o .:? "deleteTableColumn")
<*> (o .:? "insertInlineImage")
<*> (o .:? "deleteContentRange")
<*> (o .:? "insertTableRow")
<*> (o .:? "updateTextStyle")
<*> (o .:? "insertTable"))
instance ToJSON Request' where
toJSON Request''{..}
= object
(catMaybes
[("deletePositionedObject" .=) <$>
_reqDeletePositionedObject,
("createParagraphBullets" .=) <$>
_reqCreateParagraphBullets,
("insertText" .=) <$> _reqInsertText,
("deleteParagraphBullets" .=) <$>
_reqDeleteParagraphBullets,
("deleteTableRow" .=) <$> _reqDeleteTableRow,
("deleteNamedRange" .=) <$> _reqDeleteNamedRange,
("replaceAllText" .=) <$> _reqReplaceAllText,
("updateParagraphStyle" .=) <$>
_reqUpdateParagraphStyle,
("createNamedRange" .=) <$> _reqCreateNamedRange,
("insertPageBreak" .=) <$> _reqInsertPageBreak,
("deleteTableColumn" .=) <$> _reqDeleteTableColumn,
("insertInlineImage" .=) <$> _reqInsertInlineImage,
("deleteContentRange" .=) <$> _reqDeleteContentRange,
("insertTableRow" .=) <$> _reqInsertTableRow,
("updateTextStyle" .=) <$> _reqUpdateTextStyle,
("insertTable" .=) <$> _reqInsertTable])
newtype PositionedObjectSuggestedPositionedObjectPropertiesChanges =
PositionedObjectSuggestedPositionedObjectPropertiesChanges'
{ _pospopcAddtional :: HashMap Text SuggestedPositionedObjectProperties
}
deriving (Eq, Show, Data, Typeable, Generic)
positionedObjectSuggestedPositionedObjectPropertiesChanges
:: HashMap Text SuggestedPositionedObjectProperties
-> PositionedObjectSuggestedPositionedObjectPropertiesChanges
positionedObjectSuggestedPositionedObjectPropertiesChanges pPospopcAddtional_ =
PositionedObjectSuggestedPositionedObjectPropertiesChanges'
{_pospopcAddtional = _Coerce # pPospopcAddtional_}
pospopcAddtional :: Lens' PositionedObjectSuggestedPositionedObjectPropertiesChanges (HashMap Text SuggestedPositionedObjectProperties)
pospopcAddtional
= lens _pospopcAddtional
(\ s a -> s{_pospopcAddtional = a})
. _Coerce
instance FromJSON
PositionedObjectSuggestedPositionedObjectPropertiesChanges
where
parseJSON
= withObject
"PositionedObjectSuggestedPositionedObjectPropertiesChanges"
(\ o ->
PositionedObjectSuggestedPositionedObjectPropertiesChanges'
<$> (parseJSONObject o))
instance ToJSON
PositionedObjectSuggestedPositionedObjectPropertiesChanges
where
toJSON = toJSON . _pospopcAddtional
data SubstringMatchCriteria =
SubstringMatchCriteria'
{ _smcMatchCase :: !(Maybe Bool)
, _smcText :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
substringMatchCriteria
:: SubstringMatchCriteria
substringMatchCriteria =
SubstringMatchCriteria' {_smcMatchCase = Nothing, _smcText = Nothing}
smcMatchCase :: Lens' SubstringMatchCriteria (Maybe Bool)
smcMatchCase
= lens _smcMatchCase (\ s a -> s{_smcMatchCase = a})
smcText :: Lens' SubstringMatchCriteria (Maybe Text)
smcText = lens _smcText (\ s a -> s{_smcText = a})
instance FromJSON SubstringMatchCriteria where
parseJSON
= withObject "SubstringMatchCriteria"
(\ o ->
SubstringMatchCriteria' <$>
(o .:? "matchCase") <*> (o .:? "text"))
instance ToJSON SubstringMatchCriteria where
toJSON SubstringMatchCriteria'{..}
= object
(catMaybes
[("matchCase" .=) <$> _smcMatchCase,
("text" .=) <$> _smcText])