;;; 05-linuxplus-show-scores.el --- linuxplus-show-scores

(defun linuxplus-show-scores ()
  "Display saved Linux+ lesson scores."
  (interactive)
  (with-current-buffer (get-buffer-create "*Linux+ Scores*")
    (read-only-mode -1)
    (erase-buffer)
    (insert "Linux+ Lesson Scores\n====================\n\n")
    (dolist (entry linuxplus-lesson-history)
      (insert (format "%s: %s\n" (car entry) (cdr entry))))
    (goto-char (point-min))
    (view-mode 1)
    (pop-to-buffer (current-buffer))))

;;; 05-linuxplus-show-scores.el ends here