     (log/info "player-adj-xys" (rw/player-adjacent-xys state))
     (update-in state [:world :player :thirst] (fn [thirst] (min 0 (- thirst water))))))
 
+(def quaff-popover-message
+  "This water is not potable. Are you sure?\n \n[<color fg=\"highlight\">y</color>]es [<color fg=\"highlight\">n</color>]o")
+
 (defn quaff-select
   "Select the next state depending on what quaffable items are available."
   [state]

      (rw/assoc-current-state :normal)))
    (do (log/info "Drinking nonpotable water")
    (-> state
      (assoc-in [:world :popover-message] "This water is not potable. Are you sure?\n \n[<color fg=\"highlight\">y</color>]es [<color fg=\"highlight\">n</color>]o")
      (assoc-in [:world :quaff-pos] (rc/xy->pos x y))
      (rw/assoc-current-state :quaff-popover))))))



(defn quaff-cell-at-pos
  ([state]
  (-> state
    (update-in [:world :player :thirst] (fn [thirst] (min 0 (- thirst 10))))
    (rp/player-update-hp (fn [hp] (max (- hp 10) 0)))
    (rw/assoc-current-state :normal)))
  ([state {x :x y :y}]
  (if-let [water (get (rw/get-cell state x y) :water)]
    (do (log/info "Drinking potable water")
