                             :height 20
                             :position :fixed
                             :left 40
-                            :top 1
+                            :top 0
                             :padding 1
                             :background-color (rcolor/color->rgb :white)}} [
              [MultiSelect {:title "Throw"

          [:text {:style {:color infected-color}} ["\u2665"]]
          [:text {} [" "]]]]]])))

    ;    (int (-> state :world :player :hp))
    ;    (-> state :world :player :max-hp)
    ;    (apply str (interpose " " (-> state :world :player :status)))
(zc/def-component DblBarChart
  [this]
  (let [{:keys [fg-1 fg-2 p1 p2 width direction style]} (zc/props this)
        root (* width (min p1 p2))
        padding (* width (- 1 (max p1 p2)))
        diff (- width root padding)
        black-color (rcolor/color->rgb :black)]
      (case direction

            (if-let [ui-hint (get-in game-state [:world :ui-hint])]
              ;; ui-hint
              (zc/csx [:view {} [
                [:text {:style {:position :fixed :top 0 :left 0
                                :background-color [0 0 0 0]}} [
                          [:text {:style {:background-color [0 0 0]}} [ui-hint]]]]]])
              ;; regular concise message log
