2012-12-18 05:48:12 +00:00
|
|
|
(require 'cl)
|
|
|
|
|
|
2012-12-21 21:06:22 +00:00
|
|
|
;; Locations ==================================================================
|
2012-12-18 05:48:12 +00:00
|
|
|
(defvar user-home-directory
|
|
|
|
|
(expand-file-name (concat user-emacs-directory "../"))
|
2012-12-21 21:06:22 +00:00
|
|
|
"Emacs home directory.")
|
2012-12-18 05:48:12 +00:00
|
|
|
|
2013-01-11 03:29:46 +00:00
|
|
|
(defvar user-org-directory
|
|
|
|
|
(expand-file-name (concat user-emacs-directory "my-org/"))
|
|
|
|
|
"Org files directory.")
|
|
|
|
|
|
2012-12-27 20:50:48 +00:00
|
|
|
(defvar user-config-directory
|
|
|
|
|
(expand-file-name (concat user-emacs-directory "config/"))
|
|
|
|
|
"Configuration scripts.")
|
2012-12-21 21:06:22 +00:00
|
|
|
|
|
|
|
|
(defvar user-extensions-directory
|
|
|
|
|
(expand-file-name (concat user-emacs-directory "extensions/"))
|
|
|
|
|
"Additional extensions.")
|
2012-12-19 20:18:17 +00:00
|
|
|
|
2012-12-27 20:50:48 +00:00
|
|
|
(defvar user-init-extension-directory
|
|
|
|
|
(expand-file-name (concat user-emacs-directory "init-extension/"))
|
|
|
|
|
"Extension initialization.")
|
|
|
|
|
|
|
|
|
|
(defvar user-init-package-directory
|
|
|
|
|
(expand-file-name (concat user-emacs-directory "init-package/"))
|
|
|
|
|
"Package initialization.")
|
|
|
|
|
|
2012-12-22 04:18:35 +00:00
|
|
|
(defvar host-directory
|
|
|
|
|
(expand-file-name (concat user-emacs-directory "host/" system-name "/"))
|
|
|
|
|
"Host specific configurations")
|
|
|
|
|
|
2012-12-18 05:48:12 +00:00
|
|
|
(add-to-list 'load-path user-emacs-directory)
|
2012-12-21 21:06:22 +00:00
|
|
|
(add-to-list 'load-path user-extensions-directory)
|
|
|
|
|
|
2013-04-15 15:12:39 +00:00
|
|
|
(defun load-user-config ()
|
|
|
|
|
(progn (when (file-exists-p user-config-directory)
|
|
|
|
|
(dolist (l (directory-files user-config-directory nil "^[^#].*el$"))
|
|
|
|
|
(load (concat user-config-directory l))))))
|
|
|
|
|
(defun load-host-config ()
|
|
|
|
|
(progn (when (file-exists-p host-directory)
|
|
|
|
|
(dolist (l (directory-files host-directory nil "^[^#].*el$"))
|
|
|
|
|
(load (concat host-directory l))))))
|
2012-12-21 21:06:22 +00:00
|
|
|
|
2012-12-27 20:50:48 +00:00
|
|
|
;; Setup ======================================================================
|
2013-01-04 06:40:59 +00:00
|
|
|
(require 'my-funcs)
|
|
|
|
|
(require 'my-macros)
|
2013-04-11 14:51:17 +00:00
|
|
|
(require 'pre-extensions)
|
2012-12-21 21:06:22 +00:00
|
|
|
(require 'packages)
|
2013-04-11 14:51:17 +00:00
|
|
|
(require 'post-extensions)
|
2013-01-04 06:40:59 +00:00
|
|
|
(require 'my-keybindings)
|
2012-12-21 21:06:22 +00:00
|
|
|
|
