From 2bad2361e9493739fdb9e03e48bb15e24b3c7d6d Mon Sep 17 00:00:00 2001
From: Tom Sydney Kerckhove <syd@cs-syd.eu>
Date: Sat, 22 Apr 2023 16:07:00 +0200
Subject: [PATCH] nice booking table

---
 feedback.yaml                                 |  5 +-
 .../templates/book-user/select-slot.hamlet    | 82 +++++++++++--------
 2 files changed, 50 insertions(+), 37 deletions(-)

diff --git a/feedback.yaml b/feedback.yaml
index 31a64561..70d18875 100644
--- a/feedback.yaml
+++ b/feedback.yaml
@@ -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'
diff --git a/smos-web-server/templates/book-user/select-slot.hamlet b/smos-web-server/templates/book-user/select-slot.hamlet
index 6e53bca1..08f1f0de 100644
--- a/smos-web-server/templates/book-user/select-slot.hamlet
+++ b/smos-web-server/templates/book-user/select-slot.hamlet
@@ -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