;;;
;;; emacs init SysVmodern style
;;; (c) 1997, Ingvar Mattsson
;;; Idea nicked from, among others, Kent Engström.
;;;
;;; ChangeLog:
;;; 971010 Began writing it

(defvar einit-default-path "~/.emacsdir" "Default path for init directory")
(defvar einit-trace-buffer nil "Trace buffer, it's (get-buffer-create \"*einit-trace*)\"")
(defvar einit-trace nil "Shall we trace einit loading?")
(defmacro einit-tracer (expr)
  (or einit-trace-buffer
      (setq einit-trace-buffer (get-buffer-create "*einit-trace*")))
  (if einit-trace
      `(save-excursion
	 (set-buffer einit-trace-buffer)
	 (let ((einit-escape-hatch ,expr))
	   (insert (format "%s -> %s\n" ',expr einit-escape-hatch))
	   einit-escape-hatch))
    expr))
(defun einit-load-init-files (&optional path)
  (let ((path (if path path einit-default-path)))
    (mapcar (lambda (name)
	      (einit-tracer
	       (load-file (expand-file-name (format "%s/%s" path name)))))
	    (directory-files path nil "^ei.*[^~]$"))))

(provide 'einit)