49 lines
1.7 KiB
EmacsLisp
49 lines
1.7 KiB
EmacsLisp
(require 'cl)
|
|
|
|
;; Locations ==================================================================
|
|
(defvar user-home-directory
|
|
(expand-file-name (concat user-emacs-directory "../"))
|
|
"Emacs home directory.")
|
|
|
|
(defvar user-pre-directory
|
|
(expand-file-name (concat user-emacs-directory "pre/"))
|
|
"Pre-configuration scripts.")
|
|
|
|
(defvar user-post-directory
|
|
(expand-file-name (concat user-emacs-directory "post/"))
|
|
"Post-configuration setup.")
|
|
|
|
(defvar user-extensions-directory
|
|
(expand-file-name (concat user-emacs-directory "extensions/"))
|
|
"Additional extensions.")
|
|
|
|
(defvar host-directory
|
|
(expand-file-name (concat user-emacs-directory "host/" system-name "/"))
|
|
"Host specific configurations")
|
|
|
|
(add-to-list 'load-path user-emacs-directory)
|
|
(add-to-list 'load-path user-extensions-directory)
|
|
|
|
;; Pre-config =================================================================
|
|
(progn (when (file-exists-p user-pre-directory)
|
|
(dolist (l (directory-files user-pre-directory nil "^[^#].*el$"))
|
|
(load (concat user-pre-directory l)))))
|
|
|
|
;; Package setup ==============================================================
|
|
(require 'funcs)
|
|
(require 'funcs-virga)
|
|
(require 'packages)
|
|
(require 'keybindings)
|
|
|
|
;; Post-config ================================================================
|
|
(progn (when (file-exists-p user-post-directory)
|
|
(dolist (l (directory-files user-post-directory nil "^[^#].*el$"))
|
|
(load (concat user-post-directory l)))))
|
|
|
|
;; Host config ================================================================
|
|
(progn (when (file-exists-p host-directory)
|
|
(dolist (l (directory-files host-directory nil "^[^#].*el$"))
|
|
(load (concat host-directory l)))))
|
|
|
|
;; TODO refactor auto-loading functions for configuration files
|