Move spacemacs/load-dotfile to contribsys/load-dotfile

core/contribsys.el

@@ -38,6 +38,14 @@ initialize the extension.")
   "Hash table of layers locations where the key is a layer symbol and the value
 is its path.")
 
+(defun contribsys/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)))
+
 (defun contribsys/declare-layer (sym &optional contrib)
   "Declare a layer with SYM name (symbol). If CONTRIB is non nil then the layer
  is a contribution layer."

core/spacemacs-mode.el

@@ -18,14 +18,6 @@
   "Change the default welcome message of minibuffer to another one."
   (message "Spacemacs is ready."))
 
-(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 70)
 (defvar spacemacs-loading-counter 0)
 (defvar spacemacs-loading-text "Loading")

init.el

@@ -23,8 +23,6 @@
     "Dropbox directory.")
   ;; if you have a dropbox, then ~/Dropbox/emacs is added to load path
   (add-to-list 'load-path (concat user-dropbox-directory "emacs/"))
-  ;; User configuration file for Spacemacs: ~/.spacemacs 
-  (spacemacs/load-dotfile)
   (dotspacemacs/init)
   ;; initialisation of the contribution system based on configuration layers
   ;; additional configuration layers are declared in ~/.spacemacs
@@ -43,6 +41,8 @@
   ;; Ultimate configuration decisions are given to the user who can defined
   ;; them in his/her ~/.spacemacs file
   (dotspacemacs/config))
+  ;; User configuration file for Spacemacs: ~/.spacemacs
+  (contribsys/load-dotfile)
     (contribsys/setup-after-init-hook))
 
   ;; start a server for subsequent emacs clients