diff --git a/calcit.cirru b/calcit.cirru
index 543ab78..ea939fa 100644
--- a/calcit.cirru
+++ b/calcit.cirru
@@ -1,6 +1,6 @@
 
 {} (:package |app)
-  :configs $ {} (:init-fn |app.server/main!) (:port 6001) (:reload-fn |app.server/reload!) (:version |0.8.8)
+  :configs $ {} (:init-fn |app.server/main!) (:port 6001) (:reload-fn |app.server/reload!) (:version |0.8.9)
     :modules $ [] |lilac/ |memof/ |recollect/ |cumulo-util.calcit/ |ws-edn.calcit/ |bisection-key/
   :entries $ {}
     :client $ {} (:init-fn |app.client/main!) (:reload-fn |app.client/reload!)
@@ -4339,7 +4339,7 @@
                   |j $ %{} :Expr (:at 1504777353661) (:by nil)
                     :data $ {}
                       |T $ %{} :Leaf (:at 1504777353661) (:by |root) (:text |:bottom)
-                      |j $ %{} :Leaf (:at 1504777353661) (:by |root) (:text |0)
+                      |j $ %{} :Leaf (:at 1695265682254) (:by |S1lNv50FW) (:text |40)
                   |r $ %{} :Expr (:at 1504777353661) (:by nil)
                     :data $ {}
                       |T $ %{} :Leaf (:at 1504777353661) (:by |root) (:text |:left)
@@ -4365,6 +4365,10 @@
                     :data $ {}
                       |T $ %{} :Leaf (:at 1504777353661) (:by |root) (:text |:opacity)
                       |j $ %{} :Leaf (:at 1504777353661) (:by |root) (:text |1)
+                  |z $ %{} :Expr (:at 1695265669869) (:by |S1lNv50FW)
+                    :data $ {}
+                      |T $ %{} :Leaf (:at 1695265671855) (:by |S1lNv50FW) (:text |:z-index)
+                      |b $ %{} :Leaf (:at 1695265672526) (:by |S1lNv50FW) (:text |100)
       :ns $ %{} :CodeEntry (:doc |)
         :code $ %{} :Expr (:at 1504777353661) (:by nil)
           :data $ {}
@@ -13805,117 +13809,223 @@
               |j $ %{} :Leaf (:at 1511547903980) (:by |S1lNv50FW) (:text |comp-peek-def)
               |r $ %{} :Expr (:at 1511547903980) (:by |S1lNv50FW)
                 :data $ {}
-                  |T $ %{} :Leaf (:at 1511547918627) (:by |S1lNv50FW) (:text |simple-expr)
-              |v $ %{} :Expr (:at 1511547919456) (:by |S1lNv50FW)
+                  |T $ %{} :Leaf (:at 1695265264629) (:by |S1lNv50FW) (:text |expr-entry)
+              |v $ %{} :Expr (:at 1695265255026) (:by |S1lNv50FW)
                 :data $ {}
-                  |T $ %{} :Leaf (:at 1511547919944) (:by |S1lNv50FW) (:text |div)
-                  |j $ %{} :Expr (:at 1511547920198) (:by |S1lNv50FW)
+                  |D $ %{} :Leaf (:at 1695265256224) (:by |S1lNv50FW) (:text |let)
+                  |L $ %{} :Expr (:at 1695265256436) (:by |S1lNv50FW)
                     :data $ {}
-                      |T $ %{} :Leaf (:at 1511547922369) (:by |S1lNv50FW) (:text |{})
-                      |j $ %{} :Expr (:at 1511547952100) (:by |S1lNv50FW)
+                      |D $ %{} :Expr (:at 1695265266204) (:by |S1lNv50FW)
                         :data $ {}
-                          |T $ %{} :Leaf (:at 1511547955430) (:by |S1lNv50FW) (:text |:style)
-                          |j $ %{} :Expr (:at 1517755395535) (:by |root)
+                          |T $ %{} :Leaf (:at 1695265266551) (:by |S1lNv50FW) (:text |doc)
+                          |b $ %{} :Expr (:at 1695265266849) (:by |S1lNv50FW)
                             :data $ {}
