(unless (boundp 'user-emacs-directory) (setq user-emacs-directory "~/.emacs.d/")) (defvar *custom-dir* (expand-file-name "~/.emacs.d")) (defvar *elpa-dir* (concat *custom-dir* "/elpa")) (defvar *lisp-dir* (concat *custom-dir* "/lisp")) (defvar *misc-dir* (concat *custom-dir* "/misc")) (setq backup-directory-alist '(("." . "~/.emacs.d/backups"))) (setq custom-file (concat *custom-dir* "/custom.el")) (add-to-list 'load-path *lisp-dir*) ;; load personal package configuration ;; (let ((mypkgs-loader (concat *lisp-dir* "/mypkgs.el"))) (when (file-exists-p mypkgs-loader) (load-file mypkgs-loader)))