         ;; pad to width
         s        (if center
                    ;; center justify
-                   (center-text line width)
+                   (center-markup line width)
                    ;; left justify
-                   (left-justify-text line width))
+                   (left-justify-markup line width))
         [fg bg]  (if invert
                    [bg fg]
                    [fg bg])


(defn left-justify-text [s width]
  (let [n-ws (- width (count s))]
   (apply str (concat s (repeat n-ws " ")))))

(defn render-line

                   #{:underline}
                   #{})]
    #_(log/info "put-string" (format "\"%s\"" line) "width" width)
    #_(put-string screen x y s fg bg style)
    (put-chars screen (markup->chars x y s fg bg style))))


(defn render-rect-border
