   []
   (let [code-traces      @(rf/subscribe [:code/current-code])
         code-execution   (first code-traces) ;; Ignore multiple code executions for now
+        debug?           @(rf/subscribe [:settings/debug?])
         highlighted-form (rf/subscribe [:code/highlighted-form])]
     ;(println "EVENT-CODE")
     (if-not code-execution

                          :margin "auto"
                          :child  [:span.arrow (if open? "▼" "▶")]]]
                [:pre
                 {:style {:margin-left "2px"
                          :margin-top  "2px"}}
                 (str (:form line))
                 (when debug?
                   [:span {:class "code-fragment__result"} " " (pp/truncate-string 100 (pr-str (:result line)))])]]]))

      [rc/v-box
       :size "1 1 auto"
       :class "code-panel"
       :children [(when debug? [:pre "Hover " (pr-str @highlighted-form) "\n"])
                  [event-expression]
                  [rc/gap-f :size common/gs-19s]
                  [event-fragments (->> (:code code-execution)
