diff options
Diffstat (limited to 'emacs/early-init.el')
| -rw-r--r-- | emacs/early-init.el | 30 |
1 files changed, 23 insertions, 7 deletions
diff --git a/emacs/early-init.el b/emacs/early-init.el index de5c85a..2d74a77 100644 --- a/emacs/early-init.el +++ b/emacs/early-init.el @@ -1,16 +1,32 @@ -(defun my/source-if-exists (filename) - "Load FILENAME if it exists within the dotfiles hierarchy." +;; Helper Loading Functions + +(defun my/load-file (filename) + "Load FILENAME if it exists within the dotfiles directory." (load (concat (file-truename user-emacs-directory) "../" (substitute-in-file-name filename)) :no-error)) -(setq default-frame-alist '((height . 40) (left . 0.5) (top . 0.2) (width . 160)) +(defun my/load-file-variations (filename) + "Load variations of FILENAME that may exist in other dotfiles +directories." + (dolist (elt (mapcar (lambda (elt) (format "dotfiles-%s/%s" elt filename)) + '("${UNAME}" "${DOMAIN}" "${HOST}"))) + (my/load-file elt))) + +(my/load-file "emacs/functions") +(my/load-file-variations "emacs/functions") + + +;; Early Customization + +(setq default-frame-alist '((height . 40) (left . 0.5) + (top . 0.3) (width . 160)) gc-cons-threshold (* 50 1024 1024)) (menu-bar-mode -1) (scroll-bar-mode -1) -(show-paren-mode 1) (tool-bar-mode -1) -(my/source-if-exists "dotfiles-${UNAME}/emacs/early-init") -(my/source-if-exists "dotfiles-${DOMAIN}/emacs/early-init") -(my/source-if-exists "dotfiles-${HOST}/emacs/early-init") + +;; Further Early Customization + +(my/load-file-variations "emacs/early-init") |