(defn clamp [value minimum maximum]
  (let [clamp-top (if maximum
                    (min value maximum)
                    value)]
    (if minimum
      (max minimum clamp-top)
      clamp-top)))