-                              |D $ %{} :Leaf (:at 1517755396425) (:by |root) (:text |merge)
-                              |L $ %{} :Leaf (:at 1517755398685) (:by |root) (:text |ui/row)
-                              |f $ %{} :Expr (:at 1517755462890) (:by |root)
-                                :data $ {}
-                                  |T $ %{} :Leaf (:at 1517755463309) (:by |root) (:text |{})
-                                  |j $ %{} :Expr (:at 1517755463566) (:by |root)
-                                    :data $ {}
-                                      |T $ %{} :Leaf (:at 1517755466133) (:by |root) (:text |:align-items)
-                                      |j $ %{} :Leaf (:at 1517755467962) (:by |root) (:text |:center)
-                                  |r $ %{} :Expr (:at 1511548232972) (:by |S1lNv50FW)
-                                    :data $ {}
-                                      |T $ %{} :Leaf (:at 1511548233829) (:by |S1lNv50FW) (:text |:color)
-                                      |j $ %{} :Expr (:at 1511548234197) (:by |S1lNv50FW)
-                                        :data $ {}
-                                          |T $ %{} :Leaf (:at 1511548234517) (:by |S1lNv50FW) (:text |hsl)
-                                          |j $ %{} :Leaf (:at 1511548235144) (:by |S1lNv50FW) (:text |0)
-                                          |r $ %{} :Leaf (:at 1511548235329) (:by |S1lNv50FW) (:text |0)
-                                          |v $ %{} :Leaf (:at 1511548241580) (:by |S1lNv50FW) (:text |50)
-                                  |v $ %{} :Expr (:at 1511548021615) (:by |S1lNv50FW)
-                                    :data $ {}
-                                      |T $ %{} :Leaf (:at 1511548023476) (:by |S1lNv50FW) (:text |:font-size)
-                                      |j $ %{} :Leaf (:at 1511548024503) (:by |S1lNv50FW) (:text |12)
-                                  |x $ %{} :Expr (:at 1517755496417) (:by |root)
-                                    :data $ {}
-                                      |T $ %{} :Leaf (:at 1517755502050) (:by |root) (:text |:line-height)
-                                      |j $ %{} :Leaf (:at 1551895439390) (:by |S1lNv50FW) (:text "|\"1.5em")
-                  |r $ %{} :Expr (:at 1511547923339) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1695265267319) (:by |S1lNv50FW) (:text |:doc)
+                              |b $ %{} :Leaf (:at 1695265270061) (:by |S1lNv50FW) (:text |expr-entry)
+                      |T $ %{} :Expr (:at 1695265256588) (:by |S1lNv50FW)
+                        :data $ {}
+                          |T $ %{} :Leaf (:at 1695265257946) (:by |S1lNv50FW) (:text |simple-expr)
+                          |b $ %{} :Expr (:at 1695265258675) (:by |S1lNv50FW)
+                            :data $ {}
+                              |T $ %{} :Leaf (:at 1695265259669) (:by |S1lNv50FW) (:text |:code)
+                              |b $ %{} :Leaf (:at 1695265261984) (:by |S1lNv50FW) (:text |expr-entry)
+                  |T $ %{} :Expr (:at 1511547919456) (:by |S1lNv50FW)
                     :data $ {}
-                      |T $ %{} :Leaf (:at 1511547923988) (:by |S1lNv50FW) (:text |<>)
-                      |j $ %{} :Expr (:at 1511548201532) (:by |S1lNv50FW)
+                      |T $ %{} :Leaf (:at 1511547919944) (:by |S1lNv50FW) (:text |div)
+                      |j $ %{} :Expr (:at 1511547920198) (:by |S1lNv50FW)
                         :data $ {}
-                          |D $ %{} :Leaf (:at 1511548202376) (:by |S1lNv50FW) (:text |stringify-s-expr)
-                          |T $ %{} :Expr (:at 1511549345831) (:by |S1lNv50FW)
+                          |T $ %{} :Leaf (:at 1511547922369) (:by |S1lNv50FW) (:text |{})
+                          |b $ %{} :Expr (:at 1695265142879) (:by |S1lNv50FW)
                             :data $ {}
