(defn ross-questions-page [customer-id {:keys [localize]} db]
  (f/attempt-all [customer (db-cust/get-by-id db customer-id localize)
                  _ (s-cust/validate-customer-belongs-to-user customer (sess/get :user-id) localize)
                  questions (db-quest/get-by-customer-id db customer-id localize)
                  rehashed-questions (quest/prepare-data-for-vec-of-ross-questions questions)
                  question-headlines-and-points (quest/get-question-headlines-and-points quest/ross-questions)]
                 (layout/render "customer/ross-questions.html" {:questions (vec questions)
                                                                :rehashed-questions rehashed-questions
                                                                :question-headlines-and-points question-headlines-and-points})
                 (f/when-failed [e]
                                (layout/flash-result (:message e) "alert-danger")
                                (redirect "/customer"))))