share representation started

diff --git a/miTask.icl b/miTask.icl
index efff14d..11daaa9 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -8,6 +8,8 @@ import mTask
 
 from Text import class Text(startsWith,concat,split,join), instance Text String
 
+import qualified Data.Map as DM
+
 from Data.Func import $
 import Data.Tuple
 import Data.List
@@ -85,7 +87,17 @@ mTaskManager = anyTask
                        ]
 
                viewShares :: Task ()
-               viewShares = viewInformation () [] ()
+               viewShares = forever (
+                               enterChoiceWithShared "Shares" [ChooseFromList sdsvw] sdsShare
+                       >>* [OnValue $ withValue $ Just o updateShare]
+                       >>* [OnAction (Action "Back") (const $ Just $ treturn ())]
+                       )
+                       where
+                               sdsvw (k, v) = concat ["SDS ", toString k, ": ", toString v]
+                               updateShare (k, v) = (viewInformation "Key" [] k
+                                       ||- updateInformation "Value" [] v)
+                                       >>= \nv->upd
+                                       
 
                viewDevices :: [MTaskDevice] -> Task ()
                viewDevices ds = anyTask [
@@ -103,6 +115,9 @@ mTaskManager = anyTask
                channels :: String -> Shared Channels
                channels s = sdsFocus s $ memoryStore "" $ Just ([], [], False)
 
+               sdsShare :: Shared [(Int, Int)]
+               sdsShare = sdsFocus "mTaskSDSs" $ memoryStore "" $ Just [(1, 1)]
+
                addDevice :: (Shared [MTaskDevice]) -> Task ()
                addDevice devices = enterInformation "Device type and name" []
                        >>= \(name, ty)->get randomInt @ ((+++) name o toString)