 (defn fib-step
   [{:keys [step-num] :as params}]
   (cpu-delay step-num)
+  (+)
   [(< step-num 10)
    (assoc params :step-num (inc step-num))])
 

            [:p (str "Saving '" path "'...")]
            [:div {:style {:display "flex"}}
             [:div {:style {:margin "auto"}}
              [:img {:src "img/spinner.gif" :style {:margin-right "12px"}}]
              [button
               :label    "STOP!"
               :on-click #(reset! writing? false)

  [button
   :label    label
   :on-click on-click
   :style {:margin "1px" :height "39px"}
   :class "btn-info"])


;; ------------------------------------------------------------------------------------
;;  MODAL PROCESSING #1 - Long running with progress and cancel
