pupilfirst/pupilfirst

class CreateQuizSubmissionMutator < ApplicationQuery
  include AuthorizeStudent
  include DevelopersNotifications

  property :target_id, validates: { presence: { message: "Blank Target Id" } }
  property :answer_ids

  validate :target_should_have_a_quiz
  validate :all_questions_answered
  validate :ensure_submittability

  def create_submission
    submission =
      TimelineEvent.transaction do
        target
          .timeline_events
          .create!(
            checklist: result[:checklist],
            quiz_score: result[:score],
            passed_at: Time.zone.now
          )
          .tap do |submission|
            students.map do |student|
              student.timeline_event_owners.create!(
                timeline_event: submission,
                latest: true
              )
            end
          end
      end

    TimelineEvents::AfterMarkingAsCompleteJob.perform_later(submission)
    publish(
      course,
      :submission_automatically_verified,
      current_user,
      submission
    )

    submission
  end

  private

  def target_should_have_a_quiz
    return if quiz.present?

    errors.add(:base, "TargetDoesNotHaveQuiz")
  end

  def all_questions_answered
    return if number_of_questions == answers_from_user.count

    errors.add(:base, "The answers are incomplete. Please try again.")
  end

  def number_of_questions
    @number_of_questions ||= quiz.quiz_questions.count
  end

  def answers_from_user
    @answers_from_user ||= quiz.answer_options.where(id: answer_ids)
  end

  def questions
    @questions ||= quiz.quiz_questions
  end

  def quiz
    @quiz ||= target.assignments.first.quiz
  end

  def checklist_item(title, result, status)
    { title: title, result: result, kind: "longText", status: status }
  end

  def result
    @result ||=
      begin
        score = 0
        checklist =
          questions.each_with_index.map do |question, index|
            correct_answer = question.correct_answer
            u_answer = answers_from_user.where(quiz_question: question).first

            score += 1 if correct_answer == u_answer

            stripped_question = question.question.strip
            end_with_lb_or_space =
              stripped_question.ends_with?("```") ? "\n\n" : "  \n"

            title = "#{I18n.t("mutations.quiz.question")} #{index + 1}"
            result =
              " #{stripped_question}#{end_with_lb_or_space}#{answer_text(correct_answer, u_answer)}"
            status =
              if correct_answer == u_answer
                TimelineEvent::CHECKLIST_STATUS_PASSED
              else
                TimelineEvent::CHECKLIST_STATUS_FAILED
              end
            checklist_item(title, result, status)
          end

        { score: "#{score}/#{number_of_questions}", checklist: checklist }
      end
  end

  def pretty_answer(answer)
    stripped_answer = answer.strip
    start_with_lb_or_space = stripped_answer.starts_with?("```") ? "\n" : " "
    end_with_lb_or_space = stripped_answer.ends_with?("```") ? "\n\n" : "  \n"
    "#{start_with_lb_or_space}#{stripped_answer}#{end_with_lb_or_space}"
  end

  def answer_text(correct_answer, u_answer)
    if u_answer == correct_answer
      "**#{I18n.t("mutations.quiz.your_correct_answer")}:**#{pretty_answer(u_answer.value)}"
    else
      "**#{I18n.t("mutations.quiz.your_answer")}:**#{pretty_answer(u_answer.value)}**#{I18n.t("mutations.quiz.correct_answer")}:**#{pretty_answer(correct_answer.value)}"
    end
  end
end