         (cpu-delay 50)
         (if (< new-p1 420196140727489660)
           next-params
-          nil)))
-    ))
+          nil)))))
+
 
 (defn test-process-xml
   []
-  "Create a button to test the modal component for calculating pivot totals
-  "
+  "Create a button to test the modal component for calculating pivot totals"
   (let [calculating? (reagent/atom false)]
     (fn []
       [:div


(defn calc-pivot-totals
  [calculating?]
  "Calculate pivot totals
  "
  (util/console-log "calc-pivot-totals START")
  (cpu-delay 500)
  ;; ***** PROCESS THE RETURNED DATA HERE
  (util/console-log "calc-pivot-totals END")
  (reset! calculating? false))

(defn test-calc-pivot-totals
  []
  "Create a button to test the modal component for calculating pivot totals
  "
  (let [calculating? (reagent/atom false)]
    (fn []
      [:div

                     (start-cpu-intensive (fn [] (calc-pivot-totals calculating?)))
                     )] ;; Delay call to allow modal to show
       (when @calculating?
         [calcing-pivot-totals-modal])])))


;; ------------------------------------------------------------------------------------
