If visual-syntax is _not_ provided, default to option setting

Author: LeifAndersen

src/interactive_syntax/core.cljs

@@ -1211,7 +1211,8 @@
                         :as print-options} :print-options
                        editor-reset-ref :editor-reset
                        visr-run-ref :visr-run
-                       visual-syntax :visual-syntax}]]
+                       visual-syntax :visual-syntax
+                       :or {:visual-syntax true}}]]
   (let [edit (atom nil)
         visrs (atom {})
         key (random-uuid)
@@ -1273,6 +1274,7 @@
                (ocall doc :replaceRange stdlib/starter-visr pos)))
     (fn [{:keys [menu input options file-changed current-file cursor scroll cache
                  cm-ref]
+          :or {:visual-syntax true}
           :as db}
          & [{editor-ref :editor
              for-print :for-print
@@ -1360,7 +1362,8 @@
 (defn result-view [{:keys [output options]
                     :as db}
                    & [{repl-ref :editor
-                       visual-syntax :visual-syntax}]]
+                       visual-syntax :visual-syntax
+                       :or {:visual-syntax true}}]]
   (let [edit (atom nil)
         cache (env/make-reset-editors-cache)
         instances (atom [])
@@ -1404,7 +1407,8 @@
     (fn [{:keys [output options]
         :as db}
          & [{repl-ref :editor
-             visual-syntax :visual-syntax}]]
+             visual-syntax :visual-syntax
+             :or {:visual-syntax true}}]]
       [:> cm/UnControlled
        {:value (string/join "\n" (filter string? @output))
         :options (conj (env/codemirror-options db)
@@ -1475,6 +1479,7 @@
                      repl-ref :repl
                      visr-run-ref :visr-run
                      visual-syntax :visual-syntax
+                     :or {:visual-syntax true}
                      :as opts}]]
   (let [search (js/URLSearchParams. js/window.location.search)]
     (chonky/setChonkyDefaults