From 0213c8899648f50b268fad25a653060b6f156d53 Mon Sep 17 00:00:00 2001
From: Jeremy Bondeson <jbondeson@gmail.com>
Date: Thu, 2 Nov 2017 12:58:44 -0600
Subject: [PATCH] Fixed issue with overwriting the .bin location in flash

Still not a final solution until the IndexedDB values are synced into the
re-frame db.

Fixes #26
---
 src/kii/ui/components/flash.cljs | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/src/kii/ui/components/flash.cljs b/src/kii/ui/components/flash.cljs
index 474f1cc..ea521bb 100644
--- a/src/kii/ui/components/flash.cljs
+++ b/src/kii/ui/components/flash.cljs
@@ -28,20 +28,22 @@
 
 (defn flash-firmware
   []
-  (r/with-let [dfu-path (r/atom (if ((.-sync command-exists) "dfu-util") "dfu-util" ""))
+  (r/with-let [loaded? (r/atom false)
+               dfu-path (r/atom (if ((.-sync command-exists) "dfu-util") "dfu-util" ""))
                bin-file (r/atom "")
                flashing? (r/atom false)
                progress (r/atom "")
                status (r/atom :none)]
     ;; TODO - Read this in on start...
-    (go
-      (if-let [cfg-val (<? (config/get :dfu-util-path))]
-        (reset! dfu-path cfg-val)))
+    (when (false? @loaded?)
+      (go
+       (let [cfg-val (<? (config/get :dfu-util-path))
+             last-dl (<? (config/get :last-download))]
+         (when (some? cfg-val) (reset! dfu-path cfg-val))
+         (when (some? last-dl) (reset! bin-file last-dl))
+         (reset! loaded? true)
+         )))
 
-    (go
-      (if-let [last-dl (<? (config/get :last-download))]
-        (reset! bin-file last-dl)))
-    
     (add-watch dfu-path :path-update
                (fn [k a prev next]
                  (when (not= prev next)