local form_cid = main.add_category { 'del', 'send' }

local forms = { }

-- public

function insert_form ( form, submit, reject )

	table.insert ( forms, {

			form   = form,

			submit = submit,

			reject = reject,

		} )

	main.add_completion ( form_cid, tostring(#forms) )

	print ( "You have new form. Use /form " .. #forms .. " to fill and submit or cancel it." )

	return #forms

end

main.command ( 'form',

	function ( args )

		local id, action = tonumber (args[1]), args[2]

		if forms[id] then

			local form = forms[id].form

			if action == 'send' then

				forms[id].submit ( form )

			elseif action == 'reject' then

				forms[id].reject ( form )

			elseif action == 'del' then

				main.del_completion ( form_cid, id )

				forms[id] = nil

			elseif action == 'add' then

				form:add( args[3], { value = args[4] } )

			elseif action then

				local fname, value

				if action == 'set' then

					fname = args[3]

					value = args[4]

				else

					fname = action

					value = args[3]

				end

				local field = form:field ( fname )

				if field then

					if value then

						field:value ( value )

					else

						field:clear ()

					end

				else

					-- XXX create?

					print ( 'Field not found: ' .. fname )

				end

			else

				local desc = 'Form ' .. id .. '\n - Type: ' .. form:type ()

				local title, instructions = form:desc ()

				if title then

					desc = desc .. '\n - Title: ' .. title

				end

				if instructions then

					desc = desc .. '\n - Instructions: ' .. instructions

				end

				local fields = 'Fields:'

				for index, field in form:fields () do

					local ftype = field:type ()

					fields = fields .. '\n - '

					if field:required () then

						fields = fields .. '* '

					end

					local label, descr = field:desc ()

					if label then

						fields = fields .. label .. ' (' .. ( field:name () or '' ) .. ')'

					else

						fields = fields .. ( field:name () or '<no name>' )

					end

					fields = fields .. ' [' .. ftype .. ']'

					if descr then

						fields = fields .. ': ' .. descr

					end

					if ftype == 'list-single' or ftype == 'list-multi' then

						fields = fields .. '\n   Options:'

						for option, label in field:options () do

							fields = fields .. '\n    * ' .. option .. ' - ' .. label

						end

					end

					if ftype == 'list-multi' or ftype == 'text-multi' or ftype == 'jid-multi' then

						fields = fields .. '\n   Values: '

						for vin, value in field:values () do

							fields = fields .. '\n    * ' .. value

						end

					else

						fields = fields .. '\n   Value: ' .. ( field:value () or '' )

					end

				end

				print ( desc .. '\n' .. fields )

			end

		else

			local text = ''

			for id, form in pairs ( forms ) do

				local title = form.form:desc ()

				text = text .. '\n - ' .. id .. ' ' .. ( title or 'Untitled' ) .. ' [' .. form.form:type () .. ']'

			end

			if text ~= '' then

				print ( 'Forms list:' .. text )

			else

				print ( 'No forms' )

			end

		end

	end, true, form_cid )

commands_help['form'] = "[form_id [send | reject | [set | add] fieldname [value]]]\n\nWithout arguments prints form list.\nWith bare form id prints info on that form.\nWhen setting multivalue field, new values are added, not replacing previous.\nWithout value unsets field, multivalue fields lose all their values.\nAdd command allws to append field to form end.\nNote, that form-specific default type will be used."

-- vim: se ts=4: --