todo-webclient/client/index.ls
Philippe PITTOLI 9b6179eccf modal
2019-12-05 01:45:21 +01:00

316 lines
7.0 KiB
Plaintext

# first:
# connection to authd
# display the authd widget
#
# second:
# connection to todod
# rewrite the whole body component
# page 1: (TODO) list of lists (or todos)
# display:
# navbar
#
# "element 1" button
# "element 2" button
# ...
# "element x" button
#
# "new list" button
# widgets:
# navbar: [return to list button] [logout]
# element button:
# [todo list name]
# or
# [todo list name] [RIGTHS] [DELETE]
#
# page 2:
# display:
# (TODO) list of tasks (this client has a kanban display of tasks, with columns)
# (TODO) task widget
# widgets:
# task widget:
# TODO
#
# page 3: (TODO) pages about
maquette = require "maquette"
nmd = require "nano-markdown"
authd = require "./authd.ls"
todows = require "./todowebsocket.ls"
bulma = require "./bulma.ls"
Task = require "./task.ls"
Project = require "./project.ls"
Modal = require "./modal.ls"
# ValidationModal = require "./validation-modal.ls"
{create-projector, h} = maquette
projector = create-projector!
model = {
# view: login, todo-list, todo, network-error (TODO: other views, such as rights)
# XXX FIXME TODO: TESTING THINGS
current-view: "login"
viewed-project: void
# current-view: "testing-modals"
# { uid => user data }
users: {}
todo-list: []
port: 9999
authd-url: undefined
todod-url: undefined
authd-ws: undefined
todod-ws: undefined
previous-error: undefined
error: undefined
# TODO: authentication token
jwt: undefined
}
model.authd-url =
(if location.protocol == 'https' then 'wss' else 'ws') +
'://' + location.hostname + \: +
model.port +
"/auth.JSON"
model.todod-url =
(if location.protocol == 'https' then 'wss' else 'ws') +
'://' + location.hostname + \: +
model.port +
"/todo.JSON"
console.log "authd url: " + model.authd-url
console.log "todod url: " + model.todod-url
#
# network configuration
#
model.authd-ws = authd.create-socket model.authd-url
model.todod-ws = todows.create-socket model.todod-url
#
# authd messages management
#
# authd socket errors
authd-on-websocket-error = (event) ->
console.log "WebSocket error.", event
model.current-view := "network-error"
projector.schedule-render!
authd-on-websocket-close = (event) ->
model.current-view := "login"
console.log "WebSocket has been closed.", event
# model.todod-ws.reopen!
projector.schedule-render!
# record changes that need to happen on a network event
model.authd-ws.user-on-socket-error ++= [ authd-on-websocket-error ]
model.authd-ws.user-on-socket-close ++= [ authd-on-websocket-close ]
# authd message handlers
model.authd-ws.add-event-listener \token, (message) ->
model.jwt := message.token
model.current-view := "todo-list"
model.todod-ws.list-lists model.jwt
projector.schedule-render!
model.authd-ws.add-event-listener \error, (message) ->
# console.log "authd error", message
projector.schedule-render!
model.authd-ws.add-event-listener \user, (message) ->
model.users[message.user.uid] := message.user
projector.schedule-render!
# TODO: user-added, user-edited
#
# todod messages management
#
# todod socket errors
on-websocket-error = (event) ->
console.log "WebSocket error.", event
model.current-view := "network-error"
projector.schedule-render!
on-websocket-close = (event) ->
model.current-view := "login"
console.log "WebSocket has been closed.", event
# model.todod-ws.reopen!
projector.schedule-render!
# record changes that need to happen on a network event
model.todod-ws.user-on-socket-error ++= [ on-websocket-error ]
model.todod-ws.user-on-socket-close ++= [ on-websocket-close ]
model.todod-ws.add-event-listener \lists-list, (message) ->
console.log message
model.todo-list := message.lists.map (x) ->
Project.new x, model
projector.schedule-render!
model.todod-ws.add-event-listener \new-list, (message) ->
console.log message
model.todo-list := model.todo-list ++ [ (Project.new message.list, model) ]
projector.schedule-render!
model.todod-ws.add-event-listener \tasks, (message) ->
console.log message
model.todo-list.find((.id == message.list)).tasks := message.tasks
projector.schedule-render!
model.todod-ws.add-event-listener \list-removed, (message) ->
console.log message
if model.current-view == "todo" && model.viewed-project == message.list
model.current-view := "todo-list"
model.viewed-project := void
projector.schedule-render!
model.todo-list := model.todo-list.filter((.id != message.list))
render-navbar = ->
h \div.navbar [
h \div.navbar-start [
h \a.navbar-item.is-size-2 {
onclick: ->
model.viewed-project := void
model.current-view := "todo-list"
} [ "⌂" ]
]
h \div.navbar-end [
h \a.navbar-item {
onclick: ->
model.current-view := "login"
# TODO: remove anything related to the old session on the client
model.todod-ws.reopen!
} [ "Logout" ]
]
]
render-todo-list = ->
h \div.section model.todo-list.map (project) ->
if project
h \div.box {
key: project.id
onclick: ->
model.current-view := "todo"
model.viewed-project := project.id
model.todod-ws.get-list model.jwt, project.id
} [
bulma.title 4 project.title
]
render-new-project-button = ->
h \div.button.is-primary.is-large.is-fullwidth {
onclick: ->
model.todod-ws.add-list model.jwt, "New project", {
columns: ["Unassigned", "Work in progress", "To be checked", "Being checked", "Done"]
}
} [ "New project!" ]
render-todo = (todo-id) ->
todo = model.todo-list.find((.id == todo-id))
if todo
todo.render!
h \div.button.is-danger.is-outlined {
onclick: ->
console.log "La modal est crée"
model.modal := Modal {
+visible
content:
h \p [ "Are you sure you want to remove board #{todo.title}?" ]
on-validation: ->
model.todod-ws.remove-list model.jwt, todo.id
}
console.log "La modal est crée 2 le retour", model.modal
projector.schedule-render!
} [ "X" ]
else
h \div.notification.is-error [
bulma.title 3 "Error, we did not get the todo id " + todo-id
]
#
# Pages:
# login
# todo-list
# todo
# network-error
#
render-body = ->
h \div.section [
switch model.current-view
when "login"
authd.login-page model
when "todo-list"
h \div#todo-list [
render-navbar!
render-todo-list!
render-new-project-button!
]
# FIXME: TODO: XXX: modal testing
when "testing-modals"
h \div#testing-modals [
render-navbar!
console.log "rendering a modal"
# bulma.asking-modal model, {}, [ (h \button.button {} [ "rendering a modal" ]) ]
if model.modal
model.modal.render!
render-new-project-button!
]
when "todo"
h \div [
render-navbar!
render-todo model.viewed-project
]
else
h \div.notification.is-error [
"Wait, what? Internal error!"
]
if model.modal
model.modal.render!
]
renderer = ->
render-navbar!
render-body!
document.add-event-listener 'DOMContentLoaded' ->
projector.append document.body, renderer