   [entry]
   (let [{:keys [depth name]} entry]
     (if name
-      (clojure.string/join "" [(indent depth :end {:fg 7
-                                                   :bold true
-                                                   :text "> "})
+      (clojure.string/join "" [(slinky->str #spy/d (fn-header-indent-slinky) depth)
                                (color-code :fg* (dec depth) :bg 0 :bold false)
                                (:name entry)
                                "  "

                        (= :default fi) [java.lang.Integer/MIN_VALUE java.lang.Integer/MAX_VALUE]
                        (number? fi) [fi fi])]
      (when (or (<= lo i hi)
                (<= lo (- len i) hi))
        se))))

(defn slinky-first-match

                                                           :class-delimiter [:cyan]
                                                           :class-name      [:cyan]}}))

(defn base-indent-slinky
  [& {:keys [override underride]
      :or {override [] underride []}}]
  (concat override
          [:start " "
           :end " "
           :default (fn [i]
                      {:fg* i :text "|"})]
          underride))

(defn arg-indent-slinky
  [& {:keys [start end]
      :or {start " "
           end " "}}]
  (base-indent-slinky :override [:start start
                                 -1 "-"
                                 :end end]))

(defn fn-header-indent-slinky
  []
  (base-indent-slinky :override [-1 (fn [i]
                                      {:fg* i :text "v"})]))

(defn fn-footer-indent-slinky
  []
  (base-indent-slinky :override [-1 (fn [i]
                                      {:fg* i :text "^"})]))

(defn apply-color-palette
  [n]
