Make auto jump to exceptions configurable from the menu

CHANGELOG.md

@@ -3,6 +3,8 @@
 ## master (unreleased)
 
 ### New Features
+
+    - Add configurable auto jump to exceptions
 
 ### Changes
 

docs/user_guide.adoc

@@ -865,6 +865,9 @@ together with the exceptions types. If you hover the mouse over any of them, a t
 
 Clicking on any of them will position the stepper at that point in time so you can explore what happened before.
 
+You can configure FlowStorm to automatically jump to exceptions with the `Config` menu by checking `Auto jump to exception`
+which is disabled by default.
+
 === Locals
 
 The locals panel will always show the locals bounded for the current point in time.

docs/user_guide.html

@@ -2145,6 +2145,10 @@ <h4 id="_exceptions_debugging"><a class="anchor" href="#_exceptions_debugging"><
 <div class="paragraph">
 <p>Clicking on any of them will position the stepper at that point in time so you can explore what happened before.</p>
 </div>
+<div class="paragraph">
+<p>You can configure FlowStorm to automatically jump to exceptions with the <code>Config</code> menu by checking <code>Auto jump to exception</code>
+which is disabled by default.</p>
+</div>
 </div>
 <div class="sect3">
 <h4 id="_locals"><a class="anchor" href="#_locals"></a><a class="link" href="#_locals">3.1.6. Locals</a></h4>
@@ -4214,7 +4218,7 @@ <h2 id="_internals_diagrams_and_documentation"><a class="anchor" href="#_interna
 </div>
 <div id="footer">
 <div id="footer-text">
-Last updated 2024-11-27 10:55:31 -0300
+Last updated 2024-11-29 12:00:48 -0300
 </div>
 </div>
 </body>

src-dbg/flow_storm/debugger/events_processor.clj

@@ -108,7 +108,8 @@
     (ui-utils/run-later
       (flows-screen/update-exceptions-combo flow-id)
       ;; the first time we encounter an exception, navigate to that location
-      (when (= 1 (count (dbg-state/flow-exceptions flow-id)))
+      (when (and (:auto-jump-on-exception? (dbg-state/debugger-config))
+                 (= 1 (count (dbg-state/flow-exceptions flow-id))))
         (flows-screen/goto-location unwind-data)))))
 
 (defn data-window-push-val-data-event [{:keys [dw-id val-data root?]}]

src-dbg/flow_storm/debugger/state.clj

@@ -171,12 +171,14 @@
 (s/def :config/debugger-ws-port int?)
 (s/def :config/runtime-host string?)
 (s/def :config/debug-mode? boolean?)
+(s/def :config/auto-jump-on-exception? boolean?)
 
 (s/def ::debugger-config (s/keys :req-un [:config/repl
                                           :config/debugger-host
                                           :config/debugger-ws-port
                                           :config/runtime-host
-                                          :config/debug-mode?]))
+                                          :config/debug-mode?
+                                          :config/auto-jump-on-exception?]))
 
 (s/def :bookmark/id (s/tuple :flow/id :thread/id int?))
 (s/def ::bookmarks (s/map-of :bookmark/id string?))
@@ -257,7 +259,8 @@
                      :debugger-host (or debugger-host "localhost")
                      :debugger-ws-port (or ws-port 7722)
                      :runtime-host (or runtime-host "localhost")
-                     :debug-mode? false}
+                     :debug-mode? false
+                     :auto-jump-on-exception? false}
    :bookmarks {}
    :visualizers {}
    :data-windows {}})
@@ -300,6 +303,9 @@
 (defn debugger-config []
   (get @state :debugger-config))
 
+(defn set-auto-jump-on-exception [enable?]
+  (swap! state assoc-in [:debugger-config :auto-jump-on-exception?] enable?))
+
 (defn toggle-debug-mode []
   (swap! state update-in [:debugger-config :debug-mode?] not))
 

src-dbg/flow_storm/debugger/ui/main.clj

@@ -243,7 +243,10 @@
                                        :on-click (fn [] (goto-file-line))}])
         config-menu (ui/menu :label "_Config"
                              :items [{:text "Set threads limit"
-                                      :on-click (fn [] (ask-and-set-threads-limit))}])
+                                      :on-click (fn [] (ask-and-set-threads-limit))}
+                                     {:text "Auto jump to exceptions"
+                                      :check-item? true
+                                      :on-click (fn [enable?] (dbg-state/set-auto-jump-on-exception enable?))}])
         help-menu (ui/menu :label "_Help"
                            :items [{:text "Tutorial"
                                     :on-click (fn []