13 lines
431 B
EmacsLisp
13 lines
431 B
EmacsLisp
;;; 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
|