          v-height] (rv/viewport-wh state)
         popover-x  (int (- (/ v-width 2) (/ width 2)))
         popover-y  (int (- (/ v-height 2) (/ height 2)))]
-    (println "rendering popover at" popover-x "," popover-y)
     (-> rstate
       (render-list :ui popover-x popover-y width (+ 4 height)
         (concat

         v-height] (rv/viewport-wh state)
        popover-x  (int (- (/ v-width 2) (/ width 2)))
        popover-y  (int (- (/ v-height 2) (/ height 2)))]
    (println "rendering popover at" popover-x "," popover-y)
    (render-list rstate :ui popover-x popover-y width (inc height)
      (concat
        [{:s "" :fg :black :bg :white :style #{}}]

        fg (rcolor/color->rgb fg)
        bg (rcolor/color->rgb bg)]
    ;; render top and bottom
    (put-chars rstate :ui
      (mapcat identity
          (concat
