-// ),(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"