Ticket #1164: gc.hs

{-# OPTIONS -Wall #-}

{-
works fine via gconftool:

$ gconftool-2 --type list --list-type string --set "/apps/nautilus/icon_view" [size,date_modified,none]

$ gconftool-2 --get "/apps/nautilus/icon_view"
[size,date_modified,none]

.. i.e we get back what we just set.
but lists appear to be reversed in "System.Gnome.GConf.gconfSet".
-}

import System.Gnome.GConf
import Data.Maybe

main :: IO ()
main = do
  gc <- gconfGetDefault :: IO GConf
  let key = "/apps/nautilus/icon_view"
  let val = ["size", "date_modified", "none"]

  putStrLn$ "setting value: "++show val
  gconfSet gc key $
    GConfValueList (map GConfValueString val)

  v <- gconfGet gc key
  putStrLn$ "result from reading: "++show (toStringList v)

toStringList :: GConfValueDyn -> Maybe [String]
toStringList (GConfValueList ds) =
  let vs = map fromGConfValueString ds
  in if any (==Nothing) vs
       then Nothing
       else Just $ map fromJust vs
 where
 fromGConfValueString (GConfValueString s) = Just s
 fromGConfValueString _ = Nothing
toStringList _ = Nothing