{-# 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.Slides.Types.Product where
import Network.Google.Prelude
import Network.Google.Slides.Types.Sum
data ParagraphMarker =
ParagraphMarker'
{ _pmStyle :: !(Maybe ParagraphStyle)
, _pmBullet :: !(Maybe Bullet)
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphMarker
:: ParagraphMarker
paragraphMarker = ParagraphMarker' {_pmStyle = Nothing, _pmBullet = Nothing}
pmStyle :: Lens' ParagraphMarker (Maybe ParagraphStyle)
pmStyle = lens _pmStyle (\ s a -> s{_pmStyle = a})
pmBullet :: Lens' ParagraphMarker (Maybe Bullet)
pmBullet = lens _pmBullet (\ s a -> s{_pmBullet = a})
instance FromJSON ParagraphMarker where
parseJSON
= withObject "ParagraphMarker"
(\ o ->
ParagraphMarker' <$>
(o .:? "style") <*> (o .:? "bullet"))
instance ToJSON ParagraphMarker where
toJSON ParagraphMarker'{..}
= object
(catMaybes
[("style" .=) <$> _pmStyle,
("bullet" .=) <$> _pmBullet])
data DeleteTableRowRequest =
DeleteTableRowRequest'
{ _dtrrCellLocation :: !(Maybe TableCellLocation)
, _dtrrTableObjectId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteTableRowRequest
:: DeleteTableRowRequest
deleteTableRowRequest =
DeleteTableRowRequest'
{_dtrrCellLocation = Nothing, _dtrrTableObjectId = Nothing}
dtrrCellLocation :: Lens' DeleteTableRowRequest (Maybe TableCellLocation)
dtrrCellLocation
= lens _dtrrCellLocation
(\ s a -> s{_dtrrCellLocation = a})
dtrrTableObjectId :: Lens' DeleteTableRowRequest (Maybe Text)
dtrrTableObjectId
= lens _dtrrTableObjectId
(\ s a -> s{_dtrrTableObjectId = a})
instance FromJSON DeleteTableRowRequest where
parseJSON
= withObject "DeleteTableRowRequest"
(\ o ->
DeleteTableRowRequest' <$>
(o .:? "cellLocation") <*> (o .:? "tableObjectId"))
instance ToJSON DeleteTableRowRequest where
toJSON DeleteTableRowRequest'{..}
= object
(catMaybes
[("cellLocation" .=) <$> _dtrrCellLocation,
("tableObjectId" .=) <$> _dtrrTableObjectId])
data Thumbnail =
Thumbnail'
{ _tHeight :: !(Maybe (Textual Int32))
, _tWidth :: !(Maybe (Textual Int32))
, _tContentURL :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
thumbnail
:: Thumbnail
thumbnail =
Thumbnail' {_tHeight = Nothing, _tWidth = Nothing, _tContentURL = Nothing}
tHeight :: Lens' Thumbnail (Maybe Int32)
tHeight
= lens _tHeight (\ s a -> s{_tHeight = a}) .
mapping _Coerce
tWidth :: Lens' Thumbnail (Maybe Int32)
tWidth
= lens _tWidth (\ s a -> s{_tWidth = a}) .
mapping _Coerce
tContentURL :: Lens' Thumbnail (Maybe Text)
tContentURL
= lens _tContentURL (\ s a -> s{_tContentURL = a})
instance FromJSON Thumbnail where
parseJSON
= withObject "Thumbnail"
(\ o ->
Thumbnail' <$>
(o .:? "height") <*> (o .:? "width") <*>
(o .:? "contentUrl"))
instance ToJSON Thumbnail where
toJSON Thumbnail'{..}
= object
(catMaybes
[("height" .=) <$> _tHeight,
("width" .=) <$> _tWidth,
("contentUrl" .=) <$> _tContentURL])
data TableBOrderCell =
TableBOrderCell'
{ _tbocLocation :: !(Maybe TableCellLocation)
, _tbocTableBOrderProperties :: !(Maybe TableBOrderProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableBOrderCell
:: TableBOrderCell
tableBOrderCell =
TableBOrderCell'
{_tbocLocation = Nothing, _tbocTableBOrderProperties = Nothing}
tbocLocation :: Lens' TableBOrderCell (Maybe TableCellLocation)
tbocLocation
= lens _tbocLocation (\ s a -> s{_tbocLocation = a})
tbocTableBOrderProperties :: Lens' TableBOrderCell (Maybe TableBOrderProperties)
tbocTableBOrderProperties
= lens _tbocTableBOrderProperties
(\ s a -> s{_tbocTableBOrderProperties = a})
instance FromJSON TableBOrderCell where
parseJSON
= withObject "TableBOrderCell"
(\ o ->
TableBOrderCell' <$>
(o .:? "location") <*>
(o .:? "tableBorderProperties"))
instance ToJSON TableBOrderCell where
toJSON TableBOrderCell'{..}
= object
(catMaybes
[("location" .=) <$> _tbocLocation,
("tableBorderProperties" .=) <$>
_tbocTableBOrderProperties])
data PageElementProperties =
PageElementProperties'
{ _pepTransform :: !(Maybe AffineTransform)
, _pepSize :: !(Maybe Size)
, _pepPageObjectId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
pageElementProperties
:: PageElementProperties
pageElementProperties =
PageElementProperties'
{_pepTransform = Nothing, _pepSize = Nothing, _pepPageObjectId = Nothing}
pepTransform :: Lens' PageElementProperties (Maybe AffineTransform)
pepTransform
= lens _pepTransform (\ s a -> s{_pepTransform = a})
pepSize :: Lens' PageElementProperties (Maybe Size)
pepSize = lens _pepSize (\ s a -> s{_pepSize = a})
pepPageObjectId :: Lens' PageElementProperties (Maybe Text)
pepPageObjectId
= lens _pepPageObjectId
(\ s a -> s{_pepPageObjectId = a})
instance FromJSON PageElementProperties where
parseJSON
= withObject "PageElementProperties"
(\ o ->
PageElementProperties' <$>
(o .:? "transform") <*> (o .:? "size") <*>
(o .:? "pageObjectId"))
instance ToJSON PageElementProperties where
toJSON PageElementProperties'{..}
= object
(catMaybes
[("transform" .=) <$> _pepTransform,
("size" .=) <$> _pepSize,
("pageObjectId" .=) <$> _pepPageObjectId])
newtype ReplaceAllShapesWithImageResponse =
ReplaceAllShapesWithImageResponse'
{ _raswirOccurrencesChanged :: Maybe (Textual Int32)
}
deriving (Eq, Show, Data, Typeable, Generic)
replaceAllShapesWithImageResponse
:: ReplaceAllShapesWithImageResponse
replaceAllShapesWithImageResponse =
ReplaceAllShapesWithImageResponse' {_raswirOccurrencesChanged = Nothing}
raswirOccurrencesChanged :: Lens' ReplaceAllShapesWithImageResponse (Maybe Int32)
raswirOccurrencesChanged
= lens _raswirOccurrencesChanged
(\ s a -> s{_raswirOccurrencesChanged = a})
. mapping _Coerce
instance FromJSON ReplaceAllShapesWithImageResponse
where
parseJSON
= withObject "ReplaceAllShapesWithImageResponse"
(\ o ->
ReplaceAllShapesWithImageResponse' <$>
(o .:? "occurrencesChanged"))
instance ToJSON ReplaceAllShapesWithImageResponse
where
toJSON ReplaceAllShapesWithImageResponse'{..}
= object
(catMaybes
[("occurrencesChanged" .=) <$>
_raswirOccurrencesChanged])
newtype OutlineFill =
OutlineFill'
{ _ofSolidFill :: Maybe SolidFill
}
deriving (Eq, Show, Data, Typeable, Generic)
outlineFill
:: OutlineFill
outlineFill = OutlineFill' {_ofSolidFill = Nothing}
ofSolidFill :: Lens' OutlineFill (Maybe SolidFill)
ofSolidFill
= lens _ofSolidFill (\ s a -> s{_ofSolidFill = a})
instance FromJSON OutlineFill where
parseJSON
= withObject "OutlineFill"
(\ o -> OutlineFill' <$> (o .:? "solidFill"))
instance ToJSON OutlineFill where
toJSON OutlineFill'{..}
= object
(catMaybes [("solidFill" .=) <$> _ofSolidFill])
data Image =
Image'
{ _iImageProperties :: !(Maybe ImageProperties)
, _iContentURL :: !(Maybe Text)
, _iSourceURL :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
image
:: Image
image =
Image'
{_iImageProperties = Nothing, _iContentURL = Nothing, _iSourceURL = Nothing}
iImageProperties :: Lens' Image (Maybe ImageProperties)
iImageProperties
= lens _iImageProperties
(\ s a -> s{_iImageProperties = a})
iContentURL :: Lens' Image (Maybe Text)
iContentURL
= lens _iContentURL (\ s a -> s{_iContentURL = a})
iSourceURL :: Lens' Image (Maybe Text)
iSourceURL
= lens _iSourceURL (\ s a -> s{_iSourceURL = a})
instance FromJSON Image where
parseJSON
= withObject "Image"
(\ o ->
Image' <$>
(o .:? "imageProperties") <*> (o .:? "contentUrl")
<*> (o .:? "sourceUrl"))
instance ToJSON Image where
toJSON Image'{..}
= object
(catMaybes
[("imageProperties" .=) <$> _iImageProperties,
("contentUrl" .=) <$> _iContentURL,
("sourceUrl" .=) <$> _iSourceURL])
data UpdateLinePropertiesRequest =
UpdateLinePropertiesRequest'
{ _ulprLineProperties :: !(Maybe LineProperties)
, _ulprObjectId :: !(Maybe Text)
, _ulprFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateLinePropertiesRequest
:: UpdateLinePropertiesRequest
updateLinePropertiesRequest =
UpdateLinePropertiesRequest'
{ _ulprLineProperties = Nothing
, _ulprObjectId = Nothing
, _ulprFields = Nothing
}
ulprLineProperties :: Lens' UpdateLinePropertiesRequest (Maybe LineProperties)
ulprLineProperties
= lens _ulprLineProperties
(\ s a -> s{_ulprLineProperties = a})
ulprObjectId :: Lens' UpdateLinePropertiesRequest (Maybe Text)
ulprObjectId
= lens _ulprObjectId (\ s a -> s{_ulprObjectId = a})
ulprFields :: Lens' UpdateLinePropertiesRequest (Maybe GFieldMask)
ulprFields
= lens _ulprFields (\ s a -> s{_ulprFields = a})
instance FromJSON UpdateLinePropertiesRequest where
parseJSON
= withObject "UpdateLinePropertiesRequest"
(\ o ->
UpdateLinePropertiesRequest' <$>
(o .:? "lineProperties") <*> (o .:? "objectId") <*>
(o .:? "fields"))
instance ToJSON UpdateLinePropertiesRequest where
toJSON UpdateLinePropertiesRequest'{..}
= object
(catMaybes
[("lineProperties" .=) <$> _ulprLineProperties,
("objectId" .=) <$> _ulprObjectId,
("fields" .=) <$> _ulprFields])
data CropProperties =
CropProperties'
{ _cpBottomOffSet :: !(Maybe (Textual Double))
, _cpTopOffSet :: !(Maybe (Textual Double))
, _cpAngle :: !(Maybe (Textual Double))
, _cpRightOffSet :: !(Maybe (Textual Double))
, _cpLeftOffSet :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
cropProperties
:: CropProperties
cropProperties =
CropProperties'
{ _cpBottomOffSet = Nothing
, _cpTopOffSet = Nothing
, _cpAngle = Nothing
, _cpRightOffSet = Nothing
, _cpLeftOffSet = Nothing
}
cpBottomOffSet :: Lens' CropProperties (Maybe Double)
cpBottomOffSet
= lens _cpBottomOffSet
(\ s a -> s{_cpBottomOffSet = a})
. mapping _Coerce
cpTopOffSet :: Lens' CropProperties (Maybe Double)
cpTopOffSet
= lens _cpTopOffSet (\ s a -> s{_cpTopOffSet = a}) .
mapping _Coerce
cpAngle :: Lens' CropProperties (Maybe Double)
cpAngle
= lens _cpAngle (\ s a -> s{_cpAngle = a}) .
mapping _Coerce
cpRightOffSet :: Lens' CropProperties (Maybe Double)
cpRightOffSet
= lens _cpRightOffSet
(\ s a -> s{_cpRightOffSet = a})
. mapping _Coerce
cpLeftOffSet :: Lens' CropProperties (Maybe Double)
cpLeftOffSet
= lens _cpLeftOffSet (\ s a -> s{_cpLeftOffSet = a})
. mapping _Coerce
instance FromJSON CropProperties where
parseJSON
= withObject "CropProperties"
(\ o ->
CropProperties' <$>
(o .:? "bottomOffset") <*> (o .:? "topOffset") <*>
(o .:? "angle")
<*> (o .:? "rightOffset")
<*> (o .:? "leftOffset"))
instance ToJSON CropProperties where
toJSON CropProperties'{..}
= object
(catMaybes
[("bottomOffset" .=) <$> _cpBottomOffSet,
("topOffset" .=) <$> _cpTopOffSet,
("angle" .=) <$> _cpAngle,
("rightOffset" .=) <$> _cpRightOffSet,
("leftOffset" .=) <$> _cpLeftOffSet])
data LineProperties =
LineProperties'
{ _lpWeight :: !(Maybe Dimension)
, _lpLink :: !(Maybe Link)
, _lpStartConnection :: !(Maybe LineConnection)
, _lpDashStyle :: !(Maybe LinePropertiesDashStyle)
, _lpStartArrow :: !(Maybe LinePropertiesStartArrow)
, _lpLineFill :: !(Maybe LineFill)
, _lpEndConnection :: !(Maybe LineConnection)
, _lpEndArrow :: !(Maybe LinePropertiesEndArrow)
}
deriving (Eq, Show, Data, Typeable, Generic)
lineProperties
:: LineProperties
lineProperties =
LineProperties'
{ _lpWeight = Nothing
, _lpLink = Nothing
, _lpStartConnection = Nothing
, _lpDashStyle = Nothing
, _lpStartArrow = Nothing
, _lpLineFill = Nothing
, _lpEndConnection = Nothing
, _lpEndArrow = Nothing
}
lpWeight :: Lens' LineProperties (Maybe Dimension)
lpWeight = lens _lpWeight (\ s a -> s{_lpWeight = a})
lpLink :: Lens' LineProperties (Maybe Link)
lpLink = lens _lpLink (\ s a -> s{_lpLink = a})
lpStartConnection :: Lens' LineProperties (Maybe LineConnection)
lpStartConnection
= lens _lpStartConnection
(\ s a -> s{_lpStartConnection = a})
lpDashStyle :: Lens' LineProperties (Maybe LinePropertiesDashStyle)
lpDashStyle
= lens _lpDashStyle (\ s a -> s{_lpDashStyle = a})
lpStartArrow :: Lens' LineProperties (Maybe LinePropertiesStartArrow)
lpStartArrow
= lens _lpStartArrow (\ s a -> s{_lpStartArrow = a})
lpLineFill :: Lens' LineProperties (Maybe LineFill)
lpLineFill
= lens _lpLineFill (\ s a -> s{_lpLineFill = a})
lpEndConnection :: Lens' LineProperties (Maybe LineConnection)
lpEndConnection
= lens _lpEndConnection
(\ s a -> s{_lpEndConnection = a})
lpEndArrow :: Lens' LineProperties (Maybe LinePropertiesEndArrow)
lpEndArrow
= lens _lpEndArrow (\ s a -> s{_lpEndArrow = a})
instance FromJSON LineProperties where
parseJSON
= withObject "LineProperties"
(\ o ->
LineProperties' <$>
(o .:? "weight") <*> (o .:? "link") <*>
(o .:? "startConnection")
<*> (o .:? "dashStyle")
<*> (o .:? "startArrow")
<*> (o .:? "lineFill")
<*> (o .:? "endConnection")
<*> (o .:? "endArrow"))
instance ToJSON LineProperties where
toJSON LineProperties'{..}
= object
(catMaybes
[("weight" .=) <$> _lpWeight,
("link" .=) <$> _lpLink,
("startConnection" .=) <$> _lpStartConnection,
("dashStyle" .=) <$> _lpDashStyle,
("startArrow" .=) <$> _lpStartArrow,
("lineFill" .=) <$> _lpLineFill,
("endConnection" .=) <$> _lpEndConnection,
("endArrow" .=) <$> _lpEndArrow])
newtype Group =
Group'
{ _gChildren :: Maybe [PageElement]
}
deriving (Eq, Show, Data, Typeable, Generic)
group'
:: Group
group' = Group' {_gChildren = Nothing}
gChildren :: Lens' Group [PageElement]
gChildren
= lens _gChildren (\ s a -> s{_gChildren = a}) .
_Default
. _Coerce
instance FromJSON Group where
parseJSON
= withObject "Group"
(\ o -> Group' <$> (o .:? "children" .!= mempty))
instance ToJSON Group where
toJSON Group'{..}
= object (catMaybes [("children" .=) <$> _gChildren])
data ReplaceImageRequest =
ReplaceImageRequest'
{ _rirImageReplaceMethod :: !(Maybe ReplaceImageRequestImageReplaceMethod)
, _rirImageObjectId :: !(Maybe Text)
, _rirURL :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
replaceImageRequest
:: ReplaceImageRequest
replaceImageRequest =
ReplaceImageRequest'
{ _rirImageReplaceMethod = Nothing
, _rirImageObjectId = Nothing
, _rirURL = Nothing
}
rirImageReplaceMethod :: Lens' ReplaceImageRequest (Maybe ReplaceImageRequestImageReplaceMethod)
rirImageReplaceMethod
= lens _rirImageReplaceMethod
(\ s a -> s{_rirImageReplaceMethod = a})
rirImageObjectId :: Lens' ReplaceImageRequest (Maybe Text)
rirImageObjectId
= lens _rirImageObjectId
(\ s a -> s{_rirImageObjectId = a})
rirURL :: Lens' ReplaceImageRequest (Maybe Text)
rirURL = lens _rirURL (\ s a -> s{_rirURL = a})
instance FromJSON ReplaceImageRequest where
parseJSON
= withObject "ReplaceImageRequest"
(\ o ->
ReplaceImageRequest' <$>
(o .:? "imageReplaceMethod") <*>
(o .:? "imageObjectId")
<*> (o .:? "url"))
instance ToJSON ReplaceImageRequest where
toJSON ReplaceImageRequest'{..}
= object
(catMaybes
[("imageReplaceMethod" .=) <$>
_rirImageReplaceMethod,
("imageObjectId" .=) <$> _rirImageObjectId,
("url" .=) <$> _rirURL])
data BatchUpdatePresentationRequest =
BatchUpdatePresentationRequest'
{ _buprRequests :: !(Maybe [Request'])
, _buprWriteControl :: !(Maybe WriteControl)
}
deriving (Eq, Show, Data, Typeable, Generic)
batchUpdatePresentationRequest
:: BatchUpdatePresentationRequest
batchUpdatePresentationRequest =
BatchUpdatePresentationRequest'
{_buprRequests = Nothing, _buprWriteControl = Nothing}
buprRequests :: Lens' BatchUpdatePresentationRequest [Request']
buprRequests
= lens _buprRequests (\ s a -> s{_buprRequests = a})
. _Default
. _Coerce
buprWriteControl :: Lens' BatchUpdatePresentationRequest (Maybe WriteControl)
buprWriteControl
= lens _buprWriteControl
(\ s a -> s{_buprWriteControl = a})
instance FromJSON BatchUpdatePresentationRequest
where
parseJSON
= withObject "BatchUpdatePresentationRequest"
(\ o ->
BatchUpdatePresentationRequest' <$>
(o .:? "requests" .!= mempty) <*>
(o .:? "writeControl"))
instance ToJSON BatchUpdatePresentationRequest where
toJSON BatchUpdatePresentationRequest'{..}
= object
(catMaybes
[("requests" .=) <$> _buprRequests,
("writeControl" .=) <$> _buprWriteControl])
data UpdatePageElementsZOrderRequest =
UpdatePageElementsZOrderRequest'
{ _upezorOperation :: !(Maybe UpdatePageElementsZOrderRequestOperation)
, _upezorPageElementObjectIds :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
updatePageElementsZOrderRequest
:: UpdatePageElementsZOrderRequest
updatePageElementsZOrderRequest =
UpdatePageElementsZOrderRequest'
{_upezorOperation = Nothing, _upezorPageElementObjectIds = Nothing}
upezorOperation :: Lens' UpdatePageElementsZOrderRequest (Maybe UpdatePageElementsZOrderRequestOperation)
upezorOperation
= lens _upezorOperation
(\ s a -> s{_upezorOperation = a})
upezorPageElementObjectIds :: Lens' UpdatePageElementsZOrderRequest [Text]
upezorPageElementObjectIds
= lens _upezorPageElementObjectIds
(\ s a -> s{_upezorPageElementObjectIds = a})
. _Default
. _Coerce
instance FromJSON UpdatePageElementsZOrderRequest
where
parseJSON
= withObject "UpdatePageElementsZOrderRequest"
(\ o ->
UpdatePageElementsZOrderRequest' <$>
(o .:? "operation") <*>
(o .:? "pageElementObjectIds" .!= mempty))
instance ToJSON UpdatePageElementsZOrderRequest where
toJSON UpdatePageElementsZOrderRequest'{..}
= object
(catMaybes
[("operation" .=) <$> _upezorOperation,
("pageElementObjectIds" .=) <$>
_upezorPageElementObjectIds])
data CreateShapeRequest =
CreateShapeRequest'
{ _csrShapeType :: !(Maybe CreateShapeRequestShapeType)
, _csrObjectId :: !(Maybe Text)
, _csrElementProperties :: !(Maybe PageElementProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
createShapeRequest
:: CreateShapeRequest
createShapeRequest =
CreateShapeRequest'
{ _csrShapeType = Nothing
, _csrObjectId = Nothing
, _csrElementProperties = Nothing
}
csrShapeType :: Lens' CreateShapeRequest (Maybe CreateShapeRequestShapeType)
csrShapeType
= lens _csrShapeType (\ s a -> s{_csrShapeType = a})
csrObjectId :: Lens' CreateShapeRequest (Maybe Text)
csrObjectId
= lens _csrObjectId (\ s a -> s{_csrObjectId = a})
csrElementProperties :: Lens' CreateShapeRequest (Maybe PageElementProperties)
csrElementProperties
= lens _csrElementProperties
(\ s a -> s{_csrElementProperties = a})
instance FromJSON CreateShapeRequest where
parseJSON
= withObject "CreateShapeRequest"
(\ o ->
CreateShapeRequest' <$>
(o .:? "shapeType") <*> (o .:? "objectId") <*>
(o .:? "elementProperties"))
instance ToJSON CreateShapeRequest where
toJSON CreateShapeRequest'{..}
= object
(catMaybes
[("shapeType" .=) <$> _csrShapeType,
("objectId" .=) <$> _csrObjectId,
("elementProperties" .=) <$> _csrElementProperties])
data AutoText =
AutoText'
{ _atStyle :: !(Maybe TextStyle)
, _atContent :: !(Maybe Text)
, _atType :: !(Maybe AutoTextType)
}
deriving (Eq, Show, Data, Typeable, Generic)
autoText
:: AutoText
autoText =
AutoText' {_atStyle = Nothing, _atContent = Nothing, _atType = Nothing}
atStyle :: Lens' AutoText (Maybe TextStyle)
atStyle = lens _atStyle (\ s a -> s{_atStyle = a})
atContent :: Lens' AutoText (Maybe Text)
atContent
= lens _atContent (\ s a -> s{_atContent = a})
atType :: Lens' AutoText (Maybe AutoTextType)
atType = lens _atType (\ s a -> s{_atType = a})
instance FromJSON AutoText where
parseJSON
= withObject "AutoText"
(\ o ->
AutoText' <$>
(o .:? "style") <*> (o .:? "content") <*>
(o .:? "type"))
instance ToJSON AutoText where
toJSON AutoText'{..}
= object
(catMaybes
[("style" .=) <$> _atStyle,
("content" .=) <$> _atContent,
("type" .=) <$> _atType])
data ReplaceAllShapesWithSheetsChartRequest =
ReplaceAllShapesWithSheetsChartRequest'
{ _raswscrPageObjectIds :: !(Maybe [Text])
, _raswscrSpreadsheetId :: !(Maybe Text)
, _raswscrLinkingMode :: !(Maybe ReplaceAllShapesWithSheetsChartRequestLinkingMode)
, _raswscrContainsText :: !(Maybe SubstringMatchCriteria)
, _raswscrChartId :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
replaceAllShapesWithSheetsChartRequest
:: ReplaceAllShapesWithSheetsChartRequest
replaceAllShapesWithSheetsChartRequest =
ReplaceAllShapesWithSheetsChartRequest'
{ _raswscrPageObjectIds = Nothing
, _raswscrSpreadsheetId = Nothing
, _raswscrLinkingMode = Nothing
, _raswscrContainsText = Nothing
, _raswscrChartId = Nothing
}
raswscrPageObjectIds :: Lens' ReplaceAllShapesWithSheetsChartRequest [Text]
raswscrPageObjectIds
= lens _raswscrPageObjectIds
(\ s a -> s{_raswscrPageObjectIds = a})
. _Default
. _Coerce
raswscrSpreadsheetId :: Lens' ReplaceAllShapesWithSheetsChartRequest (Maybe Text)
raswscrSpreadsheetId
= lens _raswscrSpreadsheetId
(\ s a -> s{_raswscrSpreadsheetId = a})
raswscrLinkingMode :: Lens' ReplaceAllShapesWithSheetsChartRequest (Maybe ReplaceAllShapesWithSheetsChartRequestLinkingMode)
raswscrLinkingMode
= lens _raswscrLinkingMode
(\ s a -> s{_raswscrLinkingMode = a})
raswscrContainsText :: Lens' ReplaceAllShapesWithSheetsChartRequest (Maybe SubstringMatchCriteria)
raswscrContainsText
= lens _raswscrContainsText
(\ s a -> s{_raswscrContainsText = a})
raswscrChartId :: Lens' ReplaceAllShapesWithSheetsChartRequest (Maybe Int32)
raswscrChartId
= lens _raswscrChartId
(\ s a -> s{_raswscrChartId = a})
. mapping _Coerce
instance FromJSON
ReplaceAllShapesWithSheetsChartRequest
where
parseJSON
= withObject "ReplaceAllShapesWithSheetsChartRequest"
(\ o ->
ReplaceAllShapesWithSheetsChartRequest' <$>
(o .:? "pageObjectIds" .!= mempty) <*>
(o .:? "spreadsheetId")
<*> (o .:? "linkingMode")
<*> (o .:? "containsText")
<*> (o .:? "chartId"))
instance ToJSON
ReplaceAllShapesWithSheetsChartRequest
where
toJSON ReplaceAllShapesWithSheetsChartRequest'{..}
= object
(catMaybes
[("pageObjectIds" .=) <$> _raswscrPageObjectIds,
("spreadsheetId" .=) <$> _raswscrSpreadsheetId,
("linkingMode" .=) <$> _raswscrLinkingMode,
("containsText" .=) <$> _raswscrContainsText,
("chartId" .=) <$> _raswscrChartId])
data List =
List'
{ _lListId :: !(Maybe Text)
, _lNestingLevel :: !(Maybe ListNestingLevel)
}
deriving (Eq, Show, Data, Typeable, Generic)
list
:: List
list = List' {_lListId = Nothing, _lNestingLevel = Nothing}
lListId :: Lens' List (Maybe Text)
lListId = lens _lListId (\ s a -> s{_lListId = a})
lNestingLevel :: Lens' List (Maybe ListNestingLevel)
lNestingLevel
= lens _lNestingLevel
(\ s a -> s{_lNestingLevel = a})
instance FromJSON List where
parseJSON
= withObject "List"
(\ o ->
List' <$>
(o .:? "listId") <*> (o .:? "nestingLevel"))
instance ToJSON List where
toJSON List'{..}
= object
(catMaybes
[("listId" .=) <$> _lListId,
("nestingLevel" .=) <$> _lNestingLevel])
newtype NotesProperties =
NotesProperties'
{ _npSpeakerNotesObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
notesProperties
:: NotesProperties
notesProperties = NotesProperties' {_npSpeakerNotesObjectId = Nothing}
npSpeakerNotesObjectId :: Lens' NotesProperties (Maybe Text)
npSpeakerNotesObjectId
= lens _npSpeakerNotesObjectId
(\ s a -> s{_npSpeakerNotesObjectId = a})
instance FromJSON NotesProperties where
parseJSON
= withObject "NotesProperties"
(\ o ->
NotesProperties' <$> (o .:? "speakerNotesObjectId"))
instance ToJSON NotesProperties where
toJSON NotesProperties'{..}
= object
(catMaybes
[("speakerNotesObjectId" .=) <$>
_npSpeakerNotesObjectId])
newtype GroupObjectsResponse =
GroupObjectsResponse'
{ _gorObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
groupObjectsResponse
:: GroupObjectsResponse
groupObjectsResponse = GroupObjectsResponse' {_gorObjectId = Nothing}
gorObjectId :: Lens' GroupObjectsResponse (Maybe Text)
gorObjectId
= lens _gorObjectId (\ s a -> s{_gorObjectId = a})
instance FromJSON GroupObjectsResponse where
parseJSON
= withObject "GroupObjectsResponse"
(\ o -> GroupObjectsResponse' <$> (o .:? "objectId"))
instance ToJSON GroupObjectsResponse where
toJSON GroupObjectsResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _gorObjectId])
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 UpdatePagePropertiesRequest =
UpdatePagePropertiesRequest'
{ _upprObjectId :: !(Maybe Text)
, _upprPageProperties :: !(Maybe PageProperties)
, _upprFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updatePagePropertiesRequest
:: UpdatePagePropertiesRequest
updatePagePropertiesRequest =
UpdatePagePropertiesRequest'
{ _upprObjectId = Nothing
, _upprPageProperties = Nothing
, _upprFields = Nothing
}
upprObjectId :: Lens' UpdatePagePropertiesRequest (Maybe Text)
upprObjectId
= lens _upprObjectId (\ s a -> s{_upprObjectId = a})
upprPageProperties :: Lens' UpdatePagePropertiesRequest (Maybe PageProperties)
upprPageProperties
= lens _upprPageProperties
(\ s a -> s{_upprPageProperties = a})
upprFields :: Lens' UpdatePagePropertiesRequest (Maybe GFieldMask)
upprFields
= lens _upprFields (\ s a -> s{_upprFields = a})
instance FromJSON UpdatePagePropertiesRequest where
parseJSON
= withObject "UpdatePagePropertiesRequest"
(\ o ->
UpdatePagePropertiesRequest' <$>
(o .:? "objectId") <*> (o .:? "pageProperties") <*>
(o .:? "fields"))
instance ToJSON UpdatePagePropertiesRequest where
toJSON UpdatePagePropertiesRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _upprObjectId,
("pageProperties" .=) <$> _upprPageProperties,
("fields" .=) <$> _upprFields])
data CreateSheetsChartRequest =
CreateSheetsChartRequest'
{ _cscrObjectId :: !(Maybe Text)
, _cscrSpreadsheetId :: !(Maybe Text)
, _cscrLinkingMode :: !(Maybe CreateSheetsChartRequestLinkingMode)
, _cscrElementProperties :: !(Maybe PageElementProperties)
, _cscrChartId :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
createSheetsChartRequest
:: CreateSheetsChartRequest
createSheetsChartRequest =
CreateSheetsChartRequest'
{ _cscrObjectId = Nothing
, _cscrSpreadsheetId = Nothing
, _cscrLinkingMode = Nothing
, _cscrElementProperties = Nothing
, _cscrChartId = Nothing
}
cscrObjectId :: Lens' CreateSheetsChartRequest (Maybe Text)
cscrObjectId
= lens _cscrObjectId (\ s a -> s{_cscrObjectId = a})
cscrSpreadsheetId :: Lens' CreateSheetsChartRequest (Maybe Text)
cscrSpreadsheetId
= lens _cscrSpreadsheetId
(\ s a -> s{_cscrSpreadsheetId = a})
cscrLinkingMode :: Lens' CreateSheetsChartRequest (Maybe CreateSheetsChartRequestLinkingMode)
cscrLinkingMode
= lens _cscrLinkingMode
(\ s a -> s{_cscrLinkingMode = a})
cscrElementProperties :: Lens' CreateSheetsChartRequest (Maybe PageElementProperties)
cscrElementProperties
= lens _cscrElementProperties
(\ s a -> s{_cscrElementProperties = a})
cscrChartId :: Lens' CreateSheetsChartRequest (Maybe Int32)
cscrChartId
= lens _cscrChartId (\ s a -> s{_cscrChartId = a}) .
mapping _Coerce
instance FromJSON CreateSheetsChartRequest where
parseJSON
= withObject "CreateSheetsChartRequest"
(\ o ->
CreateSheetsChartRequest' <$>
(o .:? "objectId") <*> (o .:? "spreadsheetId") <*>
(o .:? "linkingMode")
<*> (o .:? "elementProperties")
<*> (o .:? "chartId"))
instance ToJSON CreateSheetsChartRequest where
toJSON CreateSheetsChartRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _cscrObjectId,
("spreadsheetId" .=) <$> _cscrSpreadsheetId,
("linkingMode" .=) <$> _cscrLinkingMode,
("elementProperties" .=) <$> _cscrElementProperties,
("chartId" .=) <$> _cscrChartId])
newtype TableRowProperties =
TableRowProperties'
{ _trpMinRowHeight :: Maybe Dimension
}
deriving (Eq, Show, Data, Typeable, Generic)
tableRowProperties
:: TableRowProperties
tableRowProperties = TableRowProperties' {_trpMinRowHeight = Nothing}
trpMinRowHeight :: Lens' TableRowProperties (Maybe Dimension)
trpMinRowHeight
= lens _trpMinRowHeight
(\ s a -> s{_trpMinRowHeight = a})
instance FromJSON TableRowProperties where
parseJSON
= withObject "TableRowProperties"
(\ o ->
TableRowProperties' <$> (o .:? "minRowHeight"))
instance ToJSON TableRowProperties where
toJSON TableRowProperties'{..}
= object
(catMaybes
[("minRowHeight" .=) <$> _trpMinRowHeight])
data UpdateTableRowPropertiesRequest =
UpdateTableRowPropertiesRequest'
{ _utrprTableRowProperties :: !(Maybe TableRowProperties)
, _utrprRowIndices :: !(Maybe [Textual Int32])
, _utrprObjectId :: !(Maybe Text)
, _utrprFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateTableRowPropertiesRequest
:: UpdateTableRowPropertiesRequest
updateTableRowPropertiesRequest =
UpdateTableRowPropertiesRequest'
{ _utrprTableRowProperties = Nothing
, _utrprRowIndices = Nothing
, _utrprObjectId = Nothing
, _utrprFields = Nothing
}
utrprTableRowProperties :: Lens' UpdateTableRowPropertiesRequest (Maybe TableRowProperties)
utrprTableRowProperties
= lens _utrprTableRowProperties
(\ s a -> s{_utrprTableRowProperties = a})
utrprRowIndices :: Lens' UpdateTableRowPropertiesRequest [Int32]
utrprRowIndices
= lens _utrprRowIndices
(\ s a -> s{_utrprRowIndices = a})
. _Default
. _Coerce
utrprObjectId :: Lens' UpdateTableRowPropertiesRequest (Maybe Text)
utrprObjectId
= lens _utrprObjectId
(\ s a -> s{_utrprObjectId = a})
utrprFields :: Lens' UpdateTableRowPropertiesRequest (Maybe GFieldMask)
utrprFields
= lens _utrprFields (\ s a -> s{_utrprFields = a})
instance FromJSON UpdateTableRowPropertiesRequest
where
parseJSON
= withObject "UpdateTableRowPropertiesRequest"
(\ o ->
UpdateTableRowPropertiesRequest' <$>
(o .:? "tableRowProperties") <*>
(o .:? "rowIndices" .!= mempty)
<*> (o .:? "objectId")
<*> (o .:? "fields"))
instance ToJSON UpdateTableRowPropertiesRequest where
toJSON UpdateTableRowPropertiesRequest'{..}
= object
(catMaybes
[("tableRowProperties" .=) <$>
_utrprTableRowProperties,
("rowIndices" .=) <$> _utrprRowIndices,
("objectId" .=) <$> _utrprObjectId,
("fields" .=) <$> _utrprFields])
newtype MasterProperties =
MasterProperties'
{ _mpDisplayName :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
masterProperties
:: MasterProperties
masterProperties = MasterProperties' {_mpDisplayName = Nothing}
mpDisplayName :: Lens' MasterProperties (Maybe Text)
mpDisplayName
= lens _mpDisplayName
(\ s a -> s{_mpDisplayName = a})
instance FromJSON MasterProperties where
parseJSON
= withObject "MasterProperties"
(\ o -> MasterProperties' <$> (o .:? "displayName"))
instance ToJSON MasterProperties where
toJSON MasterProperties'{..}
= object
(catMaybes [("displayName" .=) <$> _mpDisplayName])
data DeleteTextRequest =
DeleteTextRequest'
{ _dtrTextRange :: !(Maybe Range)
, _dtrObjectId :: !(Maybe Text)
, _dtrCellLocation :: !(Maybe TableCellLocation)
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteTextRequest
:: DeleteTextRequest
deleteTextRequest =
DeleteTextRequest'
{ _dtrTextRange = Nothing
, _dtrObjectId = Nothing
, _dtrCellLocation = Nothing
}
dtrTextRange :: Lens' DeleteTextRequest (Maybe Range)
dtrTextRange
= lens _dtrTextRange (\ s a -> s{_dtrTextRange = a})
dtrObjectId :: Lens' DeleteTextRequest (Maybe Text)
dtrObjectId
= lens _dtrObjectId (\ s a -> s{_dtrObjectId = a})
dtrCellLocation :: Lens' DeleteTextRequest (Maybe TableCellLocation)
dtrCellLocation
= lens _dtrCellLocation
(\ s a -> s{_dtrCellLocation = a})
instance FromJSON DeleteTextRequest where
parseJSON
= withObject "DeleteTextRequest"
(\ o ->
DeleteTextRequest' <$>
(o .:? "textRange") <*> (o .:? "objectId") <*>
(o .:? "cellLocation"))
instance ToJSON DeleteTextRequest where
toJSON DeleteTextRequest'{..}
= object
(catMaybes
[("textRange" .=) <$> _dtrTextRange,
("objectId" .=) <$> _dtrObjectId,
("cellLocation" .=) <$> _dtrCellLocation])
data InsertTableColumnsRequest =
InsertTableColumnsRequest'
{ _itcrInsertRight :: !(Maybe Bool)
, _itcrNumber :: !(Maybe (Textual Int32))
, _itcrCellLocation :: !(Maybe TableCellLocation)
, _itcrTableObjectId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
insertTableColumnsRequest
:: InsertTableColumnsRequest
insertTableColumnsRequest =
InsertTableColumnsRequest'
{ _itcrInsertRight = Nothing
, _itcrNumber = Nothing
, _itcrCellLocation = Nothing
, _itcrTableObjectId = Nothing
}
itcrInsertRight :: Lens' InsertTableColumnsRequest (Maybe Bool)
itcrInsertRight
= lens _itcrInsertRight
(\ s a -> s{_itcrInsertRight = a})
itcrNumber :: Lens' InsertTableColumnsRequest (Maybe Int32)
itcrNumber
= lens _itcrNumber (\ s a -> s{_itcrNumber = a}) .
mapping _Coerce
itcrCellLocation :: Lens' InsertTableColumnsRequest (Maybe TableCellLocation)
itcrCellLocation
= lens _itcrCellLocation
(\ s a -> s{_itcrCellLocation = a})
itcrTableObjectId :: Lens' InsertTableColumnsRequest (Maybe Text)
itcrTableObjectId
= lens _itcrTableObjectId
(\ s a -> s{_itcrTableObjectId = a})
instance FromJSON InsertTableColumnsRequest where
parseJSON
= withObject "InsertTableColumnsRequest"
(\ o ->
InsertTableColumnsRequest' <$>
(o .:? "insertRight") <*> (o .:? "number") <*>
(o .:? "cellLocation")
<*> (o .:? "tableObjectId"))
instance ToJSON InsertTableColumnsRequest where
toJSON InsertTableColumnsRequest'{..}
= object
(catMaybes
[("insertRight" .=) <$> _itcrInsertRight,
("number" .=) <$> _itcrNumber,
("cellLocation" .=) <$> _itcrCellLocation,
("tableObjectId" .=) <$> _itcrTableObjectId])
newtype TextContentLists =
TextContentLists'
{ _tclAddtional :: HashMap Text List
}
deriving (Eq, Show, Data, Typeable, Generic)
textContentLists
:: HashMap Text List
-> TextContentLists
textContentLists pTclAddtional_ =
TextContentLists' {_tclAddtional = _Coerce # pTclAddtional_}
tclAddtional :: Lens' TextContentLists (HashMap Text List)
tclAddtional
= lens _tclAddtional (\ s a -> s{_tclAddtional = a})
. _Coerce
instance FromJSON TextContentLists where
parseJSON
= withObject "TextContentLists"
(\ o -> TextContentLists' <$> (parseJSONObject o))
instance ToJSON TextContentLists where
toJSON = toJSON . _tclAddtional
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])
data StretchedPictureFill =
StretchedPictureFill'
{ _spfSize :: !(Maybe Size)
, _spfContentURL :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
stretchedPictureFill
:: StretchedPictureFill
stretchedPictureFill =
StretchedPictureFill' {_spfSize = Nothing, _spfContentURL = Nothing}
spfSize :: Lens' StretchedPictureFill (Maybe Size)
spfSize = lens _spfSize (\ s a -> s{_spfSize = a})
spfContentURL :: Lens' StretchedPictureFill (Maybe Text)
spfContentURL
= lens _spfContentURL
(\ s a -> s{_spfContentURL = a})
instance FromJSON StretchedPictureFill where
parseJSON
= withObject "StretchedPictureFill"
(\ o ->
StretchedPictureFill' <$>
(o .:? "size") <*> (o .:? "contentUrl"))
instance ToJSON StretchedPictureFill where
toJSON StretchedPictureFill'{..}
= object
(catMaybes
[("size" .=) <$> _spfSize,
("contentUrl" .=) <$> _spfContentURL])
newtype TableBOrderFill =
TableBOrderFill'
{ _tbofSolidFill :: Maybe SolidFill
}
deriving (Eq, Show, Data, Typeable, Generic)
tableBOrderFill
:: TableBOrderFill
tableBOrderFill = TableBOrderFill' {_tbofSolidFill = Nothing}
tbofSolidFill :: Lens' TableBOrderFill (Maybe SolidFill)
tbofSolidFill
= lens _tbofSolidFill
(\ s a -> s{_tbofSolidFill = a})
instance FromJSON TableBOrderFill where
parseJSON
= withObject "TableBOrderFill"
(\ o -> TableBOrderFill' <$> (o .:? "solidFill"))
instance ToJSON TableBOrderFill where
toJSON TableBOrderFill'{..}
= object
(catMaybes [("solidFill" .=) <$> _tbofSolidFill])
data SheetsChart =
SheetsChart'
{ _scSpreadsheetId :: !(Maybe Text)
, _scContentURL :: !(Maybe Text)
, _scSheetsChartProperties :: !(Maybe SheetsChartProperties)
, _scChartId :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
sheetsChart
:: SheetsChart
sheetsChart =
SheetsChart'
{ _scSpreadsheetId = Nothing
, _scContentURL = Nothing
, _scSheetsChartProperties = Nothing
, _scChartId = Nothing
}
scSpreadsheetId :: Lens' SheetsChart (Maybe Text)
scSpreadsheetId
= lens _scSpreadsheetId
(\ s a -> s{_scSpreadsheetId = a})
scContentURL :: Lens' SheetsChart (Maybe Text)
scContentURL
= lens _scContentURL (\ s a -> s{_scContentURL = a})
scSheetsChartProperties :: Lens' SheetsChart (Maybe SheetsChartProperties)
scSheetsChartProperties
= lens _scSheetsChartProperties
(\ s a -> s{_scSheetsChartProperties = a})
scChartId :: Lens' SheetsChart (Maybe Int32)
scChartId
= lens _scChartId (\ s a -> s{_scChartId = a}) .
mapping _Coerce
instance FromJSON SheetsChart where
parseJSON
= withObject "SheetsChart"
(\ o ->
SheetsChart' <$>
(o .:? "spreadsheetId") <*> (o .:? "contentUrl") <*>
(o .:? "sheetsChartProperties")
<*> (o .:? "chartId"))
instance ToJSON SheetsChart where
toJSON SheetsChart'{..}
= object
(catMaybes
[("spreadsheetId" .=) <$> _scSpreadsheetId,
("contentUrl" .=) <$> _scContentURL,
("sheetsChartProperties" .=) <$>
_scSheetsChartProperties,
("chartId" .=) <$> _scChartId])
newtype CreateShapeResponse =
CreateShapeResponse'
{ _cObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createShapeResponse
:: CreateShapeResponse
createShapeResponse = CreateShapeResponse' {_cObjectId = Nothing}
cObjectId :: Lens' CreateShapeResponse (Maybe Text)
cObjectId
= lens _cObjectId (\ s a -> s{_cObjectId = a})
instance FromJSON CreateShapeResponse where
parseJSON
= withObject "CreateShapeResponse"
(\ o -> CreateShapeResponse' <$> (o .:? "objectId"))
instance ToJSON CreateShapeResponse where
toJSON CreateShapeResponse'{..}
= object (catMaybes [("objectId" .=) <$> _cObjectId])
data DeleteTableColumnRequest =
DeleteTableColumnRequest'
{ _dtcrCellLocation :: !(Maybe TableCellLocation)
, _dtcrTableObjectId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteTableColumnRequest
:: DeleteTableColumnRequest
deleteTableColumnRequest =
DeleteTableColumnRequest'
{_dtcrCellLocation = Nothing, _dtcrTableObjectId = Nothing}
dtcrCellLocation :: Lens' DeleteTableColumnRequest (Maybe TableCellLocation)
dtcrCellLocation
= lens _dtcrCellLocation
(\ s a -> s{_dtcrCellLocation = a})
dtcrTableObjectId :: Lens' DeleteTableColumnRequest (Maybe Text)
dtcrTableObjectId
= lens _dtcrTableObjectId
(\ s a -> s{_dtcrTableObjectId = a})
instance FromJSON DeleteTableColumnRequest where
parseJSON
= withObject "DeleteTableColumnRequest"
(\ o ->
DeleteTableColumnRequest' <$>
(o .:? "cellLocation") <*> (o .:? "tableObjectId"))
instance ToJSON DeleteTableColumnRequest where
toJSON DeleteTableColumnRequest'{..}
= object
(catMaybes
[("cellLocation" .=) <$> _dtcrCellLocation,
("tableObjectId" .=) <$> _dtcrTableObjectId])
newtype TableBOrderRow =
TableBOrderRow'
{ _tborTableBOrderCells :: Maybe [TableBOrderCell]
}
deriving (Eq, Show, Data, Typeable, Generic)
tableBOrderRow
:: TableBOrderRow
tableBOrderRow = TableBOrderRow' {_tborTableBOrderCells = Nothing}
tborTableBOrderCells :: Lens' TableBOrderRow [TableBOrderCell]
tborTableBOrderCells
= lens _tborTableBOrderCells
(\ s a -> s{_tborTableBOrderCells = a})
. _Default
. _Coerce
instance FromJSON TableBOrderRow where
parseJSON
= withObject "TableBOrderRow"
(\ o ->
TableBOrderRow' <$>
(o .:? "tableBorderCells" .!= mempty))
instance ToJSON TableBOrderRow where
toJSON TableBOrderRow'{..}
= object
(catMaybes
[("tableBorderCells" .=) <$> _tborTableBOrderCells])
data LineConnection =
LineConnection'
{ _lcConnectedObjectId :: !(Maybe Text)
, _lcConnectionSiteIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
lineConnection
:: LineConnection
lineConnection =
LineConnection'
{_lcConnectedObjectId = Nothing, _lcConnectionSiteIndex = Nothing}
lcConnectedObjectId :: Lens' LineConnection (Maybe Text)
lcConnectedObjectId
= lens _lcConnectedObjectId
(\ s a -> s{_lcConnectedObjectId = a})
lcConnectionSiteIndex :: Lens' LineConnection (Maybe Int32)
lcConnectionSiteIndex
= lens _lcConnectionSiteIndex
(\ s a -> s{_lcConnectionSiteIndex = a})
. mapping _Coerce
instance FromJSON LineConnection where
parseJSON
= withObject "LineConnection"
(\ o ->
LineConnection' <$>
(o .:? "connectedObjectId") <*>
(o .:? "connectionSiteIndex"))
instance ToJSON LineConnection where
toJSON LineConnection'{..}
= object
(catMaybes
[("connectedObjectId" .=) <$> _lcConnectedObjectId,
("connectionSiteIndex" .=) <$>
_lcConnectionSiteIndex])
data Link =
Link'
{ _lURL :: !(Maybe Text)
, _lPageObjectId :: !(Maybe Text)
, _lRelativeLink :: !(Maybe LinkRelativeLink)
, _lSlideIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
link
:: Link
link =
Link'
{ _lURL = Nothing
, _lPageObjectId = Nothing
, _lRelativeLink = Nothing
, _lSlideIndex = Nothing
}
lURL :: Lens' Link (Maybe Text)
lURL = lens _lURL (\ s a -> s{_lURL = a})
lPageObjectId :: Lens' Link (Maybe Text)
lPageObjectId
= lens _lPageObjectId
(\ s a -> s{_lPageObjectId = a})
lRelativeLink :: Lens' Link (Maybe LinkRelativeLink)
lRelativeLink
= lens _lRelativeLink
(\ s a -> s{_lRelativeLink = a})
lSlideIndex :: Lens' Link (Maybe Int32)
lSlideIndex
= lens _lSlideIndex (\ s a -> s{_lSlideIndex = a}) .
mapping _Coerce
instance FromJSON Link where
parseJSON
= withObject "Link"
(\ o ->
Link' <$>
(o .:? "url") <*> (o .:? "pageObjectId") <*>
(o .:? "relativeLink")
<*> (o .:? "slideIndex"))
instance ToJSON Link where
toJSON Link'{..}
= object
(catMaybes
[("url" .=) <$> _lURL,
("pageObjectId" .=) <$> _lPageObjectId,
("relativeLink" .=) <$> _lRelativeLink,
("slideIndex" .=) <$> _lSlideIndex])
data GroupObjectsRequest =
GroupObjectsRequest'
{ _gorGroupObjectId :: !(Maybe Text)
, _gorChildrenObjectIds :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
groupObjectsRequest
:: GroupObjectsRequest
groupObjectsRequest =
GroupObjectsRequest'
{_gorGroupObjectId = Nothing, _gorChildrenObjectIds = Nothing}
gorGroupObjectId :: Lens' GroupObjectsRequest (Maybe Text)
gorGroupObjectId
= lens _gorGroupObjectId
(\ s a -> s{_gorGroupObjectId = a})
gorChildrenObjectIds :: Lens' GroupObjectsRequest [Text]
gorChildrenObjectIds
= lens _gorChildrenObjectIds
(\ s a -> s{_gorChildrenObjectIds = a})
. _Default
. _Coerce
instance FromJSON GroupObjectsRequest where
parseJSON
= withObject "GroupObjectsRequest"
(\ o ->
GroupObjectsRequest' <$>
(o .:? "groupObjectId") <*>
(o .:? "childrenObjectIds" .!= mempty))
instance ToJSON GroupObjectsRequest where
toJSON GroupObjectsRequest'{..}
= object
(catMaybes
[("groupObjectId" .=) <$> _gorGroupObjectId,
("childrenObjectIds" .=) <$> _gorChildrenObjectIds])
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 BatchUpdatePresentationResponse =
BatchUpdatePresentationResponse'
{ _bPresentationId :: !(Maybe Text)
, _bReplies :: !(Maybe [Response])
, _bWriteControl :: !(Maybe WriteControl)
}
deriving (Eq, Show, Data, Typeable, Generic)
batchUpdatePresentationResponse
:: BatchUpdatePresentationResponse
batchUpdatePresentationResponse =
BatchUpdatePresentationResponse'
{_bPresentationId = Nothing, _bReplies = Nothing, _bWriteControl = Nothing}
bPresentationId :: Lens' BatchUpdatePresentationResponse (Maybe Text)
bPresentationId
= lens _bPresentationId
(\ s a -> s{_bPresentationId = a})
bReplies :: Lens' BatchUpdatePresentationResponse [Response]
bReplies
= lens _bReplies (\ s a -> s{_bReplies = a}) .
_Default
. _Coerce
bWriteControl :: Lens' BatchUpdatePresentationResponse (Maybe WriteControl)
bWriteControl
= lens _bWriteControl
(\ s a -> s{_bWriteControl = a})
instance FromJSON BatchUpdatePresentationResponse
where
parseJSON
= withObject "BatchUpdatePresentationResponse"
(\ o ->
BatchUpdatePresentationResponse' <$>
(o .:? "presentationId") <*>
(o .:? "replies" .!= mempty)
<*> (o .:? "writeControl"))
instance ToJSON BatchUpdatePresentationResponse where
toJSON BatchUpdatePresentationResponse'{..}
= object
(catMaybes
[("presentationId" .=) <$> _bPresentationId,
("replies" .=) <$> _bReplies,
("writeControl" .=) <$> _bWriteControl])
newtype DuplicateObjectRequestObjectIds =
DuplicateObjectRequestObjectIds'
{ _doroiAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
duplicateObjectRequestObjectIds
:: HashMap Text Text
-> DuplicateObjectRequestObjectIds
duplicateObjectRequestObjectIds pDoroiAddtional_ =
DuplicateObjectRequestObjectIds'
{_doroiAddtional = _Coerce # pDoroiAddtional_}
doroiAddtional :: Lens' DuplicateObjectRequestObjectIds (HashMap Text Text)
doroiAddtional
= lens _doroiAddtional
(\ s a -> s{_doroiAddtional = a})
. _Coerce
instance FromJSON DuplicateObjectRequestObjectIds
where
parseJSON
= withObject "DuplicateObjectRequestObjectIds"
(\ o ->
DuplicateObjectRequestObjectIds' <$>
(parseJSONObject o))
instance ToJSON DuplicateObjectRequestObjectIds where
toJSON = toJSON . _doroiAddtional
newtype ReplaceAllShapesWithSheetsChartResponse =
ReplaceAllShapesWithSheetsChartResponse'
{ _raswscrOccurrencesChanged :: Maybe (Textual Int32)
}
deriving (Eq, Show, Data, Typeable, Generic)
replaceAllShapesWithSheetsChartResponse
:: ReplaceAllShapesWithSheetsChartResponse
replaceAllShapesWithSheetsChartResponse =
ReplaceAllShapesWithSheetsChartResponse'
{_raswscrOccurrencesChanged = Nothing}
raswscrOccurrencesChanged :: Lens' ReplaceAllShapesWithSheetsChartResponse (Maybe Int32)
raswscrOccurrencesChanged
= lens _raswscrOccurrencesChanged
(\ s a -> s{_raswscrOccurrencesChanged = a})
. mapping _Coerce
instance FromJSON
ReplaceAllShapesWithSheetsChartResponse
where
parseJSON
= withObject
"ReplaceAllShapesWithSheetsChartResponse"
(\ o ->
ReplaceAllShapesWithSheetsChartResponse' <$>
(o .:? "occurrencesChanged"))
instance ToJSON
ReplaceAllShapesWithSheetsChartResponse
where
toJSON ReplaceAllShapesWithSheetsChartResponse'{..}
= object
(catMaybes
[("occurrencesChanged" .=) <$>
_raswscrOccurrencesChanged])
data CreateTableRequest =
CreateTableRequest'
{ _ctrObjectId :: !(Maybe Text)
, _ctrRows :: !(Maybe (Textual Int32))
, _ctrElementProperties :: !(Maybe PageElementProperties)
, _ctrColumns :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
createTableRequest
:: CreateTableRequest
createTableRequest =
CreateTableRequest'
{ _ctrObjectId = Nothing
, _ctrRows = Nothing
, _ctrElementProperties = Nothing
, _ctrColumns = Nothing
}
ctrObjectId :: Lens' CreateTableRequest (Maybe Text)
ctrObjectId
= lens _ctrObjectId (\ s a -> s{_ctrObjectId = a})
ctrRows :: Lens' CreateTableRequest (Maybe Int32)
ctrRows
= lens _ctrRows (\ s a -> s{_ctrRows = a}) .
mapping _Coerce
ctrElementProperties :: Lens' CreateTableRequest (Maybe PageElementProperties)
ctrElementProperties
= lens _ctrElementProperties
(\ s a -> s{_ctrElementProperties = a})
ctrColumns :: Lens' CreateTableRequest (Maybe Int32)
ctrColumns
= lens _ctrColumns (\ s a -> s{_ctrColumns = a}) .
mapping _Coerce
instance FromJSON CreateTableRequest where
parseJSON
= withObject "CreateTableRequest"
(\ o ->
CreateTableRequest' <$>
(o .:? "objectId") <*> (o .:? "rows") <*>
(o .:? "elementProperties")
<*> (o .:? "columns"))
instance ToJSON CreateTableRequest where
toJSON CreateTableRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _ctrObjectId,
("rows" .=) <$> _ctrRows,
("elementProperties" .=) <$> _ctrElementProperties,
("columns" .=) <$> _ctrColumns])
data TableBOrderProperties =
TableBOrderProperties'
{ _tbopTableBOrderFill :: !(Maybe TableBOrderFill)
, _tbopWeight :: !(Maybe Dimension)
, _tbopDashStyle :: !(Maybe TableBOrderPropertiesDashStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableBOrderProperties
:: TableBOrderProperties
tableBOrderProperties =
TableBOrderProperties'
{ _tbopTableBOrderFill = Nothing
, _tbopWeight = Nothing
, _tbopDashStyle = Nothing
}
tbopTableBOrderFill :: Lens' TableBOrderProperties (Maybe TableBOrderFill)
tbopTableBOrderFill
= lens _tbopTableBOrderFill
(\ s a -> s{_tbopTableBOrderFill = a})
tbopWeight :: Lens' TableBOrderProperties (Maybe Dimension)
tbopWeight
= lens _tbopWeight (\ s a -> s{_tbopWeight = a})
tbopDashStyle :: Lens' TableBOrderProperties (Maybe TableBOrderPropertiesDashStyle)
tbopDashStyle
= lens _tbopDashStyle
(\ s a -> s{_tbopDashStyle = a})
instance FromJSON TableBOrderProperties where
parseJSON
= withObject "TableBOrderProperties"
(\ o ->
TableBOrderProperties' <$>
(o .:? "tableBorderFill") <*> (o .:? "weight") <*>
(o .:? "dashStyle"))
instance ToJSON TableBOrderProperties where
toJSON TableBOrderProperties'{..}
= object
(catMaybes
[("tableBorderFill" .=) <$> _tbopTableBOrderFill,
("weight" .=) <$> _tbopWeight,
("dashStyle" .=) <$> _tbopDashStyle])
data Response =
Response'
{ _rReplaceAllShapesWithImage :: !(Maybe ReplaceAllShapesWithImageResponse)
, _rCreateLine :: !(Maybe CreateLineResponse)
, _rReplaceAllText :: !(Maybe ReplaceAllTextResponse)
, _rReplaceAllShapesWithSheetsChart :: !(Maybe ReplaceAllShapesWithSheetsChartResponse)
, _rCreateShape :: !(Maybe CreateShapeResponse)
, _rGroupObjects :: !(Maybe GroupObjectsResponse)
, _rCreateSheetsChart :: !(Maybe CreateSheetsChartResponse)
, _rDuplicateObject :: !(Maybe DuplicateObjectResponse)
, _rCreateTable :: !(Maybe CreateTableResponse)
, _rCreateVideo :: !(Maybe CreateVideoResponse)
, _rCreateImage :: !(Maybe CreateImageResponse)
, _rCreateSlide :: !(Maybe CreateSlideResponse)
}
deriving (Eq, Show, Data, Typeable, Generic)
response
:: Response
response =
Response'
{ _rReplaceAllShapesWithImage = Nothing
, _rCreateLine = Nothing
, _rReplaceAllText = Nothing
, _rReplaceAllShapesWithSheetsChart = Nothing
, _rCreateShape = Nothing
, _rGroupObjects = Nothing
, _rCreateSheetsChart = Nothing
, _rDuplicateObject = Nothing
, _rCreateTable = Nothing
, _rCreateVideo = Nothing
, _rCreateImage = Nothing
, _rCreateSlide = Nothing
}
rReplaceAllShapesWithImage :: Lens' Response (Maybe ReplaceAllShapesWithImageResponse)
rReplaceAllShapesWithImage
= lens _rReplaceAllShapesWithImage
(\ s a -> s{_rReplaceAllShapesWithImage = a})
rCreateLine :: Lens' Response (Maybe CreateLineResponse)
rCreateLine
= lens _rCreateLine (\ s a -> s{_rCreateLine = a})
rReplaceAllText :: Lens' Response (Maybe ReplaceAllTextResponse)
rReplaceAllText
= lens _rReplaceAllText
(\ s a -> s{_rReplaceAllText = a})
rReplaceAllShapesWithSheetsChart :: Lens' Response (Maybe ReplaceAllShapesWithSheetsChartResponse)
rReplaceAllShapesWithSheetsChart
= lens _rReplaceAllShapesWithSheetsChart
(\ s a -> s{_rReplaceAllShapesWithSheetsChart = a})
rCreateShape :: Lens' Response (Maybe CreateShapeResponse)
rCreateShape
= lens _rCreateShape (\ s a -> s{_rCreateShape = a})
rGroupObjects :: Lens' Response (Maybe GroupObjectsResponse)
rGroupObjects
= lens _rGroupObjects
(\ s a -> s{_rGroupObjects = a})
rCreateSheetsChart :: Lens' Response (Maybe CreateSheetsChartResponse)
rCreateSheetsChart
= lens _rCreateSheetsChart
(\ s a -> s{_rCreateSheetsChart = a})
rDuplicateObject :: Lens' Response (Maybe DuplicateObjectResponse)
rDuplicateObject
= lens _rDuplicateObject
(\ s a -> s{_rDuplicateObject = a})
rCreateTable :: Lens' Response (Maybe CreateTableResponse)
rCreateTable
= lens _rCreateTable (\ s a -> s{_rCreateTable = a})
rCreateVideo :: Lens' Response (Maybe CreateVideoResponse)
rCreateVideo
= lens _rCreateVideo (\ s a -> s{_rCreateVideo = a})
rCreateImage :: Lens' Response (Maybe CreateImageResponse)
rCreateImage
= lens _rCreateImage (\ s a -> s{_rCreateImage = a})
rCreateSlide :: Lens' Response (Maybe CreateSlideResponse)
rCreateSlide
= lens _rCreateSlide (\ s a -> s{_rCreateSlide = a})
instance FromJSON Response where
parseJSON
= withObject "Response"
(\ o ->
Response' <$>
(o .:? "replaceAllShapesWithImage") <*>
(o .:? "createLine")
<*> (o .:? "replaceAllText")
<*> (o .:? "replaceAllShapesWithSheetsChart")
<*> (o .:? "createShape")
<*> (o .:? "groupObjects")
<*> (o .:? "createSheetsChart")
<*> (o .:? "duplicateObject")
<*> (o .:? "createTable")
<*> (o .:? "createVideo")
<*> (o .:? "createImage")
<*> (o .:? "createSlide"))
instance ToJSON Response where
toJSON Response'{..}
= object
(catMaybes
[("replaceAllShapesWithImage" .=) <$>
_rReplaceAllShapesWithImage,
("createLine" .=) <$> _rCreateLine,
("replaceAllText" .=) <$> _rReplaceAllText,
("replaceAllShapesWithSheetsChart" .=) <$>
_rReplaceAllShapesWithSheetsChart,
("createShape" .=) <$> _rCreateShape,
("groupObjects" .=) <$> _rGroupObjects,
("createSheetsChart" .=) <$> _rCreateSheetsChart,
("duplicateObject" .=) <$> _rDuplicateObject,
("createTable" .=) <$> _rCreateTable,
("createVideo" .=) <$> _rCreateVideo,
("createImage" .=) <$> _rCreateImage,
("createSlide" .=) <$> _rCreateSlide])
newtype OptionalColor =
OptionalColor'
{ _ocOpaqueColor :: Maybe OpaqueColor
}
deriving (Eq, Show, Data, Typeable, Generic)
optionalColor
:: OptionalColor
optionalColor = OptionalColor' {_ocOpaqueColor = Nothing}
ocOpaqueColor :: Lens' OptionalColor (Maybe OpaqueColor)
ocOpaqueColor
= lens _ocOpaqueColor
(\ s a -> s{_ocOpaqueColor = a})
instance FromJSON OptionalColor where
parseJSON
= withObject "OptionalColor"
(\ o -> OptionalColor' <$> (o .:? "opaqueColor"))
instance ToJSON OptionalColor where
toJSON OptionalColor'{..}
= object
(catMaybes [("opaqueColor" .=) <$> _ocOpaqueColor])
data DuplicateObjectRequest =
DuplicateObjectRequest'
{ _dorObjectId :: !(Maybe Text)
, _dorObjectIds :: !(Maybe DuplicateObjectRequestObjectIds)
}
deriving (Eq, Show, Data, Typeable, Generic)
duplicateObjectRequest
:: DuplicateObjectRequest
duplicateObjectRequest =
DuplicateObjectRequest' {_dorObjectId = Nothing, _dorObjectIds = Nothing}
dorObjectId :: Lens' DuplicateObjectRequest (Maybe Text)
dorObjectId
= lens _dorObjectId (\ s a -> s{_dorObjectId = a})
dorObjectIds :: Lens' DuplicateObjectRequest (Maybe DuplicateObjectRequestObjectIds)
dorObjectIds
= lens _dorObjectIds (\ s a -> s{_dorObjectIds = a})
instance FromJSON DuplicateObjectRequest where
parseJSON
= withObject "DuplicateObjectRequest"
(\ o ->
DuplicateObjectRequest' <$>
(o .:? "objectId") <*> (o .:? "objectIds"))
instance ToJSON DuplicateObjectRequest where
toJSON DuplicateObjectRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _dorObjectId,
("objectIds" .=) <$> _dorObjectIds])
newtype UnGroupObjectsRequest =
UnGroupObjectsRequest'
{ _ugorObjectIds :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
unGroupObjectsRequest
:: UnGroupObjectsRequest
unGroupObjectsRequest = UnGroupObjectsRequest' {_ugorObjectIds = Nothing}
ugorObjectIds :: Lens' UnGroupObjectsRequest [Text]
ugorObjectIds
= lens _ugorObjectIds
(\ s a -> s{_ugorObjectIds = a})
. _Default
. _Coerce
instance FromJSON UnGroupObjectsRequest where
parseJSON
= withObject "UnGroupObjectsRequest"
(\ o ->
UnGroupObjectsRequest' <$>
(o .:? "objectIds" .!= mempty))
instance ToJSON UnGroupObjectsRequest where
toJSON UnGroupObjectsRequest'{..}
= object
(catMaybes [("objectIds" .=) <$> _ugorObjectIds])
data Page =
Page'
{ _pNotesProperties :: !(Maybe NotesProperties)
, _pMasterProperties :: !(Maybe MasterProperties)
, _pObjectId :: !(Maybe Text)
, _pPageElements :: !(Maybe [PageElement])
, _pSlideProperties :: !(Maybe SlideProperties)
, _pPageProperties :: !(Maybe PageProperties)
, _pLayoutProperties :: !(Maybe LayoutProperties)
, _pPageType :: !(Maybe PagePageType)
, _pRevisionId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
page
:: Page
page =
Page'
{ _pNotesProperties = Nothing
, _pMasterProperties = Nothing
, _pObjectId = Nothing
, _pPageElements = Nothing
, _pSlideProperties = Nothing
, _pPageProperties = Nothing
, _pLayoutProperties = Nothing
, _pPageType = Nothing
, _pRevisionId = Nothing
}
pNotesProperties :: Lens' Page (Maybe NotesProperties)
pNotesProperties
= lens _pNotesProperties
(\ s a -> s{_pNotesProperties = a})
pMasterProperties :: Lens' Page (Maybe MasterProperties)
pMasterProperties
= lens _pMasterProperties
(\ s a -> s{_pMasterProperties = a})
pObjectId :: Lens' Page (Maybe Text)
pObjectId
= lens _pObjectId (\ s a -> s{_pObjectId = a})
pPageElements :: Lens' Page [PageElement]
pPageElements
= lens _pPageElements
(\ s a -> s{_pPageElements = a})
. _Default
. _Coerce
pSlideProperties :: Lens' Page (Maybe SlideProperties)
pSlideProperties
= lens _pSlideProperties
(\ s a -> s{_pSlideProperties = a})
pPageProperties :: Lens' Page (Maybe PageProperties)
pPageProperties
= lens _pPageProperties
(\ s a -> s{_pPageProperties = a})
pLayoutProperties :: Lens' Page (Maybe LayoutProperties)
pLayoutProperties
= lens _pLayoutProperties
(\ s a -> s{_pLayoutProperties = a})
pPageType :: Lens' Page (Maybe PagePageType)
pPageType
= lens _pPageType (\ s a -> s{_pPageType = a})
pRevisionId :: Lens' Page (Maybe Text)
pRevisionId
= lens _pRevisionId (\ s a -> s{_pRevisionId = a})
instance FromJSON Page where
parseJSON
= withObject "Page"
(\ o ->
Page' <$>
(o .:? "notesProperties") <*>
(o .:? "masterProperties")
<*> (o .:? "objectId")
<*> (o .:? "pageElements" .!= mempty)
<*> (o .:? "slideProperties")
<*> (o .:? "pageProperties")
<*> (o .:? "layoutProperties")
<*> (o .:? "pageType")
<*> (o .:? "revisionId"))
instance ToJSON Page where
toJSON Page'{..}
= object
(catMaybes
[("notesProperties" .=) <$> _pNotesProperties,
("masterProperties" .=) <$> _pMasterProperties,
("objectId" .=) <$> _pObjectId,
("pageElements" .=) <$> _pPageElements,
("slideProperties" .=) <$> _pSlideProperties,
("pageProperties" .=) <$> _pPageProperties,
("layoutProperties" .=) <$> _pLayoutProperties,
("pageType" .=) <$> _pPageType,
("revisionId" .=) <$> _pRevisionId])
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 Bullet =
Bullet'
{ _bGlyph :: !(Maybe Text)
, _bListId :: !(Maybe Text)
, _bNestingLevel :: !(Maybe (Textual Int32))
, _bBulletStyle :: !(Maybe TextStyle)
}
deriving (Eq, Show, Data, Typeable, Generic)
bullet
:: Bullet
bullet =
Bullet'
{ _bGlyph = Nothing
, _bListId = Nothing
, _bNestingLevel = Nothing
, _bBulletStyle = Nothing
}
bGlyph :: Lens' Bullet (Maybe Text)
bGlyph = lens _bGlyph (\ s a -> s{_bGlyph = a})
bListId :: Lens' Bullet (Maybe Text)
bListId = lens _bListId (\ s a -> s{_bListId = a})
bNestingLevel :: Lens' Bullet (Maybe Int32)
bNestingLevel
= lens _bNestingLevel
(\ s a -> s{_bNestingLevel = a})
. mapping _Coerce
bBulletStyle :: Lens' Bullet (Maybe TextStyle)
bBulletStyle
= lens _bBulletStyle (\ s a -> s{_bBulletStyle = a})
instance FromJSON Bullet where
parseJSON
= withObject "Bullet"
(\ o ->
Bullet' <$>
(o .:? "glyph") <*> (o .:? "listId") <*>
(o .:? "nestingLevel")
<*> (o .:? "bulletStyle"))
instance ToJSON Bullet where
toJSON Bullet'{..}
= object
(catMaybes
[("glyph" .=) <$> _bGlyph,
("listId" .=) <$> _bListId,
("nestingLevel" .=) <$> _bNestingLevel,
("bulletStyle" .=) <$> _bBulletStyle])
data UpdateImagePropertiesRequest =
UpdateImagePropertiesRequest'
{ _uiprObjectId :: !(Maybe Text)
, _uiprImageProperties :: !(Maybe ImageProperties)
, _uiprFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateImagePropertiesRequest
:: UpdateImagePropertiesRequest
updateImagePropertiesRequest =
UpdateImagePropertiesRequest'
{ _uiprObjectId = Nothing
, _uiprImageProperties = Nothing
, _uiprFields = Nothing
}
uiprObjectId :: Lens' UpdateImagePropertiesRequest (Maybe Text)
uiprObjectId
= lens _uiprObjectId (\ s a -> s{_uiprObjectId = a})
uiprImageProperties :: Lens' UpdateImagePropertiesRequest (Maybe ImageProperties)
uiprImageProperties
= lens _uiprImageProperties
(\ s a -> s{_uiprImageProperties = a})
uiprFields :: Lens' UpdateImagePropertiesRequest (Maybe GFieldMask)
uiprFields
= lens _uiprFields (\ s a -> s{_uiprFields = a})
instance FromJSON UpdateImagePropertiesRequest where
parseJSON
= withObject "UpdateImagePropertiesRequest"
(\ o ->
UpdateImagePropertiesRequest' <$>
(o .:? "objectId") <*> (o .:? "imageProperties") <*>
(o .:? "fields"))
instance ToJSON UpdateImagePropertiesRequest where
toJSON UpdateImagePropertiesRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _uiprObjectId,
("imageProperties" .=) <$> _uiprImageProperties,
("fields" .=) <$> _uiprFields])
data SlideProperties =
SlideProperties'
{ _spLayoutObjectId :: !(Maybe Text)
, _spMasterObjectId :: !(Maybe Text)
, _spNotesPage :: !(Maybe Page)
}
deriving (Eq, Show, Data, Typeable, Generic)
slideProperties
:: SlideProperties
slideProperties =
SlideProperties'
{ _spLayoutObjectId = Nothing
, _spMasterObjectId = Nothing
, _spNotesPage = Nothing
}
spLayoutObjectId :: Lens' SlideProperties (Maybe Text)
spLayoutObjectId
= lens _spLayoutObjectId
(\ s a -> s{_spLayoutObjectId = a})
spMasterObjectId :: Lens' SlideProperties (Maybe Text)
spMasterObjectId
= lens _spMasterObjectId
(\ s a -> s{_spMasterObjectId = a})
spNotesPage :: Lens' SlideProperties (Maybe Page)
spNotesPage
= lens _spNotesPage (\ s a -> s{_spNotesPage = a})
instance FromJSON SlideProperties where
parseJSON
= withObject "SlideProperties"
(\ o ->
SlideProperties' <$>
(o .:? "layoutObjectId") <*> (o .:? "masterObjectId")
<*> (o .:? "notesPage"))
instance ToJSON SlideProperties where
toJSON SlideProperties'{..}
= object
(catMaybes
[("layoutObjectId" .=) <$> _spLayoutObjectId,
("masterObjectId" .=) <$> _spMasterObjectId,
("notesPage" .=) <$> _spNotesPage])
data Presentation =
Presentation'
{ _preSlides :: !(Maybe [Page])
, _preNotesMaster :: !(Maybe Page)
, _preMasters :: !(Maybe [Page])
, _preLocale :: !(Maybe Text)
, _prePresentationId :: !(Maybe Text)
, _preTitle :: !(Maybe Text)
, _preRevisionId :: !(Maybe Text)
, _prePageSize :: !(Maybe Size)
, _preLayouts :: !(Maybe [Page])
}
deriving (Eq, Show, Data, Typeable, Generic)
presentation
:: Presentation
presentation =
Presentation'
{ _preSlides = Nothing
, _preNotesMaster = Nothing
, _preMasters = Nothing
, _preLocale = Nothing
, _prePresentationId = Nothing
, _preTitle = Nothing
, _preRevisionId = Nothing
, _prePageSize = Nothing
, _preLayouts = Nothing
}
preSlides :: Lens' Presentation [Page]
preSlides
= lens _preSlides (\ s a -> s{_preSlides = a}) .
_Default
. _Coerce
preNotesMaster :: Lens' Presentation (Maybe Page)
preNotesMaster
= lens _preNotesMaster
(\ s a -> s{_preNotesMaster = a})
preMasters :: Lens' Presentation [Page]
preMasters
= lens _preMasters (\ s a -> s{_preMasters = a}) .
_Default
. _Coerce
preLocale :: Lens' Presentation (Maybe Text)
preLocale
= lens _preLocale (\ s a -> s{_preLocale = a})
prePresentationId :: Lens' Presentation (Maybe Text)
prePresentationId
= lens _prePresentationId
(\ s a -> s{_prePresentationId = a})
preTitle :: Lens' Presentation (Maybe Text)
preTitle = lens _preTitle (\ s a -> s{_preTitle = a})
preRevisionId :: Lens' Presentation (Maybe Text)
preRevisionId
= lens _preRevisionId
(\ s a -> s{_preRevisionId = a})
prePageSize :: Lens' Presentation (Maybe Size)
prePageSize
= lens _prePageSize (\ s a -> s{_prePageSize = a})
preLayouts :: Lens' Presentation [Page]
preLayouts
= lens _preLayouts (\ s a -> s{_preLayouts = a}) .
_Default
. _Coerce
instance FromJSON Presentation where
parseJSON
= withObject "Presentation"
(\ o ->
Presentation' <$>
(o .:? "slides" .!= mempty) <*> (o .:? "notesMaster")
<*> (o .:? "masters" .!= mempty)
<*> (o .:? "locale")
<*> (o .:? "presentationId")
<*> (o .:? "title")
<*> (o .:? "revisionId")
<*> (o .:? "pageSize")
<*> (o .:? "layouts" .!= mempty))
instance ToJSON Presentation where
toJSON Presentation'{..}
= object
(catMaybes
[("slides" .=) <$> _preSlides,
("notesMaster" .=) <$> _preNotesMaster,
("masters" .=) <$> _preMasters,
("locale" .=) <$> _preLocale,
("presentationId" .=) <$> _prePresentationId,
("title" .=) <$> _preTitle,
("revisionId" .=) <$> _preRevisionId,
("pageSize" .=) <$> _prePageSize,
("layouts" .=) <$> _preLayouts])
data ThemeColorPair =
ThemeColorPair'
{ _tcpColor :: !(Maybe RgbColor)
, _tcpType :: !(Maybe ThemeColorPairType)
}
deriving (Eq, Show, Data, Typeable, Generic)
themeColorPair
:: ThemeColorPair
themeColorPair = ThemeColorPair' {_tcpColor = Nothing, _tcpType = Nothing}
tcpColor :: Lens' ThemeColorPair (Maybe RgbColor)
tcpColor = lens _tcpColor (\ s a -> s{_tcpColor = a})
tcpType :: Lens' ThemeColorPair (Maybe ThemeColorPairType)
tcpType = lens _tcpType (\ s a -> s{_tcpType = a})
instance FromJSON ThemeColorPair where
parseJSON
= withObject "ThemeColorPair"
(\ o ->
ThemeColorPair' <$>
(o .:? "color") <*> (o .:? "type"))
instance ToJSON ThemeColorPair where
toJSON ThemeColorPair'{..}
= object
(catMaybes
[("color" .=) <$> _tcpColor,
("type" .=) <$> _tcpType])
data Shadow =
Shadow'
{ _sTransform :: !(Maybe AffineTransform)
, _sColor :: !(Maybe OpaqueColor)
, _sBlurRadius :: !(Maybe Dimension)
, _sRotateWithShape :: !(Maybe Bool)
, _sAlpha :: !(Maybe (Textual Double))
, _sAlignment :: !(Maybe ShadowAlignment)
, _sPropertyState :: !(Maybe ShadowPropertyState)
, _sType :: !(Maybe ShadowType)
}
deriving (Eq, Show, Data, Typeable, Generic)
shadow
:: Shadow
shadow =
Shadow'
{ _sTransform = Nothing
, _sColor = Nothing
, _sBlurRadius = Nothing
, _sRotateWithShape = Nothing
, _sAlpha = Nothing
, _sAlignment = Nothing
, _sPropertyState = Nothing
, _sType = Nothing
}
sTransform :: Lens' Shadow (Maybe AffineTransform)
sTransform
= lens _sTransform (\ s a -> s{_sTransform = a})
sColor :: Lens' Shadow (Maybe OpaqueColor)
sColor = lens _sColor (\ s a -> s{_sColor = a})
sBlurRadius :: Lens' Shadow (Maybe Dimension)
sBlurRadius
= lens _sBlurRadius (\ s a -> s{_sBlurRadius = a})
sRotateWithShape :: Lens' Shadow (Maybe Bool)
sRotateWithShape
= lens _sRotateWithShape
(\ s a -> s{_sRotateWithShape = a})
sAlpha :: Lens' Shadow (Maybe Double)
sAlpha
= lens _sAlpha (\ s a -> s{_sAlpha = a}) .
mapping _Coerce
sAlignment :: Lens' Shadow (Maybe ShadowAlignment)
sAlignment
= lens _sAlignment (\ s a -> s{_sAlignment = a})
sPropertyState :: Lens' Shadow (Maybe ShadowPropertyState)
sPropertyState
= lens _sPropertyState
(\ s a -> s{_sPropertyState = a})
sType :: Lens' Shadow (Maybe ShadowType)
sType = lens _sType (\ s a -> s{_sType = a})
instance FromJSON Shadow where
parseJSON
= withObject "Shadow"
(\ o ->
Shadow' <$>
(o .:? "transform") <*> (o .:? "color") <*>
(o .:? "blurRadius")
<*> (o .:? "rotateWithShape")
<*> (o .:? "alpha")
<*> (o .:? "alignment")
<*> (o .:? "propertyState")
<*> (o .:? "type"))
instance ToJSON Shadow where
toJSON Shadow'{..}
= object
(catMaybes
[("transform" .=) <$> _sTransform,
("color" .=) <$> _sColor,
("blurRadius" .=) <$> _sBlurRadius,
("rotateWithShape" .=) <$> _sRotateWithShape,
("alpha" .=) <$> _sAlpha,
("alignment" .=) <$> _sAlignment,
("propertyState" .=) <$> _sPropertyState,
("type" .=) <$> _sType])
data ImageProperties =
ImageProperties'
{ _ipCropProperties :: !(Maybe CropProperties)
, _ipLink :: !(Maybe Link)
, _ipTransparency :: !(Maybe (Textual Double))
, _ipShadow :: !(Maybe Shadow)
, _ipContrast :: !(Maybe (Textual Double))
, _ipRecolor :: !(Maybe Recolor)
, _ipOutline :: !(Maybe Outline)
, _ipBrightness :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
imageProperties
:: ImageProperties
imageProperties =
ImageProperties'
{ _ipCropProperties = Nothing
, _ipLink = Nothing
, _ipTransparency = Nothing
, _ipShadow = Nothing
, _ipContrast = Nothing
, _ipRecolor = Nothing
, _ipOutline = Nothing
, _ipBrightness = Nothing
}
ipCropProperties :: Lens' ImageProperties (Maybe CropProperties)
ipCropProperties
= lens _ipCropProperties
(\ s a -> s{_ipCropProperties = a})
ipLink :: Lens' ImageProperties (Maybe Link)
ipLink = lens _ipLink (\ s a -> s{_ipLink = a})
ipTransparency :: Lens' ImageProperties (Maybe Double)
ipTransparency
= lens _ipTransparency
(\ s a -> s{_ipTransparency = a})
. mapping _Coerce
ipShadow :: Lens' ImageProperties (Maybe Shadow)
ipShadow = lens _ipShadow (\ s a -> s{_ipShadow = a})
ipContrast :: Lens' ImageProperties (Maybe Double)
ipContrast
= lens _ipContrast (\ s a -> s{_ipContrast = a}) .
mapping _Coerce
ipRecolor :: Lens' ImageProperties (Maybe Recolor)
ipRecolor
= lens _ipRecolor (\ s a -> s{_ipRecolor = a})
ipOutline :: Lens' ImageProperties (Maybe Outline)
ipOutline
= lens _ipOutline (\ s a -> s{_ipOutline = 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 .:? "link") <*>
(o .:? "transparency")
<*> (o .:? "shadow")
<*> (o .:? "contrast")
<*> (o .:? "recolor")
<*> (o .:? "outline")
<*> (o .:? "brightness"))
instance ToJSON ImageProperties where
toJSON ImageProperties'{..}
= object
(catMaybes
[("cropProperties" .=) <$> _ipCropProperties,
("link" .=) <$> _ipLink,
("transparency" .=) <$> _ipTransparency,
("shadow" .=) <$> _ipShadow,
("contrast" .=) <$> _ipContrast,
("recolor" .=) <$> _ipRecolor,
("outline" .=) <$> _ipOutline,
("brightness" .=) <$> _ipBrightness])
data Line =
Line'
{ _lLineProperties :: !(Maybe LineProperties)
, _lLineCategory :: !(Maybe LineLineCategory)
, _lLineType :: !(Maybe LineLineType)
}
deriving (Eq, Show, Data, Typeable, Generic)
line
:: Line
line =
Line'
{_lLineProperties = Nothing, _lLineCategory = Nothing, _lLineType = Nothing}
lLineProperties :: Lens' Line (Maybe LineProperties)
lLineProperties
= lens _lLineProperties
(\ s a -> s{_lLineProperties = a})
lLineCategory :: Lens' Line (Maybe LineLineCategory)
lLineCategory
= lens _lLineCategory
(\ s a -> s{_lLineCategory = a})
lLineType :: Lens' Line (Maybe LineLineType)
lLineType
= lens _lLineType (\ s a -> s{_lLineType = a})
instance FromJSON Line where
parseJSON
= withObject "Line"
(\ o ->
Line' <$>
(o .:? "lineProperties") <*> (o .:? "lineCategory")
<*> (o .:? "lineType"))
instance ToJSON Line where
toJSON Line'{..}
= object
(catMaybes
[("lineProperties" .=) <$> _lLineProperties,
("lineCategory" .=) <$> _lLineCategory,
("lineType" .=) <$> _lLineType])
newtype CreateVideoResponse =
CreateVideoResponse'
{ _cvrObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createVideoResponse
:: CreateVideoResponse
createVideoResponse = CreateVideoResponse' {_cvrObjectId = Nothing}
cvrObjectId :: Lens' CreateVideoResponse (Maybe Text)
cvrObjectId
= lens _cvrObjectId (\ s a -> s{_cvrObjectId = a})
instance FromJSON CreateVideoResponse where
parseJSON
= withObject "CreateVideoResponse"
(\ o -> CreateVideoResponse' <$> (o .:? "objectId"))
instance ToJSON CreateVideoResponse where
toJSON CreateVideoResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _cvrObjectId])
data LayoutReference =
LayoutReference'
{ _lrPredefinedLayout :: !(Maybe LayoutReferencePredefinedLayout)
, _lrLayoutId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
layoutReference
:: LayoutReference
layoutReference =
LayoutReference' {_lrPredefinedLayout = Nothing, _lrLayoutId = Nothing}
lrPredefinedLayout :: Lens' LayoutReference (Maybe LayoutReferencePredefinedLayout)
lrPredefinedLayout
= lens _lrPredefinedLayout
(\ s a -> s{_lrPredefinedLayout = a})
lrLayoutId :: Lens' LayoutReference (Maybe Text)
lrLayoutId
= lens _lrLayoutId (\ s a -> s{_lrLayoutId = a})
instance FromJSON LayoutReference where
parseJSON
= withObject "LayoutReference"
(\ o ->
LayoutReference' <$>
(o .:? "predefinedLayout") <*> (o .:? "layoutId"))
instance ToJSON LayoutReference where
toJSON LayoutReference'{..}
= object
(catMaybes
[("predefinedLayout" .=) <$> _lrPredefinedLayout,
("layoutId" .=) <$> _lrLayoutId])
newtype LineFill =
LineFill'
{ _lfSolidFill :: Maybe SolidFill
}
deriving (Eq, Show, Data, Typeable, Generic)
lineFill
:: LineFill
lineFill = LineFill' {_lfSolidFill = Nothing}
lfSolidFill :: Lens' LineFill (Maybe SolidFill)
lfSolidFill
= lens _lfSolidFill (\ s a -> s{_lfSolidFill = a})
instance FromJSON LineFill where
parseJSON
= withObject "LineFill"
(\ o -> LineFill' <$> (o .:? "solidFill"))
instance ToJSON LineFill where
toJSON LineFill'{..}
= object
(catMaybes [("solidFill" .=) <$> _lfSolidFill])
data UpdatePageElementTransformRequest =
UpdatePageElementTransformRequest'
{ _upetrTransform :: !(Maybe AffineTransform)
, _upetrObjectId :: !(Maybe Text)
, _upetrApplyMode :: !(Maybe UpdatePageElementTransformRequestApplyMode)
}
deriving (Eq, Show, Data, Typeable, Generic)
updatePageElementTransformRequest
:: UpdatePageElementTransformRequest
updatePageElementTransformRequest =
UpdatePageElementTransformRequest'
{ _upetrTransform = Nothing
, _upetrObjectId = Nothing
, _upetrApplyMode = Nothing
}
upetrTransform :: Lens' UpdatePageElementTransformRequest (Maybe AffineTransform)
upetrTransform
= lens _upetrTransform
(\ s a -> s{_upetrTransform = a})
upetrObjectId :: Lens' UpdatePageElementTransformRequest (Maybe Text)
upetrObjectId
= lens _upetrObjectId
(\ s a -> s{_upetrObjectId = a})
upetrApplyMode :: Lens' UpdatePageElementTransformRequest (Maybe UpdatePageElementTransformRequestApplyMode)
upetrApplyMode
= lens _upetrApplyMode
(\ s a -> s{_upetrApplyMode = a})
instance FromJSON UpdatePageElementTransformRequest
where
parseJSON
= withObject "UpdatePageElementTransformRequest"
(\ o ->
UpdatePageElementTransformRequest' <$>
(o .:? "transform") <*> (o .:? "objectId") <*>
(o .:? "applyMode"))
instance ToJSON UpdatePageElementTransformRequest
where
toJSON UpdatePageElementTransformRequest'{..}
= object
(catMaybes
[("transform" .=) <$> _upetrTransform,
("objectId" .=) <$> _upetrObjectId,
("applyMode" .=) <$> _upetrApplyMode])
data InsertTableRowsRequest =
InsertTableRowsRequest'
{ _itrrInsertBelow :: !(Maybe Bool)
, _itrrNumber :: !(Maybe (Textual Int32))
, _itrrCellLocation :: !(Maybe TableCellLocation)
, _itrrTableObjectId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
insertTableRowsRequest
:: InsertTableRowsRequest
insertTableRowsRequest =
InsertTableRowsRequest'
{ _itrrInsertBelow = Nothing
, _itrrNumber = Nothing
, _itrrCellLocation = Nothing
, _itrrTableObjectId = Nothing
}
itrrInsertBelow :: Lens' InsertTableRowsRequest (Maybe Bool)
itrrInsertBelow
= lens _itrrInsertBelow
(\ s a -> s{_itrrInsertBelow = a})
itrrNumber :: Lens' InsertTableRowsRequest (Maybe Int32)
itrrNumber
= lens _itrrNumber (\ s a -> s{_itrrNumber = a}) .
mapping _Coerce
itrrCellLocation :: Lens' InsertTableRowsRequest (Maybe TableCellLocation)
itrrCellLocation
= lens _itrrCellLocation
(\ s a -> s{_itrrCellLocation = a})
itrrTableObjectId :: Lens' InsertTableRowsRequest (Maybe Text)
itrrTableObjectId
= lens _itrrTableObjectId
(\ s a -> s{_itrrTableObjectId = a})
instance FromJSON InsertTableRowsRequest where
parseJSON
= withObject "InsertTableRowsRequest"
(\ o ->
InsertTableRowsRequest' <$>
(o .:? "insertBelow") <*> (o .:? "number") <*>
(o .:? "cellLocation")
<*> (o .:? "tableObjectId"))
instance ToJSON InsertTableRowsRequest where
toJSON InsertTableRowsRequest'{..}
= object
(catMaybes
[("insertBelow" .=) <$> _itrrInsertBelow,
("number" .=) <$> _itrrNumber,
("cellLocation" .=) <$> _itrrCellLocation,
("tableObjectId" .=) <$> _itrrTableObjectId])
data UnmergeTableCellsRequest =
UnmergeTableCellsRequest'
{ _utcrObjectId :: !(Maybe Text)
, _utcrTableRange :: !(Maybe TableRange)
}
deriving (Eq, Show, Data, Typeable, Generic)
unmergeTableCellsRequest
:: UnmergeTableCellsRequest
unmergeTableCellsRequest =
UnmergeTableCellsRequest' {_utcrObjectId = Nothing, _utcrTableRange = Nothing}
utcrObjectId :: Lens' UnmergeTableCellsRequest (Maybe Text)
utcrObjectId
= lens _utcrObjectId (\ s a -> s{_utcrObjectId = a})
utcrTableRange :: Lens' UnmergeTableCellsRequest (Maybe TableRange)
utcrTableRange
= lens _utcrTableRange
(\ s a -> s{_utcrTableRange = a})
instance FromJSON UnmergeTableCellsRequest where
parseJSON
= withObject "UnmergeTableCellsRequest"
(\ o ->
UnmergeTableCellsRequest' <$>
(o .:? "objectId") <*> (o .:? "tableRange"))
instance ToJSON UnmergeTableCellsRequest where
toJSON UnmergeTableCellsRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _utcrObjectId,
("tableRange" .=) <$> _utcrTableRange])
data Video =
Video'
{ _vURL :: !(Maybe Text)
, _vSource :: !(Maybe VideoSource)
, _vId :: !(Maybe Text)
, _vVideoProperties :: !(Maybe VideoProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
video
:: Video
video =
Video'
{ _vURL = Nothing
, _vSource = Nothing
, _vId = Nothing
, _vVideoProperties = Nothing
}
vURL :: Lens' Video (Maybe Text)
vURL = lens _vURL (\ s a -> s{_vURL = a})
vSource :: Lens' Video (Maybe VideoSource)
vSource = lens _vSource (\ s a -> s{_vSource = a})
vId :: Lens' Video (Maybe Text)
vId = lens _vId (\ s a -> s{_vId = a})
vVideoProperties :: Lens' Video (Maybe VideoProperties)
vVideoProperties
= lens _vVideoProperties
(\ s a -> s{_vVideoProperties = a})
instance FromJSON Video where
parseJSON
= withObject "Video"
(\ o ->
Video' <$>
(o .:? "url") <*> (o .:? "source") <*> (o .:? "id")
<*> (o .:? "videoProperties"))
instance ToJSON Video where
toJSON Video'{..}
= object
(catMaybes
[("url" .=) <$> _vURL, ("source" .=) <$> _vSource,
("id" .=) <$> _vId,
("videoProperties" .=) <$> _vVideoProperties])
data UpdateTableColumnPropertiesRequest =
UpdateTableColumnPropertiesRequest'
{ _utcprObjectId :: !(Maybe Text)
, _utcprTableColumnProperties :: !(Maybe TableColumnProperties)
, _utcprFields :: !(Maybe GFieldMask)
, _utcprColumnIndices :: !(Maybe [Textual Int32])
}
deriving (Eq, Show, Data, Typeable, Generic)
updateTableColumnPropertiesRequest
:: UpdateTableColumnPropertiesRequest
updateTableColumnPropertiesRequest =
UpdateTableColumnPropertiesRequest'
{ _utcprObjectId = Nothing
, _utcprTableColumnProperties = Nothing
, _utcprFields = Nothing
, _utcprColumnIndices = Nothing
}
utcprObjectId :: Lens' UpdateTableColumnPropertiesRequest (Maybe Text)
utcprObjectId
= lens _utcprObjectId
(\ s a -> s{_utcprObjectId = a})
utcprTableColumnProperties :: Lens' UpdateTableColumnPropertiesRequest (Maybe TableColumnProperties)
utcprTableColumnProperties
= lens _utcprTableColumnProperties
(\ s a -> s{_utcprTableColumnProperties = a})
utcprFields :: Lens' UpdateTableColumnPropertiesRequest (Maybe GFieldMask)
utcprFields
= lens _utcprFields (\ s a -> s{_utcprFields = a})
utcprColumnIndices :: Lens' UpdateTableColumnPropertiesRequest [Int32]
utcprColumnIndices
= lens _utcprColumnIndices
(\ s a -> s{_utcprColumnIndices = a})
. _Default
. _Coerce
instance FromJSON UpdateTableColumnPropertiesRequest
where
parseJSON
= withObject "UpdateTableColumnPropertiesRequest"
(\ o ->
UpdateTableColumnPropertiesRequest' <$>
(o .:? "objectId") <*>
(o .:? "tableColumnProperties")
<*> (o .:? "fields")
<*> (o .:? "columnIndices" .!= mempty))
instance ToJSON UpdateTableColumnPropertiesRequest
where
toJSON UpdateTableColumnPropertiesRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _utcprObjectId,
("tableColumnProperties" .=) <$>
_utcprTableColumnProperties,
("fields" .=) <$> _utcprFields,
("columnIndices" .=) <$> _utcprColumnIndices])
data TableCellProperties =
TableCellProperties'
{ _tcpTableCellBackgRoundFill :: !(Maybe TableCellBackgRoundFill)
, _tcpContentAlignment :: !(Maybe TableCellPropertiesContentAlignment)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCellProperties
:: TableCellProperties
tableCellProperties =
TableCellProperties'
{_tcpTableCellBackgRoundFill = Nothing, _tcpContentAlignment = Nothing}
tcpTableCellBackgRoundFill :: Lens' TableCellProperties (Maybe TableCellBackgRoundFill)
tcpTableCellBackgRoundFill
= lens _tcpTableCellBackgRoundFill
(\ s a -> s{_tcpTableCellBackgRoundFill = a})
tcpContentAlignment :: Lens' TableCellProperties (Maybe TableCellPropertiesContentAlignment)
tcpContentAlignment
= lens _tcpContentAlignment
(\ s a -> s{_tcpContentAlignment = a})
instance FromJSON TableCellProperties where
parseJSON
= withObject "TableCellProperties"
(\ o ->
TableCellProperties' <$>
(o .:? "tableCellBackgroundFill") <*>
(o .:? "contentAlignment"))
instance ToJSON TableCellProperties where
toJSON TableCellProperties'{..}
= object
(catMaybes
[("tableCellBackgroundFill" .=) <$>
_tcpTableCellBackgRoundFill,
("contentAlignment" .=) <$> _tcpContentAlignment])
newtype CreateLineResponse =
CreateLineResponse'
{ _clrObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createLineResponse
:: CreateLineResponse
createLineResponse = CreateLineResponse' {_clrObjectId = Nothing}
clrObjectId :: Lens' CreateLineResponse (Maybe Text)
clrObjectId
= lens _clrObjectId (\ s a -> s{_clrObjectId = a})
instance FromJSON CreateLineResponse where
parseJSON
= withObject "CreateLineResponse"
(\ o -> CreateLineResponse' <$> (o .:? "objectId"))
instance ToJSON CreateLineResponse where
toJSON CreateLineResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _clrObjectId])
newtype WordArt =
WordArt'
{ _waRenderedText :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
wordArt
:: WordArt
wordArt = WordArt' {_waRenderedText = Nothing}
waRenderedText :: Lens' WordArt (Maybe Text)
waRenderedText
= lens _waRenderedText
(\ s a -> s{_waRenderedText = a})
instance FromJSON WordArt where
parseJSON
= withObject "WordArt"
(\ o -> WordArt' <$> (o .:? "renderedText"))
instance ToJSON WordArt where
toJSON WordArt'{..}
= object
(catMaybes [("renderedText" .=) <$> _waRenderedText])
data TableCellBackgRoundFill =
TableCellBackgRoundFill'
{ _tcbrfSolidFill :: !(Maybe SolidFill)
, _tcbrfPropertyState :: !(Maybe TableCellBackgRoundFillPropertyState)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCellBackgRoundFill
:: TableCellBackgRoundFill
tableCellBackgRoundFill =
TableCellBackgRoundFill'
{_tcbrfSolidFill = Nothing, _tcbrfPropertyState = Nothing}
tcbrfSolidFill :: Lens' TableCellBackgRoundFill (Maybe SolidFill)
tcbrfSolidFill
= lens _tcbrfSolidFill
(\ s a -> s{_tcbrfSolidFill = a})
tcbrfPropertyState :: Lens' TableCellBackgRoundFill (Maybe TableCellBackgRoundFillPropertyState)
tcbrfPropertyState
= lens _tcbrfPropertyState
(\ s a -> s{_tcbrfPropertyState = a})
instance FromJSON TableCellBackgRoundFill where
parseJSON
= withObject "TableCellBackgRoundFill"
(\ o ->
TableCellBackgRoundFill' <$>
(o .:? "solidFill") <*> (o .:? "propertyState"))
instance ToJSON TableCellBackgRoundFill where
toJSON TableCellBackgRoundFill'{..}
= object
(catMaybes
[("solidFill" .=) <$> _tcbrfSolidFill,
("propertyState" .=) <$> _tcbrfPropertyState])
data TextRun =
TextRun'
{ _trStyle :: !(Maybe TextStyle)
, _trContent :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
textRun
:: TextRun
textRun = TextRun' {_trStyle = Nothing, _trContent = Nothing}
trStyle :: Lens' TextRun (Maybe TextStyle)
trStyle = lens _trStyle (\ s a -> s{_trStyle = a})
trContent :: Lens' TextRun (Maybe Text)
trContent
= lens _trContent (\ s a -> s{_trContent = a})
instance FromJSON TextRun where
parseJSON
= withObject "TextRun"
(\ o ->
TextRun' <$> (o .:? "style") <*> (o .:? "content"))
instance ToJSON TextRun where
toJSON TextRun'{..}
= object
(catMaybes
[("style" .=) <$> _trStyle,
("content" .=) <$> _trContent])
newtype RefreshSheetsChartRequest =
RefreshSheetsChartRequest'
{ _rscrObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
refreshSheetsChartRequest
:: RefreshSheetsChartRequest
refreshSheetsChartRequest = RefreshSheetsChartRequest' {_rscrObjectId = Nothing}
rscrObjectId :: Lens' RefreshSheetsChartRequest (Maybe Text)
rscrObjectId
= lens _rscrObjectId (\ s a -> s{_rscrObjectId = a})
instance FromJSON RefreshSheetsChartRequest where
parseJSON
= withObject "RefreshSheetsChartRequest"
(\ o ->
RefreshSheetsChartRequest' <$> (o .:? "objectId"))
instance ToJSON RefreshSheetsChartRequest where
toJSON RefreshSheetsChartRequest'{..}
= object
(catMaybes [("objectId" .=) <$> _rscrObjectId])
data TableRow =
TableRow'
{ _trTableRowProperties :: !(Maybe TableRowProperties)
, _trTableCells :: !(Maybe [TableCell])
, _trRowHeight :: !(Maybe Dimension)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableRow
:: TableRow
tableRow =
TableRow'
{ _trTableRowProperties = Nothing
, _trTableCells = Nothing
, _trRowHeight = Nothing
}
trTableRowProperties :: Lens' TableRow (Maybe TableRowProperties)
trTableRowProperties
= lens _trTableRowProperties
(\ s a -> s{_trTableRowProperties = a})
trTableCells :: Lens' TableRow [TableCell]
trTableCells
= lens _trTableCells (\ s a -> s{_trTableCells = a})
. _Default
. _Coerce
trRowHeight :: Lens' TableRow (Maybe Dimension)
trRowHeight
= lens _trRowHeight (\ s a -> s{_trRowHeight = a})
instance FromJSON TableRow where
parseJSON
= withObject "TableRow"
(\ o ->
TableRow' <$>
(o .:? "tableRowProperties") <*>
(o .:? "tableCells" .!= mempty)
<*> (o .:? "rowHeight"))
instance ToJSON TableRow where
toJSON TableRow'{..}
= object
(catMaybes
[("tableRowProperties" .=) <$> _trTableRowProperties,
("tableCells" .=) <$> _trTableCells,
("rowHeight" .=) <$> _trRowHeight])
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 CreateVideoRequest =
CreateVideoRequest'
{ _creObjectId :: !(Maybe Text)
, _creElementProperties :: !(Maybe PageElementProperties)
, _creSource :: !(Maybe CreateVideoRequestSource)
, _creId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
createVideoRequest
:: CreateVideoRequest
createVideoRequest =
CreateVideoRequest'
{ _creObjectId = Nothing
, _creElementProperties = Nothing
, _creSource = Nothing
, _creId = Nothing
}
creObjectId :: Lens' CreateVideoRequest (Maybe Text)
creObjectId
= lens _creObjectId (\ s a -> s{_creObjectId = a})
creElementProperties :: Lens' CreateVideoRequest (Maybe PageElementProperties)
creElementProperties
= lens _creElementProperties
(\ s a -> s{_creElementProperties = a})
creSource :: Lens' CreateVideoRequest (Maybe CreateVideoRequestSource)
creSource
= lens _creSource (\ s a -> s{_creSource = a})
creId :: Lens' CreateVideoRequest (Maybe Text)
creId = lens _creId (\ s a -> s{_creId = a})
instance FromJSON CreateVideoRequest where
parseJSON
= withObject "CreateVideoRequest"
(\ o ->
CreateVideoRequest' <$>
(o .:? "objectId") <*> (o .:? "elementProperties")
<*> (o .:? "source")
<*> (o .:? "id"))
instance ToJSON CreateVideoRequest where
toJSON CreateVideoRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _creObjectId,
("elementProperties" .=) <$> _creElementProperties,
("source" .=) <$> _creSource, ("id" .=) <$> _creId])
data TextContent =
TextContent'
{ _tcTextElements :: !(Maybe [TextElement])
, _tcLists :: !(Maybe TextContentLists)
}
deriving (Eq, Show, Data, Typeable, Generic)
textContent
:: TextContent
textContent = TextContent' {_tcTextElements = Nothing, _tcLists = Nothing}
tcTextElements :: Lens' TextContent [TextElement]
tcTextElements
= lens _tcTextElements
(\ s a -> s{_tcTextElements = a})
. _Default
. _Coerce
tcLists :: Lens' TextContent (Maybe TextContentLists)
tcLists = lens _tcLists (\ s a -> s{_tcLists = a})
instance FromJSON TextContent where
parseJSON
= withObject "TextContent"
(\ o ->
TextContent' <$>
(o .:? "textElements" .!= mempty) <*>
(o .:? "lists"))
instance ToJSON TextContent where
toJSON TextContent'{..}
= object
(catMaybes
[("textElements" .=) <$> _tcTextElements,
("lists" .=) <$> _tcLists])
data Shape =
Shape'
{ _sShapeType :: !(Maybe ShapeShapeType)
, _sText :: !(Maybe TextContent)
, _sPlaceholder :: !(Maybe Placeholder)
, _sShapeProperties :: !(Maybe ShapeProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
shape
:: Shape
shape =
Shape'
{ _sShapeType = Nothing
, _sText = Nothing
, _sPlaceholder = Nothing
, _sShapeProperties = Nothing
}
sShapeType :: Lens' Shape (Maybe ShapeShapeType)
sShapeType
= lens _sShapeType (\ s a -> s{_sShapeType = a})
sText :: Lens' Shape (Maybe TextContent)
sText = lens _sText (\ s a -> s{_sText = a})
sPlaceholder :: Lens' Shape (Maybe Placeholder)
sPlaceholder
= lens _sPlaceholder (\ s a -> s{_sPlaceholder = a})
sShapeProperties :: Lens' Shape (Maybe ShapeProperties)
sShapeProperties
= lens _sShapeProperties
(\ s a -> s{_sShapeProperties = a})
instance FromJSON Shape where
parseJSON
= withObject "Shape"
(\ o ->
Shape' <$>
(o .:? "shapeType") <*> (o .:? "text") <*>
(o .:? "placeholder")
<*> (o .:? "shapeProperties"))
instance ToJSON Shape where
toJSON Shape'{..}
= object
(catMaybes
[("shapeType" .=) <$> _sShapeType,
("text" .=) <$> _sText,
("placeholder" .=) <$> _sPlaceholder,
("shapeProperties" .=) <$> _sShapeProperties])
data AffineTransform =
AffineTransform'
{ _atTranslateX :: !(Maybe (Textual Double))
, _atShearY :: !(Maybe (Textual Double))
, _atTranslateY :: !(Maybe (Textual Double))
, _atShearX :: !(Maybe (Textual Double))
, _atScaleX :: !(Maybe (Textual Double))
, _atUnit :: !(Maybe AffineTransformUnit)
, _atScaleY :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
affineTransform
:: AffineTransform
affineTransform =
AffineTransform'
{ _atTranslateX = Nothing
, _atShearY = Nothing
, _atTranslateY = Nothing
, _atShearX = Nothing
, _atScaleX = Nothing
, _atUnit = Nothing
, _atScaleY = Nothing
}
atTranslateX :: Lens' AffineTransform (Maybe Double)
atTranslateX
= lens _atTranslateX (\ s a -> s{_atTranslateX = a})
. mapping _Coerce
atShearY :: Lens' AffineTransform (Maybe Double)
atShearY
= lens _atShearY (\ s a -> s{_atShearY = a}) .
mapping _Coerce
atTranslateY :: Lens' AffineTransform (Maybe Double)
atTranslateY
= lens _atTranslateY (\ s a -> s{_atTranslateY = a})
. mapping _Coerce
atShearX :: Lens' AffineTransform (Maybe Double)
atShearX
= lens _atShearX (\ s a -> s{_atShearX = a}) .
mapping _Coerce
atScaleX :: Lens' AffineTransform (Maybe Double)
atScaleX
= lens _atScaleX (\ s a -> s{_atScaleX = a}) .
mapping _Coerce
atUnit :: Lens' AffineTransform (Maybe AffineTransformUnit)
atUnit = lens _atUnit (\ s a -> s{_atUnit = a})
atScaleY :: Lens' AffineTransform (Maybe Double)
atScaleY
= lens _atScaleY (\ s a -> s{_atScaleY = a}) .
mapping _Coerce
instance FromJSON AffineTransform where
parseJSON
= withObject "AffineTransform"
(\ o ->
AffineTransform' <$>
(o .:? "translateX") <*> (o .:? "shearY") <*>
(o .:? "translateY")
<*> (o .:? "shearX")
<*> (o .:? "scaleX")
<*> (o .:? "unit")
<*> (o .:? "scaleY"))
instance ToJSON AffineTransform where
toJSON AffineTransform'{..}
= object
(catMaybes
[("translateX" .=) <$> _atTranslateX,
("shearY" .=) <$> _atShearY,
("translateY" .=) <$> _atTranslateY,
("shearX" .=) <$> _atShearX,
("scaleX" .=) <$> _atScaleX, ("unit" .=) <$> _atUnit,
("scaleY" .=) <$> _atScaleY])
newtype CreateSheetsChartResponse =
CreateSheetsChartResponse'
{ _cscrsObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createSheetsChartResponse
:: CreateSheetsChartResponse
createSheetsChartResponse =
CreateSheetsChartResponse' {_cscrsObjectId = Nothing}
cscrsObjectId :: Lens' CreateSheetsChartResponse (Maybe Text)
cscrsObjectId
= lens _cscrsObjectId
(\ s a -> s{_cscrsObjectId = a})
instance FromJSON CreateSheetsChartResponse where
parseJSON
= withObject "CreateSheetsChartResponse"
(\ o ->
CreateSheetsChartResponse' <$> (o .:? "objectId"))
instance ToJSON CreateSheetsChartResponse where
toJSON CreateSheetsChartResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _cscrsObjectId])
data Range =
Range'
{ _rEndIndex :: !(Maybe (Textual Int32))
, _rType :: !(Maybe RangeType)
, _rStartIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
range
:: Range
range = Range' {_rEndIndex = Nothing, _rType = Nothing, _rStartIndex = Nothing}
rEndIndex :: Lens' Range (Maybe Int32)
rEndIndex
= lens _rEndIndex (\ s a -> s{_rEndIndex = a}) .
mapping _Coerce
rType :: Lens' Range (Maybe RangeType)
rType = lens _rType (\ s a -> s{_rType = a})
rStartIndex :: Lens' Range (Maybe Int32)
rStartIndex
= lens _rStartIndex (\ s a -> s{_rStartIndex = a}) .
mapping _Coerce
instance FromJSON Range where
parseJSON
= withObject "Range"
(\ o ->
Range' <$>
(o .:? "endIndex") <*> (o .:? "type") <*>
(o .:? "startIndex"))
instance ToJSON Range where
toJSON Range'{..}
= object
(catMaybes
[("endIndex" .=) <$> _rEndIndex,
("type" .=) <$> _rType,
("startIndex" .=) <$> _rStartIndex])
data CreateImageRequest =
CreateImageRequest'
{ _cirObjectId :: !(Maybe Text)
, _cirURL :: !(Maybe Text)
, _cirElementProperties :: !(Maybe PageElementProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
createImageRequest
:: CreateImageRequest
createImageRequest =
CreateImageRequest'
{_cirObjectId = Nothing, _cirURL = Nothing, _cirElementProperties = Nothing}
cirObjectId :: Lens' CreateImageRequest (Maybe Text)
cirObjectId
= lens _cirObjectId (\ s a -> s{_cirObjectId = a})
cirURL :: Lens' CreateImageRequest (Maybe Text)
cirURL = lens _cirURL (\ s a -> s{_cirURL = a})
cirElementProperties :: Lens' CreateImageRequest (Maybe PageElementProperties)
cirElementProperties
= lens _cirElementProperties
(\ s a -> s{_cirElementProperties = a})
instance FromJSON CreateImageRequest where
parseJSON
= withObject "CreateImageRequest"
(\ o ->
CreateImageRequest' <$>
(o .:? "objectId") <*> (o .:? "url") <*>
(o .:? "elementProperties"))
instance ToJSON CreateImageRequest where
toJSON CreateImageRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _cirObjectId,
("url" .=) <$> _cirURL,
("elementProperties" .=) <$> _cirElementProperties])
data MergeTableCellsRequest =
MergeTableCellsRequest'
{ _mtcrObjectId :: !(Maybe Text)
, _mtcrTableRange :: !(Maybe TableRange)
}
deriving (Eq, Show, Data, Typeable, Generic)
mergeTableCellsRequest
:: MergeTableCellsRequest
mergeTableCellsRequest =
MergeTableCellsRequest' {_mtcrObjectId = Nothing, _mtcrTableRange = Nothing}
mtcrObjectId :: Lens' MergeTableCellsRequest (Maybe Text)
mtcrObjectId
= lens _mtcrObjectId (\ s a -> s{_mtcrObjectId = a})
mtcrTableRange :: Lens' MergeTableCellsRequest (Maybe TableRange)
mtcrTableRange
= lens _mtcrTableRange
(\ s a -> s{_mtcrTableRange = a})
instance FromJSON MergeTableCellsRequest where
parseJSON
= withObject "MergeTableCellsRequest"
(\ o ->
MergeTableCellsRequest' <$>
(o .:? "objectId") <*> (o .:? "tableRange"))
instance ToJSON MergeTableCellsRequest where
toJSON MergeTableCellsRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _mtcrObjectId,
("tableRange" .=) <$> _mtcrTableRange])
newtype WriteControl =
WriteControl'
{ _wcRequiredRevisionId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
writeControl
:: WriteControl
writeControl = WriteControl' {_wcRequiredRevisionId = Nothing}
wcRequiredRevisionId :: Lens' WriteControl (Maybe Text)
wcRequiredRevisionId
= lens _wcRequiredRevisionId
(\ s a -> s{_wcRequiredRevisionId = a})
instance FromJSON WriteControl where
parseJSON
= withObject "WriteControl"
(\ o ->
WriteControl' <$> (o .:? "requiredRevisionId"))
instance ToJSON WriteControl where
toJSON WriteControl'{..}
= object
(catMaybes
[("requiredRevisionId" .=) <$>
_wcRequiredRevisionId])
data TextStyle =
TextStyle'
{ _tsFontFamily :: !(Maybe Text)
, _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'
{ _tsFontFamily = Nothing
, _tsLink = Nothing
, _tsBackgRoundColor = Nothing
, _tsBaselineOffSet = Nothing
, _tsForegRoundColor = Nothing
, _tsFontSize = Nothing
, _tsSmallCaps = Nothing
, _tsUnderline = Nothing
, _tsWeightedFontFamily = Nothing
, _tsItalic = Nothing
, _tsBold = Nothing
, _tsStrikethrough = Nothing
}
tsFontFamily :: Lens' TextStyle (Maybe Text)
tsFontFamily
= lens _tsFontFamily (\ s a -> s{_tsFontFamily = a})
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 .:? "fontFamily") <*> (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
[("fontFamily" .=) <$> _tsFontFamily,
("link" .=) <$> _tsLink,
("backgroundColor" .=) <$> _tsBackgRoundColor,
("baselineOffset" .=) <$> _tsBaselineOffSet,
("foregroundColor" .=) <$> _tsForegRoundColor,
("fontSize" .=) <$> _tsFontSize,
("smallCaps" .=) <$> _tsSmallCaps,
("underline" .=) <$> _tsUnderline,
("weightedFontFamily" .=) <$> _tsWeightedFontFamily,
("italic" .=) <$> _tsItalic, ("bold" .=) <$> _tsBold,
("strikethrough" .=) <$> _tsStrikethrough])
data SolidFill =
SolidFill'
{ _sfColor :: !(Maybe OpaqueColor)
, _sfAlpha :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
solidFill
:: SolidFill
solidFill = SolidFill' {_sfColor = Nothing, _sfAlpha = Nothing}
sfColor :: Lens' SolidFill (Maybe OpaqueColor)
sfColor = lens _sfColor (\ s a -> s{_sfColor = a})
sfAlpha :: Lens' SolidFill (Maybe Double)
sfAlpha
= lens _sfAlpha (\ s a -> s{_sfAlpha = a}) .
mapping _Coerce
instance FromJSON SolidFill where
parseJSON
= withObject "SolidFill"
(\ o ->
SolidFill' <$> (o .:? "color") <*> (o .:? "alpha"))
instance ToJSON SolidFill where
toJSON SolidFill'{..}
= object
(catMaybes
[("color" .=) <$> _sfColor,
("alpha" .=) <$> _sfAlpha])
data UpdateTextStyleRequest =
UpdateTextStyleRequest'
{ _utsrStyle :: !(Maybe TextStyle)
, _utsrTextRange :: !(Maybe Range)
, _utsrObjectId :: !(Maybe Text)
, _utsrCellLocation :: !(Maybe TableCellLocation)
, _utsrFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateTextStyleRequest
:: UpdateTextStyleRequest
updateTextStyleRequest =
UpdateTextStyleRequest'
{ _utsrStyle = Nothing
, _utsrTextRange = Nothing
, _utsrObjectId = Nothing
, _utsrCellLocation = Nothing
, _utsrFields = Nothing
}
utsrStyle :: Lens' UpdateTextStyleRequest (Maybe TextStyle)
utsrStyle
= lens _utsrStyle (\ s a -> s{_utsrStyle = a})
utsrTextRange :: Lens' UpdateTextStyleRequest (Maybe Range)
utsrTextRange
= lens _utsrTextRange
(\ s a -> s{_utsrTextRange = a})
utsrObjectId :: Lens' UpdateTextStyleRequest (Maybe Text)
utsrObjectId
= lens _utsrObjectId (\ s a -> s{_utsrObjectId = a})
utsrCellLocation :: Lens' UpdateTextStyleRequest (Maybe TableCellLocation)
utsrCellLocation
= lens _utsrCellLocation
(\ s a -> s{_utsrCellLocation = a})
utsrFields :: Lens' UpdateTextStyleRequest (Maybe GFieldMask)
utsrFields
= lens _utsrFields (\ s a -> s{_utsrFields = a})
instance FromJSON UpdateTextStyleRequest where
parseJSON
= withObject "UpdateTextStyleRequest"
(\ o ->
UpdateTextStyleRequest' <$>
(o .:? "style") <*> (o .:? "textRange") <*>
(o .:? "objectId")
<*> (o .:? "cellLocation")
<*> (o .:? "fields"))
instance ToJSON UpdateTextStyleRequest where
toJSON UpdateTextStyleRequest'{..}
= object
(catMaybes
[("style" .=) <$> _utsrStyle,
("textRange" .=) <$> _utsrTextRange,
("objectId" .=) <$> _utsrObjectId,
("cellLocation" .=) <$> _utsrCellLocation,
("fields" .=) <$> _utsrFields])
data Recolor =
Recolor'
{ _rName :: !(Maybe RecolorName)
, _rRecolorStops :: !(Maybe [ColorStop])
}
deriving (Eq, Show, Data, Typeable, Generic)
recolor
:: Recolor
recolor = Recolor' {_rName = Nothing, _rRecolorStops = Nothing}
rName :: Lens' Recolor (Maybe RecolorName)
rName = lens _rName (\ s a -> s{_rName = a})
rRecolorStops :: Lens' Recolor [ColorStop]
rRecolorStops
= lens _rRecolorStops
(\ s a -> s{_rRecolorStops = a})
. _Default
. _Coerce
instance FromJSON Recolor where
parseJSON
= withObject "Recolor"
(\ o ->
Recolor' <$>
(o .:? "name") <*> (o .:? "recolorStops" .!= mempty))
instance ToJSON Recolor where
toJSON Recolor'{..}
= object
(catMaybes
[("name" .=) <$> _rName,
("recolorStops" .=) <$> _rRecolorStops])
data PageProperties =
PageProperties'
{ _ppPageBackgRoundFill :: !(Maybe PageBackgRoundFill)
, _ppColorScheme :: !(Maybe ColorScheme)
}
deriving (Eq, Show, Data, Typeable, Generic)
pageProperties
:: PageProperties
pageProperties =
PageProperties' {_ppPageBackgRoundFill = Nothing, _ppColorScheme = Nothing}
ppPageBackgRoundFill :: Lens' PageProperties (Maybe PageBackgRoundFill)
ppPageBackgRoundFill
= lens _ppPageBackgRoundFill
(\ s a -> s{_ppPageBackgRoundFill = a})
ppColorScheme :: Lens' PageProperties (Maybe ColorScheme)
ppColorScheme
= lens _ppColorScheme
(\ s a -> s{_ppColorScheme = a})
instance FromJSON PageProperties where
parseJSON
= withObject "PageProperties"
(\ o ->
PageProperties' <$>
(o .:? "pageBackgroundFill") <*>
(o .:? "colorScheme"))
instance ToJSON PageProperties where
toJSON PageProperties'{..}
= object
(catMaybes
[("pageBackgroundFill" .=) <$> _ppPageBackgRoundFill,
("colorScheme" .=) <$> _ppColorScheme])
data PageBackgRoundFill =
PageBackgRoundFill'
{ _pbrfStretchedPictureFill :: !(Maybe StretchedPictureFill)
, _pbrfSolidFill :: !(Maybe SolidFill)
, _pbrfPropertyState :: !(Maybe PageBackgRoundFillPropertyState)
}
deriving (Eq, Show, Data, Typeable, Generic)
pageBackgRoundFill
:: PageBackgRoundFill
pageBackgRoundFill =
PageBackgRoundFill'
{ _pbrfStretchedPictureFill = Nothing
, _pbrfSolidFill = Nothing
, _pbrfPropertyState = Nothing
}
pbrfStretchedPictureFill :: Lens' PageBackgRoundFill (Maybe StretchedPictureFill)
pbrfStretchedPictureFill
= lens _pbrfStretchedPictureFill
(\ s a -> s{_pbrfStretchedPictureFill = a})
pbrfSolidFill :: Lens' PageBackgRoundFill (Maybe SolidFill)
pbrfSolidFill
= lens _pbrfSolidFill
(\ s a -> s{_pbrfSolidFill = a})
pbrfPropertyState :: Lens' PageBackgRoundFill (Maybe PageBackgRoundFillPropertyState)
pbrfPropertyState
= lens _pbrfPropertyState
(\ s a -> s{_pbrfPropertyState = a})
instance FromJSON PageBackgRoundFill where
parseJSON
= withObject "PageBackgRoundFill"
(\ o ->
PageBackgRoundFill' <$>
(o .:? "stretchedPictureFill") <*>
(o .:? "solidFill")
<*> (o .:? "propertyState"))
instance ToJSON PageBackgRoundFill where
toJSON PageBackgRoundFill'{..}
= object
(catMaybes
[("stretchedPictureFill" .=) <$>
_pbrfStretchedPictureFill,
("solidFill" .=) <$> _pbrfSolidFill,
("propertyState" .=) <$> _pbrfPropertyState])
newtype NestingLevel =
NestingLevel'
{ _nlBulletStyle :: Maybe TextStyle
}
deriving (Eq, Show, Data, Typeable, Generic)
nestingLevel
:: NestingLevel
nestingLevel = NestingLevel' {_nlBulletStyle = Nothing}
nlBulletStyle :: Lens' NestingLevel (Maybe TextStyle)
nlBulletStyle
= lens _nlBulletStyle
(\ s a -> s{_nlBulletStyle = a})
instance FromJSON NestingLevel where
parseJSON
= withObject "NestingLevel"
(\ o -> NestingLevel' <$> (o .:? "bulletStyle"))
instance ToJSON NestingLevel where
toJSON NestingLevel'{..}
= object
(catMaybes [("bulletStyle" .=) <$> _nlBulletStyle])
data OpaqueColor =
OpaqueColor'
{ _ocThemeColor :: !(Maybe OpaqueColorThemeColor)
, _ocRgbColor :: !(Maybe RgbColor)
}
deriving (Eq, Show, Data, Typeable, Generic)
opaqueColor
:: OpaqueColor
opaqueColor = OpaqueColor' {_ocThemeColor = Nothing, _ocRgbColor = Nothing}
ocThemeColor :: Lens' OpaqueColor (Maybe OpaqueColorThemeColor)
ocThemeColor
= lens _ocThemeColor (\ s a -> s{_ocThemeColor = a})
ocRgbColor :: Lens' OpaqueColor (Maybe RgbColor)
ocRgbColor
= lens _ocRgbColor (\ s a -> s{_ocRgbColor = a})
instance FromJSON OpaqueColor where
parseJSON
= withObject "OpaqueColor"
(\ o ->
OpaqueColor' <$>
(o .:? "themeColor") <*> (o .:? "rgbColor"))
instance ToJSON OpaqueColor where
toJSON OpaqueColor'{..}
= object
(catMaybes
[("themeColor" .=) <$> _ocThemeColor,
("rgbColor" .=) <$> _ocRgbColor])
data CreateSlideRequest =
CreateSlideRequest'
{ _csrsObjectId :: !(Maybe Text)
, _csrsSlideLayoutReference :: !(Maybe LayoutReference)
, _csrsInsertionIndex :: !(Maybe (Textual Int32))
, _csrsPlaceholderIdMAppings :: !(Maybe [LayoutPlaceholderIdMApping])
}
deriving (Eq, Show, Data, Typeable, Generic)
createSlideRequest
:: CreateSlideRequest
createSlideRequest =
CreateSlideRequest'
{ _csrsObjectId = Nothing
, _csrsSlideLayoutReference = Nothing
, _csrsInsertionIndex = Nothing
, _csrsPlaceholderIdMAppings = Nothing
}
csrsObjectId :: Lens' CreateSlideRequest (Maybe Text)
csrsObjectId
= lens _csrsObjectId (\ s a -> s{_csrsObjectId = a})
csrsSlideLayoutReference :: Lens' CreateSlideRequest (Maybe LayoutReference)
csrsSlideLayoutReference
= lens _csrsSlideLayoutReference
(\ s a -> s{_csrsSlideLayoutReference = a})
csrsInsertionIndex :: Lens' CreateSlideRequest (Maybe Int32)
csrsInsertionIndex
= lens _csrsInsertionIndex
(\ s a -> s{_csrsInsertionIndex = a})
. mapping _Coerce
csrsPlaceholderIdMAppings :: Lens' CreateSlideRequest [LayoutPlaceholderIdMApping]
csrsPlaceholderIdMAppings
= lens _csrsPlaceholderIdMAppings
(\ s a -> s{_csrsPlaceholderIdMAppings = a})
. _Default
. _Coerce
instance FromJSON CreateSlideRequest where
parseJSON
= withObject "CreateSlideRequest"
(\ o ->
CreateSlideRequest' <$>
(o .:? "objectId") <*> (o .:? "slideLayoutReference")
<*> (o .:? "insertionIndex")
<*> (o .:? "placeholderIdMappings" .!= mempty))
instance ToJSON CreateSlideRequest where
toJSON CreateSlideRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _csrsObjectId,
("slideLayoutReference" .=) <$>
_csrsSlideLayoutReference,
("insertionIndex" .=) <$> _csrsInsertionIndex,
("placeholderIdMappings" .=) <$>
_csrsPlaceholderIdMAppings])
data TableCellLocation =
TableCellLocation'
{ _tclColumnIndex :: !(Maybe (Textual Int32))
, _tclRowIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCellLocation
:: TableCellLocation
tableCellLocation =
TableCellLocation' {_tclColumnIndex = Nothing, _tclRowIndex = Nothing}
tclColumnIndex :: Lens' TableCellLocation (Maybe Int32)
tclColumnIndex
= lens _tclColumnIndex
(\ s a -> s{_tclColumnIndex = a})
. mapping _Coerce
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 .:? "rowIndex"))
instance ToJSON TableCellLocation where
toJSON TableCellLocation'{..}
= object
(catMaybes
[("columnIndex" .=) <$> _tclColumnIndex,
("rowIndex" .=) <$> _tclRowIndex])
data UpdateSlidesPositionRequest =
UpdateSlidesPositionRequest'
{ _usprSlideObjectIds :: !(Maybe [Text])
, _usprInsertionIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
updateSlidesPositionRequest
:: UpdateSlidesPositionRequest
updateSlidesPositionRequest =
UpdateSlidesPositionRequest'
{_usprSlideObjectIds = Nothing, _usprInsertionIndex = Nothing}
usprSlideObjectIds :: Lens' UpdateSlidesPositionRequest [Text]
usprSlideObjectIds
= lens _usprSlideObjectIds
(\ s a -> s{_usprSlideObjectIds = a})
. _Default
. _Coerce
usprInsertionIndex :: Lens' UpdateSlidesPositionRequest (Maybe Int32)
usprInsertionIndex
= lens _usprInsertionIndex
(\ s a -> s{_usprInsertionIndex = a})
. mapping _Coerce
instance FromJSON UpdateSlidesPositionRequest where
parseJSON
= withObject "UpdateSlidesPositionRequest"
(\ o ->
UpdateSlidesPositionRequest' <$>
(o .:? "slideObjectIds" .!= mempty) <*>
(o .:? "insertionIndex"))
instance ToJSON UpdateSlidesPositionRequest where
toJSON UpdateSlidesPositionRequest'{..}
= object
(catMaybes
[("slideObjectIds" .=) <$> _usprSlideObjectIds,
("insertionIndex" .=) <$> _usprInsertionIndex])
data ReplaceAllShapesWithImageRequest =
ReplaceAllShapesWithImageRequest'
{ _raswirImageReplaceMethod :: !(Maybe ReplaceAllShapesWithImageRequestImageReplaceMethod)
, _raswirPageObjectIds :: !(Maybe [Text])
, _raswirContainsText :: !(Maybe SubstringMatchCriteria)
, _raswirImageURL :: !(Maybe Text)
, _raswirReplaceMethod :: !(Maybe ReplaceAllShapesWithImageRequestReplaceMethod)
}
deriving (Eq, Show, Data, Typeable, Generic)
replaceAllShapesWithImageRequest
:: ReplaceAllShapesWithImageRequest
replaceAllShapesWithImageRequest =
ReplaceAllShapesWithImageRequest'
{ _raswirImageReplaceMethod = Nothing
, _raswirPageObjectIds = Nothing
, _raswirContainsText = Nothing
, _raswirImageURL = Nothing
, _raswirReplaceMethod = Nothing
}
raswirImageReplaceMethod :: Lens' ReplaceAllShapesWithImageRequest (Maybe ReplaceAllShapesWithImageRequestImageReplaceMethod)
raswirImageReplaceMethod
= lens _raswirImageReplaceMethod
(\ s a -> s{_raswirImageReplaceMethod = a})
raswirPageObjectIds :: Lens' ReplaceAllShapesWithImageRequest [Text]
raswirPageObjectIds
= lens _raswirPageObjectIds
(\ s a -> s{_raswirPageObjectIds = a})
. _Default
. _Coerce
raswirContainsText :: Lens' ReplaceAllShapesWithImageRequest (Maybe SubstringMatchCriteria)
raswirContainsText
= lens _raswirContainsText
(\ s a -> s{_raswirContainsText = a})
raswirImageURL :: Lens' ReplaceAllShapesWithImageRequest (Maybe Text)
raswirImageURL
= lens _raswirImageURL
(\ s a -> s{_raswirImageURL = a})
raswirReplaceMethod :: Lens' ReplaceAllShapesWithImageRequest (Maybe ReplaceAllShapesWithImageRequestReplaceMethod)
raswirReplaceMethod
= lens _raswirReplaceMethod
(\ s a -> s{_raswirReplaceMethod = a})
instance FromJSON ReplaceAllShapesWithImageRequest
where
parseJSON
= withObject "ReplaceAllShapesWithImageRequest"
(\ o ->
ReplaceAllShapesWithImageRequest' <$>
(o .:? "imageReplaceMethod") <*>
(o .:? "pageObjectIds" .!= mempty)
<*> (o .:? "containsText")
<*> (o .:? "imageUrl")
<*> (o .:? "replaceMethod"))
instance ToJSON ReplaceAllShapesWithImageRequest
where
toJSON ReplaceAllShapesWithImageRequest'{..}
= object
(catMaybes
[("imageReplaceMethod" .=) <$>
_raswirImageReplaceMethod,
("pageObjectIds" .=) <$> _raswirPageObjectIds,
("containsText" .=) <$> _raswirContainsText,
("imageUrl" .=) <$> _raswirImageURL,
("replaceMethod" .=) <$> _raswirReplaceMethod])
data PageElement =
PageElement'
{ _peTransform :: !(Maybe AffineTransform)
, _peImage :: !(Maybe Image)
, _peSize :: !(Maybe Size)
, _peSheetsChart :: !(Maybe SheetsChart)
, _peObjectId :: !(Maybe Text)
, _peLine :: !(Maybe Line)
, _peElementGroup :: !(Maybe Group)
, _peVideo :: !(Maybe Video)
, _peWordArt :: !(Maybe WordArt)
, _peShape :: !(Maybe Shape)
, _peTitle :: !(Maybe Text)
, _peTable :: !(Maybe Table)
, _peDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
pageElement
:: PageElement
pageElement =
PageElement'
{ _peTransform = Nothing
, _peImage = Nothing
, _peSize = Nothing
, _peSheetsChart = Nothing
, _peObjectId = Nothing
, _peLine = Nothing
, _peElementGroup = Nothing
, _peVideo = Nothing
, _peWordArt = Nothing
, _peShape = Nothing
, _peTitle = Nothing
, _peTable = Nothing
, _peDescription = Nothing
}
peTransform :: Lens' PageElement (Maybe AffineTransform)
peTransform
= lens _peTransform (\ s a -> s{_peTransform = a})
peImage :: Lens' PageElement (Maybe Image)
peImage = lens _peImage (\ s a -> s{_peImage = a})
peSize :: Lens' PageElement (Maybe Size)
peSize = lens _peSize (\ s a -> s{_peSize = a})
peSheetsChart :: Lens' PageElement (Maybe SheetsChart)
peSheetsChart
= lens _peSheetsChart
(\ s a -> s{_peSheetsChart = a})
peObjectId :: Lens' PageElement (Maybe Text)
peObjectId
= lens _peObjectId (\ s a -> s{_peObjectId = a})
peLine :: Lens' PageElement (Maybe Line)
peLine = lens _peLine (\ s a -> s{_peLine = a})
peElementGroup :: Lens' PageElement (Maybe Group)
peElementGroup
= lens _peElementGroup
(\ s a -> s{_peElementGroup = a})
peVideo :: Lens' PageElement (Maybe Video)
peVideo = lens _peVideo (\ s a -> s{_peVideo = a})
peWordArt :: Lens' PageElement (Maybe WordArt)
peWordArt
= lens _peWordArt (\ s a -> s{_peWordArt = a})
peShape :: Lens' PageElement (Maybe Shape)
peShape = lens _peShape (\ s a -> s{_peShape = a})
peTitle :: Lens' PageElement (Maybe Text)
peTitle = lens _peTitle (\ s a -> s{_peTitle = a})
peTable :: Lens' PageElement (Maybe Table)
peTable = lens _peTable (\ s a -> s{_peTable = a})
peDescription :: Lens' PageElement (Maybe Text)
peDescription
= lens _peDescription
(\ s a -> s{_peDescription = a})
instance FromJSON PageElement where
parseJSON
= withObject "PageElement"
(\ o ->
PageElement' <$>
(o .:? "transform") <*> (o .:? "image") <*>
(o .:? "size")
<*> (o .:? "sheetsChart")
<*> (o .:? "objectId")
<*> (o .:? "line")
<*> (o .:? "elementGroup")
<*> (o .:? "video")
<*> (o .:? "wordArt")
<*> (o .:? "shape")
<*> (o .:? "title")
<*> (o .:? "table")
<*> (o .:? "description"))
instance ToJSON PageElement where
toJSON PageElement'{..}
= object
(catMaybes
[("transform" .=) <$> _peTransform,
("image" .=) <$> _peImage, ("size" .=) <$> _peSize,
("sheetsChart" .=) <$> _peSheetsChart,
("objectId" .=) <$> _peObjectId,
("line" .=) <$> _peLine,
("elementGroup" .=) <$> _peElementGroup,
("video" .=) <$> _peVideo,
("wordArt" .=) <$> _peWordArt,
("shape" .=) <$> _peShape, ("title" .=) <$> _peTitle,
("table" .=) <$> _peTable,
("description" .=) <$> _peDescription])
data ColorStop =
ColorStop'
{ _csColor :: !(Maybe OpaqueColor)
, _csAlpha :: !(Maybe (Textual Double))
, _csPosition :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
colorStop
:: ColorStop
colorStop =
ColorStop' {_csColor = Nothing, _csAlpha = Nothing, _csPosition = Nothing}
csColor :: Lens' ColorStop (Maybe OpaqueColor)
csColor = lens _csColor (\ s a -> s{_csColor = a})
csAlpha :: Lens' ColorStop (Maybe Double)
csAlpha
= lens _csAlpha (\ s a -> s{_csAlpha = a}) .
mapping _Coerce
csPosition :: Lens' ColorStop (Maybe Double)
csPosition
= lens _csPosition (\ s a -> s{_csPosition = a}) .
mapping _Coerce
instance FromJSON ColorStop where
parseJSON
= withObject "ColorStop"
(\ o ->
ColorStop' <$>
(o .:? "color") <*> (o .:? "alpha") <*>
(o .:? "position"))
instance ToJSON ColorStop where
toJSON ColorStop'{..}
= object
(catMaybes
[("color" .=) <$> _csColor,
("alpha" .=) <$> _csAlpha,
("position" .=) <$> _csPosition])
newtype DeleteObjectRequest =
DeleteObjectRequest'
{ _dObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteObjectRequest
:: DeleteObjectRequest
deleteObjectRequest = DeleteObjectRequest' {_dObjectId = Nothing}
dObjectId :: Lens' DeleteObjectRequest (Maybe Text)
dObjectId
= lens _dObjectId (\ s a -> s{_dObjectId = a})
instance FromJSON DeleteObjectRequest where
parseJSON
= withObject "DeleteObjectRequest"
(\ o -> DeleteObjectRequest' <$> (o .:? "objectId"))
instance ToJSON DeleteObjectRequest where
toJSON DeleteObjectRequest'{..}
= object (catMaybes [("objectId" .=) <$> _dObjectId])
newtype CreateSlideResponse =
CreateSlideResponse'
{ _ccObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createSlideResponse
:: CreateSlideResponse
createSlideResponse = CreateSlideResponse' {_ccObjectId = Nothing}
ccObjectId :: Lens' CreateSlideResponse (Maybe Text)
ccObjectId
= lens _ccObjectId (\ s a -> s{_ccObjectId = a})
instance FromJSON CreateSlideResponse where
parseJSON
= withObject "CreateSlideResponse"
(\ o -> CreateSlideResponse' <$> (o .:? "objectId"))
instance ToJSON CreateSlideResponse where
toJSON CreateSlideResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _ccObjectId])
newtype ColorScheme =
ColorScheme'
{ _csColors :: Maybe [ThemeColorPair]
}
deriving (Eq, Show, Data, Typeable, Generic)
colorScheme
:: ColorScheme
colorScheme = ColorScheme' {_csColors = Nothing}
csColors :: Lens' ColorScheme [ThemeColorPair]
csColors
= lens _csColors (\ s a -> s{_csColors = a}) .
_Default
. _Coerce
instance FromJSON ColorScheme where
parseJSON
= withObject "ColorScheme"
(\ o -> ColorScheme' <$> (o .:? "colors" .!= mempty))
instance ToJSON ColorScheme where
toJSON ColorScheme'{..}
= object (catMaybes [("colors" .=) <$> _csColors])
data TableCell =
TableCell'
{ _tcColumnSpan :: !(Maybe (Textual Int32))
, _tcLocation :: !(Maybe TableCellLocation)
, _tcText :: !(Maybe TextContent)
, _tcRowSpan :: !(Maybe (Textual Int32))
, _tcTableCellProperties :: !(Maybe TableCellProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
tableCell
:: TableCell
tableCell =
TableCell'
{ _tcColumnSpan = Nothing
, _tcLocation = Nothing
, _tcText = Nothing
, _tcRowSpan = Nothing
, _tcTableCellProperties = Nothing
}
tcColumnSpan :: Lens' TableCell (Maybe Int32)
tcColumnSpan
= lens _tcColumnSpan (\ s a -> s{_tcColumnSpan = a})
. mapping _Coerce
tcLocation :: Lens' TableCell (Maybe TableCellLocation)
tcLocation
= lens _tcLocation (\ s a -> s{_tcLocation = a})
tcText :: Lens' TableCell (Maybe TextContent)
tcText = lens _tcText (\ s a -> s{_tcText = a})
tcRowSpan :: Lens' TableCell (Maybe Int32)
tcRowSpan
= lens _tcRowSpan (\ s a -> s{_tcRowSpan = a}) .
mapping _Coerce
tcTableCellProperties :: Lens' TableCell (Maybe TableCellProperties)
tcTableCellProperties
= lens _tcTableCellProperties
(\ s a -> s{_tcTableCellProperties = a})
instance FromJSON TableCell where
parseJSON
= withObject "TableCell"
(\ o ->
TableCell' <$>
(o .:? "columnSpan") <*> (o .:? "location") <*>
(o .:? "text")
<*> (o .:? "rowSpan")
<*> (o .:? "tableCellProperties"))
instance ToJSON TableCell where
toJSON TableCell'{..}
= object
(catMaybes
[("columnSpan" .=) <$> _tcColumnSpan,
("location" .=) <$> _tcLocation,
("text" .=) <$> _tcText,
("rowSpan" .=) <$> _tcRowSpan,
("tableCellProperties" .=) <$>
_tcTableCellProperties])
newtype ListNestingLevel =
ListNestingLevel'
{ _lnlAddtional :: HashMap Text NestingLevel
}
deriving (Eq, Show, Data, Typeable, Generic)
listNestingLevel
:: HashMap Text NestingLevel
-> ListNestingLevel
listNestingLevel pLnlAddtional_ =
ListNestingLevel' {_lnlAddtional = _Coerce # pLnlAddtional_}
lnlAddtional :: Lens' ListNestingLevel (HashMap Text NestingLevel)
lnlAddtional
= lens _lnlAddtional (\ s a -> s{_lnlAddtional = a})
. _Coerce
instance FromJSON ListNestingLevel where
parseJSON
= withObject "ListNestingLevel"
(\ o -> ListNestingLevel' <$> (parseJSONObject o))
instance ToJSON ListNestingLevel where
toJSON = toJSON . _lnlAddtional
data Outline =
Outline'
{ _oOutlineFill :: !(Maybe OutlineFill)
, _oWeight :: !(Maybe Dimension)
, _oDashStyle :: !(Maybe OutlineDashStyle)
, _oPropertyState :: !(Maybe OutlinePropertyState)
}
deriving (Eq, Show, Data, Typeable, Generic)
outline
:: Outline
outline =
Outline'
{ _oOutlineFill = Nothing
, _oWeight = Nothing
, _oDashStyle = Nothing
, _oPropertyState = Nothing
}
oOutlineFill :: Lens' Outline (Maybe OutlineFill)
oOutlineFill
= lens _oOutlineFill (\ s a -> s{_oOutlineFill = a})
oWeight :: Lens' Outline (Maybe Dimension)
oWeight = lens _oWeight (\ s a -> s{_oWeight = a})
oDashStyle :: Lens' Outline (Maybe OutlineDashStyle)
oDashStyle
= lens _oDashStyle (\ s a -> s{_oDashStyle = a})
oPropertyState :: Lens' Outline (Maybe OutlinePropertyState)
oPropertyState
= lens _oPropertyState
(\ s a -> s{_oPropertyState = a})
instance FromJSON Outline where
parseJSON
= withObject "Outline"
(\ o ->
Outline' <$>
(o .:? "outlineFill") <*> (o .:? "weight") <*>
(o .:? "dashStyle")
<*> (o .:? "propertyState"))
instance ToJSON Outline where
toJSON Outline'{..}
= object
(catMaybes
[("outlineFill" .=) <$> _oOutlineFill,
("weight" .=) <$> _oWeight,
("dashStyle" .=) <$> _oDashStyle,
("propertyState" .=) <$> _oPropertyState])
data UpdateVideoPropertiesRequest =
UpdateVideoPropertiesRequest'
{ _uvprObjectId :: !(Maybe Text)
, _uvprVideoProperties :: !(Maybe VideoProperties)
, _uvprFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateVideoPropertiesRequest
:: UpdateVideoPropertiesRequest
updateVideoPropertiesRequest =
UpdateVideoPropertiesRequest'
{ _uvprObjectId = Nothing
, _uvprVideoProperties = Nothing
, _uvprFields = Nothing
}
uvprObjectId :: Lens' UpdateVideoPropertiesRequest (Maybe Text)
uvprObjectId
= lens _uvprObjectId (\ s a -> s{_uvprObjectId = a})
uvprVideoProperties :: Lens' UpdateVideoPropertiesRequest (Maybe VideoProperties)
uvprVideoProperties
= lens _uvprVideoProperties
(\ s a -> s{_uvprVideoProperties = a})
uvprFields :: Lens' UpdateVideoPropertiesRequest (Maybe GFieldMask)
uvprFields
= lens _uvprFields (\ s a -> s{_uvprFields = a})
instance FromJSON UpdateVideoPropertiesRequest where
parseJSON
= withObject "UpdateVideoPropertiesRequest"
(\ o ->
UpdateVideoPropertiesRequest' <$>
(o .:? "objectId") <*> (o .:? "videoProperties") <*>
(o .:? "fields"))
instance ToJSON UpdateVideoPropertiesRequest where
toJSON UpdateVideoPropertiesRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _uvprObjectId,
("videoProperties" .=) <$> _uvprVideoProperties,
("fields" .=) <$> _uvprFields])
data VideoProperties =
VideoProperties'
{ _vpStart :: !(Maybe (Textual Word32))
, _vpAutoPlay :: !(Maybe Bool)
, _vpMute :: !(Maybe Bool)
, _vpEnd :: !(Maybe (Textual Word32))
, _vpOutline :: !(Maybe Outline)
}
deriving (Eq, Show, Data, Typeable, Generic)
videoProperties
:: VideoProperties
videoProperties =
VideoProperties'
{ _vpStart = Nothing
, _vpAutoPlay = Nothing
, _vpMute = Nothing
, _vpEnd = Nothing
, _vpOutline = Nothing
}
vpStart :: Lens' VideoProperties (Maybe Word32)
vpStart
= lens _vpStart (\ s a -> s{_vpStart = a}) .
mapping _Coerce
vpAutoPlay :: Lens' VideoProperties (Maybe Bool)
vpAutoPlay
= lens _vpAutoPlay (\ s a -> s{_vpAutoPlay = a})
vpMute :: Lens' VideoProperties (Maybe Bool)
vpMute = lens _vpMute (\ s a -> s{_vpMute = a})
vpEnd :: Lens' VideoProperties (Maybe Word32)
vpEnd
= lens _vpEnd (\ s a -> s{_vpEnd = a}) .
mapping _Coerce
vpOutline :: Lens' VideoProperties (Maybe Outline)
vpOutline
= lens _vpOutline (\ s a -> s{_vpOutline = a})
instance FromJSON VideoProperties where
parseJSON
= withObject "VideoProperties"
(\ o ->
VideoProperties' <$>
(o .:? "start") <*> (o .:? "autoPlay") <*>
(o .:? "mute")
<*> (o .:? "end")
<*> (o .:? "outline"))
instance ToJSON VideoProperties where
toJSON VideoProperties'{..}
= object
(catMaybes
[("start" .=) <$> _vpStart,
("autoPlay" .=) <$> _vpAutoPlay,
("mute" .=) <$> _vpMute, ("end" .=) <$> _vpEnd,
("outline" .=) <$> _vpOutline])
data LayoutPlaceholderIdMApping =
LayoutPlaceholderIdMApping'
{ _lpimaObjectId :: !(Maybe Text)
, _lpimaLayoutPlaceholderObjectId :: !(Maybe Text)
, _lpimaLayoutPlaceholder :: !(Maybe Placeholder)
}
deriving (Eq, Show, Data, Typeable, Generic)
layoutPlaceholderIdMApping
:: LayoutPlaceholderIdMApping
layoutPlaceholderIdMApping =
LayoutPlaceholderIdMApping'
{ _lpimaObjectId = Nothing
, _lpimaLayoutPlaceholderObjectId = Nothing
, _lpimaLayoutPlaceholder = Nothing
}
lpimaObjectId :: Lens' LayoutPlaceholderIdMApping (Maybe Text)
lpimaObjectId
= lens _lpimaObjectId
(\ s a -> s{_lpimaObjectId = a})
lpimaLayoutPlaceholderObjectId :: Lens' LayoutPlaceholderIdMApping (Maybe Text)
lpimaLayoutPlaceholderObjectId
= lens _lpimaLayoutPlaceholderObjectId
(\ s a -> s{_lpimaLayoutPlaceholderObjectId = a})
lpimaLayoutPlaceholder :: Lens' LayoutPlaceholderIdMApping (Maybe Placeholder)
lpimaLayoutPlaceholder
= lens _lpimaLayoutPlaceholder
(\ s a -> s{_lpimaLayoutPlaceholder = a})
instance FromJSON LayoutPlaceholderIdMApping where
parseJSON
= withObject "LayoutPlaceholderIdMApping"
(\ o ->
LayoutPlaceholderIdMApping' <$>
(o .:? "objectId") <*>
(o .:? "layoutPlaceholderObjectId")
<*> (o .:? "layoutPlaceholder"))
instance ToJSON LayoutPlaceholderIdMApping where
toJSON LayoutPlaceholderIdMApping'{..}
= object
(catMaybes
[("objectId" .=) <$> _lpimaObjectId,
("layoutPlaceholderObjectId" .=) <$>
_lpimaLayoutPlaceholderObjectId,
("layoutPlaceholder" .=) <$>
_lpimaLayoutPlaceholder])
newtype CreateImageResponse =
CreateImageResponse'
{ _ciriObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createImageResponse
:: CreateImageResponse
createImageResponse = CreateImageResponse' {_ciriObjectId = Nothing}
ciriObjectId :: Lens' CreateImageResponse (Maybe Text)
ciriObjectId
= lens _ciriObjectId (\ s a -> s{_ciriObjectId = a})
instance FromJSON CreateImageResponse where
parseJSON
= withObject "CreateImageResponse"
(\ o -> CreateImageResponse' <$> (o .:? "objectId"))
instance ToJSON CreateImageResponse where
toJSON CreateImageResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _ciriObjectId])
data TextElement =
TextElement'
{ _teParagraphMarker :: !(Maybe ParagraphMarker)
, _teAutoText :: !(Maybe AutoText)
, _teEndIndex :: !(Maybe (Textual Int32))
, _teTextRun :: !(Maybe TextRun)
, _teStartIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
textElement
:: TextElement
textElement =
TextElement'
{ _teParagraphMarker = Nothing
, _teAutoText = Nothing
, _teEndIndex = Nothing
, _teTextRun = Nothing
, _teStartIndex = Nothing
}
teParagraphMarker :: Lens' TextElement (Maybe ParagraphMarker)
teParagraphMarker
= lens _teParagraphMarker
(\ s a -> s{_teParagraphMarker = a})
teAutoText :: Lens' TextElement (Maybe AutoText)
teAutoText
= lens _teAutoText (\ s a -> s{_teAutoText = a})
teEndIndex :: Lens' TextElement (Maybe Int32)
teEndIndex
= lens _teEndIndex (\ s a -> s{_teEndIndex = a}) .
mapping _Coerce
teTextRun :: Lens' TextElement (Maybe TextRun)
teTextRun
= lens _teTextRun (\ s a -> s{_teTextRun = a})
teStartIndex :: Lens' TextElement (Maybe Int32)
teStartIndex
= lens _teStartIndex (\ s a -> s{_teStartIndex = a})
. mapping _Coerce
instance FromJSON TextElement where
parseJSON
= withObject "TextElement"
(\ o ->
TextElement' <$>
(o .:? "paragraphMarker") <*> (o .:? "autoText") <*>
(o .:? "endIndex")
<*> (o .:? "textRun")
<*> (o .:? "startIndex"))
instance ToJSON TextElement where
toJSON TextElement'{..}
= object
(catMaybes
[("paragraphMarker" .=) <$> _teParagraphMarker,
("autoText" .=) <$> _teAutoText,
("endIndex" .=) <$> _teEndIndex,
("textRun" .=) <$> _teTextRun,
("startIndex" .=) <$> _teStartIndex])
data DeleteParagraphBulletsRequest =
DeleteParagraphBulletsRequest'
{ _dpbrTextRange :: !(Maybe Range)
, _dpbrObjectId :: !(Maybe Text)
, _dpbrCellLocation :: !(Maybe TableCellLocation)
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteParagraphBulletsRequest
:: DeleteParagraphBulletsRequest
deleteParagraphBulletsRequest =
DeleteParagraphBulletsRequest'
{ _dpbrTextRange = Nothing
, _dpbrObjectId = Nothing
, _dpbrCellLocation = Nothing
}
dpbrTextRange :: Lens' DeleteParagraphBulletsRequest (Maybe Range)
dpbrTextRange
= lens _dpbrTextRange
(\ s a -> s{_dpbrTextRange = a})
dpbrObjectId :: Lens' DeleteParagraphBulletsRequest (Maybe Text)
dpbrObjectId
= lens _dpbrObjectId (\ s a -> s{_dpbrObjectId = a})
dpbrCellLocation :: Lens' DeleteParagraphBulletsRequest (Maybe TableCellLocation)
dpbrCellLocation
= lens _dpbrCellLocation
(\ s a -> s{_dpbrCellLocation = a})
instance FromJSON DeleteParagraphBulletsRequest where
parseJSON
= withObject "DeleteParagraphBulletsRequest"
(\ o ->
DeleteParagraphBulletsRequest' <$>
(o .:? "textRange") <*> (o .:? "objectId") <*>
(o .:? "cellLocation"))
instance ToJSON DeleteParagraphBulletsRequest where
toJSON DeleteParagraphBulletsRequest'{..}
= object
(catMaybes
[("textRange" .=) <$> _dpbrTextRange,
("objectId" .=) <$> _dpbrObjectId,
("cellLocation" .=) <$> _dpbrCellLocation])
data InsertTextRequest =
InsertTextRequest'
{ _itrText :: !(Maybe Text)
, _itrObjectId :: !(Maybe Text)
, _itrInsertionIndex :: !(Maybe (Textual Int32))
, _itrCellLocation :: !(Maybe TableCellLocation)
}
deriving (Eq, Show, Data, Typeable, Generic)
insertTextRequest
:: InsertTextRequest
insertTextRequest =
InsertTextRequest'
{ _itrText = Nothing
, _itrObjectId = Nothing
, _itrInsertionIndex = Nothing
, _itrCellLocation = Nothing
}
itrText :: Lens' InsertTextRequest (Maybe Text)
itrText = lens _itrText (\ s a -> s{_itrText = a})
itrObjectId :: Lens' InsertTextRequest (Maybe Text)
itrObjectId
= lens _itrObjectId (\ s a -> s{_itrObjectId = a})
itrInsertionIndex :: Lens' InsertTextRequest (Maybe Int32)
itrInsertionIndex
= lens _itrInsertionIndex
(\ s a -> s{_itrInsertionIndex = a})
. mapping _Coerce
itrCellLocation :: Lens' InsertTextRequest (Maybe TableCellLocation)
itrCellLocation
= lens _itrCellLocation
(\ s a -> s{_itrCellLocation = a})
instance FromJSON InsertTextRequest where
parseJSON
= withObject "InsertTextRequest"
(\ o ->
InsertTextRequest' <$>
(o .:? "text") <*> (o .:? "objectId") <*>
(o .:? "insertionIndex")
<*> (o .:? "cellLocation"))
instance ToJSON InsertTextRequest where
toJSON InsertTextRequest'{..}
= object
(catMaybes
[("text" .=) <$> _itrText,
("objectId" .=) <$> _itrObjectId,
("insertionIndex" .=) <$> _itrInsertionIndex,
("cellLocation" .=) <$> _itrCellLocation])
data UpdateTableBOrderPropertiesRequest =
UpdateTableBOrderPropertiesRequest'
{ _utboprBOrderPosition :: !(Maybe UpdateTableBOrderPropertiesRequestBOrderPosition)
, _utboprObjectId :: !(Maybe Text)
, _utboprTableBOrderProperties :: !(Maybe TableBOrderProperties)
, _utboprTableRange :: !(Maybe TableRange)
, _utboprFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateTableBOrderPropertiesRequest
:: UpdateTableBOrderPropertiesRequest
updateTableBOrderPropertiesRequest =
UpdateTableBOrderPropertiesRequest'
{ _utboprBOrderPosition = Nothing
, _utboprObjectId = Nothing
, _utboprTableBOrderProperties = Nothing
, _utboprTableRange = Nothing
, _utboprFields = Nothing
}
utboprBOrderPosition :: Lens' UpdateTableBOrderPropertiesRequest (Maybe UpdateTableBOrderPropertiesRequestBOrderPosition)
utboprBOrderPosition
= lens _utboprBOrderPosition
(\ s a -> s{_utboprBOrderPosition = a})
utboprObjectId :: Lens' UpdateTableBOrderPropertiesRequest (Maybe Text)
utboprObjectId
= lens _utboprObjectId
(\ s a -> s{_utboprObjectId = a})
utboprTableBOrderProperties :: Lens' UpdateTableBOrderPropertiesRequest (Maybe TableBOrderProperties)
utboprTableBOrderProperties
= lens _utboprTableBOrderProperties
(\ s a -> s{_utboprTableBOrderProperties = a})
utboprTableRange :: Lens' UpdateTableBOrderPropertiesRequest (Maybe TableRange)
utboprTableRange
= lens _utboprTableRange
(\ s a -> s{_utboprTableRange = a})
utboprFields :: Lens' UpdateTableBOrderPropertiesRequest (Maybe GFieldMask)
utboprFields
= lens _utboprFields (\ s a -> s{_utboprFields = a})
instance FromJSON UpdateTableBOrderPropertiesRequest
where
parseJSON
= withObject "UpdateTableBOrderPropertiesRequest"
(\ o ->
UpdateTableBOrderPropertiesRequest' <$>
(o .:? "borderPosition") <*> (o .:? "objectId") <*>
(o .:? "tableBorderProperties")
<*> (o .:? "tableRange")
<*> (o .:? "fields"))
instance ToJSON UpdateTableBOrderPropertiesRequest
where
toJSON UpdateTableBOrderPropertiesRequest'{..}
= object
(catMaybes
[("borderPosition" .=) <$> _utboprBOrderPosition,
("objectId" .=) <$> _utboprObjectId,
("tableBorderProperties" .=) <$>
_utboprTableBOrderProperties,
("tableRange" .=) <$> _utboprTableRange,
("fields" .=) <$> _utboprFields])
data CreateLineRequest =
CreateLineRequest'
{ _clrlCategory :: !(Maybe CreateLineRequestCategory)
, _clrlObjectId :: !(Maybe Text)
, _clrlLineCategory :: !(Maybe CreateLineRequestLineCategory)
, _clrlElementProperties :: !(Maybe PageElementProperties)
}
deriving (Eq, Show, Data, Typeable, Generic)
createLineRequest
:: CreateLineRequest
createLineRequest =
CreateLineRequest'
{ _clrlCategory = Nothing
, _clrlObjectId = Nothing
, _clrlLineCategory = Nothing
, _clrlElementProperties = Nothing
}
clrlCategory :: Lens' CreateLineRequest (Maybe CreateLineRequestCategory)
clrlCategory
= lens _clrlCategory (\ s a -> s{_clrlCategory = a})
clrlObjectId :: Lens' CreateLineRequest (Maybe Text)
clrlObjectId
= lens _clrlObjectId (\ s a -> s{_clrlObjectId = a})
clrlLineCategory :: Lens' CreateLineRequest (Maybe CreateLineRequestLineCategory)
clrlLineCategory
= lens _clrlLineCategory
(\ s a -> s{_clrlLineCategory = a})
clrlElementProperties :: Lens' CreateLineRequest (Maybe PageElementProperties)
clrlElementProperties
= lens _clrlElementProperties
(\ s a -> s{_clrlElementProperties = a})
instance FromJSON CreateLineRequest where
parseJSON
= withObject "CreateLineRequest"
(\ o ->
CreateLineRequest' <$>
(o .:? "category") <*> (o .:? "objectId") <*>
(o .:? "lineCategory")
<*> (o .:? "elementProperties"))
instance ToJSON CreateLineRequest where
toJSON CreateLineRequest'{..}
= object
(catMaybes
[("category" .=) <$> _clrlCategory,
("objectId" .=) <$> _clrlObjectId,
("lineCategory" .=) <$> _clrlLineCategory,
("elementProperties" .=) <$> _clrlElementProperties])
data Placeholder =
Placeholder'
{ _pParentObjectId :: !(Maybe Text)
, _pType :: !(Maybe PlaceholderType)
, _pIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
placeholder
:: Placeholder
placeholder =
Placeholder' {_pParentObjectId = Nothing, _pType = Nothing, _pIndex = Nothing}
pParentObjectId :: Lens' Placeholder (Maybe Text)
pParentObjectId
= lens _pParentObjectId
(\ s a -> s{_pParentObjectId = a})
pType :: Lens' Placeholder (Maybe PlaceholderType)
pType = lens _pType (\ s a -> s{_pType = a})
pIndex :: Lens' Placeholder (Maybe Int32)
pIndex
= lens _pIndex (\ s a -> s{_pIndex = a}) .
mapping _Coerce
instance FromJSON Placeholder where
parseJSON
= withObject "Placeholder"
(\ o ->
Placeholder' <$>
(o .:? "parentObjectId") <*> (o .:? "type") <*>
(o .:? "index"))
instance ToJSON Placeholder where
toJSON Placeholder'{..}
= object
(catMaybes
[("parentObjectId" .=) <$> _pParentObjectId,
("type" .=) <$> _pType, ("index" .=) <$> _pIndex])
data LayoutProperties =
LayoutProperties'
{ _lpMasterObjectId :: !(Maybe Text)
, _lpName :: !(Maybe Text)
, _lpDisplayName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
layoutProperties
:: LayoutProperties
layoutProperties =
LayoutProperties'
{_lpMasterObjectId = Nothing, _lpName = Nothing, _lpDisplayName = Nothing}
lpMasterObjectId :: Lens' LayoutProperties (Maybe Text)
lpMasterObjectId
= lens _lpMasterObjectId
(\ s a -> s{_lpMasterObjectId = a})
lpName :: Lens' LayoutProperties (Maybe Text)
lpName = lens _lpName (\ s a -> s{_lpName = a})
lpDisplayName :: Lens' LayoutProperties (Maybe Text)
lpDisplayName
= lens _lpDisplayName
(\ s a -> s{_lpDisplayName = a})
instance FromJSON LayoutProperties where
parseJSON
= withObject "LayoutProperties"
(\ o ->
LayoutProperties' <$>
(o .:? "masterObjectId") <*> (o .:? "name") <*>
(o .:? "displayName"))
instance ToJSON LayoutProperties where
toJSON LayoutProperties'{..}
= object
(catMaybes
[("masterObjectId" .=) <$> _lpMasterObjectId,
("name" .=) <$> _lpName,
("displayName" .=) <$> _lpDisplayName])
data UpdateShapePropertiesRequest =
UpdateShapePropertiesRequest'
{ _usprObjectId :: !(Maybe Text)
, _usprShapeProperties :: !(Maybe ShapeProperties)
, _usprFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateShapePropertiesRequest
:: UpdateShapePropertiesRequest
updateShapePropertiesRequest =
UpdateShapePropertiesRequest'
{ _usprObjectId = Nothing
, _usprShapeProperties = Nothing
, _usprFields = Nothing
}
usprObjectId :: Lens' UpdateShapePropertiesRequest (Maybe Text)
usprObjectId
= lens _usprObjectId (\ s a -> s{_usprObjectId = a})
usprShapeProperties :: Lens' UpdateShapePropertiesRequest (Maybe ShapeProperties)
usprShapeProperties
= lens _usprShapeProperties
(\ s a -> s{_usprShapeProperties = a})
usprFields :: Lens' UpdateShapePropertiesRequest (Maybe GFieldMask)
usprFields
= lens _usprFields (\ s a -> s{_usprFields = a})
instance FromJSON UpdateShapePropertiesRequest where
parseJSON
= withObject "UpdateShapePropertiesRequest"
(\ o ->
UpdateShapePropertiesRequest' <$>
(o .:? "objectId") <*> (o .:? "shapeProperties") <*>
(o .:? "fields"))
instance ToJSON UpdateShapePropertiesRequest where
toJSON UpdateShapePropertiesRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _usprObjectId,
("shapeProperties" .=) <$> _usprShapeProperties,
("fields" .=) <$> _usprFields])
data Table =
Table'
{ _tTableRows :: !(Maybe [TableRow])
, _tVerticalBOrderRows :: !(Maybe [TableBOrderRow])
, _tRows :: !(Maybe (Textual Int32))
, _tColumns :: !(Maybe (Textual Int32))
, _tHorizontalBOrderRows :: !(Maybe [TableBOrderRow])
, _tTableColumns :: !(Maybe [TableColumnProperties])
}
deriving (Eq, Show, Data, Typeable, Generic)
table
:: Table
table =
Table'
{ _tTableRows = Nothing
, _tVerticalBOrderRows = Nothing
, _tRows = Nothing
, _tColumns = Nothing
, _tHorizontalBOrderRows = Nothing
, _tTableColumns = Nothing
}
tTableRows :: Lens' Table [TableRow]
tTableRows
= lens _tTableRows (\ s a -> s{_tTableRows = a}) .
_Default
. _Coerce
tVerticalBOrderRows :: Lens' Table [TableBOrderRow]
tVerticalBOrderRows
= lens _tVerticalBOrderRows
(\ s a -> s{_tVerticalBOrderRows = a})
. _Default
. _Coerce
tRows :: Lens' Table (Maybe Int32)
tRows
= lens _tRows (\ s a -> s{_tRows = a}) .
mapping _Coerce
tColumns :: Lens' Table (Maybe Int32)
tColumns
= lens _tColumns (\ s a -> s{_tColumns = a}) .
mapping _Coerce
tHorizontalBOrderRows :: Lens' Table [TableBOrderRow]
tHorizontalBOrderRows
= lens _tHorizontalBOrderRows
(\ s a -> s{_tHorizontalBOrderRows = a})
. _Default
. _Coerce
tTableColumns :: Lens' Table [TableColumnProperties]
tTableColumns
= lens _tTableColumns
(\ s a -> s{_tTableColumns = a})
. _Default
. _Coerce
instance FromJSON Table where
parseJSON
= withObject "Table"
(\ o ->
Table' <$>
(o .:? "tableRows" .!= mempty) <*>
(o .:? "verticalBorderRows" .!= mempty)
<*> (o .:? "rows")
<*> (o .:? "columns")
<*> (o .:? "horizontalBorderRows" .!= mempty)
<*> (o .:? "tableColumns" .!= mempty))
instance ToJSON Table where
toJSON Table'{..}
= object
(catMaybes
[("tableRows" .=) <$> _tTableRows,
("verticalBorderRows" .=) <$> _tVerticalBOrderRows,
("rows" .=) <$> _tRows, ("columns" .=) <$> _tColumns,
("horizontalBorderRows" .=) <$>
_tHorizontalBOrderRows,
("tableColumns" .=) <$> _tTableColumns])
data UpdateLineCategoryRequest =
UpdateLineCategoryRequest'
{ _ulcrObjectId :: !(Maybe Text)
, _ulcrLineCategory :: !(Maybe UpdateLineCategoryRequestLineCategory)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateLineCategoryRequest
:: UpdateLineCategoryRequest
updateLineCategoryRequest =
UpdateLineCategoryRequest'
{_ulcrObjectId = Nothing, _ulcrLineCategory = Nothing}
ulcrObjectId :: Lens' UpdateLineCategoryRequest (Maybe Text)
ulcrObjectId
= lens _ulcrObjectId (\ s a -> s{_ulcrObjectId = a})
ulcrLineCategory :: Lens' UpdateLineCategoryRequest (Maybe UpdateLineCategoryRequestLineCategory)
ulcrLineCategory
= lens _ulcrLineCategory
(\ s a -> s{_ulcrLineCategory = a})
instance FromJSON UpdateLineCategoryRequest where
parseJSON
= withObject "UpdateLineCategoryRequest"
(\ o ->
UpdateLineCategoryRequest' <$>
(o .:? "objectId") <*> (o .:? "lineCategory"))
instance ToJSON UpdateLineCategoryRequest where
toJSON UpdateLineCategoryRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _ulcrObjectId,
("lineCategory" .=) <$> _ulcrLineCategory])
data ShapeProperties =
ShapeProperties'
{ _spLink :: !(Maybe Link)
, _spShadow :: !(Maybe Shadow)
, _spOutline :: !(Maybe Outline)
, _spContentAlignment :: !(Maybe ShapePropertiesContentAlignment)
, _spShapeBackgRoundFill :: !(Maybe ShapeBackgRoundFill)
}
deriving (Eq, Show, Data, Typeable, Generic)
shapeProperties
:: ShapeProperties
shapeProperties =
ShapeProperties'
{ _spLink = Nothing
, _spShadow = Nothing
, _spOutline = Nothing
, _spContentAlignment = Nothing
, _spShapeBackgRoundFill = Nothing
}
spLink :: Lens' ShapeProperties (Maybe Link)
spLink = lens _spLink (\ s a -> s{_spLink = a})
spShadow :: Lens' ShapeProperties (Maybe Shadow)
spShadow = lens _spShadow (\ s a -> s{_spShadow = a})
spOutline :: Lens' ShapeProperties (Maybe Outline)
spOutline
= lens _spOutline (\ s a -> s{_spOutline = a})
spContentAlignment :: Lens' ShapeProperties (Maybe ShapePropertiesContentAlignment)
spContentAlignment
= lens _spContentAlignment
(\ s a -> s{_spContentAlignment = a})
spShapeBackgRoundFill :: Lens' ShapeProperties (Maybe ShapeBackgRoundFill)
spShapeBackgRoundFill
= lens _spShapeBackgRoundFill
(\ s a -> s{_spShapeBackgRoundFill = a})
instance FromJSON ShapeProperties where
parseJSON
= withObject "ShapeProperties"
(\ o ->
ShapeProperties' <$>
(o .:? "link") <*> (o .:? "shadow") <*>
(o .:? "outline")
<*> (o .:? "contentAlignment")
<*> (o .:? "shapeBackgroundFill"))
instance ToJSON ShapeProperties where
toJSON ShapeProperties'{..}
= object
(catMaybes
[("link" .=) <$> _spLink,
("shadow" .=) <$> _spShadow,
("outline" .=) <$> _spOutline,
("contentAlignment" .=) <$> _spContentAlignment,
("shapeBackgroundFill" .=) <$>
_spShapeBackgRoundFill])
data ShapeBackgRoundFill =
ShapeBackgRoundFill'
{ _sbrfSolidFill :: !(Maybe SolidFill)
, _sbrfPropertyState :: !(Maybe ShapeBackgRoundFillPropertyState)
}
deriving (Eq, Show, Data, Typeable, Generic)
shapeBackgRoundFill
:: ShapeBackgRoundFill
shapeBackgRoundFill =
ShapeBackgRoundFill' {_sbrfSolidFill = Nothing, _sbrfPropertyState = Nothing}
sbrfSolidFill :: Lens' ShapeBackgRoundFill (Maybe SolidFill)
sbrfSolidFill
= lens _sbrfSolidFill
(\ s a -> s{_sbrfSolidFill = a})
sbrfPropertyState :: Lens' ShapeBackgRoundFill (Maybe ShapeBackgRoundFillPropertyState)
sbrfPropertyState
= lens _sbrfPropertyState
(\ s a -> s{_sbrfPropertyState = a})
instance FromJSON ShapeBackgRoundFill where
parseJSON
= withObject "ShapeBackgRoundFill"
(\ o ->
ShapeBackgRoundFill' <$>
(o .:? "solidFill") <*> (o .:? "propertyState"))
instance ToJSON ShapeBackgRoundFill where
toJSON ShapeBackgRoundFill'{..}
= object
(catMaybes
[("solidFill" .=) <$> _sbrfSolidFill,
("propertyState" .=) <$> _sbrfPropertyState])
data CreateParagraphBulletsRequest =
CreateParagraphBulletsRequest'
{ _cpbrTextRange :: !(Maybe Range)
, _cpbrObjectId :: !(Maybe Text)
, _cpbrBulletPreset :: !(Maybe CreateParagraphBulletsRequestBulletPreset)
, _cpbrCellLocation :: !(Maybe TableCellLocation)
}
deriving (Eq, Show, Data, Typeable, Generic)
createParagraphBulletsRequest
:: CreateParagraphBulletsRequest
createParagraphBulletsRequest =
CreateParagraphBulletsRequest'
{ _cpbrTextRange = Nothing
, _cpbrObjectId = Nothing
, _cpbrBulletPreset = Nothing
, _cpbrCellLocation = Nothing
}
cpbrTextRange :: Lens' CreateParagraphBulletsRequest (Maybe Range)
cpbrTextRange
= lens _cpbrTextRange
(\ s a -> s{_cpbrTextRange = a})
cpbrObjectId :: Lens' CreateParagraphBulletsRequest (Maybe Text)
cpbrObjectId
= lens _cpbrObjectId (\ s a -> s{_cpbrObjectId = a})
cpbrBulletPreset :: Lens' CreateParagraphBulletsRequest (Maybe CreateParagraphBulletsRequestBulletPreset)
cpbrBulletPreset
= lens _cpbrBulletPreset
(\ s a -> s{_cpbrBulletPreset = a})
cpbrCellLocation :: Lens' CreateParagraphBulletsRequest (Maybe TableCellLocation)
cpbrCellLocation
= lens _cpbrCellLocation
(\ s a -> s{_cpbrCellLocation = a})
instance FromJSON CreateParagraphBulletsRequest where
parseJSON
= withObject "CreateParagraphBulletsRequest"
(\ o ->
CreateParagraphBulletsRequest' <$>
(o .:? "textRange") <*> (o .:? "objectId") <*>
(o .:? "bulletPreset")
<*> (o .:? "cellLocation"))
instance ToJSON CreateParagraphBulletsRequest where
toJSON CreateParagraphBulletsRequest'{..}
= object
(catMaybes
[("textRange" .=) <$> _cpbrTextRange,
("objectId" .=) <$> _cpbrObjectId,
("bulletPreset" .=) <$> _cpbrBulletPreset,
("cellLocation" .=) <$> _cpbrCellLocation])
data UpdatePageElementAltTextRequest =
UpdatePageElementAltTextRequest'
{ _upeatrObjectId :: !(Maybe Text)
, _upeatrTitle :: !(Maybe Text)
, _upeatrDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
updatePageElementAltTextRequest
:: UpdatePageElementAltTextRequest
updatePageElementAltTextRequest =
UpdatePageElementAltTextRequest'
{ _upeatrObjectId = Nothing
, _upeatrTitle = Nothing
, _upeatrDescription = Nothing
}
upeatrObjectId :: Lens' UpdatePageElementAltTextRequest (Maybe Text)
upeatrObjectId
= lens _upeatrObjectId
(\ s a -> s{_upeatrObjectId = a})
upeatrTitle :: Lens' UpdatePageElementAltTextRequest (Maybe Text)
upeatrTitle
= lens _upeatrTitle (\ s a -> s{_upeatrTitle = a})
upeatrDescription :: Lens' UpdatePageElementAltTextRequest (Maybe Text)
upeatrDescription
= lens _upeatrDescription
(\ s a -> s{_upeatrDescription = a})
instance FromJSON UpdatePageElementAltTextRequest
where
parseJSON
= withObject "UpdatePageElementAltTextRequest"
(\ o ->
UpdatePageElementAltTextRequest' <$>
(o .:? "objectId") <*> (o .:? "title") <*>
(o .:? "description"))
instance ToJSON UpdatePageElementAltTextRequest where
toJSON UpdatePageElementAltTextRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _upeatrObjectId,
("title" .=) <$> _upeatrTitle,
("description" .=) <$> _upeatrDescription])
data UpdateTableCellPropertiesRequest =
UpdateTableCellPropertiesRequest'
{ _uObjectId :: !(Maybe Text)
, _uTableCellProperties :: !(Maybe TableCellProperties)
, _uTableRange :: !(Maybe TableRange)
, _uFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateTableCellPropertiesRequest
:: UpdateTableCellPropertiesRequest
updateTableCellPropertiesRequest =
UpdateTableCellPropertiesRequest'
{ _uObjectId = Nothing
, _uTableCellProperties = Nothing
, _uTableRange = Nothing
, _uFields = Nothing
}
uObjectId :: Lens' UpdateTableCellPropertiesRequest (Maybe Text)
uObjectId
= lens _uObjectId (\ s a -> s{_uObjectId = a})
uTableCellProperties :: Lens' UpdateTableCellPropertiesRequest (Maybe TableCellProperties)
uTableCellProperties
= lens _uTableCellProperties
(\ s a -> s{_uTableCellProperties = a})
uTableRange :: Lens' UpdateTableCellPropertiesRequest (Maybe TableRange)
uTableRange
= lens _uTableRange (\ s a -> s{_uTableRange = a})
uFields :: Lens' UpdateTableCellPropertiesRequest (Maybe GFieldMask)
uFields = lens _uFields (\ s a -> s{_uFields = a})
instance FromJSON UpdateTableCellPropertiesRequest
where
parseJSON
= withObject "UpdateTableCellPropertiesRequest"
(\ o ->
UpdateTableCellPropertiesRequest' <$>
(o .:? "objectId") <*> (o .:? "tableCellProperties")
<*> (o .:? "tableRange")
<*> (o .:? "fields"))
instance ToJSON UpdateTableCellPropertiesRequest
where
toJSON UpdateTableCellPropertiesRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _uObjectId,
("tableCellProperties" .=) <$> _uTableCellProperties,
("tableRange" .=) <$> _uTableRange,
("fields" .=) <$> _uFields])
newtype SheetsChartProperties =
SheetsChartProperties'
{ _scpChartImageProperties :: Maybe ImageProperties
}
deriving (Eq, Show, Data, Typeable, Generic)
sheetsChartProperties
:: SheetsChartProperties
sheetsChartProperties =
SheetsChartProperties' {_scpChartImageProperties = Nothing}
scpChartImageProperties :: Lens' SheetsChartProperties (Maybe ImageProperties)
scpChartImageProperties
= lens _scpChartImageProperties
(\ s a -> s{_scpChartImageProperties = a})
instance FromJSON SheetsChartProperties where
parseJSON
= withObject "SheetsChartProperties"
(\ o ->
SheetsChartProperties' <$>
(o .:? "chartImageProperties"))
instance ToJSON SheetsChartProperties where
toJSON SheetsChartProperties'{..}
= object
(catMaybes
[("chartImageProperties" .=) <$>
_scpChartImageProperties])
data ParagraphStyle =
ParagraphStyle'
{ _psLineSpacing :: !(Maybe (Textual Double))
, _psDirection :: !(Maybe ParagraphStyleDirection)
, _psIndentFirstLine :: !(Maybe Dimension)
, _psIndentEnd :: !(Maybe Dimension)
, _psIndentStart :: !(Maybe Dimension)
, _psAlignment :: !(Maybe ParagraphStyleAlignment)
, _psSpaceBelow :: !(Maybe Dimension)
, _psSpacingMode :: !(Maybe ParagraphStyleSpacingMode)
, _psSpaceAbove :: !(Maybe Dimension)
}
deriving (Eq, Show, Data, Typeable, Generic)
paragraphStyle
:: ParagraphStyle
paragraphStyle =
ParagraphStyle'
{ _psLineSpacing = Nothing
, _psDirection = Nothing
, _psIndentFirstLine = Nothing
, _psIndentEnd = Nothing
, _psIndentStart = Nothing
, _psAlignment = Nothing
, _psSpaceBelow = Nothing
, _psSpacingMode = Nothing
, _psSpaceAbove = Nothing
}
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})
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})
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})
psSpaceAbove :: Lens' ParagraphStyle (Maybe Dimension)
psSpaceAbove
= lens _psSpaceAbove (\ s a -> s{_psSpaceAbove = a})
instance FromJSON ParagraphStyle where
parseJSON
= withObject "ParagraphStyle"
(\ o ->
ParagraphStyle' <$>
(o .:? "lineSpacing") <*> (o .:? "direction") <*>
(o .:? "indentFirstLine")
<*> (o .:? "indentEnd")
<*> (o .:? "indentStart")
<*> (o .:? "alignment")
<*> (o .:? "spaceBelow")
<*> (o .:? "spacingMode")
<*> (o .:? "spaceAbove"))
instance ToJSON ParagraphStyle where
toJSON ParagraphStyle'{..}
= object
(catMaybes
[("lineSpacing" .=) <$> _psLineSpacing,
("direction" .=) <$> _psDirection,
("indentFirstLine" .=) <$> _psIndentFirstLine,
("indentEnd" .=) <$> _psIndentEnd,
("indentStart" .=) <$> _psIndentStart,
("alignment" .=) <$> _psAlignment,
("spaceBelow" .=) <$> _psSpaceBelow,
("spacingMode" .=) <$> _psSpacingMode,
("spaceAbove" .=) <$> _psSpaceAbove])
newtype CreateTableResponse =
CreateTableResponse'
{ _ctrtObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
createTableResponse
:: CreateTableResponse
createTableResponse = CreateTableResponse' {_ctrtObjectId = Nothing}
ctrtObjectId :: Lens' CreateTableResponse (Maybe Text)
ctrtObjectId
= lens _ctrtObjectId (\ s a -> s{_ctrtObjectId = a})
instance FromJSON CreateTableResponse where
parseJSON
= withObject "CreateTableResponse"
(\ o -> CreateTableResponse' <$> (o .:? "objectId"))
instance ToJSON CreateTableResponse where
toJSON CreateTableResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _ctrtObjectId])
newtype RerouteLineRequest =
RerouteLineRequest'
{ _rlrObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
rerouteLineRequest
:: RerouteLineRequest
rerouteLineRequest = RerouteLineRequest' {_rlrObjectId = Nothing}
rlrObjectId :: Lens' RerouteLineRequest (Maybe Text)
rlrObjectId
= lens _rlrObjectId (\ s a -> s{_rlrObjectId = a})
instance FromJSON RerouteLineRequest where
parseJSON
= withObject "RerouteLineRequest"
(\ o -> RerouteLineRequest' <$> (o .:? "objectId"))
instance ToJSON RerouteLineRequest where
toJSON RerouteLineRequest'{..}
= object
(catMaybes [("objectId" .=) <$> _rlrObjectId])
newtype TableColumnProperties =
TableColumnProperties'
{ _tcpColumnWidth :: Maybe Dimension
}
deriving (Eq, Show, Data, Typeable, Generic)
tableColumnProperties
:: TableColumnProperties
tableColumnProperties = TableColumnProperties' {_tcpColumnWidth = Nothing}
tcpColumnWidth :: Lens' TableColumnProperties (Maybe Dimension)
tcpColumnWidth
= lens _tcpColumnWidth
(\ s a -> s{_tcpColumnWidth = a})
instance FromJSON TableColumnProperties where
parseJSON
= withObject "TableColumnProperties"
(\ o ->
TableColumnProperties' <$> (o .:? "columnWidth"))
instance ToJSON TableColumnProperties where
toJSON TableColumnProperties'{..}
= object
(catMaybes [("columnWidth" .=) <$> _tcpColumnWidth])
newtype DuplicateObjectResponse =
DuplicateObjectResponse'
{ _dupObjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
duplicateObjectResponse
:: DuplicateObjectResponse
duplicateObjectResponse = DuplicateObjectResponse' {_dupObjectId = Nothing}
dupObjectId :: Lens' DuplicateObjectResponse (Maybe Text)
dupObjectId
= lens _dupObjectId (\ s a -> s{_dupObjectId = a})
instance FromJSON DuplicateObjectResponse where
parseJSON
= withObject "DuplicateObjectResponse"
(\ o ->
DuplicateObjectResponse' <$> (o .:? "objectId"))
instance ToJSON DuplicateObjectResponse where
toJSON DuplicateObjectResponse'{..}
= object
(catMaybes [("objectId" .=) <$> _dupObjectId])
data UpdateParagraphStyleRequest =
UpdateParagraphStyleRequest'
{ _upsrStyle :: !(Maybe ParagraphStyle)
, _upsrTextRange :: !(Maybe Range)
, _upsrObjectId :: !(Maybe Text)
, _upsrCellLocation :: !(Maybe TableCellLocation)
, _upsrFields :: !(Maybe GFieldMask)
}
deriving (Eq, Show, Data, Typeable, Generic)
updateParagraphStyleRequest
:: UpdateParagraphStyleRequest
updateParagraphStyleRequest =
UpdateParagraphStyleRequest'
{ _upsrStyle = Nothing
, _upsrTextRange = Nothing
, _upsrObjectId = Nothing
, _upsrCellLocation = Nothing
, _upsrFields = Nothing
}
upsrStyle :: Lens' UpdateParagraphStyleRequest (Maybe ParagraphStyle)
upsrStyle
= lens _upsrStyle (\ s a -> s{_upsrStyle = a})
upsrTextRange :: Lens' UpdateParagraphStyleRequest (Maybe Range)
upsrTextRange
= lens _upsrTextRange
(\ s a -> s{_upsrTextRange = a})
upsrObjectId :: Lens' UpdateParagraphStyleRequest (Maybe Text)
upsrObjectId
= lens _upsrObjectId (\ s a -> s{_upsrObjectId = a})
upsrCellLocation :: Lens' UpdateParagraphStyleRequest (Maybe TableCellLocation)
upsrCellLocation
= lens _upsrCellLocation
(\ s a -> s{_upsrCellLocation = a})
upsrFields :: Lens' UpdateParagraphStyleRequest (Maybe GFieldMask)
upsrFields
= lens _upsrFields (\ s a -> s{_upsrFields = a})
instance FromJSON UpdateParagraphStyleRequest where
parseJSON
= withObject "UpdateParagraphStyleRequest"
(\ o ->
UpdateParagraphStyleRequest' <$>
(o .:? "style") <*> (o .:? "textRange") <*>
(o .:? "objectId")
<*> (o .:? "cellLocation")
<*> (o .:? "fields"))
instance ToJSON UpdateParagraphStyleRequest where
toJSON UpdateParagraphStyleRequest'{..}
= object
(catMaybes
[("style" .=) <$> _upsrStyle,
("textRange" .=) <$> _upsrTextRange,
("objectId" .=) <$> _upsrObjectId,
("cellLocation" .=) <$> _upsrCellLocation,
("fields" .=) <$> _upsrFields])
data ReplaceAllTextRequest =
ReplaceAllTextRequest'
{ _ratrPageObjectIds :: !(Maybe [Text])
, _ratrContainsText :: !(Maybe SubstringMatchCriteria)
, _ratrReplaceText :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
replaceAllTextRequest
:: ReplaceAllTextRequest
replaceAllTextRequest =
ReplaceAllTextRequest'
{ _ratrPageObjectIds = Nothing
, _ratrContainsText = Nothing
, _ratrReplaceText = Nothing
}
ratrPageObjectIds :: Lens' ReplaceAllTextRequest [Text]
ratrPageObjectIds
= lens _ratrPageObjectIds
(\ s a -> s{_ratrPageObjectIds = a})
. _Default
. _Coerce
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 .:? "pageObjectIds" .!= mempty) <*>
(o .:? "containsText")
<*> (o .:? "replaceText"))
instance ToJSON ReplaceAllTextRequest where
toJSON ReplaceAllTextRequest'{..}
= object
(catMaybes
[("pageObjectIds" .=) <$> _ratrPageObjectIds,
("containsText" .=) <$> _ratrContainsText,
("replaceText" .=) <$> _ratrReplaceText])
data TableRange =
TableRange'
{ _trColumnSpan :: !(Maybe (Textual Int32))
, _trLocation :: !(Maybe TableCellLocation)
, _trRowSpan :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
tableRange
:: TableRange
tableRange =
TableRange'
{_trColumnSpan = Nothing, _trLocation = Nothing, _trRowSpan = Nothing}
trColumnSpan :: Lens' TableRange (Maybe Int32)
trColumnSpan
= lens _trColumnSpan (\ s a -> s{_trColumnSpan = a})
. mapping _Coerce
trLocation :: Lens' TableRange (Maybe TableCellLocation)
trLocation
= lens _trLocation (\ s a -> s{_trLocation = a})
trRowSpan :: Lens' TableRange (Maybe Int32)
trRowSpan
= lens _trRowSpan (\ s a -> s{_trRowSpan = a}) .
mapping _Coerce
instance FromJSON TableRange where
parseJSON
= withObject "TableRange"
(\ o ->
TableRange' <$>
(o .:? "columnSpan") <*> (o .:? "location") <*>
(o .:? "rowSpan"))
instance ToJSON TableRange where
toJSON TableRange'{..}
= object
(catMaybes
[("columnSpan" .=) <$> _trColumnSpan,
("location" .=) <$> _trLocation,
("rowSpan" .=) <$> _trRowSpan])
data Request' =
Request''
{ _reqReplaceAllShapesWithImage :: !(Maybe ReplaceAllShapesWithImageRequest)
, _reqDeleteObject :: !(Maybe DeleteObjectRequest)
, _reqUpdateSlidesPosition :: !(Maybe UpdateSlidesPositionRequest)
, _reqUpdateShapeProperties :: !(Maybe UpdateShapePropertiesRequest)
, _reqCreateParagraphBullets :: !(Maybe CreateParagraphBulletsRequest)
, _reqUpdateLineCategory :: !(Maybe UpdateLineCategoryRequest)
, _reqCreateLine :: !(Maybe CreateLineRequest)
, _reqInsertText :: !(Maybe InsertTextRequest)
, _reqUpdateTableBOrderProperties :: !(Maybe UpdateTableBOrderPropertiesRequest)
, _reqDeleteParagraphBullets :: !(Maybe DeleteParagraphBulletsRequest)
, _reqDeleteTableRow :: !(Maybe DeleteTableRowRequest)
, _reqUpdateTableCellProperties :: !(Maybe UpdateTableCellPropertiesRequest)
, _reqReplaceAllText :: !(Maybe ReplaceAllTextRequest)
, _reqUpdatePageElementAltText :: !(Maybe UpdatePageElementAltTextRequest)
, _reqUpdateParagraphStyle :: !(Maybe UpdateParagraphStyleRequest)
, _reqRerouteLine :: !(Maybe RerouteLineRequest)
, _reqReplaceImage :: !(Maybe ReplaceImageRequest)
, _reqReplaceAllShapesWithSheetsChart :: !(Maybe ReplaceAllShapesWithSheetsChartRequest)
, _reqCreateShape :: !(Maybe CreateShapeRequest)
, _reqUpdatePageElementsZOrder :: !(Maybe UpdatePageElementsZOrderRequest)
, _reqUpdatePageProperties :: !(Maybe UpdatePagePropertiesRequest)
, _reqUpdateLineProperties :: !(Maybe UpdateLinePropertiesRequest)
, _reqDeleteTableColumn :: !(Maybe DeleteTableColumnRequest)
, _reqGroupObjects :: !(Maybe GroupObjectsRequest)
, _reqDeleteText :: !(Maybe DeleteTextRequest)
, _reqUpdateTableRowProperties :: !(Maybe UpdateTableRowPropertiesRequest)
, _reqCreateSheetsChart :: !(Maybe CreateSheetsChartRequest)
, _reqInsertTableColumns :: !(Maybe InsertTableColumnsRequest)
, _reqUpdateImageProperties :: !(Maybe UpdateImagePropertiesRequest)
, _reqUnGroupObjects :: !(Maybe UnGroupObjectsRequest)
, _reqDuplicateObject :: !(Maybe DuplicateObjectRequest)
, _reqCreateTable :: !(Maybe CreateTableRequest)
, _reqCreateVideo :: !(Maybe CreateVideoRequest)
, _reqRefreshSheetsChart :: !(Maybe RefreshSheetsChartRequest)
, _reqUpdateTableColumnProperties :: !(Maybe UpdateTableColumnPropertiesRequest)
, _reqUnmergeTableCells :: !(Maybe UnmergeTableCellsRequest)
, _reqUpdatePageElementTransform :: !(Maybe UpdatePageElementTransformRequest)
, _reqInsertTableRows :: !(Maybe InsertTableRowsRequest)
, _reqCreateImage :: !(Maybe CreateImageRequest)
, _reqMergeTableCells :: !(Maybe MergeTableCellsRequest)
, _reqCreateSlide :: !(Maybe CreateSlideRequest)
, _reqUpdateTextStyle :: !(Maybe UpdateTextStyleRequest)
, _reqUpdateVideoProperties :: !(Maybe UpdateVideoPropertiesRequest)
}
deriving (Eq, Show, Data, Typeable, Generic)
request'
:: Request'
request' =
Request''
{ _reqReplaceAllShapesWithImage = Nothing
, _reqDeleteObject = Nothing
, _reqUpdateSlidesPosition = Nothing
, _reqUpdateShapeProperties = Nothing
, _reqCreateParagraphBullets = Nothing
, _reqUpdateLineCategory = Nothing
, _reqCreateLine = Nothing
, _reqInsertText = Nothing
, _reqUpdateTableBOrderProperties = Nothing
, _reqDeleteParagraphBullets = Nothing
, _reqDeleteTableRow = Nothing
, _reqUpdateTableCellProperties = Nothing
, _reqReplaceAllText = Nothing
, _reqUpdatePageElementAltText = Nothing
, _reqUpdateParagraphStyle = Nothing
, _reqRerouteLine = Nothing
, _reqReplaceImage = Nothing
, _reqReplaceAllShapesWithSheetsChart = Nothing
, _reqCreateShape = Nothing
, _reqUpdatePageElementsZOrder = Nothing
, _reqUpdatePageProperties = Nothing
, _reqUpdateLineProperties = Nothing
, _reqDeleteTableColumn = Nothing
, _reqGroupObjects = Nothing
, _reqDeleteText = Nothing
, _reqUpdateTableRowProperties = Nothing
, _reqCreateSheetsChart = Nothing
, _reqInsertTableColumns = Nothing
, _reqUpdateImageProperties = Nothing
, _reqUnGroupObjects = Nothing
, _reqDuplicateObject = Nothing
, _reqCreateTable = Nothing
, _reqCreateVideo = Nothing
, _reqRefreshSheetsChart = Nothing
, _reqUpdateTableColumnProperties = Nothing
, _reqUnmergeTableCells = Nothing
, _reqUpdatePageElementTransform = Nothing
, _reqInsertTableRows = Nothing
, _reqCreateImage = Nothing
, _reqMergeTableCells = Nothing
, _reqCreateSlide = Nothing
, _reqUpdateTextStyle = Nothing
, _reqUpdateVideoProperties = Nothing
}
reqReplaceAllShapesWithImage :: Lens' Request' (Maybe ReplaceAllShapesWithImageRequest)
reqReplaceAllShapesWithImage
= lens _reqReplaceAllShapesWithImage
(\ s a -> s{_reqReplaceAllShapesWithImage = a})
reqDeleteObject :: Lens' Request' (Maybe DeleteObjectRequest)
reqDeleteObject
= lens _reqDeleteObject
(\ s a -> s{_reqDeleteObject = a})
reqUpdateSlidesPosition :: Lens' Request' (Maybe UpdateSlidesPositionRequest)
reqUpdateSlidesPosition
= lens _reqUpdateSlidesPosition
(\ s a -> s{_reqUpdateSlidesPosition = a})
reqUpdateShapeProperties :: Lens' Request' (Maybe UpdateShapePropertiesRequest)
reqUpdateShapeProperties
= lens _reqUpdateShapeProperties
(\ s a -> s{_reqUpdateShapeProperties = a})
reqCreateParagraphBullets :: Lens' Request' (Maybe CreateParagraphBulletsRequest)
reqCreateParagraphBullets
= lens _reqCreateParagraphBullets
(\ s a -> s{_reqCreateParagraphBullets = a})
reqUpdateLineCategory :: Lens' Request' (Maybe UpdateLineCategoryRequest)
reqUpdateLineCategory
= lens _reqUpdateLineCategory
(\ s a -> s{_reqUpdateLineCategory = a})
reqCreateLine :: Lens' Request' (Maybe CreateLineRequest)
reqCreateLine
= lens _reqCreateLine
(\ s a -> s{_reqCreateLine = a})
reqInsertText :: Lens' Request' (Maybe InsertTextRequest)
reqInsertText
= lens _reqInsertText
(\ s a -> s{_reqInsertText = a})
reqUpdateTableBOrderProperties :: Lens' Request' (Maybe UpdateTableBOrderPropertiesRequest)
reqUpdateTableBOrderProperties
= lens _reqUpdateTableBOrderProperties
(\ s a -> s{_reqUpdateTableBOrderProperties = 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})
reqUpdateTableCellProperties :: Lens' Request' (Maybe UpdateTableCellPropertiesRequest)
reqUpdateTableCellProperties
= lens _reqUpdateTableCellProperties
(\ s a -> s{_reqUpdateTableCellProperties = a})
reqReplaceAllText :: Lens' Request' (Maybe ReplaceAllTextRequest)
reqReplaceAllText
= lens _reqReplaceAllText
(\ s a -> s{_reqReplaceAllText = a})
reqUpdatePageElementAltText :: Lens' Request' (Maybe UpdatePageElementAltTextRequest)
reqUpdatePageElementAltText
= lens _reqUpdatePageElementAltText
(\ s a -> s{_reqUpdatePageElementAltText = a})
reqUpdateParagraphStyle :: Lens' Request' (Maybe UpdateParagraphStyleRequest)
reqUpdateParagraphStyle
= lens _reqUpdateParagraphStyle
(\ s a -> s{_reqUpdateParagraphStyle = a})
reqRerouteLine :: Lens' Request' (Maybe RerouteLineRequest)
reqRerouteLine
= lens _reqRerouteLine
(\ s a -> s{_reqRerouteLine = a})
reqReplaceImage :: Lens' Request' (Maybe ReplaceImageRequest)
reqReplaceImage
= lens _reqReplaceImage
(\ s a -> s{_reqReplaceImage = a})
reqReplaceAllShapesWithSheetsChart :: Lens' Request' (Maybe ReplaceAllShapesWithSheetsChartRequest)
reqReplaceAllShapesWithSheetsChart
= lens _reqReplaceAllShapesWithSheetsChart
(\ s a -> s{_reqReplaceAllShapesWithSheetsChart = a})
reqCreateShape :: Lens' Request' (Maybe CreateShapeRequest)
reqCreateShape
= lens _reqCreateShape
(\ s a -> s{_reqCreateShape = a})
reqUpdatePageElementsZOrder :: Lens' Request' (Maybe UpdatePageElementsZOrderRequest)
reqUpdatePageElementsZOrder
= lens _reqUpdatePageElementsZOrder
(\ s a -> s{_reqUpdatePageElementsZOrder = a})
reqUpdatePageProperties :: Lens' Request' (Maybe UpdatePagePropertiesRequest)
reqUpdatePageProperties
= lens _reqUpdatePageProperties
(\ s a -> s{_reqUpdatePageProperties = a})
reqUpdateLineProperties :: Lens' Request' (Maybe UpdateLinePropertiesRequest)
reqUpdateLineProperties
= lens _reqUpdateLineProperties
(\ s a -> s{_reqUpdateLineProperties = a})
reqDeleteTableColumn :: Lens' Request' (Maybe DeleteTableColumnRequest)
reqDeleteTableColumn
= lens _reqDeleteTableColumn
(\ s a -> s{_reqDeleteTableColumn = a})
reqGroupObjects :: Lens' Request' (Maybe GroupObjectsRequest)
reqGroupObjects
= lens _reqGroupObjects
(\ s a -> s{_reqGroupObjects = a})
reqDeleteText :: Lens' Request' (Maybe DeleteTextRequest)
reqDeleteText
= lens _reqDeleteText
(\ s a -> s{_reqDeleteText = a})
reqUpdateTableRowProperties :: Lens' Request' (Maybe UpdateTableRowPropertiesRequest)
reqUpdateTableRowProperties
= lens _reqUpdateTableRowProperties
(\ s a -> s{_reqUpdateTableRowProperties = a})
reqCreateSheetsChart :: Lens' Request' (Maybe CreateSheetsChartRequest)
reqCreateSheetsChart
= lens _reqCreateSheetsChart
(\ s a -> s{_reqCreateSheetsChart = a})
reqInsertTableColumns :: Lens' Request' (Maybe InsertTableColumnsRequest)
reqInsertTableColumns
= lens _reqInsertTableColumns
(\ s a -> s{_reqInsertTableColumns = a})
reqUpdateImageProperties :: Lens' Request' (Maybe UpdateImagePropertiesRequest)
reqUpdateImageProperties
= lens _reqUpdateImageProperties
(\ s a -> s{_reqUpdateImageProperties = a})
reqUnGroupObjects :: Lens' Request' (Maybe UnGroupObjectsRequest)
reqUnGroupObjects
= lens _reqUnGroupObjects
(\ s a -> s{_reqUnGroupObjects = a})
reqDuplicateObject :: Lens' Request' (Maybe DuplicateObjectRequest)
reqDuplicateObject
= lens _reqDuplicateObject
(\ s a -> s{_reqDuplicateObject = a})
reqCreateTable :: Lens' Request' (Maybe CreateTableRequest)
reqCreateTable
= lens _reqCreateTable
(\ s a -> s{_reqCreateTable = a})
reqCreateVideo :: Lens' Request' (Maybe CreateVideoRequest)
reqCreateVideo
= lens _reqCreateVideo
(\ s a -> s{_reqCreateVideo = a})
reqRefreshSheetsChart :: Lens' Request' (Maybe RefreshSheetsChartRequest)
reqRefreshSheetsChart
= lens _reqRefreshSheetsChart
(\ s a -> s{_reqRefreshSheetsChart = a})
reqUpdateTableColumnProperties :: Lens' Request' (Maybe UpdateTableColumnPropertiesRequest)
reqUpdateTableColumnProperties
= lens _reqUpdateTableColumnProperties
(\ s a -> s{_reqUpdateTableColumnProperties = a})
reqUnmergeTableCells :: Lens' Request' (Maybe UnmergeTableCellsRequest)
reqUnmergeTableCells
= lens _reqUnmergeTableCells
(\ s a -> s{_reqUnmergeTableCells = a})
reqUpdatePageElementTransform :: Lens' Request' (Maybe UpdatePageElementTransformRequest)
reqUpdatePageElementTransform
= lens _reqUpdatePageElementTransform
(\ s a -> s{_reqUpdatePageElementTransform = a})
reqInsertTableRows :: Lens' Request' (Maybe InsertTableRowsRequest)
reqInsertTableRows
= lens _reqInsertTableRows
(\ s a -> s{_reqInsertTableRows = a})
reqCreateImage :: Lens' Request' (Maybe CreateImageRequest)
reqCreateImage
= lens _reqCreateImage
(\ s a -> s{_reqCreateImage = a})
reqMergeTableCells :: Lens' Request' (Maybe MergeTableCellsRequest)
reqMergeTableCells
= lens _reqMergeTableCells
(\ s a -> s{_reqMergeTableCells = a})
reqCreateSlide :: Lens' Request' (Maybe CreateSlideRequest)
reqCreateSlide
= lens _reqCreateSlide
(\ s a -> s{_reqCreateSlide = a})
reqUpdateTextStyle :: Lens' Request' (Maybe UpdateTextStyleRequest)
reqUpdateTextStyle
= lens _reqUpdateTextStyle
(\ s a -> s{_reqUpdateTextStyle = a})
reqUpdateVideoProperties :: Lens' Request' (Maybe UpdateVideoPropertiesRequest)
reqUpdateVideoProperties
= lens _reqUpdateVideoProperties
(\ s a -> s{_reqUpdateVideoProperties = a})
instance FromJSON Request' where
parseJSON
= withObject "Request"
(\ o ->
Request'' <$>
(o .:? "replaceAllShapesWithImage") <*>
(o .:? "deleteObject")
<*> (o .:? "updateSlidesPosition")
<*> (o .:? "updateShapeProperties")
<*> (o .:? "createParagraphBullets")
<*> (o .:? "updateLineCategory")
<*> (o .:? "createLine")
<*> (o .:? "insertText")
<*> (o .:? "updateTableBorderProperties")
<*> (o .:? "deleteParagraphBullets")
<*> (o .:? "deleteTableRow")
<*> (o .:? "updateTableCellProperties")
<*> (o .:? "replaceAllText")
<*> (o .:? "updatePageElementAltText")
<*> (o .:? "updateParagraphStyle")
<*> (o .:? "rerouteLine")
<*> (o .:? "replaceImage")
<*> (o .:? "replaceAllShapesWithSheetsChart")
<*> (o .:? "createShape")
<*> (o .:? "updatePageElementsZOrder")
<*> (o .:? "updatePageProperties")
<*> (o .:? "updateLineProperties")
<*> (o .:? "deleteTableColumn")
<*> (o .:? "groupObjects")
<*> (o .:? "deleteText")
<*> (o .:? "updateTableRowProperties")
<*> (o .:? "createSheetsChart")
<*> (o .:? "insertTableColumns")
<*> (o .:? "updateImageProperties")
<*> (o .:? "ungroupObjects")
<*> (o .:? "duplicateObject")
<*> (o .:? "createTable")
<*> (o .:? "createVideo")
<*> (o .:? "refreshSheetsChart")
<*> (o .:? "updateTableColumnProperties")
<*> (o .:? "unmergeTableCells")
<*> (o .:? "updatePageElementTransform")
<*> (o .:? "insertTableRows")
<*> (o .:? "createImage")
<*> (o .:? "mergeTableCells")
<*> (o .:? "createSlide")
<*> (o .:? "updateTextStyle")
<*> (o .:? "updateVideoProperties"))
instance ToJSON Request' where
toJSON Request''{..}
= object
(catMaybes
[("replaceAllShapesWithImage" .=) <$>
_reqReplaceAllShapesWithImage,
("deleteObject" .=) <$> _reqDeleteObject,
("updateSlidesPosition" .=) <$>
_reqUpdateSlidesPosition,
("updateShapeProperties" .=) <$>
_reqUpdateShapeProperties,
("createParagraphBullets" .=) <$>
_reqCreateParagraphBullets,
("updateLineCategory" .=) <$> _reqUpdateLineCategory,
("createLine" .=) <$> _reqCreateLine,
("insertText" .=) <$> _reqInsertText,
("updateTableBorderProperties" .=) <$>
_reqUpdateTableBOrderProperties,
("deleteParagraphBullets" .=) <$>
_reqDeleteParagraphBullets,
("deleteTableRow" .=) <$> _reqDeleteTableRow,
("updateTableCellProperties" .=) <$>
_reqUpdateTableCellProperties,
("replaceAllText" .=) <$> _reqReplaceAllText,
("updatePageElementAltText" .=) <$>
_reqUpdatePageElementAltText,
("updateParagraphStyle" .=) <$>
_reqUpdateParagraphStyle,
("rerouteLine" .=) <$> _reqRerouteLine,
("replaceImage" .=) <$> _reqReplaceImage,
("replaceAllShapesWithSheetsChart" .=) <$>
_reqReplaceAllShapesWithSheetsChart,
("createShape" .=) <$> _reqCreateShape,
("updatePageElementsZOrder" .=) <$>
_reqUpdatePageElementsZOrder,
("updatePageProperties" .=) <$>
_reqUpdatePageProperties,
("updateLineProperties" .=) <$>
_reqUpdateLineProperties,
("deleteTableColumn" .=) <$> _reqDeleteTableColumn,
("groupObjects" .=) <$> _reqGroupObjects,
("deleteText" .=) <$> _reqDeleteText,
("updateTableRowProperties" .=) <$>
_reqUpdateTableRowProperties,
("createSheetsChart" .=) <$> _reqCreateSheetsChart,
("insertTableColumns" .=) <$> _reqInsertTableColumns,
("updateImageProperties" .=) <$>
_reqUpdateImageProperties,
("ungroupObjects" .=) <$> _reqUnGroupObjects,
("duplicateObject" .=) <$> _reqDuplicateObject,
("createTable" .=) <$> _reqCreateTable,
("createVideo" .=) <$> _reqCreateVideo,
("refreshSheetsChart" .=) <$> _reqRefreshSheetsChart,
("updateTableColumnProperties" .=) <$>
_reqUpdateTableColumnProperties,
("unmergeTableCells" .=) <$> _reqUnmergeTableCells,
("updatePageElementTransform" .=) <$>
_reqUpdatePageElementTransform,
("insertTableRows" .=) <$> _reqInsertTableRows,
("createImage" .=) <$> _reqCreateImage,
("mergeTableCells" .=) <$> _reqMergeTableCells,
("createSlide" .=) <$> _reqCreateSlide,
("updateTextStyle" .=) <$> _reqUpdateTextStyle,
("updateVideoProperties" .=) <$>
_reqUpdateVideoProperties])
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])