Only refresh on buffer save

Author: LeifAndersen

src/interactive_syntax/core.cljs

@@ -496,6 +496,7 @@
       (@visr-commit!))
     (ocall fs :writeFile (js/path.join @current-folder @current-file) @input
            (fn [err res]
+             (editor/make-reset-editors-cache cache)
              (reset! file-changed false)
              (swap! menu pop)
              (if-let [cm @cm-ref]
@@ -1181,7 +1182,6 @@
                         (when (and @edit (not= o n))
                           (let [fc @file-changed]
                             (set! js/window.edit @edit)
-                            (editor/make-reset-editors-cache cache)
                             (-> @edit (ocall :getDoc) (ocall :setValue @input))
                             (reset! file-changed fc))))
         codemirror-options #(conj (env/codemirror-options db) print-options)]

test/interactive_syntax/core_test.cljs

@@ -1691,6 +1691,7 @@
         :set [:input] use2 :check
         :done #(done))))))
 
+
 (deftest visr-in-mod-change
   (testing "Ensure editor updates when its surrounding module changes"
     (async
@@ -1771,6 +1772,7 @@
                     "World"))
         :done #(done))))))
 
+
 (deftest runtime-error
   (testing "Ensure printout when runtime error occurs"
     (async
@@ -1807,6 +1809,7 @@
         :set [:output] res :check
         :done #(done))))))
 
+
 (deftest visrs-reset-on-file-change
   (testing "Ensure visrs are removed when the file changes"
     (async
@@ -1854,6 +1857,7 @@
         :do #(is (= (count (.queryAllByLabelText view strings/VISUAL)) 0))
         :done #(done))))))
 
+
 (deftest test-main-functions
   (testing "Ensure default called functions match run-functions"
     (async
@@ -2068,6 +2072,7 @@
         :set [:output] output :check
         :done #(done))))))
 
+
 (defn -main [& args]
   (run-tests-async 240000))