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 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)
} deriving (Eq,Show,Data,Typeable,Generic)
image
:: Image
image =
Image'
{ _iImageProperties = Nothing
, _iContentURL = 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})
instance FromJSON Image where
parseJSON
= withObject "Image"
(\ o ->
Image' <$>
(o .:? "imageProperties") <*> (o .:? "contentUrl"))
instance ToJSON Image where
toJSON Image'{..}
= object
(catMaybes
[("imageProperties" .=) <$> _iImageProperties,
("contentUrl" .=) <$> _iContentURL])
data UpdateLinePropertiesRequest = UpdateLinePropertiesRequest'
{ _ulprLineProperties :: !(Maybe LineProperties)
, _ulprObjectId :: !(Maybe Text)
, _ulprFields :: !(Maybe FieldMask)
} 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 FieldMask)
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)
, _lpDashStyle :: !(Maybe LinePropertiesDashStyle)
, _lpStartArrow :: !(Maybe LinePropertiesStartArrow)
, _lpLineFill :: !(Maybe LineFill)
, _lpEndArrow :: !(Maybe LinePropertiesEndArrow)
} deriving (Eq,Show,Data,Typeable,Generic)
lineProperties
:: LineProperties
lineProperties =
LineProperties'
{ _lpWeight = Nothing
, _lpLink = Nothing
, _lpDashStyle = Nothing
, _lpStartArrow = Nothing
, _lpLineFill = 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})
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})
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 .:? "dashStyle")
<*> (o .:? "startArrow")
<*> (o .:? "lineFill")
<*> (o .:? "endArrow"))
instance ToJSON LineProperties where
toJSON LineProperties'{..}
= object
(catMaybes
[("weight" .=) <$> _lpWeight,
("link" .=) <$> _lpLink,
("dashStyle" .=) <$> _lpDashStyle,
("startArrow" .=) <$> _lpStartArrow,
("lineFill" .=) <$> _lpLineFill,
("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])
newtype BatchUpdatePresentationRequest = BatchUpdatePresentationRequest'
{ _buprRequests :: Maybe [Request']
} deriving (Eq,Show,Data,Typeable,Generic)
batchUpdatePresentationRequest
:: BatchUpdatePresentationRequest
batchUpdatePresentationRequest =
BatchUpdatePresentationRequest'
{ _buprRequests = Nothing
}
buprRequests :: Lens' BatchUpdatePresentationRequest [Request']
buprRequests
= lens _buprRequests (\ s a -> s{_buprRequests = a})
. _Default
. _Coerce
instance FromJSON BatchUpdatePresentationRequest
where
parseJSON
= withObject "BatchUpdatePresentationRequest"
(\ o ->
BatchUpdatePresentationRequest' <$>
(o .:? "requests" .!= mempty))
instance ToJSON BatchUpdatePresentationRequest where
toJSON BatchUpdatePresentationRequest'{..}
= object
(catMaybes [("requests" .=) <$> _buprRequests])
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 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])
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 FieldMask)
} 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 FieldMask)
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])
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])
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])
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 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'
{ _buprPresentationId :: !(Maybe Text)
, _buprReplies :: !(Maybe [Response])
} deriving (Eq,Show,Data,Typeable,Generic)
batchUpdatePresentationResponse
:: BatchUpdatePresentationResponse
batchUpdatePresentationResponse =
BatchUpdatePresentationResponse'
{ _buprPresentationId = Nothing
, _buprReplies = Nothing
}
buprPresentationId :: Lens' BatchUpdatePresentationResponse (Maybe Text)
buprPresentationId
= lens _buprPresentationId
(\ s a -> s{_buprPresentationId = a})
buprReplies :: Lens' BatchUpdatePresentationResponse [Response]
buprReplies
= lens _buprReplies (\ s a -> s{_buprReplies = a}) .
_Default
. _Coerce
instance FromJSON BatchUpdatePresentationResponse
where
parseJSON
= withObject "BatchUpdatePresentationResponse"
(\ o ->
BatchUpdatePresentationResponse' <$>
(o .:? "presentationId") <*>
(o .:? "replies" .!= mempty))
instance ToJSON BatchUpdatePresentationResponse where
toJSON BatchUpdatePresentationResponse'{..}
= object
(catMaybes
[("presentationId" .=) <$> _buprPresentationId,
("replies" .=) <$> _buprReplies])
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
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 Response = Response'
{ _rReplaceAllShapesWithImage :: !(Maybe ReplaceAllShapesWithImageResponse)
, _rCreateLine :: !(Maybe CreateLineResponse)
, _rReplaceAllText :: !(Maybe ReplaceAllTextResponse)
, _rCreateShape :: !(Maybe CreateShapeResponse)
, _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
, _rCreateShape = 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})
rCreateShape :: Lens' Response (Maybe CreateShapeResponse)
rCreateShape
= lens _rCreateShape (\ s a -> s{_rCreateShape = 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 .:? "createShape")
<*> (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,
("createShape" .=) <$> _rCreateShape,
("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])
data Page = Page'
{ _pObjectId :: !(Maybe Text)
, _pPageElements :: !(Maybe [PageElement])
, _pSlideProperties :: !(Maybe SlideProperties)
, _pPageProperties :: !(Maybe PageProperties)
, _pLayoutProperties :: !(Maybe LayoutProperties)
, _pPageType :: !(Maybe PagePageType)
} deriving (Eq,Show,Data,Typeable,Generic)
page
:: Page
page =
Page'
{ _pObjectId = Nothing
, _pPageElements = Nothing
, _pSlideProperties = Nothing
, _pPageProperties = Nothing
, _pLayoutProperties = Nothing
, _pPageType = Nothing
}
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})
instance FromJSON Page where
parseJSON
= withObject "Page"
(\ o ->
Page' <$>
(o .:? "objectId") <*>
(o .:? "pageElements" .!= mempty)
<*> (o .:? "slideProperties")
<*> (o .:? "pageProperties")
<*> (o .:? "layoutProperties")
<*> (o .:? "pageType"))
instance ToJSON Page where
toJSON Page'{..}
= object
(catMaybes
[("objectId" .=) <$> _pObjectId,
("pageElements" .=) <$> _pPageElements,
("slideProperties" .=) <$> _pSlideProperties,
("pageProperties" .=) <$> _pPageProperties,
("layoutProperties" .=) <$> _pLayoutProperties,
("pageType" .=) <$> _pPageType])
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 FieldMask)
} 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 FieldMask)
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)
} deriving (Eq,Show,Data,Typeable,Generic)
slideProperties
:: SlideProperties
slideProperties =
SlideProperties'
{ _spLayoutObjectId = Nothing
, _spMasterObjectId = 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})
instance FromJSON SlideProperties where
parseJSON
= withObject "SlideProperties"
(\ o ->
SlideProperties' <$>
(o .:? "layoutObjectId") <*>
(o .:? "masterObjectId"))
instance ToJSON SlideProperties where
toJSON SlideProperties'{..}
= object
(catMaybes
[("layoutObjectId" .=) <$> _spLayoutObjectId,
("masterObjectId" .=) <$> _spMasterObjectId])
data Presentation = Presentation'
{ _pSlides :: !(Maybe [Page])
, _pMasters :: !(Maybe [Page])
, _pLocale :: !(Maybe Text)
, _pPresentationId :: !(Maybe Text)
, _pTitle :: !(Maybe Text)
, _pPageSize :: !(Maybe Size)
, _pLayouts :: !(Maybe [Page])
} deriving (Eq,Show,Data,Typeable,Generic)
presentation
:: Presentation
presentation =
Presentation'
{ _pSlides = Nothing
, _pMasters = Nothing
, _pLocale = Nothing
, _pPresentationId = Nothing
, _pTitle = Nothing
, _pPageSize = Nothing
, _pLayouts = Nothing
}
pSlides :: Lens' Presentation [Page]
pSlides
= lens _pSlides (\ s a -> s{_pSlides = a}) . _Default
. _Coerce
pMasters :: Lens' Presentation [Page]
pMasters
= lens _pMasters (\ s a -> s{_pMasters = a}) .
_Default
. _Coerce
pLocale :: Lens' Presentation (Maybe Text)
pLocale = lens _pLocale (\ s a -> s{_pLocale = a})
pPresentationId :: Lens' Presentation (Maybe Text)
pPresentationId
= lens _pPresentationId
(\ s a -> s{_pPresentationId = a})
pTitle :: Lens' Presentation (Maybe Text)
pTitle = lens _pTitle (\ s a -> s{_pTitle = a})
pPageSize :: Lens' Presentation (Maybe Size)
pPageSize
= lens _pPageSize (\ s a -> s{_pPageSize = a})
pLayouts :: Lens' Presentation [Page]
pLayouts
= lens _pLayouts (\ s a -> s{_pLayouts = a}) .
_Default
. _Coerce
instance FromJSON Presentation where
parseJSON
= withObject "Presentation"
(\ o ->
Presentation' <$>
(o .:? "slides" .!= mempty) <*>
(o .:? "masters" .!= mempty)
<*> (o .:? "locale")
<*> (o .:? "presentationId")
<*> (o .:? "title")
<*> (o .:? "pageSize")
<*> (o .:? "layouts" .!= mempty))
instance ToJSON Presentation where
toJSON Presentation'{..}
= object
(catMaybes
[("slides" .=) <$> _pSlides,
("masters" .=) <$> _pMasters,
("locale" .=) <$> _pLocale,
("presentationId" .=) <$> _pPresentationId,
("title" .=) <$> _pTitle,
("pageSize" .=) <$> _pPageSize,
("layouts" .=) <$> _pLayouts])
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)
, _lLineType :: !(Maybe LineLineType)
} deriving (Eq,Show,Data,Typeable,Generic)
line
:: Line
line =
Line'
{ _lLineProperties = Nothing
, _lLineType = Nothing
}
lLineProperties :: Lens' Line (Maybe LineProperties)
lLineProperties
= lens _lLineProperties
(\ s a -> s{_lLineProperties = 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 .:? "lineType"))
instance ToJSON Line where
toJSON Line'{..}
= object
(catMaybes
[("lineProperties" .=) <$> _lLineProperties,
("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 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])
newtype TableCellProperties = TableCellProperties'
{ _tcpTableCellBackgRoundFill :: Maybe TableCellBackgRoundFill
} deriving (Eq,Show,Data,Typeable,Generic)
tableCellProperties
:: TableCellProperties
tableCellProperties =
TableCellProperties'
{ _tcpTableCellBackgRoundFill = Nothing
}
tcpTableCellBackgRoundFill :: Lens' TableCellProperties (Maybe TableCellBackgRoundFill)
tcpTableCellBackgRoundFill
= lens _tcpTableCellBackgRoundFill
(\ s a -> s{_tcpTableCellBackgRoundFill = a})
instance FromJSON TableCellProperties where
parseJSON
= withObject "TableCellProperties"
(\ o ->
TableCellProperties' <$>
(o .:? "tableCellBackgroundFill"))
instance ToJSON TableCellProperties where
toJSON TableCellProperties'{..}
= object
(catMaybes
[("tableCellBackgroundFill" .=) <$>
_tcpTableCellBackgRoundFill])
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'
{ _trTableCells :: !(Maybe [TableCell])
, _trRowHeight :: !(Maybe Dimension)
} deriving (Eq,Show,Data,Typeable,Generic)
tableRow
:: TableRow
tableRow =
TableRow'
{ _trTableCells = Nothing
, _trRowHeight = Nothing
}
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 .:? "tableCells" .!= mempty) <*>
(o .:? "rowHeight"))
instance ToJSON TableRow where
toJSON TableRow'{..}
= object
(catMaybes
[("tableCells" .=) <$> _trTableCells,
("rowHeight" .=) <$> _trRowHeight])
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 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)
, _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
, _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})
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 .:? "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,
("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 FieldMask)
} 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 FieldMask)
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])
newtype Recolor = Recolor'
{ _rRecolorStops :: Maybe [ColorStop]
} deriving (Eq,Show,Data,Typeable,Generic)
recolor
:: Recolor
recolor =
Recolor'
{ _rRecolorStops = Nothing
}
rRecolorStops :: Lens' Recolor [ColorStop]
rRecolorStops
= lens _rRecolorStops
(\ s a -> s{_rRecolorStops = a})
. _Default
. _Coerce
instance FromJSON Recolor where
parseJSON
= withObject "Recolor"
(\ o ->
Recolor' <$> (o .:? "recolorStops" .!= mempty))
instance ToJSON Recolor where
toJSON Recolor'{..}
= object
(catMaybes [("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))
} deriving (Eq,Show,Data,Typeable,Generic)
createSlideRequest
:: CreateSlideRequest
createSlideRequest =
CreateSlideRequest'
{ _csrsObjectId = Nothing
, _csrsSlideLayoutReference = Nothing
, _csrsInsertionIndex = 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
instance FromJSON CreateSlideRequest where
parseJSON
= withObject "CreateSlideRequest"
(\ o ->
CreateSlideRequest' <$>
(o .:? "objectId") <*> (o .:? "slideLayoutReference")
<*> (o .:? "insertionIndex"))
instance ToJSON CreateSlideRequest where
toJSON CreateSlideRequest'{..}
= object
(catMaybes
[("objectId" .=) <$> _csrsObjectId,
("slideLayoutReference" .=) <$>
_csrsSlideLayoutReference,
("insertionIndex" .=) <$> _csrsInsertionIndex])
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'
{ _raswirContainsText :: !(Maybe SubstringMatchCriteria)
, _raswirImageURL :: !(Maybe Text)
, _raswirReplaceMethod :: !(Maybe ReplaceAllShapesWithImageRequestReplaceMethod)
} deriving (Eq,Show,Data,Typeable,Generic)
replaceAllShapesWithImageRequest
:: ReplaceAllShapesWithImageRequest
replaceAllShapesWithImageRequest =
ReplaceAllShapesWithImageRequest'
{ _raswirContainsText = Nothing
, _raswirImageURL = Nothing
, _raswirReplaceMethod = Nothing
}
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 .:? "containsText") <*> (o .:? "imageUrl") <*>
(o .:? "replaceMethod"))
instance ToJSON ReplaceAllShapesWithImageRequest
where
toJSON ReplaceAllShapesWithImageRequest'{..}
= object
(catMaybes
[("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 FieldMask)
} 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 FieldMask)
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])
newtype VideoProperties = VideoProperties'
{ _vpOutline :: Maybe Outline
} deriving (Eq,Show,Data,Typeable,Generic)
videoProperties
:: VideoProperties
videoProperties =
VideoProperties'
{ _vpOutline = Nothing
}
vpOutline :: Lens' VideoProperties (Maybe Outline)
vpOutline
= lens _vpOutline (\ s a -> s{_vpOutline = a})
instance FromJSON VideoProperties where
parseJSON
= withObject "VideoProperties"
(\ o -> VideoProperties' <$> (o .:? "outline"))
instance ToJSON VideoProperties where
toJSON VideoProperties'{..}
= object (catMaybes [("outline" .=) <$> _vpOutline])
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 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 CreateLineRequest = CreateLineRequest'
{ _clrlObjectId :: !(Maybe Text)
, _clrlLineCategory :: !(Maybe CreateLineRequestLineCategory)
, _clrlElementProperties :: !(Maybe PageElementProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
createLineRequest
:: CreateLineRequest
createLineRequest =
CreateLineRequest'
{ _clrlObjectId = Nothing
, _clrlLineCategory = Nothing
, _clrlElementProperties = Nothing
}
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 .:? "objectId") <*> (o .:? "lineCategory") <*>
(o .:? "elementProperties"))
instance ToJSON CreateLineRequest where
toJSON CreateLineRequest'{..}
= object
(catMaybes
[("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 FieldMask)
} 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 FieldMask)
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])
, _tRows :: !(Maybe (Textual Int32))
, _tColumns :: !(Maybe (Textual Int32))
, _tTableColumns :: !(Maybe [TableColumnProperties])
} deriving (Eq,Show,Data,Typeable,Generic)
table
:: Table
table =
Table'
{ _tTableRows = Nothing
, _tRows = Nothing
, _tColumns = Nothing
, _tTableColumns = Nothing
}
tTableRows :: Lens' Table [TableRow]
tTableRows
= lens _tTableRows (\ s a -> s{_tTableRows = 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
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 .:? "rows") <*>
(o .:? "columns")
<*> (o .:? "tableColumns" .!= mempty))
instance ToJSON Table where
toJSON Table'{..}
= object
(catMaybes
[("tableRows" .=) <$> _tTableRows,
("rows" .=) <$> _tRows, ("columns" .=) <$> _tColumns,
("tableColumns" .=) <$> _tTableColumns])
data ShapeProperties = ShapeProperties'
{ _spLink :: !(Maybe Link)
, _spShadow :: !(Maybe Shadow)
, _spOutline :: !(Maybe Outline)
, _spShapeBackgRoundFill :: !(Maybe ShapeBackgRoundFill)
} deriving (Eq,Show,Data,Typeable,Generic)
shapeProperties
:: ShapeProperties
shapeProperties =
ShapeProperties'
{ _spLink = Nothing
, _spShadow = Nothing
, _spOutline = 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})
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 .:? "shapeBackgroundFill"))
instance ToJSON ShapeProperties where
toJSON ShapeProperties'{..}
= object
(catMaybes
[("link" .=) <$> _spLink,
("shadow" .=) <$> _spShadow,
("outline" .=) <$> _spOutline,
("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 UpdateTableCellPropertiesRequest = UpdateTableCellPropertiesRequest'
{ _utcprObjectId :: !(Maybe Text)
, _utcprTableCellProperties :: !(Maybe TableCellProperties)
, _utcprTableRange :: !(Maybe TableRange)
, _utcprFields :: !(Maybe FieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateTableCellPropertiesRequest
:: UpdateTableCellPropertiesRequest
updateTableCellPropertiesRequest =
UpdateTableCellPropertiesRequest'
{ _utcprObjectId = Nothing
, _utcprTableCellProperties = Nothing
, _utcprTableRange = Nothing
, _utcprFields = Nothing
}
utcprObjectId :: Lens' UpdateTableCellPropertiesRequest (Maybe Text)
utcprObjectId
= lens _utcprObjectId
(\ s a -> s{_utcprObjectId = a})
utcprTableCellProperties :: Lens' UpdateTableCellPropertiesRequest (Maybe TableCellProperties)
utcprTableCellProperties
= lens _utcprTableCellProperties
(\ s a -> s{_utcprTableCellProperties = a})
utcprTableRange :: Lens' UpdateTableCellPropertiesRequest (Maybe TableRange)
utcprTableRange
= lens _utcprTableRange
(\ s a -> s{_utcprTableRange = a})
utcprFields :: Lens' UpdateTableCellPropertiesRequest (Maybe FieldMask)
utcprFields
= lens _utcprFields (\ s a -> s{_utcprFields = 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" .=) <$> _utcprObjectId,
("tableCellProperties" .=) <$>
_utcprTableCellProperties,
("tableRange" .=) <$> _utcprTableRange,
("fields" .=) <$> _utcprFields])
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 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 ReplaceAllTextRequest = ReplaceAllTextRequest'
{ _ratrContainsText :: !(Maybe SubstringMatchCriteria)
, _ratrReplaceText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
replaceAllTextRequest
:: ReplaceAllTextRequest
replaceAllTextRequest =
ReplaceAllTextRequest'
{ _ratrContainsText = Nothing
, _ratrReplaceText = Nothing
}
ratrContainsText :: Lens' ReplaceAllTextRequest (Maybe SubstringMatchCriteria)
ratrContainsText
= lens _ratrContainsText
(\ s a -> s{_ratrContainsText = a})
ratrReplaceText :: Lens' ReplaceAllTextRequest (Maybe Text)
ratrReplaceText
= lens _ratrReplaceText
(\ s a -> s{_ratrReplaceText = a})
instance FromJSON ReplaceAllTextRequest where
parseJSON
= withObject "ReplaceAllTextRequest"
(\ o ->
ReplaceAllTextRequest' <$>
(o .:? "containsText") <*> (o .:? "replaceText"))
instance ToJSON ReplaceAllTextRequest where
toJSON ReplaceAllTextRequest'{..}
= object
(catMaybes
[("containsText" .=) <$> _ratrContainsText,
("replaceText" .=) <$> _ratrReplaceText])
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)
, _reqCreateLine :: !(Maybe CreateLineRequest)
, _reqInsertText :: !(Maybe InsertTextRequest)
, _reqDeleteTableRow :: !(Maybe DeleteTableRowRequest)
, _reqUpdateTableCellProperties :: !(Maybe UpdateTableCellPropertiesRequest)
, _reqReplaceAllText :: !(Maybe ReplaceAllTextRequest)
, _reqCreateShape :: !(Maybe CreateShapeRequest)
, _reqUpdatePageProperties :: !(Maybe UpdatePagePropertiesRequest)
, _reqUpdateLineProperties :: !(Maybe UpdateLinePropertiesRequest)
, _reqDeleteTableColumn :: !(Maybe DeleteTableColumnRequest)
, _reqDeleteText :: !(Maybe DeleteTextRequest)
, _reqCreateSheetsChart :: !(Maybe CreateSheetsChartRequest)
, _reqInsertTableColumns :: !(Maybe InsertTableColumnsRequest)
, _reqUpdateImageProperties :: !(Maybe UpdateImagePropertiesRequest)
, _reqDuplicateObject :: !(Maybe DuplicateObjectRequest)
, _reqCreateTable :: !(Maybe CreateTableRequest)
, _reqCreateVideo :: !(Maybe CreateVideoRequest)
, _reqRefreshSheetsChart :: !(Maybe RefreshSheetsChartRequest)
, _reqUpdatePageElementTransform :: !(Maybe UpdatePageElementTransformRequest)
, _reqInsertTableRows :: !(Maybe InsertTableRowsRequest)
, _reqCreateImage :: !(Maybe CreateImageRequest)
, _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
, _reqCreateLine = Nothing
, _reqInsertText = Nothing
, _reqDeleteTableRow = Nothing
, _reqUpdateTableCellProperties = Nothing
, _reqReplaceAllText = Nothing
, _reqCreateShape = Nothing
, _reqUpdatePageProperties = Nothing
, _reqUpdateLineProperties = Nothing
, _reqDeleteTableColumn = Nothing
, _reqDeleteText = Nothing
, _reqCreateSheetsChart = Nothing
, _reqInsertTableColumns = Nothing
, _reqUpdateImageProperties = Nothing
, _reqDuplicateObject = Nothing
, _reqCreateTable = Nothing
, _reqCreateVideo = Nothing
, _reqRefreshSheetsChart = Nothing
, _reqUpdatePageElementTransform = Nothing
, _reqInsertTableRows = Nothing
, _reqCreateImage = 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})
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})
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})
reqCreateShape :: Lens' Request' (Maybe CreateShapeRequest)
reqCreateShape
= lens _reqCreateShape
(\ s a -> s{_reqCreateShape = 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})
reqDeleteText :: Lens' Request' (Maybe DeleteTextRequest)
reqDeleteText
= lens _reqDeleteText
(\ s a -> s{_reqDeleteText = 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})
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})
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})
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 .:? "createLine")
<*> (o .:? "insertText")
<*> (o .:? "deleteTableRow")
<*> (o .:? "updateTableCellProperties")
<*> (o .:? "replaceAllText")
<*> (o .:? "createShape")
<*> (o .:? "updatePageProperties")
<*> (o .:? "updateLineProperties")
<*> (o .:? "deleteTableColumn")
<*> (o .:? "deleteText")
<*> (o .:? "createSheetsChart")
<*> (o .:? "insertTableColumns")
<*> (o .:? "updateImageProperties")
<*> (o .:? "duplicateObject")
<*> (o .:? "createTable")
<*> (o .:? "createVideo")
<*> (o .:? "refreshSheetsChart")
<*> (o .:? "updatePageElementTransform")
<*> (o .:? "insertTableRows")
<*> (o .:? "createImage")
<*> (o .:? "createSlide")
<*> (o .:? "updateTextStyle")
<*> (o .:? "updateVideoProperties"))
instance ToJSON Request' where
toJSON Request''{..}
= object
(catMaybes
[("replaceAllShapesWithImage" .=) <$>
_reqReplaceAllShapesWithImage,
("deleteObject" .=) <$> _reqDeleteObject,
("updateSlidesPosition" .=) <$>
_reqUpdateSlidesPosition,
("updateShapeProperties" .=) <$>
_reqUpdateShapeProperties,
("createParagraphBullets" .=) <$>
_reqCreateParagraphBullets,
("createLine" .=) <$> _reqCreateLine,
("insertText" .=) <$> _reqInsertText,
("deleteTableRow" .=) <$> _reqDeleteTableRow,
("updateTableCellProperties" .=) <$>
_reqUpdateTableCellProperties,
("replaceAllText" .=) <$> _reqReplaceAllText,
("createShape" .=) <$> _reqCreateShape,
("updatePageProperties" .=) <$>
_reqUpdatePageProperties,
("updateLineProperties" .=) <$>
_reqUpdateLineProperties,
("deleteTableColumn" .=) <$> _reqDeleteTableColumn,
("deleteText" .=) <$> _reqDeleteText,
("createSheetsChart" .=) <$> _reqCreateSheetsChart,
("insertTableColumns" .=) <$> _reqInsertTableColumns,
("updateImageProperties" .=) <$>
_reqUpdateImageProperties,
("duplicateObject" .=) <$> _reqDuplicateObject,
("createTable" .=) <$> _reqCreateTable,
("createVideo" .=) <$> _reqCreateVideo,
("refreshSheetsChart" .=) <$> _reqRefreshSheetsChart,
("updatePageElementTransform" .=) <$>
_reqUpdatePageElementTransform,
("insertTableRows" .=) <$> _reqInsertTableRows,
("createImage" .=) <$> _reqCreateImage,
("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])