TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Auto installation of .spacemacs

This commit is contained in:
syl20bnr 2014-09-06 23:28:13 -04:00
parent c36ae7d8f7
commit 1573d70f60
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
init.el
View File

@ -18,7 +18,7 @@
(add-to-list 'load-path (concat user-dropbox-directory "emacs/"))
;; User configuration file for Spacemacs: ~/.spacemacs
(load (concat user-home-directory ".spacemacs"))
(spacemacs-load-dotfile)
(dotspacemacs/init)
(load (concat user-emacs-directory "contribsys.el"))

8
spacemacs.el
View File

@ -1,3 +1,11 @@
(defun spacemacs-load-dotfile ()
"Load ~/.spacemacs. If it is not found then copy .spacemacs.template to
~/.spacemacs"
(let ((dotfile (concat user-home-directory ".spacemacs")))
(unless (file-exists-p dotfile)
(copy-file (concat user-emacs-directory ".spacemacs.template") dotfile))
(load dotfile)))
(defvar spacemacs-title-length 74)
(defvar loading-counter 0)
(defvar loading-text "Loading")