5 import iTasks.Extensions.DateTime
6 import iTasks.UI.Layout.Minimal
8 Start w = doTasksWithOptions opt p2 w
13 t2 = enterInformation () [] >>= viewInformation () []
15 t3 = withShared 3 \sh->
16 withTemporaryDirectory (viewInformation () [])
17 >>= viewInformation () []
18 t4 = updateInformation () [] 42
20 t5 = sequence [return i\\i<-[0..1000]] >>= viewInformation () []
24 t7 i = viewInformation () [] i >>= \x->t7 (x + 1)
26 p = parallel [(Embedded, \_->waitForTimer 5)] []
27 p1 = waitForTimer 5 -||- waitForTimer 10
28 p2 = withShared 3 \sh->watch sh
31 // opt args eo = Ok {eo & autoLayout=False}
38 //import System.Socket
39 //import System.Socket.Ipv4
40 ////import System.Select
42 from Data.Map import singleton
43 import Data.Map.GenJSON
47 import iTasks.Extensions.Files
49 //Start w = doTasks (onStartup (copyFile "/home/mrl/test.txt" "/home/mrl/test2.txt")) w
50 //Start w = doTasks (onStartup (workAs SystemUser (return 42))) w
53 t = viewInformation () [] ()
54 >>* [OnAction ActionOk (always (return ()))
55 ,OnAction ActionQuit (always (return ()))
58 //Start w = doTasks t w
60 //t :: Task [(Int, TaskValue Int)]
63 // appendTask Embedded (\_->viewInformation "Int" [] 42) stl
64 // >>! \i->set (singleton "focus" "true") (sdsFocus i (taskListEntryMeta stl))
65 // >>~ \_->viewSharedInformation "Parallel task list" []
66 // (sdsFocus {onlyIndex=Nothing,onlyTaskId=Nothing,onlySelf=False,includeValue=True,includeProgress=True,includeAttributes=True} stl)
77 //Start :: *World -> (MaybeOSError String, *World)
79 // = case socket SocketStream w of
80 // (Error e, w) = (Error e, w)
82 // #! (merr, sockfd) = connect {ipv4_socket_port=8124,ipv4_socket_addr=Just (fromString "127.0.0.1")} sockfd
83 // | isError merr = (liftError merr, w)
84 // #! (merr, sockfd) = recv 128 [] sockfd
85 // | isError merr = (merr, w)
87 // # (merr, w) = close sockfd w
88 // | isError merr = (liftError merr, w)