GitLab

Similar to #380 (closed)

module test

import iTasks
import Data.Func

Start w = doTasks t w
where
	t = parallel
		[(Embedded, \stl->tune (Title "New Task") $ closeable $ addTask stl)
		,(Embedded, \stl->tune (Title "Tasks in li st") $ closeable $ viewSharedInformation [ViewAs $ length o snd] $ sdsFocus fullTaskListFilter stl)
		] [] <<@ ArrangeWithTabs True

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

	closeable :: (Task t) -> Task () | iTask t
	closeable t = t >>* [OnAction (Action "Close") (always (return ()))]

The button for adding a new task never enables.