17 lines
546 B
EmacsLisp
17 lines
546 B
EmacsLisp
;;; 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
|