Following our chats, how's that for a tabs view?

(defui tabbed [{:keys [tabs focus orientation]
                :or {orientation :left}}]
  (let [the-tabs
        (for [[text _] tabs]
          (let [hover? (get extra [:hover? text])]
            (basic/button {:text text
                           :hover? hover?
                           :on-click (fn [] [[:set $focus text]])})))]
    (case orientation
      :left
      (ui/horizontal-layout
       (apply ui/vertical-layout the-tabs)
       (get tabs focus))
      :right
      (ui/horizontal-layout
       (get tabs focus)
       (apply ui/vertical-layout the-tabs))
      :down
      (ui/vertical-layout
       (get tabs focus)
       (apply ui/horizontal-layout the-tabs))
      :up
      (ui/vertical-layout
       (apply ui/horizontal-layout the-tabs)
       (get tabs focus)))))

https://clojurians.slack.com/archives/CQT1NFF4L/p1678736832100809?thread_ts=1678672410.695219&channel=CQT1NFF4L&message_ts=1678736832.100809 @smith.adriane holy cow. This is awesome. How did you do the “click to turn all edges from that node red?” I’m guessing you used your wrapper around graphviz, but how are you catching the event when node is clicked, and how are you turning the edges red? Thanks!