     (doall (map-indexed
       (fn [idx line] (put-string screen 12 (+ idx 9) line))
       (clojure.string/split-lines start-text)))
-    (put-string screen 17 19 "Press any key to continue and ? to view help.")
+    (put-chars screen (markup->chars 17 19 "Press <color fg=\"highlight\">any key</color> to continue and <color fg=\"highlight\">?</color> to view help."))
     (refresh screen)))
 
 (def loading-index (atom 0))

        start-inventory  (sg/start-inventory)]
    (clear (state :screen))
    (put-string screen 20 5 "Choose up to three things to take with you:")
    (render-list screen 20 7 60 (count start-inventory)
                                (map (fn [item] 
                                       (log/info (get item :hotkey) (type (get item :hotkey)) (get item :name))
                                       {:s (format #?(:clj  "%c%c%s"
                                                      :cljs "%s%s%s")
                                                   (get item :hotkey)
                                                   (if (contains? selected-hotkeys (get item :hotkey))
                                                     \+
                                                     \-)
                                                   (get item :name))
                                                   :fg :white
                                                   :bg :black
                                                   :style #{}})
                                        start-inventory))
    (refresh screen)))



                              {:message "" :time 0 :color :black} 
                              (nth (reverse (get-in state [:world :log])) log-idx))
            darken-factor   (inc  (* (/ -1 5) (- current-time (message :time))))
            log-color       (darken-rgb (color->rgb (get message :color)) darken-factor)
            characters      (markup->chars 0 0 (format "%s%s %s" (if msg-above?
                                                                   (str "<color fg=\"highlight\">/</color>-" up-arrow-char)
                                                                   "   ")
                                                                 (if msg-below?
                                                                   (str "<color fg=\"highlight\">*</color>-" down-arrow-char)
                                                                   "   ")
                                                                 (or (message :text) "" )))]
        (log/info "num-log-msgs" num-logs)
        (log/info "message" message)
        (put-chars screen characters)))
    (case (current-state state)
      :pickup               (render-pick-up state)
      :inventory            (render-inventory state)
