emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor bootstrap process

Browse source
This commit is contained in:
Henrik Lissner 2016-03-26 01:19:31 -04:00
parent b3feea7a4f
commit 89eeba1d97
6 changed files with 83 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

121
bootstrap.el
View file

@ -1,82 +1,93 @@
;;; bootstrap.el
(eval-when-compile (require 'cl))
;; Shut up byte-compiler!
(defvar narf-current-theme)
(defvar narf-current-font)
;; Global constants
(eval-and-compile
(defconst narf-emacs-dir user-emacs-directory)
(defconst narf-core-dir (concat narf-emacs-dir "core/"))
(defconst narf-modules-dir (concat narf-emacs-dir "modules/"))
(defconst narf-private-dir (concat narf-emacs-dir "private/"))
(defconst narf-packages-dir (concat narf-emacs-dir ".cask/" emacs-version "/elpa/"))
(defconst narf-script-dir (concat narf-emacs-dir "scripts/"))
(defconst narf-snippet-dirs (list (concat narf-private-dir "snippets/")
(concat narf-private-dir "templates/")))
(defconst narf-default-theme 'wombat)
(defconst narf-default-font nil)
(defconst narf-emacs-dir (expand-file-name "." user-emacs-directory))
(defconst narf-core-dir (concat narf-emacs-dir "/core"))
(defconst narf-modules-dir (concat narf-emacs-dir "/modules"))
(defconst narf-private-dir (concat narf-emacs-dir "/private"))
(defconst narf-packages-dir (concat narf-emacs-dir "/.cask/" emacs-version "/elpa"))
(defconst narf-script-dir (concat narf-emacs-dir "/scripts"))
(defconst narf-snippet-dirs (list (concat narf-private-dir "/snippets")
(concat narf-private-dir "/templates")))
;; Hostname and emacs version-based elisp temp directories
(defconst narf-temp-dir
(format "%scache/%s/%s.%s/"
narf-private-dir (system-name)
emacs-major-version emacs-minor-version))
(defconst narf-temp-dir (format "%s/cache/%s/%s.%s/"
narf-private-dir (system-name)
emacs-major-version emacs-minor-version))
(defconst IS-MAC (eq system-type 'darwin))
(defconst IS-LINUX (eq system-type 'gnu/linux))
(defconst IS-WINDOWS (eq system-type 'windows-nt)))
(defconst IS-WINDOWS (eq system-type 'windows-nt))
;; Global settings
(scroll-bar-mode -1) ; no scrollbar
(tool-bar-mode -1) ; no toolbar
(setq-default
;; stop package.el from being annoying. NARF relies entirely on Cask.
package--init-file-ensured t
package-enable-at-startup nil
gc-cons-threshold 4388608
gc-cons-percentage 0.3)
(eval-and-compile
;; Make sure that cask is in the right place
(unless (eq 0 (call-process "which" nil nil nil "cask"))
(error "Cask could not be found"))
(let ((cask-dir (cond (IS-MAC "/usr/local/share/emacs/site-lisp/cask")
(t "~/.cask"))))
(unless (file-exists-p cask-dir)
(error "Cask folder not found"))
(push cask-dir load-path))
;; Ensure that cask is in the right place
;; (let ((cask-dir (cond (IS-MAC "/usr/local/share/emacs/site-lisp/cask")
;; (t "~/.cask"))))
;; (unless (file-exists-p cask-dir)
;; (error "Cask folder not found"))
;; (push cask-dir load-path))
;; Helper for traversing subdirectories recursively
(defun --subdirs (path &optional include-self)
(let ((result (if include-self (list path) (list)))
(paths (ignore-errors (directory-files path t "^[^.]" t))))
(dolist (file paths)
(let ((result (if include-self (list path) (list))))
(dolist (file (ignore-errors (directory-files path t "^[^.]" t)))
(when (file-directory-p file)
(push file result)))
result))
result)))
(defvar narf--load-path load-path)
(defun narf/reload ()
(interactive)
(setq load-path
(progn (require 'cask)
(cask-initialize)
(append (list narf-private-dir)
(--subdirs narf-core-dir t)
(--subdirs narf-modules-dir t)
(--subdirs narf-packages-dir)
narf--load-path)))))
;;
;; Bootstrap
;;
(defun narf (packages)
"Bootstrap NARF emacs and initialize PACKAGES"
;; stop package.el from being annoying. NARF relies entirely on Cask.
(setq-default
package--init-file-ensured t
package-enable-at-startup nil
gc-cons-threshold 4388608)
;; prematurely optimize for faster startup
(let (file-name-handler-alist
(gc-cons-threshold 169715200))
(let ((gc-cons-threshold 169715200)
(gc-cons-percentage 0.3)
file-name-handler-alist)
;; Scan various folders to populate the load-paths
(setq custom-theme-load-path
(defvar narf--load-path load-path)
(setq load-path
(append (list narf-private-dir)
(--subdirs narf-core-dir t)
(--subdirs narf-modules-dir t)
(--subdirs narf-packages-dir)
(--subdirs (expand-file-name "../bootstrap" narf-packages-dir))
narf--load-path)
custom-theme-load-path
(append (list (expand-file-name "themes/" narf-private-dir))
custom-theme-load-path)
load-path (eval-when-compile (narf/reload)))
custom-theme-load-path))
(require 'f)
(require 'dash)
(require 's)
;; Load local settings, if available
(when (file-exists-p "~/.emacs.local.el")
(load "~/.emacs.local.el"))
(load-theme narf-default-theme t)
;; Global settings
(setq narf-current-theme narf-default-theme
narf-current-font narf-default-font)
narf-current-font narf-default-font)
;; Load 'em up!
(load-theme narf-current-theme t)
(mapc 'require packages)
(defun display-startup-echo-area-message ()