#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Objects.FilenameCompleter
(
FilenameCompleter(..) ,
IsFilenameCompleter ,
toFilenameCompleter ,
noFilenameCompleter ,
#if ENABLE_OVERLOADING
FilenameCompleterGetCompletionSuffixMethodInfo,
#endif
filenameCompleterGetCompletionSuffix ,
#if ENABLE_OVERLOADING
FilenameCompleterGetCompletionsMethodInfo,
#endif
filenameCompleterGetCompletions ,
filenameCompleterNew ,
#if ENABLE_OVERLOADING
FilenameCompleterSetDirsOnlyMethodInfo ,
#endif
filenameCompleterSetDirsOnly ,
C_FilenameCompleterGotCompletionDataCallback,
FilenameCompleterGotCompletionDataCallback,
#if ENABLE_OVERLOADING
FilenameCompleterGotCompletionDataSignalInfo,
#endif
afterFilenameCompleterGotCompletionData ,
genClosure_FilenameCompleterGotCompletionData,
mk_FilenameCompleterGotCompletionDataCallback,
noFilenameCompleterGotCompletionDataCallback,
onFilenameCompleterGotCompletionData ,
wrap_FilenameCompleterGotCompletionDataCallback,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
newtype FilenameCompleter = FilenameCompleter (ManagedPtr FilenameCompleter)
foreign import ccall "g_filename_completer_get_type"
c_g_filename_completer_get_type :: IO GType
instance GObject FilenameCompleter where
gobjectType :: FilenameCompleter -> IO GType
gobjectType _ = IO GType
c_g_filename_completer_get_type
class GObject o => IsFilenameCompleter o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError FilenameCompleter a) =>
IsFilenameCompleter a
#endif
instance IsFilenameCompleter FilenameCompleter
instance GObject.Object.IsObject FilenameCompleter
toFilenameCompleter :: (MonadIO m, IsFilenameCompleter o) => o -> m FilenameCompleter
toFilenameCompleter :: o -> m FilenameCompleter
toFilenameCompleter = IO FilenameCompleter -> m FilenameCompleter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FilenameCompleter -> m FilenameCompleter)
-> (o -> IO FilenameCompleter) -> o -> m FilenameCompleter
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FilenameCompleter -> FilenameCompleter)
-> o -> IO FilenameCompleter
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr FilenameCompleter -> FilenameCompleter
FilenameCompleter
noFilenameCompleter :: Maybe FilenameCompleter
noFilenameCompleter :: Maybe FilenameCompleter
noFilenameCompleter = Maybe FilenameCompleter
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type family ResolveFilenameCompleterMethod (t :: Symbol) (o :: *) :: * where
ResolveFilenameCompleterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFilenameCompleterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFilenameCompleterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFilenameCompleterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFilenameCompleterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFilenameCompleterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFilenameCompleterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFilenameCompleterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFilenameCompleterMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFilenameCompleterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFilenameCompleterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFilenameCompleterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFilenameCompleterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFilenameCompleterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFilenameCompleterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFilenameCompleterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFilenameCompleterMethod "getCompletionSuffix" o = FilenameCompleterGetCompletionSuffixMethodInfo
ResolveFilenameCompleterMethod "getCompletions" o = FilenameCompleterGetCompletionsMethodInfo
ResolveFilenameCompleterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFilenameCompleterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFilenameCompleterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFilenameCompleterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFilenameCompleterMethod "setDirsOnly" o = FilenameCompleterSetDirsOnlyMethodInfo
ResolveFilenameCompleterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFilenameCompleterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFilenameCompleterMethod t FilenameCompleter, O.MethodInfo info FilenameCompleter p) => O.IsLabelProxy t (FilenameCompleter -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveFilenameCompleterMethod t FilenameCompleter, O.MethodInfo info FilenameCompleter p) => O.IsLabel t (FilenameCompleter -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
type FilenameCompleterGotCompletionDataCallback =
IO ()
noFilenameCompleterGotCompletionDataCallback :: Maybe FilenameCompleterGotCompletionDataCallback
noFilenameCompleterGotCompletionDataCallback :: Maybe FilenameCompleterGotCompletionDataCallback
noFilenameCompleterGotCompletionDataCallback = Maybe FilenameCompleterGotCompletionDataCallback
forall a. Maybe a
Nothing
type C_FilenameCompleterGotCompletionDataCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FilenameCompleterGotCompletionDataCallback :: C_FilenameCompleterGotCompletionDataCallback -> IO (FunPtr C_FilenameCompleterGotCompletionDataCallback)
genClosure_FilenameCompleterGotCompletionData :: FilenameCompleterGotCompletionDataCallback -> IO Closure
genClosure_FilenameCompleterGotCompletionData :: FilenameCompleterGotCompletionDataCallback -> IO Closure
genClosure_FilenameCompleterGotCompletionData cb :: FilenameCompleterGotCompletionDataCallback
cb = do
let cb' :: C_FilenameCompleterGotCompletionDataCallback
cb' = FilenameCompleterGotCompletionDataCallback
-> C_FilenameCompleterGotCompletionDataCallback
wrap_FilenameCompleterGotCompletionDataCallback FilenameCompleterGotCompletionDataCallback
cb
C_FilenameCompleterGotCompletionDataCallback
-> IO (FunPtr C_FilenameCompleterGotCompletionDataCallback)
mk_FilenameCompleterGotCompletionDataCallback C_FilenameCompleterGotCompletionDataCallback
cb' IO (FunPtr C_FilenameCompleterGotCompletionDataCallback)
-> (FunPtr C_FilenameCompleterGotCompletionDataCallback
-> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FilenameCompleterGotCompletionDataCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_FilenameCompleterGotCompletionDataCallback ::
FilenameCompleterGotCompletionDataCallback ->
C_FilenameCompleterGotCompletionDataCallback
wrap_FilenameCompleterGotCompletionDataCallback :: FilenameCompleterGotCompletionDataCallback
-> C_FilenameCompleterGotCompletionDataCallback
wrap_FilenameCompleterGotCompletionDataCallback _cb :: FilenameCompleterGotCompletionDataCallback
_cb _ _ = do
FilenameCompleterGotCompletionDataCallback
_cb
onFilenameCompleterGotCompletionData :: (IsFilenameCompleter a, MonadIO m) => a -> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId
onFilenameCompleterGotCompletionData :: a
-> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId
onFilenameCompleterGotCompletionData obj :: a
obj cb :: FilenameCompleterGotCompletionDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FilenameCompleterGotCompletionDataCallback
cb' = FilenameCompleterGotCompletionDataCallback
-> C_FilenameCompleterGotCompletionDataCallback
wrap_FilenameCompleterGotCompletionDataCallback FilenameCompleterGotCompletionDataCallback
cb
FunPtr C_FilenameCompleterGotCompletionDataCallback
cb'' <- C_FilenameCompleterGotCompletionDataCallback
-> IO (FunPtr C_FilenameCompleterGotCompletionDataCallback)
mk_FilenameCompleterGotCompletionDataCallback C_FilenameCompleterGotCompletionDataCallback
cb'
a
-> String
-> FunPtr C_FilenameCompleterGotCompletionDataCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "got-completion-data" FunPtr C_FilenameCompleterGotCompletionDataCallback
cb'' SignalConnectMode
SignalConnectBefore
afterFilenameCompleterGotCompletionData :: (IsFilenameCompleter a, MonadIO m) => a -> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId
afterFilenameCompleterGotCompletionData :: a
-> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId
afterFilenameCompleterGotCompletionData obj :: a
obj cb :: FilenameCompleterGotCompletionDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FilenameCompleterGotCompletionDataCallback
cb' = FilenameCompleterGotCompletionDataCallback
-> C_FilenameCompleterGotCompletionDataCallback
wrap_FilenameCompleterGotCompletionDataCallback FilenameCompleterGotCompletionDataCallback
cb
FunPtr C_FilenameCompleterGotCompletionDataCallback
cb'' <- C_FilenameCompleterGotCompletionDataCallback
-> IO (FunPtr C_FilenameCompleterGotCompletionDataCallback)
mk_FilenameCompleterGotCompletionDataCallback C_FilenameCompleterGotCompletionDataCallback
cb'
a
-> String
-> FunPtr C_FilenameCompleterGotCompletionDataCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "got-completion-data" FunPtr C_FilenameCompleterGotCompletionDataCallback
cb'' SignalConnectMode
SignalConnectAfter
#if ENABLE_OVERLOADING
instance O.HasAttributeList FilenameCompleter
type instance O.AttributeList FilenameCompleter = FilenameCompleterAttributeList
type FilenameCompleterAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
data FilenameCompleterGotCompletionDataSignalInfo
instance SignalInfo FilenameCompleterGotCompletionDataSignalInfo where
type HaskellCallbackType FilenameCompleterGotCompletionDataSignalInfo = FilenameCompleterGotCompletionDataCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FilenameCompleterGotCompletionDataCallback cb
cb'' <- mk_FilenameCompleterGotCompletionDataCallback cb'
connectSignalFunPtr obj "got-completion-data" cb'' connectMode
type instance O.SignalList FilenameCompleter = FilenameCompleterSignalList
type FilenameCompleterSignalList = ('[ '("gotCompletionData", FilenameCompleterGotCompletionDataSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_filename_completer_new" g_filename_completer_new ::
IO (Ptr FilenameCompleter)
filenameCompleterNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m FilenameCompleter
filenameCompleterNew :: m FilenameCompleter
filenameCompleterNew = IO FilenameCompleter -> m FilenameCompleter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FilenameCompleter -> m FilenameCompleter)
-> IO FilenameCompleter -> m FilenameCompleter
forall a b. (a -> b) -> a -> b
$ do
Ptr FilenameCompleter
result <- IO (Ptr FilenameCompleter)
g_filename_completer_new
Text
-> Ptr FilenameCompleter
-> FilenameCompleterGotCompletionDataCallback
forall a.
HasCallStack =>
Text -> Ptr a -> FilenameCompleterGotCompletionDataCallback
checkUnexpectedReturnNULL "filenameCompleterNew" Ptr FilenameCompleter
result
FilenameCompleter
result' <- ((ManagedPtr FilenameCompleter -> FilenameCompleter)
-> Ptr FilenameCompleter -> IO FilenameCompleter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr FilenameCompleter -> FilenameCompleter
FilenameCompleter) Ptr FilenameCompleter
result
FilenameCompleter -> IO FilenameCompleter
forall (m :: * -> *) a. Monad m => a -> m a
return FilenameCompleter
result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "g_filename_completer_get_completion_suffix" g_filename_completer_get_completion_suffix ::
Ptr FilenameCompleter ->
CString ->
IO CString
filenameCompleterGetCompletionSuffix ::
(B.CallStack.HasCallStack, MonadIO m, IsFilenameCompleter a) =>
a
-> T.Text
-> m T.Text
filenameCompleterGetCompletionSuffix :: a -> Text -> m Text
filenameCompleterGetCompletionSuffix completer :: a
completer initialText :: Text
initialText = 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 FilenameCompleter
completer' <- a -> IO (Ptr FilenameCompleter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completer
CString
initialText' <- Text -> IO CString
textToCString Text
initialText
CString
result <- Ptr FilenameCompleter -> CString -> IO CString
g_filename_completer_get_completion_suffix Ptr FilenameCompleter
completer' CString
initialText'
Text -> CString -> FilenameCompleterGotCompletionDataCallback
forall a.
HasCallStack =>
Text -> Ptr a -> FilenameCompleterGotCompletionDataCallback
checkUnexpectedReturnNULL "filenameCompleterGetCompletionSuffix" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> FilenameCompleterGotCompletionDataCallback
forall a. Ptr a -> FilenameCompleterGotCompletionDataCallback
freeMem CString
result
a -> FilenameCompleterGotCompletionDataCallback
forall a.
ManagedPtrNewtype a =>
a -> FilenameCompleterGotCompletionDataCallback
touchManagedPtr a
completer
CString -> FilenameCompleterGotCompletionDataCallback
forall a. Ptr a -> FilenameCompleterGotCompletionDataCallback
freeMem CString
initialText'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data FilenameCompleterGetCompletionSuffixMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsFilenameCompleter a) => O.MethodInfo FilenameCompleterGetCompletionSuffixMethodInfo a signature where
overloadedMethod _ = filenameCompleterGetCompletionSuffix
#endif
foreign import ccall "g_filename_completer_get_completions" g_filename_completer_get_completions ::
Ptr FilenameCompleter ->
CString ->
IO (Ptr CString)
filenameCompleterGetCompletions ::
(B.CallStack.HasCallStack, MonadIO m, IsFilenameCompleter a) =>
a
-> T.Text
-> m [T.Text]
filenameCompleterGetCompletions :: a -> Text -> m [Text]
filenameCompleterGetCompletions completer :: a
completer initialText :: Text
initialText = 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 FilenameCompleter
completer' <- a -> IO (Ptr FilenameCompleter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completer
CString
initialText' <- Text -> IO CString
textToCString Text
initialText
Ptr CString
result <- Ptr FilenameCompleter -> CString -> IO (Ptr CString)
g_filename_completer_get_completions Ptr FilenameCompleter
completer' CString
initialText'
Text -> Ptr CString -> FilenameCompleterGotCompletionDataCallback
forall a.
HasCallStack =>
Text -> Ptr a -> FilenameCompleterGotCompletionDataCallback
checkUnexpectedReturnNULL "filenameCompleterGetCompletions" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result
(CString -> FilenameCompleterGotCompletionDataCallback)
-> Ptr CString -> FilenameCompleterGotCompletionDataCallback
forall a b.
(Ptr a -> IO b)
-> Ptr (Ptr a) -> FilenameCompleterGotCompletionDataCallback
mapZeroTerminatedCArray CString -> FilenameCompleterGotCompletionDataCallback
forall a. Ptr a -> FilenameCompleterGotCompletionDataCallback
freeMem Ptr CString
result
Ptr CString -> FilenameCompleterGotCompletionDataCallback
forall a. Ptr a -> FilenameCompleterGotCompletionDataCallback
freeMem Ptr CString
result
a -> FilenameCompleterGotCompletionDataCallback
forall a.
ManagedPtrNewtype a =>
a -> FilenameCompleterGotCompletionDataCallback
touchManagedPtr a
completer
CString -> FilenameCompleterGotCompletionDataCallback
forall a. Ptr a -> FilenameCompleterGotCompletionDataCallback
freeMem CString
initialText'
[Text] -> IO [Text]
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if ENABLE_OVERLOADING
data FilenameCompleterGetCompletionsMethodInfo
instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsFilenameCompleter a) => O.MethodInfo FilenameCompleterGetCompletionsMethodInfo a signature where
overloadedMethod _ = filenameCompleterGetCompletions
#endif
foreign import ccall "g_filename_completer_set_dirs_only" g_filename_completer_set_dirs_only ::
Ptr FilenameCompleter ->
CInt ->
IO ()
filenameCompleterSetDirsOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsFilenameCompleter a) =>
a
-> Bool
-> m ()
filenameCompleterSetDirsOnly :: a -> Bool -> m ()
filenameCompleterSetDirsOnly completer :: a
completer dirsOnly :: Bool
dirsOnly = FilenameCompleterGotCompletionDataCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (FilenameCompleterGotCompletionDataCallback -> m ())
-> FilenameCompleterGotCompletionDataCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr FilenameCompleter
completer' <- a -> IO (Ptr FilenameCompleter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completer
let dirsOnly' :: CInt
dirsOnly' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
dirsOnly
Ptr FilenameCompleter
-> CInt -> FilenameCompleterGotCompletionDataCallback
g_filename_completer_set_dirs_only Ptr FilenameCompleter
completer' CInt
dirsOnly'
a -> FilenameCompleterGotCompletionDataCallback
forall a.
ManagedPtrNewtype a =>
a -> FilenameCompleterGotCompletionDataCallback
touchManagedPtr a
completer
() -> FilenameCompleterGotCompletionDataCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data FilenameCompleterSetDirsOnlyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFilenameCompleter a) => O.MethodInfo FilenameCompleterSetDirsOnlyMethodInfo a signature where
overloadedMethod _ = filenameCompleterSetDirsOnly
#endif