                                word)
               characters     (concat characters
                                      word
-                                     [{:c " "
+                                     [{:c \space
                                        :x (+ @nchars (count word) x)
                                        :y @line
                                        :fg (rcolor/color->rgb fg)

              (fn [ability]
                [{:s (format "<color fg=\"highlight\">%s</color> - %s" (get ability :hotkey) (get ability :name))
                  :fg :black
                  :bg :white
                  :style #{}}
                 {:s "" :fg :black :bg :white :style #{}}])
              abilities)
            [{:s "" :fg :black :bg :white :style #{}}
             {:s "Select hotkey or press <color fg=\"highlight\">Esc</color> to exit." :fg :black :bg :white :style #{}}])
          [{:s "Nothing to do." :fg :black :bg :white :style #{}}
           {:s "" :fg :black :bg :white :style #{}}
           {:s "Press <color fg=\"highlight\">Esc</color> to exit." :fg :black :bg :white :style #{}}]))
          
      (render-rect-double-border 16 3 43 height :black :white)
      (put-string :ui 30 3 "Choose Action" :black :white))))

    (-> rstate
      (render-list :ui 27 4 width 6
        (concat
          [{:s "" :fg :black :bg :white}]
          (map
            (fn [line] {:s line :fg :black :bg :white :style #{:center}})
            ["You died."
