Notification.hs


{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)

/No description available in the introspection data./
-}

#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
       && !defined(__HADDOCK_VERSION__))

module GI.Notify.Objects.Notification
    ( 

-- * Exported types
    Notification(..)                        ,
    IsNotification                          ,
    toNotification                          ,
    noNotification                          ,


 -- * Methods
-- ** addAction #method:addAction#

#if ENABLE_OVERLOADING
    NotificationAddActionMethodInfo         ,
#endif
    notificationAddAction                   ,


-- ** clearActions #method:clearActions#

#if ENABLE_OVERLOADING
    NotificationClearActionsMethodInfo      ,
#endif
    notificationClearActions                ,


-- ** clearHints #method:clearHints#

#if ENABLE_OVERLOADING
    NotificationClearHintsMethodInfo        ,
#endif
    notificationClearHints                  ,


-- ** close #method:close#

#if ENABLE_OVERLOADING
    NotificationCloseMethodInfo             ,
#endif
    notificationClose                       ,


-- ** getClosedReason #method:getClosedReason#

#if ENABLE_OVERLOADING
    NotificationGetClosedReasonMethodInfo   ,
#endif
    notificationGetClosedReason             ,


-- ** new #method:new#

    notificationNew                         ,


-- ** setAppName #method:setAppName#

#if ENABLE_OVERLOADING
    NotificationSetAppNameMethodInfo        ,
#endif
    notificationSetAppName                  ,


-- ** setCategory #method:setCategory#

#if ENABLE_OVERLOADING
    NotificationSetCategoryMethodInfo       ,
#endif
    notificationSetCategory                 ,


-- ** setHint #method:setHint#

#if ENABLE_OVERLOADING
    NotificationSetHintMethodInfo           ,
#endif
    notificationSetHint                     ,


-- ** setHintByte #method:setHintByte#

#if ENABLE_OVERLOADING
    NotificationSetHintByteMethodInfo       ,
#endif
    notificationSetHintByte                 ,


-- ** setHintByteArray #method:setHintByteArray#

#if ENABLE_OVERLOADING
    NotificationSetHintByteArrayMethodInfo  ,
#endif
    notificationSetHintByteArray            ,


-- ** setHintDouble #method:setHintDouble#

#if ENABLE_OVERLOADING
    NotificationSetHintDoubleMethodInfo     ,
#endif
    notificationSetHintDouble               ,


-- ** setHintInt32 #method:setHintInt32#

#if ENABLE_OVERLOADING
    NotificationSetHintInt32MethodInfo      ,
#endif
    notificationSetHintInt32                ,


-- ** setHintString #method:setHintString#

#if ENABLE_OVERLOADING
    NotificationSetHintStringMethodInfo     ,
#endif
    notificationSetHintString               ,


-- ** setHintUint32 #method:setHintUint32#

#if ENABLE_OVERLOADING
    NotificationSetHintUint32MethodInfo     ,
#endif
    notificationSetHintUint32               ,


-- ** setIconFromPixbuf #method:setIconFromPixbuf#

#if ENABLE_OVERLOADING
    NotificationSetIconFromPixbufMethodInfo ,
#endif
    notificationSetIconFromPixbuf           ,


-- ** setImageFromPixbuf #method:setImageFromPixbuf#

#if ENABLE_OVERLOADING
    NotificationSetImageFromPixbufMethodInfo,
#endif
    notificationSetImageFromPixbuf          ,


-- ** setTimeout #method:setTimeout#

#if ENABLE_OVERLOADING
    NotificationSetTimeoutMethodInfo        ,
#endif
    notificationSetTimeout                  ,


-- ** setUrgency #method:setUrgency#

#if ENABLE_OVERLOADING
    NotificationSetUrgencyMethodInfo        ,
#endif
    notificationSetUrgency                  ,


-- ** show #method:show#

#if ENABLE_OVERLOADING
    NotificationShowMethodInfo              ,
#endif
    notificationShow                        ,


-- ** update #method:update#

#if ENABLE_OVERLOADING
    NotificationUpdateMethodInfo            ,
#endif
    notificationUpdate                      ,




 -- * Properties
-- ** appName #attr:appName#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
    NotificationAppNamePropertyInfo         ,
#endif
    constructNotificationAppName            ,
    getNotificationAppName                  ,
#if ENABLE_OVERLOADING
    notificationAppName                     ,
#endif
    setNotificationAppName                  ,


-- ** body #attr:body#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
    NotificationBodyPropertyInfo            ,
#endif
    clearNotificationBody                   ,
    constructNotificationBody               ,
    getNotificationBody                     ,
#if ENABLE_OVERLOADING
    notificationBody                        ,
#endif
    setNotificationBody                     ,


-- ** closedReason #attr:closedReason#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
    NotificationClosedReasonPropertyInfo    ,
#endif
    getNotificationClosedReason             ,
#if ENABLE_OVERLOADING
    notificationClosedReason                ,
#endif


-- ** iconName #attr:iconName#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
    NotificationIconNamePropertyInfo        ,
#endif
    clearNotificationIconName               ,
    constructNotificationIconName           ,
    getNotificationIconName                 ,
#if ENABLE_OVERLOADING
    notificationIconName                    ,
#endif
    setNotificationIconName                 ,


-- ** id #attr:id#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
    NotificationIdPropertyInfo              ,
#endif
    constructNotificationId                 ,
    getNotificationId                       ,
#if ENABLE_OVERLOADING
    notificationId                          ,
#endif
    setNotificationId                       ,


-- ** summary #attr:summary#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
    NotificationSummaryPropertyInfo         ,
#endif
    clearNotificationSummary                ,
    constructNotificationSummary            ,
    getNotificationSummary                  ,
#if ENABLE_OVERLOADING
    notificationSummary                     ,
#endif
    setNotificationSummary                  ,




 -- * Signals
-- ** closed #signal:closed#

    C_NotificationClosedCallback            ,
    NotificationClosedCallback              ,
#if ENABLE_OVERLOADING
    NotificationClosedSignalInfo            ,
#endif
    afterNotificationClosed                 ,
    genClosure_NotificationClosed           ,
    mk_NotificationClosedCallback           ,
    noNotificationClosedCallback            ,
    onNotificationClosed                    ,
    wrap_NotificationClosedCallback         ,




    ) 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.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Notify.Callbacks as Notify.Callbacks
