From 534cf55842fe89b95bd4bfa353a21729d0234c1e Mon Sep 17 00:00:00 2001
From: Remco van 't Veer <remco@jomco.nl>
Date: Thu, 20 Jun 2024 10:01:54 +0200
Subject: [PATCH] Add values to QR-code for demos

---
 resources/public/assets/base.css |  2 +-
 src/dil_demo/tms/web.clj         | 18 +++++++++++++++++-
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/resources/public/assets/base.css b/resources/public/assets/base.css
index 2e33934..6e14db1 100644
--- a/resources/public/assets/base.css
+++ b/resources/public/assets/base.css
@@ -234,7 +234,7 @@ legend {
 
 .field :is(input, textarea, select) {
     width: 30rem;
-    max-width: calc(100vw - 5rem);
+    max-width: calc(100vw - 7rem);
     font-family: inherit;
     font-size: 1rem;
     padding: .5rem;
diff --git a/src/dil_demo/tms/web.clj b/src/dil_demo/tms/web.clj
index 05f3b46..1f3a5d7 100644
--- a/src/dil_demo/tms/web.clj
+++ b/src/dil_demo/tms/web.clj
@@ -77,7 +77,23 @@
 
 (defn chauffeur-trip [trip]
   [:div.trip
-   (qr-code-dil-demo trip)
+   [:section
+    (qr-code-dil-demo trip)]
+
+   (let [carrier-eori-list (otm/trip-carrier-eori-list trip)
+         driver-id-digits  (otm/trip-driver-id-digits trip)
+         license-plate     (otm/trip-license-plate trip)]
+     [:fieldset
+      (w/field {:label    "Vervoerder EORI's",
+                :value    (string/join "," carrier-eori-list),
+                :readonly true})
+      (w/field {:label    "Rijbewijs",
+                :value    driver-id-digits
+                :readonly true})
+      (w/field {:label    "Kenteken",
+                :value    license-plate
+                :readonly true})])
+
    [:div.actions
     [:a.button {:href "../chauffeur/"} "Terug naar overzicht"]]])