-t = parallel
- [(Embedded,
- \stl->appendTask Embedded (\_->viewInformation "int" [] 42 <<@ markActive <<@ markActive) stl
- >>= \tid->viewInformation "go" [] "go" @! 42
-// >>* [OnAction ActionOk $ always $ set
-// ([(tid, put "answer" "42" (singleton "bork" "bork"))])
-// (sdsFocus {onlyIndex=Nothing,onlyTaskId=Just [tid],onlySelf=False,includeValue=True,includeAttributes=True,includeProgress=True} stl)]
-// >>= \_->viewSharedInformation "parallel task list" []
-// (sdsFocus {onlyIndex=Nothing,onlyTaskId=Nothing,onlySelf=False,includeValue=True,includeProgress=True,includeAttributes=True} stl)
-// @! 42
-// ),(Embedded, \stl->viewSharedInformation "parallel task list" []
-// (sdsFocus {onlyIndex=Nothing,onlyTaskId=Nothing,onlySelf=False,includeValue=True,includeProgress=True,includeAttributes=True} stl)
-// @! 42
- )] []
-// [OnAction (Action "bork") $ ifValue (\v->not (v =: []))
-// \_->(Embedded, \stl->
-// get (sdsFocus defaultValue stl) >>= \(_, [_,{TaskListItem|taskId}:_])->
-// set (singleton "title" "true")
-// (sdsFocus taskId (taskListEntryMeta stl)) @! ())
-// set [(taskId, singleton "title" "true")]
-// (sdsFocus listFilter stl) @! ())]
- <<@ ArrangeWithTabs True
-where
- markActive = ApplyAttribute "class" "focus"