-                              |D $ %{} :Leaf (:at 1511549350966) (:by |S1lNv50FW) (:text |tree->cirru)
-                              |T $ %{} :Leaf (:at 1511547927250) (:by |S1lNv50FW) (:text |simple-expr)
-                      |r $ %{} :Expr (:at 1511547956016) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1695265148636) (:by |S1lNv50FW) (:text |:class-name)
+                              |b $ %{} :Expr (:at 1695265157119) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |D $ %{} :Leaf (:at 1695265158628) (:by |S1lNv50FW) (:text |str-spaced)
+                                  |T $ %{} :Leaf (:at 1695265151330) (:by |S1lNv50FW) (:text |css/row)
+                                  |b $ %{} :Leaf (:at 1695265164561) (:by |S1lNv50FW) (:text |style-peek-def)
+                      |r $ %{} :Expr (:at 1511547923339) (:by |S1lNv50FW)
                         :data $ {}
-                          |T $ %{} :Leaf (:at 1511547957249) (:by |S1lNv50FW) (:text |{})
-                          |j $ %{} :Expr (:at 1511547961556) (:by |S1lNv50FW)
+                          |T $ %{} :Leaf (:at 1511547923988) (:by |S1lNv50FW) (:text |<>)
+                          |j $ %{} :Expr (:at 1511548201532) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1511547967187) (:by |S1lNv50FW) (:text |:font-family)
-                              |j $ %{} :Leaf (:at 1511547999853) (:by |S1lNv50FW) (:text "||Source Code Pro, Iosevka,Consolas,monospace")
-                          |q $ %{} :Expr (:at 1517756675847) (:by |S1lNv50FW)
+                              |D $ %{} :Leaf (:at 1511548202376) (:by |S1lNv50FW) (:text |stringify-s-expr)
+                              |T $ %{} :Expr (:at 1511549345831) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |D $ %{} :Leaf (:at 1511549350966) (:by |S1lNv50FW) (:text |tree->cirru)
+                                  |T $ %{} :Leaf (:at 1511547927250) (:by |S1lNv50FW) (:text |simple-expr)
+                          |r $ %{} :Expr (:at 1511547956016) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1517756678489) (:by |S1lNv50FW) (:text |:white-space)
-                              |j $ %{} :Leaf (:at 1517756682332) (:by |S1lNv50FW) (:text |:nowrap)
-                          |y $ %{} :Expr (:at 1517755426337) (:by |root)
+                              |T $ %{} :Leaf (:at 1511547957249) (:by |S1lNv50FW) (:text |{})
+                              |j $ %{} :Expr (:at 1511547961556) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1511547967187) (:by |S1lNv50FW) (:text |:font-family)
+                                  |j $ %{} :Leaf (:at 1511547999853) (:by |S1lNv50FW) (:text "||Source Code Pro, Iosevka,Consolas,monospace")
+                              |q $ %{} :Expr (:at 1517756675847) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1517756678489) (:by |S1lNv50FW) (:text |:white-space)
+                                  |j $ %{} :Leaf (:at 1517756682332) (:by |S1lNv50FW) (:text |:nowrap)
+                              |y $ %{} :Expr (:at 1517755426337) (:by |root)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1517755428001) (:by |root) (:text |:overflow)
+                                  |j $ %{} :Leaf (:at 1517755430094) (:by |root) (:text |:hidden)
+                              |yT $ %{} :Expr (:at 1551895647637) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1551895647637) (:by |S1lNv50FW) (:text |:text-overflow)
+                                  |j $ %{} :Leaf (:at 1551895647637) (:by |S1lNv50FW) (:text |:ellipsis)
+                              |yj $ %{} :Expr (:at 1551895650826) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1551895650826) (:by |S1lNv50FW) (:text |:max-width)
+                                  |j $ %{} :Leaf (:at 1551895730702) (:by |S1lNv50FW) (:text |480)
+                      |rT $ %{} :Expr (:at 1695265564051) (:by |S1lNv50FW)
+                        :data $ {}
+                          |T $ %{} :Leaf (:at 1695265564051) (:by |S1lNv50FW) (:text |=<)
+                          |b $ %{} :Leaf (:at 1695265564051) (:by |S1lNv50FW) (:text |8)
+                          |h $ %{} :Leaf (:at 1695265564051) (:by |S1lNv50FW) (:text |nil)
+                      |s $ %{} :Expr (:at 1695265562322) (:by |S1lNv50FW)
+                        :data $ {}
+                          |T $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text |if)
+                          |b $ %{} :Expr (:at 1695265562322) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1517755428001) (:by |root) (:text |:overflow)
-                              |j $ %{} :Leaf (:at 1517755430094) (:by |root) (:text |:hidden)
-                          |yT $ %{} :Expr (:at 1551895647637) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text |blank?)
+                              |b $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text |doc)
+                          |h $ %{} :Expr (:at 1695265562322) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1551895647637) (:by |S1lNv50FW) (:text |:text-overflow)
-                              |j $ %{} :Leaf (:at 1551895647637) (:by |S1lNv50FW) (:text |:ellipsis)
-                          |yj $ %{} :Expr (:at 1551895650826) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text |<>)
+                              |b $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text "|\"...doc...")
+                              |h $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text |style-empty-doc)
+                          |l $ %{} :Expr (:at 1695265562322) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1551895650826) (:by |S1lNv50FW) (:text |:max-width)
-                              |j $ %{} :Leaf (:at 1551895730702) (:by |S1lNv50FW) (:text |480)
-                  |t $ %{} :Expr (:at 1556698901147) (:by |S1lNv50FW)
-                    :data $ {}
-                      |T $ %{} :Leaf (:at 1556698900844) (:by |S1lNv50FW) (:text |comp-icon)
-                      |j $ %{} :Leaf (:at 1556698904071) (:by |S1lNv50FW) (:text |:delete)
-                      |r $ %{} :Expr (:at 1556698905575) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text |<>)
+                              |b $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text |doc)
+                              |h $ %{} :Leaf (:at 1695265562322) (:by |S1lNv50FW) (:text |style-doc)
+                      |t $ %{} :Expr (:at 1556698901147) (:by |S1lNv50FW)
                         :data $ {}
