Adding validation

validation.clj

(defn ensure-text-presence
  [params]
  "Ensure (body :text) is present"
  (if (empty? (params :text))
    [nil, "Please provide text for your note"]
    [params]))

(defn ensure-text-length
  "Ensure that the length of the text is between 1 and 140 characters"
  [params]
  (let [c (count (:text params))]
    (if (or (> 1 c) (< 140 c))
      [nil, "Please provide text between 1 and 140 characters in length"]
      [params])))