module Graphics.UI.Gtk.SourceView.SourceStyleScheme (
SourceStyleScheme,
castToSourceStyleScheme,
sourceStyleSchemeGetId,
sourceStyleSchemeGetName,
sourceStyleSchemeGetDescription,
sourceStyleSchemeGetAuthors,
sourceStyleSchemeGetFilename,
sourceStyleSchemeGetStyle,
sourceStyleSchemeDescription,
sourceStyleSchemeFilename,
sourceStyleSchemeId,
sourceStyleSchemeName,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.GObject (constructNewGObject)
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.SourceView.Types
import Graphics.UI.Gtk.SourceView.SourceStyle
import Graphics.UI.Gtk.SourceView.SourceStyle.Internal
sourceStyleSchemeGetId :: SourceStyleScheme -> IO String
sourceStyleSchemeGetId ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_id argPtr1) ss >>= peekUTFString
sourceStyleSchemeGetName :: SourceStyleScheme -> IO String
sourceStyleSchemeGetName ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_name argPtr1) ss >>= peekUTFString
sourceStyleSchemeGetDescription :: SourceStyleScheme -> IO String
sourceStyleSchemeGetDescription ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_description argPtr1) ss >>= peekUTFString
sourceStyleSchemeGetAuthors :: SourceStyleScheme -> IO [String]
sourceStyleSchemeGetAuthors ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_authors argPtr1) ss >>= peekUTFStringArray0
sourceStyleSchemeGetFilename :: SourceStyleScheme -> IO String
sourceStyleSchemeGetFilename ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_filename argPtr1) ss >>= peekUTFString
sourceStyleSchemeGetStyle :: SourceStyleScheme -> String -> IO SourceStyle
sourceStyleSchemeGetStyle ss id = do
styleObj <- makeNewGObject mkSourceStyleObject $
withUTFString id ((\(SourceStyleScheme arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_style argPtr1 arg2) ss)
sourceStyleFromObject styleObj
sourceStyleSchemeDescription :: ReadAttr SourceStyleScheme String
sourceStyleSchemeDescription = readAttrFromStringProperty "description"
sourceStyleSchemeFilename :: ReadAttr SourceStyleScheme FilePath
sourceStyleSchemeFilename = readAttrFromStringProperty "filename"
sourceStyleSchemeId :: ReadAttr SourceStyleScheme String
sourceStyleSchemeId = readAttrFromStringProperty "id"
sourceStyleSchemeName :: ReadAttr SourceStyleScheme String
sourceStyleSchemeName = readAttrFromStringProperty "name"
foreign import ccall safe "gtk_source_style_scheme_get_id"
gtk_source_style_scheme_get_id :: ((Ptr SourceStyleScheme) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_source_style_scheme_get_name"
gtk_source_style_scheme_get_name :: ((Ptr SourceStyleScheme) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_source_style_scheme_get_description"
gtk_source_style_scheme_get_description :: ((Ptr SourceStyleScheme) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_source_style_scheme_get_authors"
gtk_source_style_scheme_get_authors :: ((Ptr SourceStyleScheme) -> (IO (Ptr (Ptr CChar))))
foreign import ccall safe "gtk_source_style_scheme_get_filename"
gtk_source_style_scheme_get_filename :: ((Ptr SourceStyleScheme) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_source_style_scheme_get_style"
gtk_source_style_scheme_get_style :: ((Ptr SourceStyleScheme) -> ((Ptr CChar) -> (IO (Ptr SourceStyleObject))))