          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 #{}}]

         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

       (is (every? character? xs))))

(defn renderstate? [x]
  (is (every? characters? (vals (get x :layers {})))))

;;; {
