31
modules/init-utils.el
Normal file
31
modules/init-utils.el
Normal file
@@ -0,0 +1,31 @@
|
||||
;;; init-utils.el --- .Emacs Configuration -*- lexical-binding: t -*-
|
||||
;;; Commentary:
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
;; Loads functions from libs
|
||||
(defun load-directory (dir)
|
||||
"Load functions from the libs DIR.
|
||||
read the .el files"
|
||||
(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/modules/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
|
||||
(load-file "~/.emacs.d/modules/lib/myemacs.el")
|
||||
|
||||
(provide 'init-utils)
|
||||
;;; init-utils.el ends here
|
||||
Reference in New Issue
Block a user