{-# LANGUAGE OverloadedStrings #-}

import Jungle
import Data.Maybe
import qualified Data.ByteString.Lazy.Char8 as B

jungle = createJungle

tree = do
    a <- createTree jungle "test"
    node <- getRootNode a "test"
    return (add node)

addc path pos node = addNewChildAt node path pos

addchild = 
    (addc [3] 2) . (addc [] 3) . (addc [1,1] 2) . (addc [1,1] 1). (addc [2] 2) . (addc [1] 2) . 
    (addc [2] 1) . (addc [] 2). (addc [1] 1) . (addc [] 1)

adda path key value node = putAttribute node path key value

addattr = 
    (adda [1,1] "key" "value") . (adda [1,1] "test" "test2") .
    (adda [] "root" "node") . (adda [1] "tes" "abc") .
    (adda [3,2] "test" "3-2") . (adda [2,2] "test" "2-2")

add :: Node -> Node
add = addattr . addchild

putNode = putStrLn . drawNode
putAttr = putStrLn . printAttributes 


{-
ghci> :l test.hs
ghci> y <- tree
ghci> putStrLn $ printAttributes y
ghci> putStrLn $ drawNode y
-}