module test

import iTasks
import Data.Func

Start w = doTasks t w
where
	t = parallel
		[(Embedded, \stl->tune (Title "New Task") $ addTask stl
			>>* [OnAction (Action "Close") (always (return ()))])
		] [] <<@ ArrangeWithTabs True

	addTask :: (SharedTaskList ()) -> Task ()
	addTask stl
		=   (enterInformation [] <<@ Label "Title") -&&- updateInformation [] "text"
		>>! \(title, text)->appendTask Embedded
			(\_->tune (Title title) $ viewInformation [] text @? const NoValue)
			stl
		>-| addTask stl