-                          |T $ %{} :Leaf (:at 1556698906051) (:by |S1lNv50FW) (:text |{})
-                          |b $ %{} :Expr (:at 1556698919156) (:by |S1lNv50FW)
+                          |T $ %{} :Leaf (:at 1556698900844) (:by |S1lNv50FW) (:text |comp-icon)
+                          |j $ %{} :Leaf (:at 1556698904071) (:by |S1lNv50FW) (:text |:delete)
+                          |r $ %{} :Expr (:at 1556698905575) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1556698921778) (:by |S1lNv50FW) (:text |:font-size)
-                              |j $ %{} :Leaf (:at 1556698922271) (:by |S1lNv50FW) (:text |12)
-                          |j $ %{} :Expr (:at 1556698906795) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1556698906051) (:by |S1lNv50FW) (:text |{})
+                              |b $ %{} :Expr (:at 1556698919156) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1556698921778) (:by |S1lNv50FW) (:text |:font-size)
+                                  |j $ %{} :Leaf (:at 1695265631649) (:by |S1lNv50FW) (:text |14)
+                              |j $ %{} :Expr (:at 1556698906795) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1556698912473) (:by |S1lNv50FW) (:text |:color)
+                                  |j $ %{} :Expr (:at 1556698913398) (:by |S1lNv50FW)
+                                    :data $ {}
+                                      |T $ %{} :Leaf (:at 1556698914492) (:by |S1lNv50FW) (:text |hsl)
+                                      |j $ %{} :Leaf (:at 1556698914797) (:by |S1lNv50FW) (:text |0)
+                                      |r $ %{} :Leaf (:at 1695265622312) (:by |S1lNv50FW) (:text |90)
+                                      |v $ %{} :Leaf (:at 1695265623624) (:by |S1lNv50FW) (:text |70)
+                              |r $ %{} :Expr (:at 1556698923382) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1556698927796) (:by |S1lNv50FW) (:text |:cursor)
+                                  |j $ %{} :Leaf (:at 1556698930423) (:by |S1lNv50FW) (:text |:pointer)
+                              |v $ %{} :Expr (:at 1556698930967) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1556698936828) (:by |S1lNv50FW) (:text |:margin-left)
+                                  |j $ %{} :Leaf (:at 1556698937934) (:by |S1lNv50FW) (:text |8)
+                          |v $ %{} :Expr (:at 1584896513981) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1556698912473) (:by |S1lNv50FW) (:text |:color)
-                              |j $ %{} :Expr (:at 1556698913398) (:by |S1lNv50FW)
+                              |D $ %{} :Leaf (:at 1584896514534) (:by |S1lNv50FW) (:text |fn)
+                              |L $ %{} :Expr (:at 1584896514839) (:by |S1lNv50FW)
                                 :data $ {}
