66 lines
2.5 KiB
EmacsLisp
66 lines
2.5 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))
|
|
|
|
(require 'package)
|
|
(setq package-archives '(("ELPA" . "http://tromey.com/elpa/")
|
|
("gnu" . "http://elpa.gnu.org/packages/")
|
|
("marmalade" . "http://marmalade-repo.org/packages/")
|
|
("melpa" . "http://melpa.milkbox.net/packages/")))
|
|
(package-initialize)
|
|
(setq warning-minimum-level :error)
|
|
|
|
(switch-to-buffer (get-buffer-create "*spacemacs*"))
|
|
(defun append-to-spacemacs-buf (msg)
|
|
"Append MSG to buffer."
|
|
(with-current-buffer (get-buffer-create "*spacemacs*")
|
|
(goto-char (point-max))
|
|
(insert (format "%s\n" msg))))
|
|
(defun replace-last-line-of-spacemacs-buf (msg)
|
|
"Replace the last line of the buffer with MSG."
|
|
(with-current-buffer (get-buffer-create "*spacemacs*")
|
|
(goto-char (point-max))
|
|
(delete-region (line-beginning-position) (point-max))
|
|
(insert msg)))
|
|
|
|
(defconst user-home-directory
|
|
(expand-file-name (concat user-emacs-directory "../"))
|
|
"User home directory (~/).")
|
|
(defconst contrib-config-directory
|
|
(expand-file-name (concat user-emacs-directory "contrib/"))
|
|
"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/"))
|
|
|
|
;; User configuration file for Spacemacs: ~/.spacemacs
|
|
(load (concat user-home-directory ".spacemacs"))
|
|
(dotspacemacs/init)
|
|
|
|
(load (concat user-emacs-directory "contribsys.el"))
|
|
(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)
|
|
|
|
(append-to-spacemacs-buf loading-done-text)
|
|
|
|
; 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)
|