 
 (defn calc-pivot-totals
   [calculating?]
-  "Calculate pivot totals
-  "
+  "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
-  "
+  "Create a button to test the modal component for calculating pivot totals"
   (let [calculating? (reagent/atom false)]
     (fn []
       [:div


(defn loading-url-modal
  [url loading?]
  "Show this modal window when loading a url
  "
  [modal-window
   :markup [:div {:style {:max-width "600px"}}
            [:p (str "Loading data from '" url "'...")]
            [spinner]
            [cancel-button #(reset! loading? false)]]])

(defn load-url
  [url loading?]
  "Load some data from the remote server
  "
  (util/console-log (str "*** Loading data from: " url))
  (system-load-url
   url

         [mwi-steps-modal-2
          progress-msg
          progress-percent
          calculating?])])))


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