module GI.Gio.Interfaces.DesktopAppInfoLookup
(
DesktopAppInfoLookup(..) ,
noDesktopAppInfoLookup ,
DesktopAppInfoLookupK ,
toDesktopAppInfoLookup ,
desktopAppInfoLookupGetDefaultForUriScheme,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype DesktopAppInfoLookup = DesktopAppInfoLookup (ForeignPtr DesktopAppInfoLookup)
noDesktopAppInfoLookup :: Maybe DesktopAppInfoLookup
noDesktopAppInfoLookup = Nothing
type instance AttributeList DesktopAppInfoLookup = DesktopAppInfoLookupAttributeList
type DesktopAppInfoLookupAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList DesktopAppInfoLookup = DesktopAppInfoLookupSignalList
type DesktopAppInfoLookupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_desktop_app_info_lookup_get_type"
c_g_desktop_app_info_lookup_get_type :: IO GType
type instance ParentTypes DesktopAppInfoLookup = DesktopAppInfoLookupParentTypes
type DesktopAppInfoLookupParentTypes = '[GObject.Object]
instance GObject DesktopAppInfoLookup where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_desktop_app_info_lookup_get_type
class GObject o => DesktopAppInfoLookupK o
instance (GObject o, IsDescendantOf DesktopAppInfoLookup o) => DesktopAppInfoLookupK o
toDesktopAppInfoLookup :: DesktopAppInfoLookupK o => o -> IO DesktopAppInfoLookup
toDesktopAppInfoLookup = unsafeCastTo DesktopAppInfoLookup
foreign import ccall "g_desktop_app_info_lookup_get_default_for_uri_scheme" g_desktop_app_info_lookup_get_default_for_uri_scheme ::
Ptr DesktopAppInfoLookup ->
CString ->
IO (Ptr AppInfo)
desktopAppInfoLookupGetDefaultForUriScheme ::
(MonadIO m, DesktopAppInfoLookupK a) =>
a ->
T.Text ->
m AppInfo
desktopAppInfoLookupGetDefaultForUriScheme _obj uri_scheme = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri_scheme' <- textToCString uri_scheme
result <- g_desktop_app_info_lookup_get_default_for_uri_scheme _obj' uri_scheme'
checkUnexpectedReturnNULL "g_desktop_app_info_lookup_get_default_for_uri_scheme" result
result' <- (wrapObject AppInfo) result
touchManagedPtr _obj
freeMem uri_scheme'
return result'