17 lines
444 B
EmacsLisp
17 lines
444 B
EmacsLisp
;;; linuxplus-load-all.el --- linuxplus-load-all
|
|
|
|
(require 'seq)
|
|
|
|
(defvar linuxplus-base-directory
|
|
(file-name-directory (or load-file-name buffer-file-name)))
|
|
|
|
(defun linuxplus-load-all ()
|
|
(interactive)
|
|
(dolist (f (sort (directory-files linuxplus-base-directory t "^[0-9].*\\.el$")
|
|
#'string-lessp))
|
|
(load-file f))
|
|
(linuxplus-load-lesson-history)
|
|
(message "Linux+ loaded."))
|
|
|
|
;;; linuxplus-load-all.el ends here
|