diff --git a/init/dot.emacs.el b/init/dot.emacs.el index bb87a03..203c9b4 100644 --- a/init/dot.emacs.el +++ b/init/dot.emacs.el @@ -16,11 +16,11 @@ (setq emacs-config-name emacs-start-kit) (setq emacs-config-directory - (let ((config-dir (getenv "EMACS_CONFIG_DIR"))) - (if config-dir - (concat config-dir "/" emacs-config-name "/") - (concat (substitute-in-file-name "~/.config/emacs/") - emacs-config-name "/")))) + (let ((config-dir (getenv "EMACS_CONFIG_DIR"))) + (if config-dir + (concat config-dir "/" emacs-config-name "/") + (concat (substitute-in-file-name "~/.config/emacs/") + emacs-config-name "/")))) (unless (file-exists-p emacs-config-directory) (make-directory emacs-config-directory t)) @@ -30,12 +30,20 @@ (setq emacs-init-file (expand-file-name "init.el" user-emacs-directory)) +;; setup customization directory for emacs (custom.el) (unless custom-file (setq custom-file (expand-file-name "custom.el" user-emacs-directory))) -(setq package-user-dir +;; Setup default directory which package will be installed +(setq package-user-dir (concat user-emacs-directory "/elpa")) +;; setup directory of spacemacs customization +(when (string= emacs-start-kit "spacemacs") + (let ((spacemacs-dir (concat emacs-config-directory "/.local/etc"))) + (progn + (setenv "SPACEMACSDIR" spacemacs-dir)))) + (setq startkit-info '((doom-emacs . (lambda (dir) @@ -70,7 +78,8 @@ (concat "git clone https://github.com/syl20bnr/spacemacs.git " dir)))))) (defun on-installer-finished (process event) - "Callback function when uinstaller process has finished." + "Callback function when uinstaller process has finished. +We use this function to load startkit initialization file" (cond ((string= event "finished\n") (load-file emacs-init-file)) (t (message "Event %s has been ignored" event))))