-                                  |T $ %{} :Leaf (:at 1556698914492) (:by |S1lNv50FW) (:text |hsl)
-                                  |j $ %{} :Leaf (:at 1556698914797) (:by |S1lNv50FW) (:text |0)
-                                  |r $ %{} :Leaf (:at 1556698914986) (:by |S1lNv50FW) (:text |0)
-                                  |v $ %{} :Leaf (:at 1556698916863) (:by |S1lNv50FW) (:text |50)
-                          |r $ %{} :Expr (:at 1556698923382) (:by |S1lNv50FW)
+                                  |T $ %{} :Leaf (:at 1584896515229) (:by |S1lNv50FW) (:text |e)
+                                  |j $ %{} :Leaf (:at 1584896515942) (:by |S1lNv50FW) (:text |d!)
+                              |T $ %{} :Expr (:at 1556698950504) (:by |S1lNv50FW)
+                                :data $ {}
+                                  |T $ %{} :Leaf (:at 1584896513296) (:by |S1lNv50FW) (:text |d!)
+                                  |j $ %{} :Leaf (:at 1556698950504) (:by |S1lNv50FW) (:text |:writer/hide-peek)
+                                  |r $ %{} :Leaf (:at 1556698950504) (:by |S1lNv50FW) (:text |nil)
+        |style-doc $ %{} :CodeEntry (:doc |)
+          :code $ %{} :Expr (:at 1695265506317) (:by |S1lNv50FW)
+            :data $ {}
+              |T $ %{} :Leaf (:at 1695265507672) (:by |S1lNv50FW) (:text |defstyle)
+              |b $ %{} :Leaf (:at 1695265506317) (:by |S1lNv50FW) (:text |style-doc)
+              |h $ %{} :Expr (:at 1695265506317) (:by |S1lNv50FW)
+                :data $ {}
+                  |T $ %{} :Leaf (:at 1695265509196) (:by |S1lNv50FW) (:text |{})
+                  |b $ %{} :Expr (:at 1695265509456) (:by |S1lNv50FW)
+                    :data $ {}
+                      |T $ %{} :Leaf (:at 1695265510700) (:by |S1lNv50FW) (:text "|\"&")
+                      |b $ %{} :Expr (:at 1695265514420) (:by |S1lNv50FW)
+                        :data $ {}
+                          |T $ %{} :Leaf (:at 1695265514721) (:by |S1lNv50FW) (:text |{})
+                          |b $ %{} :Expr (:at 1695265514967) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1556698927796) (:by |S1lNv50FW) (:text |:cursor)
-                              |j $ %{} :Leaf (:at 1556698930423) (:by |S1lNv50FW) (:text |:pointer)
-                          |v $ %{} :Expr (:at 1556698930967) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1695265517898) (:by |S1lNv50FW) (:text |:font-family)
+                              |b $ %{} :Leaf (:at 1695265520992) (:by |S1lNv50FW) (:text |ui/font-fancy)
+        |style-empty-doc $ %{} :CodeEntry (:doc |)
+          :code $ %{} :Expr (:at 1695265461607) (:by |S1lNv50FW)
+            :data $ {}
+              |T $ %{} :Leaf (:at 1695265462725) (:by |S1lNv50FW) (:text |defstyle)
+              |b $ %{} :Leaf (:at 1695265461607) (:by |S1lNv50FW) (:text |style-empty-doc)
+              |h $ %{} :Expr (:at 1695265483569) (:by |S1lNv50FW)
+                :data $ {}
+                  |D $ %{} :Leaf (:at 1695265484041) (:by |S1lNv50FW) (:text |{})
+                  |T $ %{} :Expr (:at 1695265484466) (:by |S1lNv50FW)
+                    :data $ {}
+                      |D $ %{} :Leaf (:at 1695265485381) (:by |S1lNv50FW) (:text "|\"&")
+                      |T $ %{} :Expr (:at 1695265461607) (:by |S1lNv50FW)
+                        :data $ {}
+                          |T $ %{} :Leaf (:at 1695265463860) (:by |S1lNv50FW) (:text |{})
+                          |b $ %{} :Expr (:at 1695265464132) (:by |S1lNv50FW)
+                            :data $ {}
+                              |T $ %{} :Leaf (:at 1695265467237) (:by |S1lNv50FW) (:text |:font-style)
+                              |b $ %{} :Leaf (:at 1695265468935) (:by |S1lNv50FW) (:text |:italic)
+                          |h $ %{} :Expr (:at 1695265470377) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1556698936828) (:by |S1lNv50FW) (:text |:margin-left)
-                              |j $ %{} :Leaf (:at 1556698937934) (:by |S1lNv50FW) (:text |8)
-                      |v $ %{} :Expr (:at 1584896513981) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1695265475938) (:by |S1lNv50FW) (:text |:opacity)
+                              |b $ %{} :Leaf (:at 1695265477192) (:by |S1lNv50FW) (:text |0.6)
+        |style-peek-def $ %{} :CodeEntry (:doc |)
+          :code $ %{} :Expr (:at 1695265165706) (:by |S1lNv50FW)
+            :data $ {}
+              |T $ %{} :Leaf (:at 1695265167051) (:by |S1lNv50FW) (:text |defstyle)
+              |b $ %{} :Leaf (:at 1695265165706) (:by |S1lNv50FW) (:text |style-peek-def)
+              |h $ %{} :Expr (:at 1695265167961) (:by |S1lNv50FW)
+                :data $ {}
+                  |D $ %{} :Leaf (:at 1695265168435) (:by |S1lNv50FW) (:text |{})
+                  |T $ %{} :Expr (:at 1695265168749) (:by |S1lNv50FW)
+                    :data $ {}
+                      |D $ %{} :Leaf (:at 1695265169741) (:by |S1lNv50FW) (:text "|\"&")
+                      |T $ %{} :Expr (:at 1695265167721) (:by |S1lNv50FW)
                         :data $ {}
