Load config.el

;;-----------------------------                                                                                                                                                                  
;; Load *.config.el                                                                                                                                                                              
;;-----------------------------                                                                                                                                                                  

(defvar loaded-config '())

(defun config-el-p (conf)
  (string-match "\\.config\\.el$" conf))

(defun loaded-config-p (conf)
  (if (config-el-p conf)
      (member conf loaded-config)
    nil))

(defun load-config-file (conf)
  (if (and (config-el-p conf)
           (not (loaded-config-p conf)))
      (progn
        (load conf)
        (setq loaded-config
              (nconc loaded-config
                     (list conf))))))

(defun load-config-directory (path)
  (let* ((path (expand-file-name path))
         (files (directory-files path)))
    (dolist (x files)
      (load-config-file x))))

(defun load-configs (path)
  (load-config-directory
   (locate-user-emacs-file path)))