   []
   (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

      [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)

        open?      (get-in @(rf/subscribe [:code/code-open?]) open?-path)
        debug?     @(rf/subscribe [:settings/debug?])]
    [rc/h-box
     :align    :center
     :style    {:border   code-border
                :overflow "hidden"
                :padding  "1px 6px"}
     :children [[rc/box
                 :width  "17px"
                 :height "17px"
