nice booking table

This commit is contained in:
Tom Sydney Kerckhove 2023-04-22 16:07:00 +02:00
parent e60b470c37
commit 2bad2361e9
2 changed files with 50 additions and 37 deletions

View File

@ -26,11 +26,14 @@ loops:
killall smos-server >/dev/null 2>&1 || true
killall smos-web-server >/dev/null 2>&1 || true
~/.local/bin/smos-server & disown
sleep 0.1
sleep 0.5
~/.local/bin/smos-web-server & disown
working-dir: smos-web-server
env:
DEVELOPMENT: 'True'
SMOS_SERVER_AUTO_BACKUP_ENABLED: 'False'
SMOS_SERVER_BACKUP_GARBAGE_COLLECTOR_ENABLED: 'False'
SMOS_SERVER_FILE_MIGRATOR_ENABLED: 'False'
SMOS_SERVER_LOG_LEVEL: 'Debug'
SMOS_SERVER_ADMIN: 'admin'
SMOS_WEB_SERVER_API_URL: 'http://localhost:8000'

View File

@ -15,43 +15,53 @@
$forall (clientDay, dayOptions) <- M.toList clientOptions
<h5 .title .is-5>
#{formatTime defaultTimeLocale "%A %F" clientDay}
$forall (utcTime, clientTimeOfDay, userDay, userTimeOfDay, duration) <- S.toList dayOptions
<div .block>
<form .form
method=post
action=@{BookUserR username}>
^{token}
<div .field>
<div .control>
<label .label>
<p>
For you:
#{formatTime defaultTimeLocale "%H:%M" clientTimeOfDay}
-
#{formatTime defaultTimeLocale "%H:%M" (addLocalTime duration (LocalTime clientDay clientTimeOfDay))}
<table .table .is-striped .is-hoverable .is-narrow>
<thead>
<tr>
<th>
Duration
<th>
For you
<th>
For them
<th>
Book
<tbody>
$forall (utcTime, clientTimeOfDay, userDay, userTimeOfDay, duration) <- S.toList dayOptions
<tr>
<td width=100px>
#{formatDuration duration}
<p>
For them:
#{formatTime defaultTimeLocale "%H:%M" userTimeOfDay}
-
#{formatTime defaultTimeLocale "%H:%M" (addLocalTime duration (LocalTime userDay userTimeOfDay))}
<td width=150px>
#{formatTime defaultTimeLocale "%H:%M" clientTimeOfDay}
-
#{formatTime defaultTimeLocale "%H:%M" (addLocalTime duration (LocalTime clientDay clientTimeOfDay))}
<p>
(#{formatDuration duration})
<input type=hidden name="utc-day" value=#{formatTime defaultTimeLocale "%F" (utctDay utcTime)}>
<input type=hidden name="utc-time-of-day" value=#{formatTime defaultTimeLocale "%H:%M" (timeToTimeOfDay (utctDayTime utcTime))}>
<input type=hidden name="user-time-zone" value=#{tzLabelToText userTimeZoneLabel}>
<input type=hidden name="client-time-zone" value=#{tzLabelToText clientTimeZoneLabel}>
<input type=hidden name="duration" value=#{formatTime defaultTimeLocale "%m" duration}>
<div .field>
<div .control>
<button
.button .is-success
type=submit
onclick="return confirm('Are you sure you want to book #{usernameText username}');">
Book
<td width=150px>
#{formatTime defaultTimeLocale "%H:%M" userTimeOfDay}
-
#{formatTime defaultTimeLocale "%H:%M" (addLocalTime duration (LocalTime userDay userTimeOfDay))}
<td>
<form .form
method=post
action=@{BookUserR username}>
^{token}
<input type=hidden name="utc-day" value=#{formatTime defaultTimeLocale "%F" (utctDay utcTime)}>
<input type=hidden name="utc-time-of-day" value=#{formatTime defaultTimeLocale "%H:%M" (timeToTimeOfDay (utctDayTime utcTime))}>
<input type=hidden name="user-time-zone" value=#{tzLabelToText userTimeZoneLabel}>
<input type=hidden name="client-time-zone" value=#{tzLabelToText clientTimeZoneLabel}>
<input type=hidden name="duration" value=#{formatTime defaultTimeLocale "%m" duration}>
<div .field>
<div .control>
<button
.button .is-small .is-light
type=submit
onclick="return confirm('Are you sure you want to book #{usernameText username}');">
Book