From d8d69cb0c1d32dfe6be6c8631e9f0331cbb28121 Mon Sep 17 00:00:00 2001
From: Kimo Knowles <kimo.knowles@day8.com.au>
Date: Wed, 19 Jun 2024 04:33:32 +0200
Subject: [PATCH] [daterange] Allow picking the same date for :start and :end

---
 run/resources/public/assets/css/re-com.css |  8 +++++++-
 src/re_com/daterange.cljs                  | 13 +++++++++----
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/run/resources/public/assets/css/re-com.css b/run/resources/public/assets/css/re-com.css
index efb659fa..9450c4c7 100644
--- a/run/resources/public/assets/css/re-com.css
+++ b/run/resources/public/assets/css/re-com.css
@@ -792,7 +792,13 @@ fieldset[disabled] .btn {
   border-radius: 0px 5px 5px 0px;
 }
 
-.daterange-start-td:hover, .daterange-end-td:hover {
+.daterange-start-end-td {
+  cursor: pointer;
+  background-color: #3ab0ffbd;
+  border-radius: 5px 5px 5px 5px;
+}
+
+.daterange-start-td:hover, .daterange-end-td:hover, .daterange-start-end-td:hover {
   cursor: pointer;
   color: white;
   background-color: #357ebd;
diff --git a/src/re_com/daterange.cljs b/src/re_com/daterange.cljs
index 8ce63aaf..483d7c59 100644
--- a/src/re_com/daterange.cljs
+++ b/src/re_com/daterange.cljs
@@ -227,7 +227,8 @@
   [day [fsm start-date end-date] on-change check-interval? disabled-data]
   (if
    (and (= @fsm "pick-end")                                                                   ;if we're picking and end date
-        (cljs-time/before? @start-date day)
+        (or (cljs-time/before? @start-date day)
+            (cljs-time/equal?  @start-date day))
         (if check-interval? ;; TODO [GR-REMOVE] Multi-line formatting more readable, especially when else clause is insignificant compared to if clause
           (interval-valid? start-date day disabled-data)
           true))
@@ -243,8 +244,12 @@
 
 (defn- class-for-td
   "Given a date, and the values in the internal model, determine which css class the :td should have"
-  [day start-date end-date temp-end disabled? selectable-fn minimum maximum show-today?]
+  [fsm day start-date end-date temp-end disabled? selectable-fn minimum maximum show-today?]
   (cond
+    (and @start-date
+         (not= @fsm "pick-end")
+         (cljs-time/equal? day @start-date)
+         (cljs-time/equal? day @end-date)) "daterange-start-end-td"
     (and @start-date (cljs-time/equal? day @start-date)) "daterange-start-td"
     (and @start-date (cljs-time/equal? day @end-date)) "daterange-end-td"
     (and @start-date (not= day "") (cljs-time/before? day @end-date) (cljs-time/after? day @start-date)) "daterange-interval-td"
@@ -262,7 +267,7 @@
   (let [disabled-data (vector minimum maximum disabled? selectable-fn)]
     (if (= day "") ;; TODO [GR-REMOVE] Formatting
       [:td ""]
-      (let [correct-class (class-for-td day start-date end-date temp-end disabled? selectable-fn minimum maximum show-today?)
+      (let [correct-class (class-for-td fsm day start-date end-date temp-end disabled? selectable-fn minimum maximum show-today?)
             clickable?    (not (date-disabled? day disabled-data))]
         (into [:td]
               (vector (merge {:class          (str "rc-daterange-td-basic " correct-class (get-in parts [:date :class]))
@@ -610,7 +615,7 @@
          fsm           (r/atom "pick-start")
          start-date    (r/atom (:start (deref-or-value model)))
          end-date      (r/atom (:end (deref-or-value model)))
-         temp-end      (r/atom (now->utc))]                 ;for :on-hover css functionality
+         temp-end      (r/atom (or @end-date (now->utc)))]                 ;for :on-hover css functionality
      (fn render-fn
        [& {:keys [model hide-border? i18n class style attr parts src debug-as] :as args}]
        (or