-                          |D $ %{} :Leaf (:at 1584896514534) (:by |S1lNv50FW) (:text |fn)
-                          |L $ %{} :Expr (:at 1584896514839) (:by |S1lNv50FW)
+                          |T $ %{} :Leaf (:at 1695265167721) (:by |S1lNv50FW) (:text |{})
+                          |b $ %{} :Expr (:at 1695265167721) (:by |S1lNv50FW)
+                            :data $ {}
+                              |T $ %{} :Leaf (:at 1695265167721) (:by |S1lNv50FW) (:text |:align-items)
+                              |b $ %{} :Leaf (:at 1695265167721) (:by |S1lNv50FW) (:text |:center)
+                          |l $ %{} :Expr (:at 1695265167721) (:by |S1lNv50FW)
+                            :data $ {}
+                              |T $ %{} :Leaf (:at 1695265167721) (:by |S1lNv50FW) (:text |:font-size)
+                              |b $ %{} :Leaf (:at 1695265167721) (:by |S1lNv50FW) (:text |12)
+                          |o $ %{} :Expr (:at 1695265167721) (:by |S1lNv50FW)
+                            :data $ {}
+                              |T $ %{} :Leaf (:at 1695265167721) (:by |S1lNv50FW) (:text |:line-height)
+                              |b $ %{} :Leaf (:at 1695265167721) (:by |S1lNv50FW) (:text "|\"1.5em")
+                          |q $ %{} :Expr (:at 1695265419075) (:by |S1lNv50FW)
+                            :data $ {}
+                              |T $ %{} :Leaf (:at 1695265420951) (:by |S1lNv50FW) (:text |:position)
+                              |b $ %{} :Leaf (:at 1695265424062) (:by |S1lNv50FW) (:text |:fixed)
+                          |s $ %{} :Expr (:at 1695265424479) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1584896515229) (:by |S1lNv50FW) (:text |e)
-                              |j $ %{} :Leaf (:at 1584896515942) (:by |S1lNv50FW) (:text |d!)
-                          |T $ %{} :Expr (:at 1556698950504) (:by |S1lNv50FW)
+                              |T $ %{} :Leaf (:at 1695265425431) (:by |S1lNv50FW) (:text |:bottom)
+                              |b $ %{} :Leaf (:at 1695265649313) (:by |S1lNv50FW) (:text |4)
+                          |t $ %{} :Expr (:at 1695265591270) (:by |S1lNv50FW)
                             :data $ {}
