tianbar-1.0.0.0: src/System/Tianbar/Plugin/GSettings.hs

module System.Tianbar.Plugin.GSettings where

-- GSettings plugin

import Control.Monad.IO.Class

import System.Process

import System.Tianbar.Plugin
import System.Tianbar.RequestResponse

data GSettings = GSettings

instance Plugin GSettings where
    initialize = return GSettings

    handler = dir "gsettings" $
        path $ \schema ->
        path $ \key -> do
            nullDir
            setting <- liftIO $ gsettingsGet schema key
            stringResponse setting

gsettingsGet :: String -> String -> IO String
gsettingsGet schema key = do
    output <- readProcess "gsettings" ["get", schema, key] []
    let len = length output
    return $ drop 1 $ take (len - 2) output