From da44b27e7409022ad17328e24857ad5b9cd82905 Mon Sep 17 00:00:00 2001
From: Kimo Knowles <kimo.knowles@day8.com.au>
Date: Wed, 2 Oct 2024 00:31:01 +0200
Subject: [PATCH] [nested-grid] - alt-click a cell to print its paths (debug
 only)

Fixes #344
---
 CHANGELOG.md                 |  6 ++++++
 src/re_com/nested_grid.cljs  | 20 +++++++++++++++-----
 src/re_demo/nested_grid.cljs |  3 +++
 3 files changed, 24 insertions(+), 5 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index ba2cb0d6..df62af4f 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,12 @@
 
 > Committed but unreleased changes are put here, at the top. Older releases are detailed chronologically below.
 
+## 2.22.1 (2024-10-01)
+
+#### Added
+
+- `nested-grid` - alt-click a cell while in DEBUG mode to print its `:column-path` and `:row-path`.
+
 ## 2.22.0 (2024-09-28)
 
 #### Changed
diff --git a/src/re_com/nested_grid.cljs b/src/re_com/nested_grid.cljs
index 8a520a87..02d1917c 100644
--- a/src/re_com/nested_grid.cljs
+++ b/src/re_com/nested_grid.cljs
@@ -1,4 +1,6 @@
 (ns re-com.nested-grid
+  (:require-macros
+   [re-com.core         :refer [handler-fn]])
   (:require
    [clojure.string :as str]
    [re-com.util :as u :refer [px deref-or-value]]
@@ -502,10 +504,15 @@
 (defn cell [{:keys [value]}]
   (str value))
 
-(defn cell-wrapper [{:keys [column-path row-path theme children]}]
+(defn debug-click [event props]
+  (when (.-altKey event)
+    (js/console.log (pr-str (select-keys props [:column-path :row-path])))))
+
+(defn cell-wrapper [{:keys [column-path row-path theme children] :as props}]
   (into
    [:div
-    (-> {:style {:grid-column (path->grid-line-name column-path)
+    (-> {:on-click (when debug? (handler-fn (debug-click event props)))
+         :style {:grid-column (path->grid-line-name column-path)
                  :grid-row    (path->grid-line-name row-path)}}
         (theme/apply {:part ::cell-wrapper} theme))]
    children))
@@ -521,8 +528,8 @@
    (merge props {:children [(header-label props)]})])
 
 (defn row-header [props]
-    [u/default-part
-     (merge props {:children [(header-label props)]})])
+  [u/default-part
+   (merge props {:children [(header-label props)]})])
 
 (def level count)
 
@@ -612,7 +619,8 @@
   (let [grid-style {:grid-column (inc x)
                     :grid-row    (inc y)}]
     [:div  (theme/apply
-             {:style grid-style}
+             {:style grid-style
+              :on-click (when debug? (handler-fn (debug-click event props)))}
              {:state {:edge edge} :part ::header-spacer-wrapper}
              theme)
      (u/part header-spacer
@@ -931,6 +939,7 @@
                                           (u/part column-header-wrapper
                                                   (-> props
                                                       (merge {:children children})
+                                                      (merge (when debug? {:attr {:on-click (handler-fn (debug-click event props))}}))
                                                       (theme/apply {:part ::column-header-wrapper} theme)))
                                           (when (and resize-columns? show?)
                                             [resize-button (merge props {:mouse-down-x    mouse-down-x
@@ -979,6 +988,7 @@
                                           (u/part row-header-wrapper
                                                   (-> props
                                                       (merge {:children children})
+                                                      (merge (when debug? {:attr {:on-click (handler-fn (debug-click event props))}}))
                                                       (theme/apply {:part ::row-header-wrapper} theme)))
                                           (when (and resize-rows? show?)
                                             [resize-button (merge props {:mouse-down-x   mouse-down-x
diff --git a/src/re_demo/nested_grid.cljs b/src/re_demo/nested_grid.cljs
index 7384f32c..ffdb1684 100644
--- a/src/re_demo/nested_grid.cljs
+++ b/src/re_demo/nested_grid.cljs
@@ -747,6 +747,9 @@
   [v-box
    :children
    [[title2 "More"]
+    [title3 "Debugging"]
+    [p "When " [:code "goog.DEBUG"] " is true, alt-clicking any cell will print its "
+     [:code ":row-path"] " and " [:code ":header-path"] " to the console."]
     [title3 "Rendering Header Cells"]
     [p "Just like " [:code ":cell"] ", the "
      [:code ":column-header"] " and " [:code ":row-header"] " props "