{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.IBus.Objects.EngineDesc
(
EngineDesc(..) ,
IsEngineDesc ,
toEngineDesc ,
#if defined(ENABLE_OVERLOADING)
ResolveEngineDescMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
EngineDescGetAuthorMethodInfo ,
#endif
engineDescGetAuthor ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetDescriptionMethodInfo ,
#endif
engineDescGetDescription ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetHotkeysMethodInfo ,
#endif
engineDescGetHotkeys ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetIconMethodInfo ,
#endif
engineDescGetIcon ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetIconPropKeyMethodInfo ,
#endif
engineDescGetIconPropKey ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetLanguageMethodInfo ,
#endif
engineDescGetLanguage ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetLayoutMethodInfo ,
#endif
engineDescGetLayout ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetLayoutOptionMethodInfo ,
#endif
engineDescGetLayoutOption ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetLayoutVariantMethodInfo ,
#endif
engineDescGetLayoutVariant ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetLicenseMethodInfo ,
#endif
engineDescGetLicense ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetLongnameMethodInfo ,
#endif
engineDescGetLongname ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetNameMethodInfo ,
#endif
engineDescGetName ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetRankMethodInfo ,
#endif
engineDescGetRank ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetSetupMethodInfo ,
#endif
engineDescGetSetup ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetSymbolMethodInfo ,
#endif
engineDescGetSymbol ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetTextdomainMethodInfo ,
#endif
engineDescGetTextdomain ,
#if defined(ENABLE_OVERLOADING)
EngineDescGetVersionMethodInfo ,
#endif
engineDescGetVersion ,
engineDescNew ,
engineDescNewFromXmlNode ,
#if defined(ENABLE_OVERLOADING)
EngineDescOutputMethodInfo ,
#endif
engineDescOutput ,
#if defined(ENABLE_OVERLOADING)
EngineDescAuthorPropertyInfo ,
#endif
constructEngineDescAuthor ,
#if defined(ENABLE_OVERLOADING)
engineDescAuthor ,
#endif
getEngineDescAuthor ,
#if defined(ENABLE_OVERLOADING)
EngineDescDescriptionPropertyInfo ,
#endif
constructEngineDescDescription ,
#if defined(ENABLE_OVERLOADING)
engineDescDescription ,
#endif
getEngineDescDescription ,
#if defined(ENABLE_OVERLOADING)
EngineDescHotkeysPropertyInfo ,
#endif
constructEngineDescHotkeys ,
#if defined(ENABLE_OVERLOADING)
engineDescHotkeys ,
#endif
getEngineDescHotkeys ,
#if defined(ENABLE_OVERLOADING)
EngineDescIconPropertyInfo ,
#endif
constructEngineDescIcon ,
#if defined(ENABLE_OVERLOADING)
engineDescIcon ,
#endif
getEngineDescIcon ,
#if defined(ENABLE_OVERLOADING)
EngineDescIconPropKeyPropertyInfo ,
#endif
constructEngineDescIconPropKey ,
#if defined(ENABLE_OVERLOADING)
engineDescIconPropKey ,
#endif
getEngineDescIconPropKey ,
#if defined(ENABLE_OVERLOADING)
EngineDescLanguagePropertyInfo ,
#endif
constructEngineDescLanguage ,
#if defined(ENABLE_OVERLOADING)
engineDescLanguage ,
#endif
getEngineDescLanguage ,
#if defined(ENABLE_OVERLOADING)
EngineDescLayoutPropertyInfo ,
#endif
constructEngineDescLayout ,
#if defined(ENABLE_OVERLOADING)
engineDescLayout ,
#endif
getEngineDescLayout ,
#if defined(ENABLE_OVERLOADING)
EngineDescLayoutOptionPropertyInfo ,
#endif
constructEngineDescLayoutOption ,
#if defined(ENABLE_OVERLOADING)
engineDescLayoutOption ,
#endif
getEngineDescLayoutOption ,
#if defined(ENABLE_OVERLOADING)
EngineDescLayoutVariantPropertyInfo ,
#endif
constructEngineDescLayoutVariant ,
#if defined(ENABLE_OVERLOADING)
engineDescLayoutVariant ,
#endif
getEngineDescLayoutVariant ,
#if defined(ENABLE_OVERLOADING)
EngineDescLicensePropertyInfo ,
#endif
constructEngineDescLicense ,
#if defined(ENABLE_OVERLOADING)
engineDescLicense ,
#endif
getEngineDescLicense ,
#if defined(ENABLE_OVERLOADING)
EngineDescLongnamePropertyInfo ,
#endif
constructEngineDescLongname ,
#if defined(ENABLE_OVERLOADING)
engineDescLongname ,
#endif
getEngineDescLongname ,
#if defined(ENABLE_OVERLOADING)
EngineDescNamePropertyInfo ,
#endif
constructEngineDescName ,
#if defined(ENABLE_OVERLOADING)
engineDescName ,
#endif
getEngineDescName ,
#if defined(ENABLE_OVERLOADING)
EngineDescRankPropertyInfo ,
#endif
constructEngineDescRank ,
#if defined(ENABLE_OVERLOADING)
engineDescRank ,
#endif
getEngineDescRank ,
#if defined(ENABLE_OVERLOADING)
EngineDescSetupPropertyInfo ,
#endif
constructEngineDescSetup ,
#if defined(ENABLE_OVERLOADING)
engineDescSetup ,
#endif
getEngineDescSetup ,
#if defined(ENABLE_OVERLOADING)
EngineDescSymbolPropertyInfo ,
#endif
constructEngineDescSymbol ,
#if defined(ENABLE_OVERLOADING)
engineDescSymbol ,
#endif
getEngineDescSymbol ,
#if defined(ENABLE_OVERLOADING)
EngineDescTextdomainPropertyInfo ,
#endif
constructEngineDescTextdomain ,
#if defined(ENABLE_OVERLOADING)
engineDescTextdomain ,
#endif
getEngineDescTextdomain ,
#if defined(ENABLE_OVERLOADING)
EngineDescVersionPropertyInfo ,
#endif
constructEngineDescVersion ,
#if defined(ENABLE_OVERLOADING)
engineDescVersion ,
#endif
getEngineDescVersion ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.Records as R
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.IBus.Objects.Object as IBus.Object
import {-# SOURCE #-} qualified GI.IBus.Objects.Serializable as IBus.Serializable
import {-# SOURCE #-} qualified GI.IBus.Structs.XML as IBus.XML
newtype EngineDesc = EngineDesc (SP.ManagedPtr EngineDesc)
deriving (EngineDesc -> EngineDesc -> Bool
(EngineDesc -> EngineDesc -> Bool)
-> (EngineDesc -> EngineDesc -> Bool) -> Eq EngineDesc
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EngineDesc -> EngineDesc -> Bool
$c/= :: EngineDesc -> EngineDesc -> Bool
== :: EngineDesc -> EngineDesc -> Bool
$c== :: EngineDesc -> EngineDesc -> Bool
Eq)
instance SP.ManagedPtrNewtype EngineDesc where
toManagedPtr :: EngineDesc -> ManagedPtr EngineDesc
toManagedPtr (EngineDesc ManagedPtr EngineDesc
p) = ManagedPtr EngineDesc
p
foreign import ccall "ibus_engine_desc_get_type"
c_ibus_engine_desc_get_type :: IO B.Types.GType
instance B.Types.TypedObject EngineDesc where
glibType :: IO GType
glibType = IO GType
c_ibus_engine_desc_get_type
instance B.Types.GObject EngineDesc
class (SP.GObject o, O.IsDescendantOf EngineDesc o) => IsEngineDesc o
instance (SP.GObject o, O.IsDescendantOf EngineDesc o) => IsEngineDesc o
instance O.HasParentTypes EngineDesc
type instance O.ParentTypes EngineDesc = '[IBus.Serializable.Serializable, IBus.Object.Object, GObject.Object.Object]
toEngineDesc :: (MIO.MonadIO m, IsEngineDesc o) => o -> m EngineDesc
toEngineDesc :: forall (m :: * -> *) o.
(MonadIO m, IsEngineDesc o) =>
o -> m EngineDesc
toEngineDesc = IO EngineDesc -> m EngineDesc
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO EngineDesc -> m EngineDesc)
-> (o -> IO EngineDesc) -> o -> m EngineDesc
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr EngineDesc -> EngineDesc) -> o -> IO EngineDesc
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr EngineDesc -> EngineDesc
EngineDesc
instance B.GValue.IsGValue (Maybe EngineDesc) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ibus_engine_desc_get_type
gvalueSet_ :: Ptr GValue -> Maybe EngineDesc -> IO ()
gvalueSet_ Ptr GValue
gv Maybe EngineDesc
P.Nothing = Ptr GValue -> Ptr EngineDesc -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr EngineDesc
forall a. Ptr a
FP.nullPtr :: FP.Ptr EngineDesc)
gvalueSet_ Ptr GValue
gv (P.Just EngineDesc
obj) = EngineDesc -> (Ptr EngineDesc -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EngineDesc
obj (Ptr GValue -> Ptr EngineDesc -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe EngineDesc)
gvalueGet_ Ptr GValue
gv = do
Ptr EngineDesc
ptr <- Ptr GValue -> IO (Ptr EngineDesc)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr EngineDesc)
if Ptr EngineDesc
ptr Ptr EngineDesc -> Ptr EngineDesc -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr EngineDesc
forall a. Ptr a
FP.nullPtr
then EngineDesc -> Maybe EngineDesc
forall a. a -> Maybe a
P.Just (EngineDesc -> Maybe EngineDesc)
-> IO EngineDesc -> IO (Maybe EngineDesc)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr EngineDesc -> EngineDesc
EngineDesc Ptr EngineDesc
ptr
else Maybe EngineDesc -> IO (Maybe EngineDesc)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe EngineDesc
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveEngineDescMethod (t :: Symbol) (o :: *) :: * where
ResolveEngineDescMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEngineDescMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEngineDescMethod "copy" o = IBus.Serializable.SerializableCopyMethodInfo
ResolveEngineDescMethod "destroy" o = IBus.Object.ObjectDestroyMethodInfo
ResolveEngineDescMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEngineDescMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEngineDescMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEngineDescMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEngineDescMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEngineDescMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEngineDescMethod "output" o = EngineDescOutputMethodInfo
ResolveEngineDescMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEngineDescMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEngineDescMethod "removeQattachment" o = IBus.Serializable.SerializableRemoveQattachmentMethodInfo
ResolveEngineDescMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEngineDescMethod "serializeObject" o = IBus.Serializable.SerializableSerializeObjectMethodInfo
ResolveEngineDescMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEngineDescMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEngineDescMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEngineDescMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEngineDescMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEngineDescMethod "getAuthor" o = EngineDescGetAuthorMethodInfo
ResolveEngineDescMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEngineDescMethod "getDescription" o = EngineDescGetDescriptionMethodInfo
ResolveEngineDescMethod "getHotkeys" o = EngineDescGetHotkeysMethodInfo
ResolveEngineDescMethod "getIcon" o = EngineDescGetIconMethodInfo
ResolveEngineDescMethod "getIconPropKey" o = EngineDescGetIconPropKeyMethodInfo
ResolveEngineDescMethod "getLanguage" o = EngineDescGetLanguageMethodInfo
ResolveEngineDescMethod "getLayout" o = EngineDescGetLayoutMethodInfo
ResolveEngineDescMethod "getLayoutOption" o = EngineDescGetLayoutOptionMethodInfo
ResolveEngineDescMethod "getLayoutVariant" o = EngineDescGetLayoutVariantMethodInfo
ResolveEngineDescMethod "getLicense" o = EngineDescGetLicenseMethodInfo
ResolveEngineDescMethod "getLongname" o = EngineDescGetLongnameMethodInfo
ResolveEngineDescMethod "getName" o = EngineDescGetNameMethodInfo
ResolveEngineDescMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEngineDescMethod "getQattachment" o = IBus.Serializable.SerializableGetQattachmentMethodInfo
ResolveEngineDescMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEngineDescMethod "getRank" o = EngineDescGetRankMethodInfo
ResolveEngineDescMethod "getSetup" o = EngineDescGetSetupMethodInfo
ResolveEngineDescMethod "getSymbol" o = EngineDescGetSymbolMethodInfo
ResolveEngineDescMethod "getTextdomain" o = EngineDescGetTextdomainMethodInfo
ResolveEngineDescMethod "getVersion" o = EngineDescGetVersionMethodInfo
ResolveEngineDescMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEngineDescMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveEngineDescMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEngineDescMethod "setQattachment" o = IBus.Serializable.SerializableSetQattachmentMethodInfo
ResolveEngineDescMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEngineDescMethod t EngineDesc, O.OverloadedMethod info EngineDesc p) => OL.IsLabel t (EngineDesc -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveEngineDescMethod t EngineDesc, O.OverloadedMethod info EngineDesc p, R.HasField t EngineDesc p) => R.HasField t EngineDesc p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEngineDescMethod t EngineDesc, O.OverloadedMethodInfo info EngineDesc) => OL.IsLabel t (O.MethodProxy info EngineDesc) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getEngineDescAuthor :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescAuthor :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescAuthor o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescAuthor" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"author"
constructEngineDescAuthor :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescAuthor :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescAuthor Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"author" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescAuthorPropertyInfo
instance AttrInfo EngineDescAuthorPropertyInfo where
type AttrAllowedOps EngineDescAuthorPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescAuthorPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescAuthorPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescAuthorPropertyInfo = (~) T.Text
type AttrTransferType EngineDescAuthorPropertyInfo = T.Text
type AttrGetType EngineDescAuthorPropertyInfo = T.Text
type AttrLabel EngineDescAuthorPropertyInfo = "author"
type AttrOrigin EngineDescAuthorPropertyInfo = EngineDesc
attrGet = getEngineDescAuthor
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescAuthor
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.author"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:author"
})
#endif
getEngineDescDescription :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescDescription :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescDescription o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescDescription" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"description"
constructEngineDescDescription :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescDescription :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescDescription Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"description" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescDescriptionPropertyInfo
instance AttrInfo EngineDescDescriptionPropertyInfo where
type AttrAllowedOps EngineDescDescriptionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescDescriptionPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescDescriptionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescDescriptionPropertyInfo = (~) T.Text
type AttrTransferType EngineDescDescriptionPropertyInfo = T.Text
type AttrGetType EngineDescDescriptionPropertyInfo = T.Text
type AttrLabel EngineDescDescriptionPropertyInfo = "description"
type AttrOrigin EngineDescDescriptionPropertyInfo = EngineDesc
attrGet = getEngineDescDescription
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescDescription
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.description"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:description"
})
#endif
getEngineDescHotkeys :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescHotkeys :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescHotkeys o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescHotkeys" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"hotkeys"
constructEngineDescHotkeys :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescHotkeys :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescHotkeys Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"hotkeys" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescHotkeysPropertyInfo
instance AttrInfo EngineDescHotkeysPropertyInfo where
type AttrAllowedOps EngineDescHotkeysPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescHotkeysPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescHotkeysPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescHotkeysPropertyInfo = (~) T.Text
type AttrTransferType EngineDescHotkeysPropertyInfo = T.Text
type AttrGetType EngineDescHotkeysPropertyInfo = T.Text
type AttrLabel EngineDescHotkeysPropertyInfo = "hotkeys"
type AttrOrigin EngineDescHotkeysPropertyInfo = EngineDesc
attrGet = getEngineDescHotkeys
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescHotkeys
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.hotkeys"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:hotkeys"
})
#endif
getEngineDescIcon :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescIcon :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescIcon o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescIcon" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"icon"
constructEngineDescIcon :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescIcon :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescIcon Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"icon" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescIconPropertyInfo
instance AttrInfo EngineDescIconPropertyInfo where
type AttrAllowedOps EngineDescIconPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescIconPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescIconPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescIconPropertyInfo = (~) T.Text
type AttrTransferType EngineDescIconPropertyInfo = T.Text
type AttrGetType EngineDescIconPropertyInfo = T.Text
type AttrLabel EngineDescIconPropertyInfo = "icon"
type AttrOrigin EngineDescIconPropertyInfo = EngineDesc
attrGet = getEngineDescIcon
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescIcon
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.icon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:icon"
})
#endif
getEngineDescIconPropKey :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescIconPropKey :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescIconPropKey o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescIconPropKey" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"icon-prop-key"
constructEngineDescIconPropKey :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescIconPropKey :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescIconPropKey Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"icon-prop-key" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescIconPropKeyPropertyInfo
instance AttrInfo EngineDescIconPropKeyPropertyInfo where
type AttrAllowedOps EngineDescIconPropKeyPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescIconPropKeyPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescIconPropKeyPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescIconPropKeyPropertyInfo = (~) T.Text
type AttrTransferType EngineDescIconPropKeyPropertyInfo = T.Text
type AttrGetType EngineDescIconPropKeyPropertyInfo = T.Text
type AttrLabel EngineDescIconPropKeyPropertyInfo = "icon-prop-key"
type AttrOrigin EngineDescIconPropKeyPropertyInfo = EngineDesc
attrGet = getEngineDescIconPropKey
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescIconPropKey
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.iconPropKey"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:iconPropKey"
})
#endif
getEngineDescLanguage :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescLanguage :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescLanguage o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescLanguage" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"language"
constructEngineDescLanguage :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescLanguage :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescLanguage Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"language" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescLanguagePropertyInfo
instance AttrInfo EngineDescLanguagePropertyInfo where
type AttrAllowedOps EngineDescLanguagePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescLanguagePropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescLanguagePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescLanguagePropertyInfo = (~) T.Text
type AttrTransferType EngineDescLanguagePropertyInfo = T.Text
type AttrGetType EngineDescLanguagePropertyInfo = T.Text
type AttrLabel EngineDescLanguagePropertyInfo = "language"
type AttrOrigin EngineDescLanguagePropertyInfo = EngineDesc
attrGet = getEngineDescLanguage
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescLanguage
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.language"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:language"
})
#endif
getEngineDescLayout :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescLayout :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescLayout o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescLayout" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"layout"
constructEngineDescLayout :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescLayout :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescLayout Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"layout" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescLayoutPropertyInfo
instance AttrInfo EngineDescLayoutPropertyInfo where
type AttrAllowedOps EngineDescLayoutPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescLayoutPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescLayoutPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescLayoutPropertyInfo = (~) T.Text
type AttrTransferType EngineDescLayoutPropertyInfo = T.Text
type AttrGetType EngineDescLayoutPropertyInfo = T.Text
type AttrLabel EngineDescLayoutPropertyInfo = "layout"
type AttrOrigin EngineDescLayoutPropertyInfo = EngineDesc
attrGet = getEngineDescLayout
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescLayout
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.layout"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:layout"
})
#endif
getEngineDescLayoutOption :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescLayoutOption :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescLayoutOption o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescLayoutOption" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"layout-option"
constructEngineDescLayoutOption :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescLayoutOption :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescLayoutOption Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"layout-option" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescLayoutOptionPropertyInfo
instance AttrInfo EngineDescLayoutOptionPropertyInfo where
type AttrAllowedOps EngineDescLayoutOptionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescLayoutOptionPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescLayoutOptionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescLayoutOptionPropertyInfo = (~) T.Text
type AttrTransferType EngineDescLayoutOptionPropertyInfo = T.Text
type AttrGetType EngineDescLayoutOptionPropertyInfo = T.Text
type AttrLabel EngineDescLayoutOptionPropertyInfo = "layout-option"
type AttrOrigin EngineDescLayoutOptionPropertyInfo = EngineDesc
attrGet = getEngineDescLayoutOption
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescLayoutOption
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.layoutOption"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:layoutOption"
})
#endif
getEngineDescLayoutVariant :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescLayoutVariant :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescLayoutVariant o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescLayoutVariant" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"layout-variant"
constructEngineDescLayoutVariant :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescLayoutVariant :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescLayoutVariant Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"layout-variant" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescLayoutVariantPropertyInfo
instance AttrInfo EngineDescLayoutVariantPropertyInfo where
type AttrAllowedOps EngineDescLayoutVariantPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescLayoutVariantPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescLayoutVariantPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescLayoutVariantPropertyInfo = (~) T.Text
type AttrTransferType EngineDescLayoutVariantPropertyInfo = T.Text
type AttrGetType EngineDescLayoutVariantPropertyInfo = T.Text
type AttrLabel EngineDescLayoutVariantPropertyInfo = "layout-variant"
type AttrOrigin EngineDescLayoutVariantPropertyInfo = EngineDesc
attrGet = getEngineDescLayoutVariant
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescLayoutVariant
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.layoutVariant"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:layoutVariant"
})
#endif
getEngineDescLicense :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescLicense :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescLicense o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescLicense" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"license"
constructEngineDescLicense :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescLicense :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescLicense Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"license" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescLicensePropertyInfo
instance AttrInfo EngineDescLicensePropertyInfo where
type AttrAllowedOps EngineDescLicensePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescLicensePropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescLicensePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescLicensePropertyInfo = (~) T.Text
type AttrTransferType EngineDescLicensePropertyInfo = T.Text
type AttrGetType EngineDescLicensePropertyInfo = T.Text
type AttrLabel EngineDescLicensePropertyInfo = "license"
type AttrOrigin EngineDescLicensePropertyInfo = EngineDesc
attrGet = getEngineDescLicense
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescLicense
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.license"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:license"
})
#endif
getEngineDescLongname :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescLongname :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescLongname o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescLongname" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"longname"
constructEngineDescLongname :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescLongname :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescLongname Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"longname" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescLongnamePropertyInfo
instance AttrInfo EngineDescLongnamePropertyInfo where
type AttrAllowedOps EngineDescLongnamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescLongnamePropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescLongnamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescLongnamePropertyInfo = (~) T.Text
type AttrTransferType EngineDescLongnamePropertyInfo = T.Text
type AttrGetType EngineDescLongnamePropertyInfo = T.Text
type AttrLabel EngineDescLongnamePropertyInfo = "longname"
type AttrOrigin EngineDescLongnamePropertyInfo = EngineDesc
attrGet = getEngineDescLongname
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescLongname
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.longname"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:longname"
})
#endif
getEngineDescName :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescName :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescName o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescName" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"name"
constructEngineDescName :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescName :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescNamePropertyInfo
instance AttrInfo EngineDescNamePropertyInfo where
type AttrAllowedOps EngineDescNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescNamePropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescNamePropertyInfo = (~) T.Text
type AttrTransferType EngineDescNamePropertyInfo = T.Text
type AttrGetType EngineDescNamePropertyInfo = T.Text
type AttrLabel EngineDescNamePropertyInfo = "name"
type AttrOrigin EngineDescNamePropertyInfo = EngineDesc
attrGet = getEngineDescName
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.name"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:name"
})
#endif
getEngineDescRank :: (MonadIO m, IsEngineDesc o) => o -> m Word32
getEngineDescRank :: forall (m :: * -> *) o.
(MonadIO m, IsEngineDesc o) =>
o -> m Word32
getEngineDescRank o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"rank"
constructEngineDescRank :: (IsEngineDesc o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructEngineDescRank :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructEngineDescRank Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"rank" Word32
val
#if defined(ENABLE_OVERLOADING)
data EngineDescRankPropertyInfo
instance AttrInfo EngineDescRankPropertyInfo where
type AttrAllowedOps EngineDescRankPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EngineDescRankPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescRankPropertyInfo = (~) Word32
type AttrTransferTypeConstraint EngineDescRankPropertyInfo = (~) Word32
type AttrTransferType EngineDescRankPropertyInfo = Word32
type AttrGetType EngineDescRankPropertyInfo = Word32
type AttrLabel EngineDescRankPropertyInfo = "rank"
type AttrOrigin EngineDescRankPropertyInfo = EngineDesc
attrGet = getEngineDescRank
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescRank
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.rank"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:rank"
})
#endif
getEngineDescSetup :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescSetup :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescSetup o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescSetup" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"setup"
constructEngineDescSetup :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescSetup :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescSetup Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"setup" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescSetupPropertyInfo
instance AttrInfo EngineDescSetupPropertyInfo where
type AttrAllowedOps EngineDescSetupPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescSetupPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescSetupPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescSetupPropertyInfo = (~) T.Text
type AttrTransferType EngineDescSetupPropertyInfo = T.Text
type AttrGetType EngineDescSetupPropertyInfo = T.Text
type AttrLabel EngineDescSetupPropertyInfo = "setup"
type AttrOrigin EngineDescSetupPropertyInfo = EngineDesc
attrGet = getEngineDescSetup
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescSetup
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.setup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:setup"
})
#endif
getEngineDescSymbol :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescSymbol :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescSymbol o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescSymbol" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"symbol"
constructEngineDescSymbol :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescSymbol :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescSymbol Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"symbol" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescSymbolPropertyInfo
instance AttrInfo EngineDescSymbolPropertyInfo where
type AttrAllowedOps EngineDescSymbolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescSymbolPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescSymbolPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescSymbolPropertyInfo = (~) T.Text
type AttrTransferType EngineDescSymbolPropertyInfo = T.Text
type AttrGetType EngineDescSymbolPropertyInfo = T.Text
type AttrLabel EngineDescSymbolPropertyInfo = "symbol"
type AttrOrigin EngineDescSymbolPropertyInfo = EngineDesc
attrGet = getEngineDescSymbol
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescSymbol
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.symbol"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:symbol"
})
#endif
getEngineDescTextdomain :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescTextdomain :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescTextdomain o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescTextdomain" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"textdomain"
constructEngineDescTextdomain :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescTextdomain :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescTextdomain Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"textdomain" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescTextdomainPropertyInfo
instance AttrInfo EngineDescTextdomainPropertyInfo where
type AttrAllowedOps EngineDescTextdomainPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescTextdomainPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescTextdomainPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescTextdomainPropertyInfo = (~) T.Text
type AttrTransferType EngineDescTextdomainPropertyInfo = T.Text
type AttrGetType EngineDescTextdomainPropertyInfo = T.Text
type AttrLabel EngineDescTextdomainPropertyInfo = "textdomain"
type AttrOrigin EngineDescTextdomainPropertyInfo = EngineDesc
attrGet = getEngineDescTextdomain
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescTextdomain
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.textdomain"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:textdomain"
})
#endif
getEngineDescVersion :: (MonadIO m, IsEngineDesc o) => o -> m T.Text
getEngineDescVersion :: forall (m :: * -> *) o. (MonadIO m, IsEngineDesc o) => o -> m Text
getEngineDescVersion o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getEngineDescVersion" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"version"
constructEngineDescVersion :: (IsEngineDesc o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructEngineDescVersion :: forall o (m :: * -> *).
(IsEngineDesc o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructEngineDescVersion Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"version" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EngineDescVersionPropertyInfo
instance AttrInfo EngineDescVersionPropertyInfo where
type AttrAllowedOps EngineDescVersionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EngineDescVersionPropertyInfo = IsEngineDesc
type AttrSetTypeConstraint EngineDescVersionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EngineDescVersionPropertyInfo = (~) T.Text
type AttrTransferType EngineDescVersionPropertyInfo = T.Text
type AttrGetType EngineDescVersionPropertyInfo = T.Text
type AttrLabel EngineDescVersionPropertyInfo = "version"
type AttrOrigin EngineDescVersionPropertyInfo = EngineDesc
attrGet = getEngineDescVersion
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructEngineDescVersion
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.version"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#g:attr:version"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EngineDesc
type instance O.AttributeList EngineDesc = EngineDescAttributeList
type EngineDescAttributeList = ('[ '("author", EngineDescAuthorPropertyInfo), '("description", EngineDescDescriptionPropertyInfo), '("hotkeys", EngineDescHotkeysPropertyInfo), '("icon", EngineDescIconPropertyInfo), '("iconPropKey", EngineDescIconPropKeyPropertyInfo), '("language", EngineDescLanguagePropertyInfo), '("layout", EngineDescLayoutPropertyInfo), '("layoutOption", EngineDescLayoutOptionPropertyInfo), '("layoutVariant", EngineDescLayoutVariantPropertyInfo), '("license", EngineDescLicensePropertyInfo), '("longname", EngineDescLongnamePropertyInfo), '("name", EngineDescNamePropertyInfo), '("rank", EngineDescRankPropertyInfo), '("setup", EngineDescSetupPropertyInfo), '("symbol", EngineDescSymbolPropertyInfo), '("textdomain", EngineDescTextdomainPropertyInfo), '("version", EngineDescVersionPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
engineDescAuthor :: AttrLabelProxy "author"
engineDescAuthor = AttrLabelProxy
engineDescDescription :: AttrLabelProxy "description"
engineDescDescription = AttrLabelProxy
engineDescHotkeys :: AttrLabelProxy "hotkeys"
engineDescHotkeys = AttrLabelProxy
engineDescIcon :: AttrLabelProxy "icon"
engineDescIcon = AttrLabelProxy
engineDescIconPropKey :: AttrLabelProxy "iconPropKey"
engineDescIconPropKey = AttrLabelProxy
engineDescLanguage :: AttrLabelProxy "language"
engineDescLanguage = AttrLabelProxy
engineDescLayout :: AttrLabelProxy "layout"
engineDescLayout = AttrLabelProxy
engineDescLayoutOption :: AttrLabelProxy "layoutOption"
engineDescLayoutOption = AttrLabelProxy
engineDescLayoutVariant :: AttrLabelProxy "layoutVariant"
engineDescLayoutVariant = AttrLabelProxy
engineDescLicense :: AttrLabelProxy "license"
engineDescLicense = AttrLabelProxy
engineDescLongname :: AttrLabelProxy "longname"
engineDescLongname = AttrLabelProxy
engineDescName :: AttrLabelProxy "name"
engineDescName = AttrLabelProxy
engineDescRank :: AttrLabelProxy "rank"
engineDescRank = AttrLabelProxy
engineDescSetup :: AttrLabelProxy "setup"
engineDescSetup = AttrLabelProxy
engineDescSymbol :: AttrLabelProxy "symbol"
engineDescSymbol = AttrLabelProxy
engineDescTextdomain :: AttrLabelProxy "textdomain"
engineDescTextdomain = AttrLabelProxy
engineDescVersion :: AttrLabelProxy "version"
engineDescVersion = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList EngineDesc = EngineDescSignalList
type EngineDescSignalList = ('[ '("destroy", IBus.Object.ObjectDestroySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ibus_engine_desc_new" ibus_engine_desc_new ::
CString ->
CString ->
CString ->
CString ->
CString ->
CString ->
CString ->
CString ->
IO (Ptr EngineDesc)
engineDescNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> T.Text
-> T.Text
-> T.Text
-> T.Text
-> T.Text
-> T.Text
-> T.Text
-> m EngineDesc
engineDescNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> m EngineDesc
engineDescNew Text
name Text
longname Text
description Text
language Text
license Text
author Text
icon Text
layout = IO EngineDesc -> m EngineDesc
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EngineDesc -> m EngineDesc) -> IO EngineDesc -> m EngineDesc
forall a b. (a -> b) -> a -> b
$ do
CString
name' <- Text -> IO CString
textToCString Text
name
CString
longname' <- Text -> IO CString
textToCString Text
longname
CString
description' <- Text -> IO CString
textToCString Text
description
CString
language' <- Text -> IO CString
textToCString Text
language
CString
license' <- Text -> IO CString
textToCString Text
license
CString
author' <- Text -> IO CString
textToCString Text
author
CString
icon' <- Text -> IO CString
textToCString Text
icon
CString
layout' <- Text -> IO CString
textToCString Text
layout
Ptr EngineDesc
result <- CString
-> CString
-> CString
-> CString
-> CString
-> CString
-> CString
-> CString
-> IO (Ptr EngineDesc)
ibus_engine_desc_new CString
name' CString
longname' CString
description' CString
language' CString
license' CString
author' CString
icon' CString
layout'
Text -> Ptr EngineDesc -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescNew" Ptr EngineDesc
result
EngineDesc
result' <- ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr EngineDesc -> EngineDesc
EngineDesc) Ptr EngineDesc
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
longname'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
description'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
language'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
license'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
author'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
icon'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
layout'
EngineDesc -> IO EngineDesc
forall (m :: * -> *) a. Monad m => a -> m a
return EngineDesc
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ibus_engine_desc_new_from_xml_node" ibus_engine_desc_new_from_xml_node ::
Ptr IBus.XML.XML ->
IO (Ptr EngineDesc)
engineDescNewFromXmlNode ::
(B.CallStack.HasCallStack, MonadIO m) =>
IBus.XML.XML
-> m EngineDesc
engineDescNewFromXmlNode :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
XML -> m EngineDesc
engineDescNewFromXmlNode XML
node = IO EngineDesc -> m EngineDesc
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EngineDesc -> m EngineDesc) -> IO EngineDesc -> m EngineDesc
forall a b. (a -> b) -> a -> b
$ do
Ptr XML
node' <- XML -> IO (Ptr XML)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr XML
node
Ptr EngineDesc
result <- Ptr XML -> IO (Ptr EngineDesc)
ibus_engine_desc_new_from_xml_node Ptr XML
node'
Text -> Ptr EngineDesc -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescNewFromXmlNode" Ptr EngineDesc
result
EngineDesc
result' <- ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr EngineDesc -> EngineDesc
EngineDesc) Ptr EngineDesc
result
XML -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr XML
node
EngineDesc -> IO EngineDesc
forall (m :: * -> *) a. Monad m => a -> m a
return EngineDesc
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ibus_engine_desc_get_author" ibus_engine_desc_get_author ::
Ptr EngineDesc ->
IO CString
engineDescGetAuthor ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetAuthor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetAuthor a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_author Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetAuthor" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetAuthorMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetAuthorMethodInfo a signature where
overloadedMethod = engineDescGetAuthor
instance O.OverloadedMethodInfo EngineDescGetAuthorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetAuthor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetAuthor"
})
#endif
foreign import ccall "ibus_engine_desc_get_description" ibus_engine_desc_get_description ::
Ptr EngineDesc ->
IO CString
engineDescGetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetDescription a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_description Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetDescription" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetDescriptionMethodInfo a signature where
overloadedMethod = engineDescGetDescription
instance O.OverloadedMethodInfo EngineDescGetDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetDescription"
})
#endif
foreign import ccall "ibus_engine_desc_get_hotkeys" ibus_engine_desc_get_hotkeys ::
Ptr EngineDesc ->
IO CString
engineDescGetHotkeys ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetHotkeys :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetHotkeys a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_hotkeys Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetHotkeys" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetHotkeysMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetHotkeysMethodInfo a signature where
overloadedMethod = engineDescGetHotkeys
instance O.OverloadedMethodInfo EngineDescGetHotkeysMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetHotkeys",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetHotkeys"
})
#endif
foreign import ccall "ibus_engine_desc_get_icon" ibus_engine_desc_get_icon ::
Ptr EngineDesc ->
IO CString
engineDescGetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetIcon a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_icon Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetIcon" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetIconMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetIconMethodInfo a signature where
overloadedMethod = engineDescGetIcon
instance O.OverloadedMethodInfo EngineDescGetIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetIcon"
})
#endif
foreign import ccall "ibus_engine_desc_get_icon_prop_key" ibus_engine_desc_get_icon_prop_key ::
Ptr EngineDesc ->
IO CString
engineDescGetIconPropKey ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetIconPropKey :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetIconPropKey a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_icon_prop_key Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetIconPropKey" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetIconPropKeyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetIconPropKeyMethodInfo a signature where
overloadedMethod = engineDescGetIconPropKey
instance O.OverloadedMethodInfo EngineDescGetIconPropKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetIconPropKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetIconPropKey"
})
#endif
foreign import ccall "ibus_engine_desc_get_language" ibus_engine_desc_get_language ::
Ptr EngineDesc ->
IO CString
engineDescGetLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetLanguage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetLanguage a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_language Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetLanguage" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetLanguageMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetLanguageMethodInfo a signature where
overloadedMethod = engineDescGetLanguage
instance O.OverloadedMethodInfo EngineDescGetLanguageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetLanguage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetLanguage"
})
#endif
foreign import ccall "ibus_engine_desc_get_layout" ibus_engine_desc_get_layout ::
Ptr EngineDesc ->
IO CString
engineDescGetLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetLayout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetLayout a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_layout Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetLayout" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetLayoutMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetLayoutMethodInfo a signature where
overloadedMethod = engineDescGetLayout
instance O.OverloadedMethodInfo EngineDescGetLayoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetLayout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetLayout"
})
#endif
foreign import ccall "ibus_engine_desc_get_layout_option" ibus_engine_desc_get_layout_option ::
Ptr EngineDesc ->
IO CString
engineDescGetLayoutOption ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetLayoutOption :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetLayoutOption a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_layout_option Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetLayoutOption" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetLayoutOptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetLayoutOptionMethodInfo a signature where
overloadedMethod = engineDescGetLayoutOption
instance O.OverloadedMethodInfo EngineDescGetLayoutOptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetLayoutOption",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetLayoutOption"
})
#endif
foreign import ccall "ibus_engine_desc_get_layout_variant" ibus_engine_desc_get_layout_variant ::
Ptr EngineDesc ->
IO CString
engineDescGetLayoutVariant ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetLayoutVariant :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetLayoutVariant a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_layout_variant Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetLayoutVariant" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetLayoutVariantMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetLayoutVariantMethodInfo a signature where
overloadedMethod = engineDescGetLayoutVariant
instance O.OverloadedMethodInfo EngineDescGetLayoutVariantMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetLayoutVariant",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetLayoutVariant"
})
#endif
foreign import ccall "ibus_engine_desc_get_license" ibus_engine_desc_get_license ::
Ptr EngineDesc ->
IO CString
engineDescGetLicense ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetLicense :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetLicense a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_license Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetLicense" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetLicenseMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetLicenseMethodInfo a signature where
overloadedMethod = engineDescGetLicense
instance O.OverloadedMethodInfo EngineDescGetLicenseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetLicense",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetLicense"
})
#endif
foreign import ccall "ibus_engine_desc_get_longname" ibus_engine_desc_get_longname ::
Ptr EngineDesc ->
IO CString
engineDescGetLongname ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetLongname :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetLongname a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_longname Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetLongname" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetLongnameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetLongnameMethodInfo a signature where
overloadedMethod = engineDescGetLongname
instance O.OverloadedMethodInfo EngineDescGetLongnameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetLongname",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetLongname"
})
#endif
foreign import ccall "ibus_engine_desc_get_name" ibus_engine_desc_get_name ::
Ptr EngineDesc ->
IO CString
engineDescGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetName a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_name Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetNameMethodInfo a signature where
overloadedMethod = engineDescGetName
instance O.OverloadedMethodInfo EngineDescGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetName"
})
#endif
foreign import ccall "ibus_engine_desc_get_rank" ibus_engine_desc_get_rank ::
Ptr EngineDesc ->
IO Word32
engineDescGetRank ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m Word32
engineDescGetRank :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Word32
engineDescGetRank a
info = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Word32
result <- Ptr EngineDesc -> IO Word32
ibus_engine_desc_get_rank Ptr EngineDesc
info'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data EngineDescGetRankMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetRankMethodInfo a signature where
overloadedMethod = engineDescGetRank
instance O.OverloadedMethodInfo EngineDescGetRankMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetRank",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetRank"
})
#endif
foreign import ccall "ibus_engine_desc_get_setup" ibus_engine_desc_get_setup ::
Ptr EngineDesc ->
IO CString
engineDescGetSetup ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetSetup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetSetup a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_setup Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetSetup" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetSetupMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetSetupMethodInfo a signature where
overloadedMethod = engineDescGetSetup
instance O.OverloadedMethodInfo EngineDescGetSetupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetSetup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetSetup"
})
#endif
foreign import ccall "ibus_engine_desc_get_symbol" ibus_engine_desc_get_symbol ::
Ptr EngineDesc ->
IO CString
engineDescGetSymbol ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetSymbol :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetSymbol a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_symbol Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetSymbol" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetSymbolMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetSymbolMethodInfo a signature where
overloadedMethod = engineDescGetSymbol
instance O.OverloadedMethodInfo EngineDescGetSymbolMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetSymbol",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetSymbol"
})
#endif
foreign import ccall "ibus_engine_desc_get_textdomain" ibus_engine_desc_get_textdomain ::
Ptr EngineDesc ->
IO CString
engineDescGetTextdomain ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetTextdomain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetTextdomain a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_textdomain Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetTextdomain" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetTextdomainMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetTextdomainMethodInfo a signature where
overloadedMethod = engineDescGetTextdomain
instance O.OverloadedMethodInfo EngineDescGetTextdomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetTextdomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetTextdomain"
})
#endif
foreign import ccall "ibus_engine_desc_get_version" ibus_engine_desc_get_version ::
Ptr EngineDesc ->
IO CString
engineDescGetVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> m T.Text
engineDescGetVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> m Text
engineDescGetVersion a
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr EngineDesc -> IO CString
ibus_engine_desc_get_version Ptr EngineDesc
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"engineDescGetVersion" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EngineDescGetVersionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescGetVersionMethodInfo a signature where
overloadedMethod = engineDescGetVersion
instance O.OverloadedMethodInfo EngineDescGetVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescGetVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescGetVersion"
})
#endif
foreign import ccall "ibus_engine_desc_output" ibus_engine_desc_output ::
Ptr EngineDesc ->
Ptr GLib.String.String ->
Int32 ->
IO ()
engineDescOutput ::
(B.CallStack.HasCallStack, MonadIO m, IsEngineDesc a) =>
a
-> GLib.String.String
-> Int32
-> m ()
engineDescOutput :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEngineDesc a) =>
a -> String -> Int32 -> m ()
engineDescOutput a
info String
output Int32
indent = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EngineDesc
info' <- a -> IO (Ptr EngineDesc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Ptr String
output' <- String -> IO (Ptr String)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr String
output
Ptr EngineDesc -> Ptr String -> Int32 -> IO ()
ibus_engine_desc_output Ptr EngineDesc
info' Ptr String
output' Int32
indent
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
String -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr String
output
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EngineDescOutputMethodInfo
instance (signature ~ (GLib.String.String -> Int32 -> m ()), MonadIO m, IsEngineDesc a) => O.OverloadedMethod EngineDescOutputMethodInfo a signature where
overloadedMethod = engineDescOutput
instance O.OverloadedMethodInfo EngineDescOutputMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.IBus.Objects.EngineDesc.engineDescOutput",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.4/docs/GI-IBus-Objects-EngineDesc.html#v:engineDescOutput"
})
#endif