import {-# SOURCE #-} qualified GI.Notify.Enums as Notify.Enums

-- | Memory-managed wrapper type.
newtype Notification = Notification (ManagedPtr Notification)
foreign import ccall "notify_notification_get_type"
    c_notify_notification_get_type :: IO GType

instance GObject Notification where
    gobjectType = c_notify_notification_get_type
    

-- | Type class for types which can be safely cast to `Notification`, for instance with `toNotification`.
class (GObject o, O.IsDescendantOf Notification o) => IsNotification o
instance (GObject o, O.IsDescendantOf Notification o) => IsNotification o

instance O.HasParentTypes Notification
type instance O.ParentTypes Notification = '[GObject.Object.Object]

-- | Cast to `Notification`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toNotification :: (MonadIO m, IsNotification o) => o -> m Notification
toNotification = liftIO . unsafeCastTo Notification

-- | A convenience alias for `Nothing` :: `Maybe` `Notification`.
noNotification :: Maybe Notification
noNotification = Nothing

#if ENABLE_OVERLOADING
type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where
    ResolveNotificationMethod "addAction" o = NotificationAddActionMethodInfo
    ResolveNotificationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveNotificationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveNotificationMethod "clearActions" o = NotificationClearActionsMethodInfo
    ResolveNotificationMethod "clearHints" o = NotificationClearHintsMethodInfo
    ResolveNotificationMethod "close" o = NotificationCloseMethodInfo
    ResolveNotificationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveNotificationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveNotificationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveNotificationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveNotificationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveNotificationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveNotificationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveNotificationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveNotificationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveNotificationMethod "show" o = NotificationShowMethodInfo
    ResolveNotificationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveNotificationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveNotificationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveNotificationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveNotificationMethod "update" o = NotificationUpdateMethodInfo
    ResolveNotificationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveNotificationMethod "getClosedReason" o = NotificationGetClosedReasonMethodInfo
    ResolveNotificationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveNotificationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveNotificationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveNotificationMethod "setAppName" o = NotificationSetAppNameMethodInfo
    ResolveNotificationMethod "setCategory" o = NotificationSetCategoryMethodInfo
    ResolveNotificationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveNotificationMethod "setHint" o = NotificationSetHintMethodInfo
    ResolveNotificationMethod "setHintByte" o = NotificationSetHintByteMethodInfo
    ResolveNotificationMethod "setHintByteArray" o = NotificationSetHintByteArrayMethodInfo
    ResolveNotificationMethod "setHintDouble" o = NotificationSetHintDoubleMethodInfo
    ResolveNotificationMethod "setHintInt32" o = NotificationSetHintInt32MethodInfo
    ResolveNotificationMethod "setHintString" o = NotificationSetHintStringMethodInfo
    ResolveNotificationMethod "setHintUint32" o = NotificationSetHintUint32MethodInfo
    ResolveNotificationMethod "setIconFromPixbuf" o = NotificationSetIconFromPixbufMethodInfo
    ResolveNotificationMethod "setImageFromPixbuf" o = NotificationSetImageFromPixbufMethodInfo
    ResolveNotificationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveNotificationMethod "setTimeout" o = NotificationSetTimeoutMethodInfo
    ResolveNotificationMethod "setUrgency" o = NotificationSetUrgencyMethodInfo
    ResolveNotificationMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveNotificationMethod t Notification, O.MethodInfo info Notification p) => OL.IsLabel t (Notification -> 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

-- signal Notification::closed
{- |
Emitted when the notification is closed.
-}
type NotificationClosedCallback =
    IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `NotificationClosedCallback`@.
noNotificationClosedCallback :: Maybe NotificationClosedCallback
noNotificationClosedCallback = Nothing

-- | Type for the callback on the (unwrapped) C side.
type C_NotificationClosedCallback =
    Ptr () ->                               -- object
    Ptr () ->                               -- user_data
    IO ()

-- | Generate a function pointer callable from C code, from a `C_NotificationClosedCallback`.
foreign import ccall "wrapper"
    mk_NotificationClosedCallback :: C_NotificationClosedCallback -> IO (FunPtr C_NotificationClosedCallback)

-- | Wrap the callback into a `GClosure`.
genClosure_NotificationClosed :: MonadIO m => NotificationClosedCallback -> m (GClosure C_NotificationClosedCallback)
genClosure_NotificationClosed cb = liftIO $ do
    let cb' = wrap_NotificationClosedCallback cb
    mk_NotificationClosedCallback cb' >>= B.GClosure.newGClosure


-- | Wrap a `NotificationClosedCallback` into a `C_NotificationClosedCallback`.
wrap_NotificationClosedCallback ::
    NotificationClosedCallback ->
    C_NotificationClosedCallback
wrap_NotificationClosedCallback _cb _ _ = do
    _cb 


{- |
Connect a signal handler for the “@closed@” signal, to be run before the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Signals.on' notification #closed callback
@
-}
onNotificationClosed :: (IsNotification a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId
onNotificationClosed obj cb = liftIO $ do
    let cb' = wrap_NotificationClosedCallback cb
    cb'' <- mk_NotificationClosedCallback cb'
    connectSignalFunPtr obj "closed" cb'' SignalConnectBefore

{- |
Connect a signal handler for the “@closed@” signal, to be run after the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Signals.after' notification #closed callback
@
-}
afterNotificationClosed :: (IsNotification a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId
afterNotificationClosed obj cb = liftIO $ do
    let cb' = wrap_NotificationClosedCallback cb
    cb'' <- mk_NotificationClosedCallback cb'
    connectSignalFunPtr obj "closed" cb'' SignalConnectAfter


-- VVV Prop "app-name"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Nothing,Just False)

{- |
Get the value of the “@app-name@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.get' notification #appName
@
-}
getNotificationAppName :: (MonadIO m, IsNotification o) => o -> m (Maybe T.Text)
getNotificationAppName obj = liftIO $ B.Properties.getObjectPropertyString obj "app-name"

{- |
Set the value of the “@app-name@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.set' notification [ #appName 'Data.GI.Base.Attributes.:=' value ]
@
-}
setNotificationAppName :: (MonadIO m, IsNotification o) => o -> T.Text -> m ()
setNotificationAppName obj val = liftIO $ B.Properties.setObjectPropertyString obj "app-name" (Just val)

{- |
Construct a `GValueConstruct` with valid value for the “@app-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructNotificationAppName :: (IsNotification o) => T.Text -> IO (GValueConstruct o)
constructNotificationAppName val = B.Properties.constructObjectPropertyString "app-name" (Just val)

#if ENABLE_OVERLOADING
data NotificationAppNamePropertyInfo
instance AttrInfo NotificationAppNamePropertyInfo where
    type AttrAllowedOps NotificationAppNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint NotificationAppNamePropertyInfo = (~) T.Text
    type AttrBaseTypeConstraint NotificationAppNamePropertyInfo = IsNotification
    type AttrGetType NotificationAppNamePropertyInfo = (Maybe T.Text)
    type AttrLabel NotificationAppNamePropertyInfo = "app-name"
    type AttrOrigin NotificationAppNamePropertyInfo = Notification
    attrGet _ = getNotificationAppName
    attrSet _ = setNotificationAppName
    attrConstruct _ = constructNotificationAppName
    attrClear _ = undefined
#endif

-- VVV Prop "body"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

{- |
Get the value of the “@body@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.get' notification #body
@
-}
getNotificationBody :: (MonadIO m, IsNotification o) => o -> m (Maybe T.Text)
getNotificationBody obj = liftIO $ B.Properties.getObjectPropertyString obj "body"

{- |
Set the value of the “@body@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.set' notification [ #body 'Data.GI.Base.Attributes.:=' value ]
@
-}
setNotificationBody :: (MonadIO m, IsNotification o) => o -> T.Text -> m ()
setNotificationBody obj val = liftIO $ B.Properties.setObjectPropertyString obj "body" (Just val)

{- |
Construct a `GValueConstruct` with valid value for the “@body@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructNotificationBody :: (IsNotification o) => T.Text -> IO (GValueConstruct o)
constructNotificationBody val = B.Properties.constructObjectPropertyString "body" (Just val)

{- |
Set the value of the “@body@” property to `Nothing`.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.clear' #body
@
-}
clearNotificationBody :: (MonadIO m, IsNotification o) => o -> m ()
clearNotificationBody obj = liftIO $ B.Properties.setObjectPropertyString obj "body" (Nothing :: Maybe T.Text)

#if ENABLE_OVERLOADING
data NotificationBodyPropertyInfo
instance AttrInfo NotificationBodyPropertyInfo where
    type AttrAllowedOps NotificationBodyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) T.Text
    type AttrBaseTypeConstraint NotificationBodyPropertyInfo = IsNotification
    type AttrGetType NotificationBodyPropertyInfo = (Maybe T.Text)
    type AttrLabel NotificationBodyPropertyInfo = "body"
    type AttrOrigin NotificationBodyPropertyInfo = Notification
    attrGet _ = getNotificationBody
    attrSet _ = setNotificationBody
    attrConstruct _ = constructNotificationBody
    attrClear _ = clearNotificationBody
#endif

-- VVV Prop "closed-reason"
   -- Type: TBasicType TInt
   -- Flags: [PropertyReadable]
   -- Nullable: (Just False,Nothing)

{- |
Get the value of the “@closed-reason@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.get' notification #closedReason
@
-}
getNotificationClosedReason :: (MonadIO m, IsNotification o) => o -> m Int32
getNotificationClosedReason obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "closed-reason"

#if ENABLE_OVERLOADING
data NotificationClosedReasonPropertyInfo
instance AttrInfo NotificationClosedReasonPropertyInfo where
    type AttrAllowedOps NotificationClosedReasonPropertyInfo = '[ 'AttrGet]
    type AttrSetTypeConstraint NotificationClosedReasonPropertyInfo = (~) ()
    type AttrBaseTypeConstraint NotificationClosedReasonPropertyInfo = IsNotification
    type AttrGetType NotificationClosedReasonPropertyInfo = Int32
    type AttrLabel NotificationClosedReasonPropertyInfo = "closed-reason"
    type AttrOrigin NotificationClosedReasonPropertyInfo = Notification
    attrGet _ = getNotificationClosedReason
    attrSet _ = undefined
    attrConstruct _ = undefined
    attrClear _ = undefined
#endif

-- VVV Prop "icon-name"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

{- |
Get the value of the “@icon-name@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.get' notification #iconName
@
-}
getNotificationIconName :: (MonadIO m, IsNotification o) => o -> m (Maybe T.Text)
getNotificationIconName obj = liftIO $ B.Properties.getObjectPropertyString obj "icon-name"

{- |
Set the value of the “@icon-name@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.set' notification [ #iconName 'Data.GI.Base.Attributes.:=' value ]
@
-}
setNotificationIconName :: (MonadIO m, IsNotification o) => o -> T.Text -> m ()
setNotificationIconName obj val = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Just val)

{- |
Construct a `GValueConstruct` with valid value for the “@icon-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructNotificationIconName :: (IsNotification o) => T.Text -> IO (GValueConstruct o)
constructNotificationIconName val = B.Properties.constructObjectPropertyString "icon-name" (Just val)

{- |
Set the value of the “@icon-name@” property to `Nothing`.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.clear' #iconName
@
-}
clearNotificationIconName :: (MonadIO m, IsNotification o) => o -> m ()
clearNotificationIconName obj = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text)

#if ENABLE_OVERLOADING
data NotificationIconNamePropertyInfo
instance AttrInfo NotificationIconNamePropertyInfo where
    type AttrAllowedOps NotificationIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint NotificationIconNamePropertyInfo = (~) T.Text
    type AttrBaseTypeConstraint NotificationIconNamePropertyInfo = IsNotification
    type AttrGetType NotificationIconNamePropertyInfo = (Maybe T.Text)
    type AttrLabel NotificationIconNamePropertyInfo = "icon-name"
    type AttrOrigin NotificationIconNamePropertyInfo = Notification
    attrGet _ = getNotificationIconName
    attrSet _ = setNotificationIconName
    attrConstruct _ = constructNotificationIconName
    attrClear _ = clearNotificationIconName
#endif

-- VVV Prop "id"
   -- Type: TBasicType TInt
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

{- |
Get the value of the “@id@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.get' notification #id
@
-}
getNotificationId :: (MonadIO m, IsNotification o) => o -> m Int32
getNotificationId obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "id"

{- |
Set the value of the “@id@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.set' notification [ #id 'Data.GI.Base.Attributes.:=' value ]
@
-}
setNotificationId :: (MonadIO m, IsNotification o) => o -> Int32 -> m ()
setNotificationId obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "id" val

{- |
Construct a `GValueConstruct` with valid value for the “@id@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructNotificationId :: (IsNotification o) => Int32 -> IO (GValueConstruct o)
constructNotificationId val = B.Properties.constructObjectPropertyInt32 "id" val

#if ENABLE_OVERLOADING
data NotificationIdPropertyInfo
instance AttrInfo NotificationIdPropertyInfo where
    type AttrAllowedOps NotificationIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint NotificationIdPropertyInfo = (~) Int32
    type AttrBaseTypeConstraint NotificationIdPropertyInfo = IsNotification
    type AttrGetType NotificationIdPropertyInfo = Int32
    type AttrLabel NotificationIdPropertyInfo = "id"
    type AttrOrigin NotificationIdPropertyInfo = Notification
    attrGet _ = getNotificationId
    attrSet _ = setNotificationId
    attrConstruct _ = constructNotificationId
    attrClear _ = undefined
#endif

-- VVV Prop "summary"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

{- |
Get the value of the “@summary@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.get' notification #summary
@
-}
getNotificationSummary :: (MonadIO m, IsNotification o) => o -> m (Maybe T.Text)
getNotificationSummary obj = liftIO $ B.Properties.getObjectPropertyString obj "summary"

{- |
Set the value of the “@summary@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.set' notification [ #summary 'Data.GI.Base.Attributes.:=' value ]
@
-}
setNotificationSummary :: (MonadIO m, IsNotification o) => o -> T.Text -> m ()
setNotificationSummary obj val = liftIO $ B.Properties.setObjectPropertyString obj "summary" (Just val)

{- |
Construct a `GValueConstruct` with valid value for the “@summary@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructNotificationSummary :: (IsNotification o) => T.Text -> IO (GValueConstruct o)
constructNotificationSummary val = B.Properties.constructObjectPropertyString "summary" (Just val)

{- |
Set the value of the “@summary@” property to `Nothing`.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.clear' #summary
@
-}
clearNotificationSummary :: (MonadIO m, IsNotification o) => o -> m ()
clearNotificationSummary obj = liftIO $ B.Properties.setObjectPropertyString obj "summary" (Nothing :: Maybe T.Text)

#if ENABLE_OVERLOADING
data NotificationSummaryPropertyInfo
instance AttrInfo NotificationSummaryPropertyInfo where
    type AttrAllowedOps NotificationSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint NotificationSummaryPropertyInfo = (~) T.Text
    type AttrBaseTypeConstraint NotificationSummaryPropertyInfo = IsNotification
    type AttrGetType NotificationSummaryPropertyInfo = (Maybe T.Text)
    type AttrLabel NotificationSummaryPropertyInfo = "summary"
    type AttrOrigin NotificationSummaryPropertyInfo = Notification
    attrGet _ = getNotificationSummary
    attrSet _ = setNotificationSummary
    attrConstruct _ = constructNotificationSummary
    attrClear _ = clearNotificationSummary
#endif

#if ENABLE_OVERLOADING
instance O.HasAttributeList Notification
type instance O.AttributeList Notification = NotificationAttributeList
type NotificationAttributeList = ('[ '("appName", NotificationAppNamePropertyInfo), '("body", NotificationBodyPropertyInfo), '("closedReason", NotificationClosedReasonPropertyInfo), '("iconName", NotificationIconNamePropertyInfo), '("id", NotificationIdPropertyInfo), '("summary", NotificationSummaryPropertyInfo)] :: [(Symbol, *)])
#endif

#if ENABLE_OVERLOADING
notificationAppName :: AttrLabelProxy "appName"
notificationAppName = AttrLabelProxy

notificationBody :: AttrLabelProxy "body"
notificationBody = AttrLabelProxy

notificationClosedReason :: AttrLabelProxy "closedReason"
notificationClosedReason = AttrLabelProxy

notificationIconName :: AttrLabelProxy "iconName"
notificationIconName = AttrLabelProxy

notificationId :: AttrLabelProxy "id"
notificationId = AttrLabelProxy

notificationSummary :: AttrLabelProxy "summary"
notificationSummary = AttrLabelProxy

#endif

#if ENABLE_OVERLOADING
data NotificationClosedSignalInfo
instance SignalInfo NotificationClosedSignalInfo where
    type HaskellCallbackType NotificationClosedSignalInfo = NotificationClosedCallback
    connectSignal _ obj cb connectMode = do
        let cb' = wrap_NotificationClosedCallback cb
        cb'' <- mk_NotificationClosedCallback cb'
        connectSignalFunPtr obj "closed" cb'' connectMode

type instance O.SignalList Notification = NotificationSignalList
type NotificationSignalList = ('[ '("closed", NotificationClosedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method Notification::new
-- method type : Constructor
-- Args : [Arg {argCName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The required summary text.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The optional body text.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The optional icon theme icon name or filename.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Notify", name = "Notification"}))
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_new" notify_notification_new :: 
    CString ->                              -- summary : TBasicType TUTF8
    CString ->                              -- body : TBasicType TUTF8
    CString ->                              -- icon : TBasicType TUTF8
    IO (Ptr Notification)

{- |
Creates a new 'GI.Notify.Objects.Notification.Notification'. The summary text is required, but
all other parameters are optional.
-}
notificationNew ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    T.Text
    {- ^ /@summary@/: The required summary text. -}
    -> Maybe (T.Text)
    {- ^ /@body@/: The optional body text. -}
    -> Maybe (T.Text)
    {- ^ /@icon@/: The optional icon theme icon name or filename. -}
    -> m Notification
    {- ^ __Returns:__ The new 'GI.Notify.Objects.Notification.Notification'. -}
notificationNew summary body icon = liftIO $ do
    summary' <- textToCString summary
    maybeBody <- case body of
        Nothing -> return nullPtr
        Just jBody -> do
            jBody' <- textToCString jBody
            return jBody'
    maybeIcon <- case icon of
        Nothing -> return nullPtr
        Just jIcon -> do
            jIcon' <- textToCString jIcon
            return jIcon'
    result <- notify_notification_new summary' maybeBody maybeIcon
    checkUnexpectedReturnNULL "notificationNew" result
    result' <- (wrapObject Notification) result
    freeMem summary'
    freeMem maybeBody
    freeMem maybeIcon
    return result'

#if ENABLE_OVERLOADING
#endif

-- method Notification::add_action
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The action ID.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The human-readable action label.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Notify", name = "ActionCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The action's callback function.", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional custom data to pass to @callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "free_func", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An optional function to free @user_data when the notification\n            is destroyed.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_add_action" notify_notification_add_action :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- action : TBasicType TUTF8
    CString ->                              -- label : TBasicType TUTF8
    FunPtr Notify.Callbacks.C_ActionCallback -> -- callback : TInterface (Name {namespace = "Notify", name = "ActionCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    FunPtr GLib.Callbacks.C_DestroyNotify -> -- free_func : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})
    IO ()

{- |
Adds an action to a notification. When the action is invoked, the
specified callback function will be called, along with the value passed
to /@userData@/.
-}
notificationAddAction ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> T.Text
    {- ^ /@action@/: The action ID. -}
    -> T.Text
    {- ^ /@label@/: The human-readable action label. -}
    -> Notify.Callbacks.ActionCallback
    {- ^ /@callback@/: The action\'s callback function. -}
    -> m ()
notificationAddAction notification action label callback = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    action' <- textToCString action
    label' <- textToCString label
    callback' <- Notify.Callbacks.mk_ActionCallback (Notify.Callbacks.wrap_ActionCallback Nothing (Notify.Callbacks.drop_closures_ActionCallback callback))
    let userData = castFunPtrToPtr callback'
    let freeFunc = safeFreeFunPtrPtr
    notify_notification_add_action notification' action' label' callback' userData freeFunc
    touchManagedPtr notification
    freeMem action'
    freeMem label'
    return ()

#if ENABLE_OVERLOADING
data NotificationAddActionMethodInfo
instance (signature ~ (T.Text -> T.Text -> Notify.Callbacks.ActionCallback -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationAddActionMethodInfo a signature where
    overloadedMethod _ = notificationAddAction

#endif

-- method Notification::clear_actions
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_clear_actions" notify_notification_clear_actions :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    IO ()

{- |
Clears all actions from the notification.
-}
notificationClearActions ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> m ()
notificationClearActions notification = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    notify_notification_clear_actions notification'
    touchManagedPtr notification
    return ()

#if ENABLE_OVERLOADING
data NotificationClearActionsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationClearActionsMethodInfo a signature where
    overloadedMethod _ = notificationClearActions

#endif

-- method Notification::clear_hints
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_clear_hints" notify_notification_clear_hints :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    IO ()

{- |
Clears all hints from the notification.
-}
notificationClearHints ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> m ()
notificationClearHints notification = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    notify_notification_clear_hints notification'
    touchManagedPtr notification
    return ()

#if ENABLE_OVERLOADING
data NotificationClearHintsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationClearHintsMethodInfo a signature where
    overloadedMethod _ = notificationClearHints

#endif

-- method Notification::close
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "notify_notification_close" notify_notification_close :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

{- |
Synchronously tells the notification server to hide the notification on the screen.
-}
notificationClose ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> m ()
    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}
notificationClose notification = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    onException (do
        _ <- propagateGError $ notify_notification_close notification'
        touchManagedPtr notification
        return ()
     ) (do
        return ()
     )

#if ENABLE_OVERLOADING
data NotificationCloseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationCloseMethodInfo a signature where
    overloadedMethod _ = notificationClose

#endif

-- method Notification::get_closed_reason
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt)
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_get_closed_reason" notify_notification_get_closed_reason :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    IO Int32

{- |
Returns the closed reason code for the notification. This is valid only
after the \"closed\" signal is emitted.
-}
notificationGetClosedReason ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> m Int32
    {- ^ __Returns:__ The closed reason code. -}
notificationGetClosedReason notification = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    result <- notify_notification_get_closed_reason notification'
    touchManagedPtr notification
    return result

#if ENABLE_OVERLOADING
data NotificationGetClosedReasonMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsNotification a) => O.MethodInfo NotificationGetClosedReasonMethodInfo a signature where
    overloadedMethod _ = notificationGetClosedReason

#endif

-- method Notification::set_app_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #NotifyNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the localised application name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_app_name" notify_notification_set_app_name :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- app_name : TBasicType TUTF8
    IO ()

{- |
Sets the application name for the notification. If this function is
not called or if /@appName@/ is 'Nothing', the application name will be
set from the value used in 'GI.Notify.Functions.init' or overridden with
'GI.Notify.Functions.setAppName'.

/Since: 0.7.3/
-}
notificationSetAppName ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: a 'GI.Notify.Objects.Notification.Notification' -}
    -> T.Text
    {- ^ /@appName@/: the localised application name -}
    -> m ()
notificationSetAppName notification appName = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    appName' <- textToCString appName
    notify_notification_set_app_name notification' appName'
    touchManagedPtr notification
    freeMem appName'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetAppNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetAppNameMethodInfo a signature where
    overloadedMethod _ = notificationSetAppName

#endif

-- method Notification::set_category
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The category.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_category" notify_notification_set_category :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- category : TBasicType TUTF8
    IO ()

{- |
Sets the category of this notification. This can be used by the
notification server to filter or display the data in a certain way.
-}
notificationSetCategory ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> T.Text
    {- ^ /@category@/: The category. -}
    -> m ()
notificationSetCategory notification category = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    category' <- textToCString category
    notify_notification_set_category notification' category'
    touchManagedPtr notification
    freeMem category'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetCategoryMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetCategoryMethodInfo a signature where
    overloadedMethod _ = notificationSetCategory

#endif

-- method Notification::set_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #NotifyNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hint key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the hint value, or %NULL to unset the hint", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_hint" notify_notification_set_hint :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- key : TBasicType TUTF8
    Ptr GVariant ->                         -- value : TVariant
    IO ()

{- |
Sets a hint for /@key@/ with value /@value@/. If /@value@/ is 'Nothing',
a previously set hint for /@key@/ is unset.

If /@value@/ is floating, it is consumed.

/Since: 0.6/
-}
notificationSetHint ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: a 'GI.Notify.Objects.Notification.Notification' -}
    -> T.Text
    {- ^ /@key@/: the hint key -}
    -> Maybe (GVariant)
    {- ^ /@value@/: the hint value, or 'Nothing' to unset the hint -}
    -> m ()
notificationSetHint notification key value = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    key' <- textToCString key
    maybeValue <- case value of
        Nothing -> return nullPtr
        Just jValue -> do
            jValue' <- unsafeManagedPtrGetPtr jValue
            return jValue'
    notify_notification_set_hint notification' key' maybeValue
    touchManagedPtr notification
    whenJust value touchManagedPtr
    freeMem key'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetHintMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetHintMethodInfo a signature where
    overloadedMethod _ = notificationSetHint

#endif

-- method Notification::set_hint_byte
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint's value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_hint_byte" notify_notification_set_hint_byte :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- key : TBasicType TUTF8
    Word8 ->                                -- value : TBasicType TUInt8
    IO ()

{-# DEPRECATED notificationSetHintByte ["(Since version 0.6.)","Use 'GI.Notify.Objects.Notification.notificationSetHint' instead"] #-}
{- |
Sets a hint with a byte value.
-}
notificationSetHintByte ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> T.Text
    {- ^ /@key@/: The hint. -}
    -> Word8
    {- ^ /@value@/: The hint\'s value. -}
    -> m ()
notificationSetHintByte notification key value = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    key' <- textToCString key
    notify_notification_set_hint_byte notification' key' value
    touchManagedPtr notification
    freeMem key'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetHintByteMethodInfo
instance (signature ~ (T.Text -> Word8 -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetHintByteMethodInfo a signature where
    overloadedMethod _ = notificationSetHintByte

#endif

-- method Notification::set_hint_byte_array
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint's value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The length of the byte array.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The length of the byte array.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_hint_byte_array" notify_notification_set_hint_byte_array :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- key : TBasicType TUTF8
    Ptr Word8 ->                            -- value : TCArray False (-1) 3 (TBasicType TUInt8)
    Word64 ->                               -- len : TBasicType TUInt64
    IO ()

{-# DEPRECATED notificationSetHintByteArray ["(Since version 0.6.)","Use 'GI.Notify.Objects.Notification.notificationSetHint' instead"] #-}
{- |
Sets a hint with a byte array value. The length of /@value@/ must be passed
as /@len@/.
-}
notificationSetHintByteArray ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> T.Text
    {- ^ /@key@/: The hint. -}
    -> ByteString
    {- ^ /@value@/: The hint\'s value. -}
    -> m ()
notificationSetHintByteArray notification key value = liftIO $ do
    let len = fromIntegral $ B.length value
    notification' <- unsafeManagedPtrCastPtr notification
    key' <- textToCString key
    value' <- packByteString value
    notify_notification_set_hint_byte_array notification' key' value' len
    touchManagedPtr notification
    freeMem key'
    freeMem value'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetHintByteArrayMethodInfo
instance (signature ~ (T.Text -> ByteString -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetHintByteArrayMethodInfo a signature where
    overloadedMethod _ = notificationSetHintByteArray

#endif

-- method Notification::set_hint_double
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint's value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_hint_double" notify_notification_set_hint_double :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- key : TBasicType TUTF8
    CDouble ->                              -- value : TBasicType TDouble
    IO ()

{-# DEPRECATED notificationSetHintDouble ["(Since version 0.6.)","Use 'GI.Notify.Objects.Notification.notificationSetHint' instead"] #-}
{- |
Sets a hint with a double value.
-}
notificationSetHintDouble ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> T.Text
    {- ^ /@key@/: The hint. -}
    -> Double
    {- ^ /@value@/: The hint\'s value. -}
    -> m ()
notificationSetHintDouble notification key value = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    key' <- textToCString key
    let value' = realToFrac value
    notify_notification_set_hint_double notification' key' value'
    touchManagedPtr notification
    freeMem key'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetHintDoubleMethodInfo
instance (signature ~ (T.Text -> Double -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetHintDoubleMethodInfo a signature where
    overloadedMethod _ = notificationSetHintDouble

#endif

-- method Notification::set_hint_int32
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint's value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_hint_int32" notify_notification_set_hint_int32 :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- key : TBasicType TUTF8
    Int32 ->                                -- value : TBasicType TInt
    IO ()

{-# DEPRECATED notificationSetHintInt32 ["(Since version 0.6.)","Use 'GI.Notify.Objects.Notification.notificationSetHint' instead"] #-}
{- |
Sets a hint with a 32-bit integer value.
-}
notificationSetHintInt32 ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> T.Text
    {- ^ /@key@/: The hint. -}
    -> Int32
    {- ^ /@value@/: The hint\'s value. -}
    -> m ()
notificationSetHintInt32 notification key value = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    key' <- textToCString key
    notify_notification_set_hint_int32 notification' key' value
    touchManagedPtr notification
    freeMem key'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetHintInt32MethodInfo
instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetHintInt32MethodInfo a signature where
    overloadedMethod _ = notificationSetHintInt32

#endif

-- method Notification::set_hint_string
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint's value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_hint_string" notify_notification_set_hint_string :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- key : TBasicType TUTF8
    CString ->                              -- value : TBasicType TUTF8
    IO ()

{-# DEPRECATED notificationSetHintString ["(Since version 0.6.)","Use 'GI.Notify.Objects.Notification.notificationSetHint' instead"] #-}
{- |
Sets a hint with a string value.
-}
notificationSetHintString ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> T.Text
    {- ^ /@key@/: The hint. -}
    -> T.Text
    {- ^ /@value@/: The hint\'s value. -}
    -> m ()
notificationSetHintString notification key value = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    key' <- textToCString key
    value' <- textToCString value
    notify_notification_set_hint_string notification' key' value'
    touchManagedPtr notification
    freeMem key'
    freeMem value'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetHintStringMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetHintStringMethodInfo a signature where
    overloadedMethod _ = notificationSetHintString

#endif

-- method Notification::set_hint_uint32
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The hint's value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_hint_uint32" notify_notification_set_hint_uint32 :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- key : TBasicType TUTF8
    Word32 ->                               -- value : TBasicType TUInt
    IO ()

{-# DEPRECATED notificationSetHintUint32 ["(Since version 0.6.)","Use 'GI.Notify.Objects.Notification.notificationSetHint' instead"] #-}
{- |
Sets a hint with an unsigned 32-bit integer value.
-}
notificationSetHintUint32 ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> T.Text
    {- ^ /@key@/: The hint. -}
    -> Word32
    {- ^ /@value@/: The hint\'s value. -}
    -> m ()
notificationSetHintUint32 notification key value = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    key' <- textToCString key
    notify_notification_set_hint_uint32 notification' key' value
    touchManagedPtr notification
    freeMem key'
    return ()

#if ENABLE_OVERLOADING
data NotificationSetHintUint32MethodInfo
instance (signature ~ (T.Text -> Word32 -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetHintUint32MethodInfo a signature where
    overloadedMethod _ = notificationSetHintUint32

#endif

-- method Notification::set_icon_from_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The icon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_icon_from_pixbuf" notify_notification_set_icon_from_pixbuf :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    Ptr GdkPixbuf.Pixbuf.Pixbuf ->          -- icon : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})
    IO ()

{-# DEPRECATED notificationSetIconFromPixbuf ["use 'GI.Notify.Objects.Notification.notificationSetImageFromPixbuf' instead."] #-}
{- |
Sets the icon in the notification from a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf'.
-}
notificationSetIconFromPixbuf ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a, GdkPixbuf.Pixbuf.IsPixbuf b) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> b
    {- ^ /@icon@/: The icon. -}
    -> m ()
notificationSetIconFromPixbuf notification icon = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    icon' <- unsafeManagedPtrCastPtr icon
    notify_notification_set_icon_from_pixbuf notification' icon'
    touchManagedPtr notification
    touchManagedPtr icon
    return ()

#if ENABLE_OVERLOADING
data NotificationSetIconFromPixbufMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsNotification a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.MethodInfo NotificationSetIconFromPixbufMethodInfo a signature where
    overloadedMethod _ = notificationSetIconFromPixbuf

#endif

-- method Notification::set_image_from_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The image.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_image_from_pixbuf" notify_notification_set_image_from_pixbuf :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    Ptr GdkPixbuf.Pixbuf.Pixbuf ->          -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})
    IO ()

{- |
Sets the image in the notification from a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf'.
-}
notificationSetImageFromPixbuf ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a, GdkPixbuf.Pixbuf.IsPixbuf b) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> b
    {- ^ /@pixbuf@/: The image. -}
    -> m ()
notificationSetImageFromPixbuf notification pixbuf = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    pixbuf' <- unsafeManagedPtrCastPtr pixbuf
    notify_notification_set_image_from_pixbuf notification' pixbuf'
    touchManagedPtr notification
    touchManagedPtr pixbuf
    return ()

#if ENABLE_OVERLOADING
data NotificationSetImageFromPixbufMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsNotification a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.MethodInfo NotificationSetImageFromPixbufMethodInfo a signature where
    overloadedMethod _ = notificationSetImageFromPixbuf

#endif

-- method Notification::set_timeout
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The timeout in milliseconds.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_timeout" notify_notification_set_timeout :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    Int32 ->                                -- timeout : TBasicType TInt
    IO ()

{- |
Sets the timeout of the notification. To set the default time, pass
'GI.Notify.Constants.EXPIRES_DEFAULT' as /@timeout@/. To set the notification to never
expire, pass 'GI.Notify.Constants.EXPIRES_NEVER'.

Note that the timeout may be ignored by the server.
-}
notificationSetTimeout ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> Int32
    {- ^ /@timeout@/: The timeout in milliseconds. -}
    -> m ()
notificationSetTimeout notification timeout = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    notify_notification_set_timeout notification' timeout
    touchManagedPtr notification
    return ()

#if ENABLE_OVERLOADING
data NotificationSetTimeoutMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetTimeoutMethodInfo a signature where
    overloadedMethod _ = notificationSetTimeout

#endif

-- method Notification::set_urgency
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgency", argType = TInterface (Name {namespace = "Notify", name = "Urgency"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The urgency level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_set_urgency" notify_notification_set_urgency :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CUInt ->                                -- urgency : TInterface (Name {namespace = "Notify", name = "Urgency"})
    IO ()

{- |
Sets the urgency level of this notification.

See: 'GI.Notify.Enums.Urgency'
-}
notificationSetUrgency ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> Notify.Enums.Urgency
    {- ^ /@urgency@/: The urgency level. -}
    -> m ()
notificationSetUrgency notification urgency = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    let urgency' = (fromIntegral . fromEnum) urgency
    notify_notification_set_urgency notification' urgency'
    touchManagedPtr notification
    return ()

#if ENABLE_OVERLOADING
data NotificationSetUrgencyMethodInfo
instance (signature ~ (Notify.Enums.Urgency -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetUrgencyMethodInfo a signature where
    overloadedMethod _ = notificationSetUrgency

#endif

-- method Notification::show
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "notify_notification_show" notify_notification_show :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

{- |
Tells the notification server to display the notification on the screen.
-}
notificationShow ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification. -}
    -> m ()
    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}
notificationShow notification = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    onException (do
        _ <- propagateGError $ notify_notification_show notification'
        touchManagedPtr notification
        return ()
     ) (do
        return ()
     )

#if ENABLE_OVERLOADING
data NotificationShowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationShowMethodInfo a signature where
    overloadedMethod _ = notificationShow

#endif

-- method Notification::update
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Notify", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The notification to update.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The new required summary text.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The optional body text.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The optional icon theme icon name or filename.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "notify_notification_update" notify_notification_update :: 
    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Notify", name = "Notification"})
    CString ->                              -- summary : TBasicType TUTF8
    CString ->                              -- body : TBasicType TUTF8
    CString ->                              -- icon : TBasicType TUTF8
    IO CInt

{- |
Updates the notification text and icon. This won\'t send the update out
and display it on the screen. For that, you will need to call
'GI.Notify.Objects.Notification.notificationShow'.
-}
notificationUpdate ::
    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>
    a
    {- ^ /@notification@/: The notification to update. -}
    -> T.Text
    {- ^ /@summary@/: The new required summary text. -}
    -> Maybe (T.Text)
    {- ^ /@body@/: The optional body text. -}
    -> Maybe (T.Text)
    {- ^ /@icon@/: The optional icon theme icon name or filename. -}
    -> m Bool
    {- ^ __Returns:__ 'True', unless an invalid parameter was passed. -}
notificationUpdate notification summary body icon = liftIO $ do
    notification' <- unsafeManagedPtrCastPtr notification
    summary' <- textToCString summary
    maybeBody <- case body of
        Nothing -> return nullPtr
        Just jBody -> do
            jBody' <- textToCString jBody
            return jBody'
    maybeIcon <- case icon of
        Nothing -> return nullPtr
        Just jIcon -> do
            jIcon' <- textToCString jIcon
            return jIcon'
    result <- notify_notification_update notification' summary' maybeBody maybeIcon
    let result' = (/= 0) result
    touchManagedPtr notification
    freeMem summary'
    freeMem maybeBody
    freeMem maybeIcon
    return result'

#if ENABLE_OVERLOADING
data NotificationUpdateMethodInfo
instance (signature ~ (T.Text -> Maybe (T.Text) -> Maybe (T.Text) -> m Bool), MonadIO m, IsNotification a) => O.MethodInfo NotificationUpdateMethodInfo a signature where
    overloadedMethod _ = notificationUpdate

#endif