-                              |T $ %{} :Leaf (:at 1584896513296) (:by |S1lNv50FW) (:text |d!)
-                              |j $ %{} :Leaf (:at 1556698950504) (:by |S1lNv50FW) (:text |:writer/hide-peek)
-                              |r $ %{} :Leaf (:at 1556698950504) (:by |S1lNv50FW) (:text |nil)
+                              |T $ %{} :Leaf (:at 1695265592548) (:by |S1lNv50FW) (:text |:opacity)
+                              |b $ %{} :Leaf (:at 1695265611744) (:by |S1lNv50FW) (:text |0.5)
+                  |b $ %{} :Expr (:at 1695265596639) (:by |S1lNv50FW)
+                    :data $ {}
+                      |T $ %{} :Leaf (:at 1695265599579) (:by |S1lNv50FW) (:text "|\"&:hover")
+                      |b $ %{} :Expr (:at 1695265599795) (:by |S1lNv50FW)
+                        :data $ {}
+                          |T $ %{} :Leaf (:at 1695265600134) (:by |S1lNv50FW) (:text |{})
+                          |b $ %{} :Expr (:at 1695265600353) (:by |S1lNv50FW)
+                            :data $ {}
+                              |T $ %{} :Leaf (:at 1695265601901) (:by |S1lNv50FW) (:text |:opacity)
+                              |b $ %{} :Leaf (:at 1695265602212) (:by |S1lNv50FW) (:text |1)
       :ns $ %{} :CodeEntry (:doc |)
         :code $ %{} :Expr (:at 1511547897427) (:by |S1lNv50FW)
           :data $ {}
@@ -13985,6 +14095,18 @@
                     |v $ %{} :Expr (:at 1556698885606) (:by |S1lNv50FW)
                       :data $ {}
                         |j $ %{} :Leaf (:at 1556698891667) (:by |S1lNv50FW) (:text |comp-icon)
+                |z $ %{} :Expr (:at 1695265277388) (:by |S1lNv50FW)
+                  :data $ {}
+                    |T $ %{} :Leaf (:at 1695265285631) (:by |S1lNv50FW) (:text |respo-ui.css)
+                    |b $ %{} :Leaf (:at 1695265286127) (:by |S1lNv50FW) (:text |:as)
+                    |h $ %{} :Leaf (:at 1695265286815) (:by |S1lNv50FW) (:text |css)
+                |zD $ %{} :Expr (:at 1695265289673) (:by |S1lNv50FW)
+                  :data $ {}
+                    |T $ %{} :Leaf (:at 1695265291407) (:by |S1lNv50FW) (:text |respo.css)
+                    |b $ %{} :Leaf (:at 1695265295038) (:by |S1lNv50FW) (:text |:refer)
+                    |h $ %{} :Expr (:at 1695265296059) (:by |S1lNv50FW)
+                      :data $ {}
+                        |T $ %{} :Leaf (:at 1695265297674) (:by |S1lNv50FW) (:text |defstyle)
     |app.comp.picker-notice $ %{} :FileEntry
       :defs $ {}
         |comp-picker-notice $ %{} :CodeEntry (:doc |)
@@ -24998,6 +25120,7 @@
                                       |r $ %{} :Leaf (:at 1504777570689) (:by |root) (:text |:files)
                                       |v $ %{} :Leaf (:at 1504777570689) (:by |root) (:text |ns-text)
                                       |x $ %{} :Leaf (:at 1504777570689) (:by |root) (:text |:ns)
+                                      |y $ %{} :Leaf (:at 1695264961097) (:by |S1lNv50FW) (:text |:code)
                       |y $ %{} :Expr (:at 1504777570689) (:by nil)
                         :data $ {}
                           |T $ %{} :Leaf (:at 1504777570689) (:by |root) (:text |deps-info)
diff --git a/compact.cirru b/compact.cirru
index 0566a52..d662e77 100644
--- a/compact.cirru
+++ b/compact.cirru
@@ -1,6 +1,6 @@
 
 {} (:package |app)
-  :configs $ {} (:init-fn |app.server/main!) (:reload-fn |app.server/reload!) (:version |0.8.8)
+  :configs $ {} (:init-fn |app.server/main!) (:reload-fn |app.server/reload!) (:version |0.8.9)
     :modules $ [] |lilac/ |memof/ |recollect/ |cumulo-util.calcit/ |ws-edn.calcit/ |bisection-key/
   :entries $ {}
     :client $ {} (:init-fn |app.client/main!) (:reload-fn |app.client/reload!)
