68 lines
2.8 KiB
EmacsLisp
68 lines
2.8 KiB
EmacsLisp
(defun install-emacs-startkit (name location)
|
|
(let ((startkit-info
|
|
'((doom-emacs .
|
|
(lambda (dir)
|
|
(concat "git clone git@github.com:shen390s/doom-emacs.git "
|
|
dir " && cd " dir " && "
|
|
" cp init.example.el init.el && "
|
|
" make install ")))
|
|
(frontmacs .
|
|
(lambda (dir)
|
|
(concat "mkdir -p " dir " && cd " dir " && "
|
|
"wget https://raw.githubusercontent.com/shen390s/frontmacs/master/scripts/init-frontmacs.el && "
|
|
"echo \"(load (expand-file-name \\\"init-frontmacs.el\\\" user-emacs-directory))\" >>init.el")))
|
|
(graphene .
|
|
(lambda (dir)
|
|
(concat "git clone git@github.com:shen390s/dotfiles-emacs.git " dir)))
|
|
(ohai-emacs .
|
|
(lambda (dir)
|
|
(concat "git clone git@github.com:shen390s/ohai-emacs.git " dir)))
|
|
(prelude .
|
|
(lambda (dir)
|
|
(concat "git clone git@github.com:shen390s/prelude.git " dir)))
|
|
(spacemacs .
|
|
(lambda (dir)
|
|
(concat "git clone https://github.com/syl20bnr/spacemacs.git " dir))))))
|
|
(let ((installer (funcall (cdr (assoc (intern name) startkit-info)) location)))
|
|
(progn (require 'comint)
|
|
(let* ((shell-buffer (make-comint-in-buffer "installer" nil "/bin/sh"))
|
|
(shell-process (get-buffer-process shell-buffer)))
|
|
(progn
|
|
(display-buffer shell-buffer)
|
|
(comint-simple-send shell-process installer)
|
|
(comint-simple-send shell-process "exit\n")))))))
|
|
|
|
(setq emacs-start-kit
|
|
(let ((start-kit (getenv "EMACS_STARTKIT")))
|
|
(if start-kit
|
|
start-kit
|
|
"spacemacs")))
|
|
|
|
(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 "/"))))
|
|
|
|
(setq user-emacs-directory emacs-config-directory)
|
|
|
|
(setq emacs-init-file
|
|
(expand-file-name "init.el" user-emacs-directory))
|
|
|
|
(defun load-emacs-init-idle ()
|
|
(if (file-exists-p emacs-init-file)
|
|
(load-file emacs-init-file)
|
|
(progn
|
|
(run-with-idle-timer 5 nil #'load-emacs-init-idle))))
|
|
|
|
(if (not (file-exists-p emacs-init-file))
|
|
(progn
|
|
(run-with-idle-timer 5 nil #'load-emacs-init-idle)
|
|
(install-emacs-startkit emacs-start-kit
|
|
emacs-config-directory))
|
|
(load-file emacs-init-file))
|
|
|