mirror of
https://github.com/emacscollective/emacs.g.git
synced 2025-05-16 12:08:45 -04:00
67 lines
2.2 KiB
EmacsLisp
67 lines
2.2 KiB
EmacsLisp
;;; init.el --- user-init-file -*- lexical-binding: t -*-
|
|
;;; Early birds
|
|
(progn ; startup
|
|
(defvar before-user-init-time (current-time)
|
|
"Value of `current-time' when Emacs begins loading `user-init-file'.")
|
|
(message "Loading Emacs...done (%.3fs)"
|
|
(float-time (time-subtract before-user-init-time
|
|
before-init-time)))
|
|
(setq user-init-file (or load-file-name buffer-file-name))
|
|
(setq user-emacs-directory (file-name-directory user-init-file))
|
|
(message "Loading %s..." user-init-file)
|
|
(setq package-enable-at-startup nil)
|
|
(setq inhibit-startup-buffer-menu t)
|
|
(setq inhibit-startup-screen t)
|
|
(setq inhibit-startup-echo-area-message "locutus")
|
|
(setq initial-buffer-choice t)
|
|
(setq initial-scratch-message "")
|
|
(setq load-prefer-newer t))
|
|
|
|
(progn ; `borg'
|
|
(add-to-list 'load-path (expand-file-name "lib/borg" user-emacs-directory))
|
|
(require 'borg)
|
|
(borg-initialize))
|
|
|
|
(progn ; `use-package'
|
|
(require 'use-package)
|
|
(setq use-package-verbose t))
|
|
|
|
(use-package custom
|
|
:config
|
|
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
|
|
(when (file-exists-p custom-file)
|
|
(load custom-file)))
|
|
|
|
(progn ; startup
|
|
(message "Loading early birds...done (%.3fs)"
|
|
(float-time (time-subtract (current-time)
|
|
before-user-init-time))))
|
|
|
|
;;; Long tail
|
|
|
|
(use-package dash
|
|
:config (dash-enable-font-lock))
|
|
|
|
(progn ; startup
|
|
(message "Loading %s...done (%.3fs)" user-init-file
|
|
(float-time (time-subtract (current-time)
|
|
before-user-init-time)))
|
|
(add-hook 'after-init-hook
|
|
(lambda ()
|
|
(message
|
|
"Loading %s...done (%.3fs) [after-init]" user-init-file
|
|
(float-time (time-subtract (current-time)
|
|
before-user-init-time))))
|
|
t))
|
|
|
|
(progn ; personalize
|
|
(let ((file (expand-file-name (concat (user-real-login-name) ".el")
|
|
user-emacs-directory)))
|
|
(when (file-exists-p file)
|
|
(load file))))
|
|
|
|
;; Local Variables:
|
|
;; indent-tabs-mode: nil
|
|
;; End:
|
|
;;; init.el ends here
|