Fix death popup text + overflow

kelsey-sorrels · Oct 5, 2015 · bb5e3a2 · bb5e3a2
1 parent 4ab6a80
commit bb5e3a2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/cljc/robinson/render.cljc b/src/cljc/robinson/render.cljc
@@ -1102,14 +1102,14 @@
         will-to-live   (get-in state [:world :player :will-to-live])
         cause-of-death (or
                          (get-in state [:world :cause-of-death])
-                         (format "From %s"
+                         (format "%s"
                            (cond
                              (<= hp 0)             "massive injuries"
-                             (> hunger max-hunger) "literall starving to death"
+                             (> hunger max-hunger) "literally starving to death"
                              (> thirst max-thirst) "not drinking enough water"
                              (<= will-to-live 0)   "just giving up on life"
                              :else                 "mysterious causes")))
-        width          (max 25 (markup->length cause-of-death))]
+        width          (max 25 (+ 7 (markup->length cause-of-death)))]
     (render-list screen 27 4 width 6
       (concat
         [{:s "" :fg :black :bg :white :style #{}}]