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

General cleanup (again)

Browse source
This commit is contained in:
Henrik Lissner 2016-05-21 00:13:50 -04:00
parent f591889303
commit fdf5754de3
3 changed files with 12 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
bootstrap.el
View file

@ -1,5 +1,4 @@
;;; bootstrap.el ;;; bootstrap.el
(eval-when-compile (require 'cl-lib)) (eval-when-compile (require 'cl-lib))
;; Global constants ;; Global constants
@ -31,7 +30,6 @@
(eval-when-compile (eval-when-compile
(defvar doom--load-path load-path) (defvar doom--load-path load-path)
;; Helper for traversing subdirectories recursively ;; Helper for traversing subdirectories recursively
(defun --subdirs (path &optional include-self) (defun --subdirs (path &optional include-self)
(let ((result (if include-self (list path) (list)))) (let ((result (if include-self (list path) (list))))
@ -53,12 +51,10 @@
"Bootstrap DOOM emacs and initialize PACKAGES" "Bootstrap DOOM emacs and initialize PACKAGES"
(setq-default gc-cons-threshold 4388608 (setq-default gc-cons-threshold 4388608
gc-cons-percentage 0.4) gc-cons-percentage 0.4)
;; prematurely optimize for faster startup ;; prematurely optimize for faster startup
(let ((gc-cons-threshold 339430400) (let ((gc-cons-threshold 339430400)
(gc-cons-percentage 0.6) (gc-cons-percentage 0.6)
file-name-handler-alist) file-name-handler-alist)
;; Scan various folders to populate the load-paths ;; Scan various folders to populate the load-paths
(setq load-path (setq load-path
(eval-when-compile (eval-when-compile

13
core/core-ui.el
View file

@ -52,13 +52,6 @@
(load-theme doom-current-theme t) (load-theme doom-current-theme t)
(tooltip-mode -1) ; show tooltips in echo area (tooltip-mode -1) ; show tooltips in echo area
;; standardize fringe width
(push `(left-fringe . ,doom-fringe-size) default-frame-alist)
(push `(right-fringe . ,doom-fringe-size) default-frame-alist)
;; Default frame size on startup
(push '(width . 120) default-frame-alist)
(push '(height . 32) default-frame-alist)
;; set up minibuffer and fringe ;; set up minibuffer and fringe
(if (not window-system) (if (not window-system)
(menu-bar-mode -1) (menu-bar-mode -1)
@ -69,6 +62,12 @@
;; set fonts ;; set fonts
(set-frame-font doom-default-font t) (set-frame-font doom-default-font t)
(set-face-attribute 'default t :font doom-current-font) (set-face-attribute 'default t :font doom-current-font)
;; standardize fringe width
(push `(left-fringe . ,doom-fringe-size) default-frame-alist)
(push `(right-fringe . ,doom-fringe-size) default-frame-alist)
;; Default frame size on startup
(push '(width . 120) default-frame-alist)
(push '(height . 32) default-frame-alist)
;; no fringe in the minibuffer ;; no fringe in the minibuffer
(add-hook! after-init (set-window-fringes (minibuffer-window) 0 0 nil)) (add-hook! after-init (set-window-fringes (minibuffer-window) 0 0 nil))
;; Show tilde in margin on empty lines ;; Show tilde in margin on empty lines