gistfile1.clj

  (defn wisdom:storage-key [stutter]
    (when-maybe [scope (wisdom-scope stutter)
                 code (case (:stutter_type stutter)
                        "reflection" (:header_key stutter)
                        "student_completed_event" "goal_completed"
                        ;else
                        (errorf "There is no stutter for %s" stutter))]
      (wisdom-key scope code)))