Clean up init.el and bootstrap.el

This commit is contained in:
Henrik Lissner 2016-05-19 03:11:31 -04:00
parent 67a360914d
commit 1543b9e3b6
2 changed files with 7 additions and 9 deletions

View file

@ -1,10 +1,8 @@
;;; bootstrap.el ;;; bootstrap.el
(eval-when-compile (require 'cl-lib)) (eval-when-compile
(defconst emacs-start-time (current-time))
;; Shut up byte-compiler! (require 'cl-lib))
(defvar narf-current-theme)
(defvar narf-current-font)
;; Global constants ;; Global constants
(eval-and-compile (eval-and-compile
@ -45,6 +43,10 @@
;; Bootstrap ;; Bootstrap
;; ;;
;; Shut up byte-compiler!
(defvar narf-current-theme)
(defvar narf-current-font)
(defun narf (packages) (defun narf (packages)
"Bootstrap NARF emacs and initialize PACKAGES" "Bootstrap NARF emacs and initialize PACKAGES"
(setq-default gc-cons-threshold 4388608 (setq-default gc-cons-threshold 4388608

View file

@ -40,16 +40,12 @@
;; ;;
;;; License: MIT ;;; License: MIT
(defconst emacs-start-time (current-time))
(load (concat user-emacs-directory "bootstrap.el")) (load (concat user-emacs-directory "bootstrap.el"))
;; ;;
(defconst narf-default-theme 'narf-dark) (defconst narf-default-theme 'narf-dark)
(defconst narf-default-font (font-spec :family "Hack" :size 12)) (defconst narf-default-font (font-spec :family "Hack" :size 12))
(setq user-full-name "Henrik Lissner"
user-mail-address "henrik@lissner.net")
(narf `(core ; core/core.el (narf `(core ; core/core.el
;; OS-specific config ;; OS-specific config