29 lines
823 B
EmacsLisp
29 lines
823 B
EmacsLisp
;;; bootstrap.el --- Helpers for bootstrapping Emacs. -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
|
|
;; Stolen from Alexx Ott, https://github.com/alexott/dotemacs
|
|
|
|
;;; Code:
|
|
|
|
(declare-function 'path-join "path")
|
|
|
|
|
|
(defun load-all-files-from-dir (dir)
|
|
"Load all Emacs Lisp files in DIR."
|
|
(dolist (f (directory-files dir))
|
|
(when (and
|
|
(file-directory-p (path-join dir f))
|
|
(not (string= "." f))
|
|
(not (string= ".." f)))
|
|
(load-all-files-from-dir (path-join dir f)))
|
|
(when (and
|
|
(not (file-directory-p (path-join dir f)))
|
|
(not (string= "bootstrapper.el" f))
|
|
(not (string= ".#" (substring f 0 2)))
|
|
(string= ".el" (substring f (- (length f) 3))))
|
|
(load-file (path-join dir f)))))
|
|
|
|
|
|
(provide 'lib/bootstrap)
|
|
;;; bootstrap.el ends here
|