25 lines
802 B
EmacsLisp
25 lines
802 B
EmacsLisp
;; Loads functions from libs
|
|
(defun load-directory (dir)
|
|
(let ((load-it (lambda (f)
|
|
(load-file (concat (file-name-as-directory dir) f)))
|
|
))
|
|
(mapc load-it (directory-files dir nil "\\.el$"))))
|
|
|
|
;; Load lib functions
|
|
(load-directory (expand-file-name "~/.emacs.d/lisp/lib/" user-emacs-directory))
|
|
|
|
;; This is borrowed from https://github.com/purcell/emacs.d/blob/master/lisp/init-utils.el by Steve Purcell but I have added some stuff.
|
|
|
|
(if (fboundp 'with-eval-after-load)
|
|
(defalias 'after-load 'with-eval-after-load)
|
|
(defmacro after-load (feature &rest body)
|
|
"After FEATURE is loaded, evaluate BODY."
|
|
(declare (indent defun))
|
|
'(eval-after-load, feature
|
|
'(progn, @body))))
|
|
|
|
;; Elapsed time
|
|
(myemacs/elapsed-time)
|
|
|
|
(provide 'init-utils)
|