@@ -672,10 +672,11 @@
               "\"$0" $ {} (:background-color :black) (:color :white)
         |style-inspector $ %{} :CodeEntry (:doc |)
           :code $ quote
-            def style-inspector $ {} (:bottom 0) (:left 0) (:max-width |100%)
+            def style-inspector $ {} (:bottom 40) (:left 0) (:max-width |100%)
               :background-color $ hsl 0 0 50
               :color :black
               :opacity 1
+              :z-index 100
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
           ns app.comp.container $ :require
@@ -2062,22 +2063,36 @@
       :defs $ {}
         |comp-peek-def $ %{} :CodeEntry (:doc |)
           :code $ quote
-            defcomp comp-peek-def (simple-expr)
-              div
-                {} $ :style
-                  merge ui/row $ {} (:align-items :center)
-                    :color $ hsl 0 0 50
-                    :font-size 12
-                    :line-height "\"1.5em"
-                <>
-                  stringify-s-expr $ tree->cirru simple-expr
-                  {} (:font-family "|Source Code Pro, Iosevka,Consolas,monospace") (:white-space :nowrap) (:overflow :hidden) (:text-overflow :ellipsis) (:max-width 480)
-                comp-icon :delete
-                  {} (:font-size 12)
-                    :color $ hsl 0 0 50
-                    :cursor :pointer
-                    :margin-left 8
-                  fn (e d!) (d! :writer/hide-peek nil)
+            defcomp comp-peek-def (expr-entry)
+              let
+                  doc $ :doc expr-entry
+                  simple-expr $ :code expr-entry
+                div
+                  {} $ :class-name (str-spaced css/row style-peek-def)
+                  <>
+                    stringify-s-expr $ tree->cirru simple-expr
+                    {} (:font-family "|Source Code Pro, Iosevka,Consolas,monospace") (:white-space :nowrap) (:overflow :hidden) (:text-overflow :ellipsis) (:max-width 480)
+                  =< 8 nil
+                  if (blank? doc) (<> "\"...doc..." style-empty-doc) (<> doc style-doc)
+                  comp-icon :delete
+                    {} (:font-size 14)
+                      :color $ hsl 0 90 70
+                      :cursor :pointer
+                      :margin-left 8
+                    fn (e d!) (d! :writer/hide-peek nil)
+        |style-doc $ %{} :CodeEntry (:doc |)
+          :code $ quote
+            defstyle style-doc $ {}
+              "\"&" $ {} (:font-family ui/font-fancy)
+        |style-empty-doc $ %{} :CodeEntry (:doc |)
+          :code $ quote
+            defstyle style-empty-doc $ {}
+              "\"&" $ {} (:font-style :italic) (:opacity 0.6)
+        |style-peek-def $ %{} :CodeEntry (:doc |)
+          :code $ quote
+            defstyle style-peek-def $ {}
+              "\"&" $ {} (:align-items :center) (:font-size 12) (:line-height "\"1.5em") (:position :fixed) (:bottom 4) (:opacity 0.5)
+              "\"&:hover" $ {} (:opacity 1)
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
           ns app.comp.peek-def $ :require
@@ -2089,6 +2104,8 @@
             app.style :as style
             app.util :refer $ stringify-s-expr tree->cirru
             feather.core :refer $ comp-icon
+            respo-ui.css :as css
+            respo.css :refer $ defstyle
     |app.comp.picker-notice $ %{} :FileEntry
       :defs $ {}
         |comp-picker-notice $ %{} :CodeEntry (:doc |)
@@ -3724,7 +3741,7 @@
                   bookmark $ to-bookmark writer
                   ns-text $ :ns bookmark
                   ns-expr $ tree->cirru
-                    get-in db $ [] :files ns-text :ns
+                    get-in db $ [] :files ns-text :ns :code
                   deps-info $ parse-deps (.slice ns-expr 2)
                   def-info $ parse-def op-data
                   new-bookmark $ merge schema/bookmark
diff --git a/package.json b/package.json
index 71a8b62..e198168 100644
--- a/package.json
+++ b/package.json
@@ -1,6 +1,6 @@
 {
   "name": "@calcit/editor",
-  "version": "0.8.8",
+  "version": "0.8.9",
   "description": "Tree Editor for Calcit Language",
   "bin": {
     "ct": "./server.mjs"