;;; 04-linuxplus-record-score.el --- linuxplus-record-score

(defun linuxplus-record-score (lesson score)
  "Record and persist lesson SCORE."
  (let ((entry (assoc lesson linuxplus-lesson-history)))
    (if entry
        (setcdr entry score)
      (push (cons lesson score) linuxplus-lesson-history)))
  (linuxplus-save-lesson-history)
  (message "Recorded %s score: %s" lesson score))

;;; 04-linuxplus-record-score.el ends here