52 lines
1.9 KiB
EmacsLisp
52 lines
1.9 KiB
EmacsLisp
;; from jwiegley
|
|
;; https://github.com/jwiegley/dot-emacs/blob/master/init.el
|
|
(setq message-log-max 16384)
|
|
(defconst emacs-start-time (current-time))
|
|
|
|
;; paths
|
|
(defconst user-home-directory
|
|
(expand-file-name (concat user-emacs-directory "../"))
|
|
"User home directory (~/).")
|
|
(defconst spacemacs-core-directory
|
|
(expand-file-name (concat user-emacs-directory "core/"))
|
|
"Spacemacs core directory.")
|
|
(defconst spacemacs-contrib-config-directory
|
|
(expand-file-name (concat user-emacs-directory "contrib/"))
|
|
"Spacemacs contribution layers base directory.")
|
|
(defconst user-dropbox-directory
|
|
(expand-file-name (concat user-home-directory "Dropbox/"))
|
|
"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/"))
|
|
|
|
;; load core source
|
|
(dolist (elisp '("spacemacs-mode.el" "contribsys.el"))
|
|
(load (concat spacemacs-core-directory elisp)))
|
|
|
|
(spacemacs-buffer)
|
|
|
|
;; User configuration file for Spacemacs: ~/.spacemacs
|
|
(spacemacs-load-dotfile)
|
|
(dotspacemacs/init)
|
|
|
|
(contribsys/declare-layer 'spacemacs)
|
|
(contribsys/declare-configuration-layers)
|
|
(contribsys/load-layers)
|
|
|
|
;; Last configuration decisions are given to the user who can defined them
|
|
;; in ~/.spacemacs
|
|
(dotspacemacs/config)
|
|
|
|
; from jwiegley
|
|
;; https://github.com/jwiegley/dot-emacs/blob/master/init.el
|
|
;; Display load times after init.el and after all buffers has been loaded
|
|
(let ((elapsed (float-time (time-subtract (current-time)
|
|
emacs-start-time))))
|
|
(message "Loading %s...done (%.3fs)" load-file-name elapsed))
|
|
(add-hook 'after-init-hook
|
|
`(lambda ()
|
|
(let ((elapsed (float-time
|
|
(time-subtract (current-time) emacs-start-time))))
|
|
(message "Loading %s...done (%.3fs) [after-init]"
|
|
,load-file-name elapsed))) t)
|