todo-webclient/client/task-creation-modal.ls

# TODO: on modification, the description isn't updated on the client

h = require 'maquette' .h
Modal = require './modal.ls'

{field, input, textarea, label, control, select} = require './bulma.ls'

colors = [
	"white"
	"black"
	"light"
	"dark"
	"primary"
	"info"
	"link"
	"success"
	"warning"
	"danger"
	"black-bis"
	"black-ter"
	"grey-darker"
	"grey-dark"
	"grey"
	"grey-light"
	"grey-lighter"
	"white-ter"
	"white-bis"
]

column-form-selection = (self, column) ->
	h \option {
		value: column.id
		selected: self.extra_properties && self.extra_properties.column == column.id
	} [ column.title ]

color-to-form-selection = (self, color, current-color) ->
	h \option {
		value: color
		selected: current-color && current-color == color
	} [ color ]

user-form-selection = (self, user) ->
	h \option {
		value: user.uid
	} [ user.login ]

TaskCreationModal = (project, todod-ws, task, users) ->
	task ||= {}

	# copy not to override anything on cancel
	self = {
		title: task.title || ""
		description: task.description || ""
		extra_properties:
			column: ""
			background-color: ""
			assignee-id: task.assignee-id || void
		tmp:
			users: users || []
	}

	# copy extra properties
	# currently: column + background-color + assignee + expected duration time
	for k,v of task.extra_properties
		self.extra_properties[k] = v

	modal = Modal {
		+visible
		content-render: (self) ->
			h \div.form [

				#
				# TITLE
				#

				field [
					label "Task title"

					input {
						value: self.title
						oninput: (e) ->
							self.title := e.target.value
					}
				]


				field [
					label "Task description"

					#
					# DESCRIPTION
					#

					textarea {
						value: self.description
						oninput: (e) ->
							self.description := e.target.value
					}
				]


				field [
					label "Column"

					control [
						select \.is-fullwidth {
							onchange: (e) ->
								self.extra_properties.column := e.target.value
						} project.extra_properties.columns.map (column) -> column-form-selection self, column
					]
				]


				#
				# USER MANAGEMENT
				#

				h \hr []

				field [
					label "Assigned user"

					control {
						key: "assign-someone-to-task"
					} [
						select \.is-fullwidth {
							onchange: (e) ->
								self.extra_properties.assignee-id := e.target.value
						} [
							user-form-selection self, { login: "Choose a user", uid: "-" }
							for user-id, user of self.tmp.users
								user-form-selection self, user
						]
					]
				]


				#
				# BACKGROUND COLOR
				#

				field [
					label "Card background color"

					control [
						select \.is-fullwidth {
							onchange: (e) ->
								self.extra_properties.background-color := e.target.value
						} colors.map (color) -> color-to-form-selection self, color, self.extra_properties.background-color
					]
				]
			]

		on-validation: ->
			tmp = delete self.tmp
			if task.id
				todod-ws.edit-task task.id, self
			else
				todod-ws.add-task project.id, self.title, self
			self.tmp = tmp
	}, self

	self.render = ->
		modal.render!

	self

module.exports = TaskCreationModal