     [:polygon {:points "0,0 0,100 100,50" :stroke "black"}]]])
 
 (def styles
-  {:shell {:backgroundColor "#FAFAFA"}
+  {:shell {:backgroundColor "#FAFAFA"
+           :fontFamily "Consolas,Monaco,Courier New,monospace"
+           :fontSize "12px"}
    :strings {:color "#4Ebb4E"}
    :keywords {:color "purple"}
    :numbers {:color "blue"}

    [:div {:style {:display "flex"}}
     (when-not (empty? data)
       [:div {:style {:flex "0 1 auto"}} [ExpandButton {:expanded? expanded?
                                               :path path
                                               :emit-fn emit-fn}]])
     [:div {:style {:flex 1}}
      [:span (if (vector? data) "[" "(")]
      (if expanded?


(defn DataFriskShellVisibleButton [visible? toggle-visible-fn]
  [:button {:onClick toggle-visible-fn
            :style (merge {:border 0
                           :cursor "pointer"
                           :font "inherit"
                           :padding "12px"
                           :position "fixed"
                           :right 0
                           :width "80px"
                           :text-align "center"}
                     (:shell-visible-button styles)
                     (when-not visible? {:bottom 0}))}
   (if visible? "Hide" "Data frisk")])



(defn DataFriskShell [& data]
  (let [expand-by-default (reduce #(assoc-in %1 [:data-frisk %2 :expanded-paths] #{[]}) {} (range (count data)))
