 
 
 (defn data-row
-  []
-  (let []
-    (fn
-      [row first? last? col-widths mouse-over click-msg]
-      (let [mouse-over-row? (identical? @mouse-over row)]
-        [h-box
-         :class    "rc-div-table-row"
-         :attr     {:on-mouse-over (handler-fn (reset! mouse-over row))
-                    :on-mouse-out  (handler-fn (reset! mouse-over nil))}
-         :children [[h-box
-                     :width (:sort col-widths)
-                     :gap "2px"
-                     :align :center
-                     :children [[row-button
-                                 :md-icon-name    "md-arrow-back md-rotate-90" ;; "md-arrow-back md-rotate-90", "md-play-arrow md-rotate-270", "md-expand-less"
-                                 :mouse-over-row? mouse-over-row?
-                                 :tooltip         "Move this line up"
-                                 :disabled?       (and first? mouse-over-row?)
-                                 :on-click        #(reset! click-msg (str "move row " (:id row) " up"))]
-                                [row-button
-                                 :md-icon-name    "md-arrow-forward md-rotate-90" ;; "md-arrow-forward md-rotate-90", "md-play-arrow md-rotate-90", "md-expand-more"
-                                 :mouse-over-row? mouse-over-row?
-                                 :tooltip         "Move this line down"
-                                 :disabled?       (and last? mouse-over-row?)
-                                 :on-click        #(reset! click-msg (str "move row " (:id row) " down"))]]]
-                    [label :label (:name row) :width (:name col-widths)]
-                    [label :label (:from row) :width (:from col-widths)]
-                    [label :label (:to   row) :width (:to   col-widths)]
-                    [h-box
-                     :gap      "2px"
-                     :width    (:actions col-widths)
-                     :align    :center
-                     :children [[row-button
-                                 :md-icon-name    "md-content-copy"
-                                 :mouse-over-row? mouse-over-row?
-                                 :tooltip         "Copy this line"
-                                 :on-click        #(reset! click-msg (str "copy row " (:id row)))]
-                                [row-button
-                                 :md-icon-name    "md-mode-edit"
-                                 :mouse-over-row? mouse-over-row?
-                                 :tooltip         "Edit this line"
-                                 :on-click        #(reset! click-msg (str "edit row " (:id row)))]
-                                [row-button
-                                 :md-icon-name    "md-delete"
-                                 :mouse-over-row? mouse-over-row?
-                                 :tooltip         "Delete this line"
-                                 :on-click        #(reset! click-msg (str "delete row " (:id row)))]]]]]))))
+  [row first? last? col-widths mouse-over click-msg]
+  (let [mouse-over-row? (identical? @mouse-over row)]
+    [h-box
+     :class    "rc-div-table-row"
+     :attr     {:on-mouse-over (handler-fn (reset! mouse-over row))
+                :on-mouse-out  (handler-fn (reset! mouse-over nil))}
+     :children [[h-box
+                 :width (:sort col-widths)
+                 :gap "2px"
+                 :align :center
+                 :children [[row-button
+                             :md-icon-name    "md-arrow-back md-rotate-90" ;; "md-arrow-back md-rotate-90", "md-play-arrow md-rotate-270", "md-expand-less"
+                             :mouse-over-row? mouse-over-row?
+                             :tooltip         "Move this line up"
+                             :disabled?       (and first? mouse-over-row?)
+                             :on-click        #(reset! click-msg (str "move row " (:id row) " up"))]
+                            [row-button
+                             :md-icon-name    "md-arrow-forward md-rotate-90" ;; "md-arrow-forward md-rotate-90", "md-play-arrow md-rotate-90", "md-expand-more"
+                             :mouse-over-row? mouse-over-row?
+                             :tooltip         "Move this line down"
+                             :disabled?       (and last? mouse-over-row?)
+                             :on-click        #(reset! click-msg (str "move row " (:id row) " down"))]]]
+                [label :label (:name row) :width (:name col-widths)]
+                [label :label (:from row) :width (:from col-widths)]
+                [label :label (:to   row) :width (:to   col-widths)]
+                [h-box
+                 :gap      "2px"
+                 :width    (:actions col-widths)
+                 :align    :center
+                 :children [[row-button
+                             :md-icon-name    "md-content-copy"
+                             :mouse-over-row? mouse-over-row?
+                             :tooltip         "Copy this line"
+                             :on-click        #(reset! click-msg (str "copy row " (:id row)))]
+                            [row-button
+                             :md-icon-name    "md-mode-edit"
+                             :mouse-over-row? mouse-over-row?
+                             :tooltip         "Edit this line"
+                             :on-click        #(reset! click-msg (str "edit row " (:id row)))]
+                            [row-button
+                             :md-icon-name    "md-delete"
+                             :mouse-over-row? mouse-over-row?
+                             :tooltip         "Delete this line"
+                             :on-click        #(reset! click-msg (str "delete row " (:id row)))]]]]]))
 
 
 (defn data-table

                   :style {:font-size "small"}
                   :children [[component-title "[row-button ... ]"]
                              [label :class "small-caps" :label "notes:"]
                              [:p
                               "Material design icons can be found "
                               [hyperlink-href

                   :gap "10px"
                   :style {:font-size "small"}
                   :children [[component-title "[info-button ... ]"]

                              [label :class "small-caps" :label "notes:"]

                              [label :label "A tiny information button, which is light grey and unobrusive. When pressed, displays a popup contining helpful information. "]

                              [label :label "Designed to be used with input fields, to explain the purpose of the field."]

                              [args-table info-button-args-desc]]]
                  [v-box
                   :children [[component-title "Demo"]
