test.icl

   1 module test
   2
   3 import iTasks
   4 import Data.Func
   5
   6 Start w = doTasks t w
   7 where
   8         t = parallel
   9                 [(Embedded, \stl->tune (Title "New Task") $ addTask stl
  10                         >>* [OnAction (Action "Close") (always (return ()))])
  11                 ] [] <<@ ArrangeWithTabs True
  12
  13         addTask :: (SharedTaskList ()) -> Task ()
  14         addTask stl
  15                 =   (enterInformation [] <<@ Label "Title") -&&- updateInformation [] "text"
  16                 >>! \(title, text)->appendTask Embedded
  17                         (\_->tune (Title title) $ viewInformation [] text @? const NoValue)
  18                         stl
  19                 >-| addTask stl