module GI.WebKit2.Objects.Plugin
(
Plugin(..) ,
PluginK ,
toPlugin ,
noPlugin ,
pluginGetDescription ,
pluginGetMimeInfoList ,
pluginGetName ,
pluginGetPath ,
) 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.WebKit2.Types
import GI.WebKit2.Callbacks
import qualified GI.GObject as GObject
newtype Plugin = Plugin (ForeignPtr Plugin)
foreign import ccall "webkit_plugin_get_type"
c_webkit_plugin_get_type :: IO GType
type instance ParentTypes Plugin = PluginParentTypes
type PluginParentTypes = '[GObject.Object]
instance GObject Plugin where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_plugin_get_type
class GObject o => PluginK o
instance (GObject o, IsDescendantOf Plugin o) => PluginK o
toPlugin :: PluginK o => o -> IO Plugin
toPlugin = unsafeCastTo Plugin
noPlugin :: Maybe Plugin
noPlugin = Nothing
type instance AttributeList Plugin = PluginAttributeList
type PluginAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList Plugin = PluginSignalList
type PluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_plugin_get_description" webkit_plugin_get_description ::
Ptr Plugin ->
IO CString
pluginGetDescription ::
(MonadIO m, PluginK a) =>
a ->
m T.Text
pluginGetDescription _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_plugin_get_description _obj'
checkUnexpectedReturnNULL "webkit_plugin_get_description" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_plugin_get_mime_info_list" webkit_plugin_get_mime_info_list ::
Ptr Plugin ->
IO (Ptr (GList (Ptr MimeInfo)))
pluginGetMimeInfoList ::
(MonadIO m, PluginK a) =>
a ->
m [MimeInfo]
pluginGetMimeInfoList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_plugin_get_mime_info_list _obj'
checkUnexpectedReturnNULL "webkit_plugin_get_mime_info_list" result
result' <- unpackGList result
result'' <- mapM (newBoxed MimeInfo) result'
touchManagedPtr _obj
return result''
foreign import ccall "webkit_plugin_get_name" webkit_plugin_get_name ::
Ptr Plugin ->
IO CString
pluginGetName ::
(MonadIO m, PluginK a) =>
a ->
m T.Text
pluginGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_plugin_get_name _obj'
checkUnexpectedReturnNULL "webkit_plugin_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_plugin_get_path" webkit_plugin_get_path ::
Ptr Plugin ->
IO CString
pluginGetPath ::
(MonadIO m, PluginK a) =>
a ->
m T.Text
pluginGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_plugin_get_path _obj'
checkUnexpectedReturnNULL "webkit_plugin_get_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'