#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Poppler.Objects.AnnotTextMarkup
(
AnnotTextMarkup(..) ,
IsAnnotTextMarkup ,
toAnnotTextMarkup ,
noAnnotTextMarkup ,
#if ENABLE_OVERLOADING
AnnotTextMarkupGetQuadrilateralsMethodInfo,
#endif
annotTextMarkupGetQuadrilaterals ,
annotTextMarkupNewHighlight ,
annotTextMarkupNewSquiggly ,
annotTextMarkupNewStrikeout ,
annotTextMarkupNewUnderline ,
#if ENABLE_OVERLOADING
AnnotTextMarkupSetQuadrilateralsMethodInfo,
#endif
annotTextMarkupSetQuadrilaterals ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot
import {-# SOURCE #-} qualified GI.Poppler.Objects.AnnotMarkup as Poppler.AnnotMarkup
import {-# SOURCE #-} qualified GI.Poppler.Objects.Document as Poppler.Document
import {-# SOURCE #-} qualified GI.Poppler.Structs.Quadrilateral as Poppler.Quadrilateral
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
newtype AnnotTextMarkup = AnnotTextMarkup (ManagedPtr AnnotTextMarkup)
foreign import ccall "poppler_annot_text_markup_get_type"
c_poppler_annot_text_markup_get_type :: IO GType
instance GObject AnnotTextMarkup where
gobjectType = c_poppler_annot_text_markup_get_type
class (GObject o, O.IsDescendantOf AnnotTextMarkup o) => IsAnnotTextMarkup o
instance (GObject o, O.IsDescendantOf AnnotTextMarkup o) => IsAnnotTextMarkup o
instance O.HasParentTypes AnnotTextMarkup
type instance O.ParentTypes AnnotTextMarkup = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]
toAnnotTextMarkup :: (MonadIO m, IsAnnotTextMarkup o) => o -> m AnnotTextMarkup
toAnnotTextMarkup = liftIO . unsafeCastTo AnnotTextMarkup
noAnnotTextMarkup :: Maybe AnnotTextMarkup
noAnnotTextMarkup = Nothing
#if ENABLE_OVERLOADING
type family ResolveAnnotTextMarkupMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotTextMarkupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAnnotTextMarkupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAnnotTextMarkupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAnnotTextMarkupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAnnotTextMarkupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAnnotTextMarkupMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo
ResolveAnnotTextMarkupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAnnotTextMarkupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAnnotTextMarkupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAnnotTextMarkupMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAnnotTextMarkupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAnnotTextMarkupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAnnotTextMarkupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAnnotTextMarkupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAnnotTextMarkupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAnnotTextMarkupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAnnotTextMarkupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAnnotTextMarkupMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo
ResolveAnnotTextMarkupMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo
ResolveAnnotTextMarkupMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo
ResolveAnnotTextMarkupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAnnotTextMarkupMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo
ResolveAnnotTextMarkupMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo
ResolveAnnotTextMarkupMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo
ResolveAnnotTextMarkupMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo
ResolveAnnotTextMarkupMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo
ResolveAnnotTextMarkupMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo
ResolveAnnotTextMarkupMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo
ResolveAnnotTextMarkupMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo
ResolveAnnotTextMarkupMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo
ResolveAnnotTextMarkupMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo
ResolveAnnotTextMarkupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAnnotTextMarkupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAnnotTextMarkupMethod "getQuadrilaterals" o = AnnotTextMarkupGetQuadrilateralsMethodInfo
ResolveAnnotTextMarkupMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo
ResolveAnnotTextMarkupMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo
ResolveAnnotTextMarkupMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo
ResolveAnnotTextMarkupMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo
ResolveAnnotTextMarkupMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo
ResolveAnnotTextMarkupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAnnotTextMarkupMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAnnotTextMarkupMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo
ResolveAnnotTextMarkupMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo
ResolveAnnotTextMarkupMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo
ResolveAnnotTextMarkupMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo
ResolveAnnotTextMarkupMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo
ResolveAnnotTextMarkupMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo
ResolveAnnotTextMarkupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAnnotTextMarkupMethod "setQuadrilaterals" o = AnnotTextMarkupSetQuadrilateralsMethodInfo
ResolveAnnotTextMarkupMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo
ResolveAnnotTextMarkupMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, O.MethodInfo info AnnotTextMarkup p) => OL.IsLabel t (AnnotTextMarkup -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList AnnotTextMarkup
type instance O.AttributeList AnnotTextMarkup = AnnotTextMarkupAttributeList
type AnnotTextMarkupAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList AnnotTextMarkup = AnnotTextMarkupSignalList
type AnnotTextMarkupSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_annot_text_markup_new_highlight" poppler_annot_text_markup_new_highlight ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO (Ptr AnnotTextMarkup)
annotTextMarkupNewHighlight ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> [Poppler.Quadrilateral.Quadrilateral]
-> m AnnotTextMarkup
annotTextMarkupNewHighlight doc rect quadrilaterals = liftIO $ do
doc' <- unsafeManagedPtrCastPtr doc
rect' <- unsafeManagedPtrGetPtr rect
quadrilaterals' <- mapM unsafeManagedPtrGetPtr quadrilaterals
quadrilaterals'' <- packGArray quadrilaterals'
result <- poppler_annot_text_markup_new_highlight doc' rect' quadrilaterals''
checkUnexpectedReturnNULL "annotTextMarkupNewHighlight" result
result' <- (wrapObject AnnotTextMarkup) result
touchManagedPtr doc
touchManagedPtr rect
mapM_ touchManagedPtr quadrilaterals
unrefGArray quadrilaterals''
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "poppler_annot_text_markup_new_squiggly" poppler_annot_text_markup_new_squiggly ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO (Ptr AnnotTextMarkup)
annotTextMarkupNewSquiggly ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> [Poppler.Quadrilateral.Quadrilateral]
-> m AnnotTextMarkup
annotTextMarkupNewSquiggly doc rect quadrilaterals = liftIO $ do
doc' <- unsafeManagedPtrCastPtr doc
rect' <- unsafeManagedPtrGetPtr rect
quadrilaterals' <- mapM unsafeManagedPtrGetPtr quadrilaterals
quadrilaterals'' <- packGArray quadrilaterals'
result <- poppler_annot_text_markup_new_squiggly doc' rect' quadrilaterals''
checkUnexpectedReturnNULL "annotTextMarkupNewSquiggly" result
result' <- (wrapObject AnnotTextMarkup) result
touchManagedPtr doc
touchManagedPtr rect
mapM_ touchManagedPtr quadrilaterals
unrefGArray quadrilaterals''
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "poppler_annot_text_markup_new_strikeout" poppler_annot_text_markup_new_strikeout ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO (Ptr AnnotTextMarkup)
annotTextMarkupNewStrikeout ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> [Poppler.Quadrilateral.Quadrilateral]
-> m AnnotTextMarkup
annotTextMarkupNewStrikeout doc rect quadrilaterals = liftIO $ do
doc' <- unsafeManagedPtrCastPtr doc
rect' <- unsafeManagedPtrGetPtr rect
quadrilaterals' <- mapM unsafeManagedPtrGetPtr quadrilaterals
quadrilaterals'' <- packGArray quadrilaterals'
result <- poppler_annot_text_markup_new_strikeout doc' rect' quadrilaterals''
checkUnexpectedReturnNULL "annotTextMarkupNewStrikeout" result
result' <- (wrapObject AnnotTextMarkup) result
touchManagedPtr doc
touchManagedPtr rect
mapM_ touchManagedPtr quadrilaterals
unrefGArray quadrilaterals''
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "poppler_annot_text_markup_new_underline" poppler_annot_text_markup_new_underline ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO (Ptr AnnotTextMarkup)
annotTextMarkupNewUnderline ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> [Poppler.Quadrilateral.Quadrilateral]
-> m AnnotTextMarkup
annotTextMarkupNewUnderline doc rect quadrilaterals = liftIO $ do
doc' <- unsafeManagedPtrCastPtr doc
rect' <- unsafeManagedPtrGetPtr rect
quadrilaterals' <- mapM unsafeManagedPtrGetPtr quadrilaterals
quadrilaterals'' <- packGArray quadrilaterals'
result <- poppler_annot_text_markup_new_underline doc' rect' quadrilaterals''
checkUnexpectedReturnNULL "annotTextMarkupNewUnderline" result
result' <- (wrapObject AnnotTextMarkup) result
touchManagedPtr doc
touchManagedPtr rect
mapM_ touchManagedPtr quadrilaterals
unrefGArray quadrilaterals''
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "poppler_annot_text_markup_get_quadrilaterals" poppler_annot_text_markup_get_quadrilaterals ::
Ptr AnnotTextMarkup ->
IO (Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)))
annotTextMarkupGetQuadrilaterals ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
a
-> m [Poppler.Quadrilateral.Quadrilateral]
annotTextMarkupGetQuadrilaterals popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_text_markup_get_quadrilaterals popplerAnnot'
checkUnexpectedReturnNULL "annotTextMarkupGetQuadrilaterals" result
result' <- unpackGArray result
result'' <- mapM (wrapBoxed Poppler.Quadrilateral.Quadrilateral) result'
unrefGArray result
touchManagedPtr popplerAnnot
return result''
#if ENABLE_OVERLOADING
data AnnotTextMarkupGetQuadrilateralsMethodInfo
instance (signature ~ (m [Poppler.Quadrilateral.Quadrilateral]), MonadIO m, IsAnnotTextMarkup a) => O.MethodInfo AnnotTextMarkupGetQuadrilateralsMethodInfo a signature where
overloadedMethod _ = annotTextMarkupGetQuadrilaterals
#endif
foreign import ccall "poppler_annot_text_markup_set_quadrilaterals" poppler_annot_text_markup_set_quadrilaterals ::
Ptr AnnotTextMarkup ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO ()
annotTextMarkupSetQuadrilaterals ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
a
-> [Poppler.Quadrilateral.Quadrilateral]
-> m ()
annotTextMarkupSetQuadrilaterals popplerAnnot quadrilaterals = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
quadrilaterals' <- mapM unsafeManagedPtrGetPtr quadrilaterals
quadrilaterals'' <- packGArray quadrilaterals'
poppler_annot_text_markup_set_quadrilaterals popplerAnnot' quadrilaterals''
touchManagedPtr popplerAnnot
mapM_ touchManagedPtr quadrilaterals
unrefGArray quadrilaterals''
return ()
#if ENABLE_OVERLOADING
data AnnotTextMarkupSetQuadrilateralsMethodInfo
instance (signature ~ ([Poppler.Quadrilateral.Quadrilateral] -> m ()), MonadIO m, IsAnnotTextMarkup a) => O.MethodInfo AnnotTextMarkupSetQuadrilateralsMethodInfo a signature where
overloadedMethod _ = annotTextMarkupSetQuadrilaterals
#endif