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

Minor refactors & comment revision

Browse source
This commit is contained in:
Henrik Lissner 2020-01-01 23:52:02 -05:00
parent fd6def4d5a
commit f78f71a74c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/cli/packages.el
View file

@ -64,8 +64,8 @@ list remains lean."
This function will install any primary package (i.e. a package with a `package!' This function will install any primary package (i.e. a package with a `package!'
declaration) or dependency thereof that hasn't already been." declaration) or dependency thereof that hasn't already been."
(print! (start "Installing & building packages..."))
(straight--transaction-finalize) (straight--transaction-finalize)
(print! (start "Installing & building packages..."))
(print-group! (print-group!
(let ((versions-alist doom-pinned-packages) (let ((versions-alist doom-pinned-packages)
(n 0)) (n 0))
@ -98,8 +98,8 @@ declaration) or dependency thereof that hasn't already been."
(defun doom-cli-packages-build (&optional force-p) (defun doom-cli-packages-build (&optional force-p)
"(Re)build all packages." "(Re)build all packages."
(print! (start "(Re)building %spackages...") (if force-p "all " ""))
(straight--transaction-finalize) (straight--transaction-finalize)
(print! (start "(Re)building %spackages...") (if force-p "all " ""))
(print-group! (print-group!
(let* ((n 0) (let* ((n 0)
(straight-check-for-modifications (straight-check-for-modifications
@ -126,8 +126,8 @@ declaration) or dependency thereof that hasn't already been."
(defun doom-cli-packages-update () (defun doom-cli-packages-update ()
"Updates packages." "Updates packages."
(print! (start "Updating packages (this may take a while)..."))
(straight--transaction-finalize) (straight--transaction-finalize)
(print! (start "Updating packages (this may take a while)..."))
(let ((straight--repos-dir (straight--repos-dir)) (let ((straight--repos-dir (straight--repos-dir))
(straight--packages-to-rebuild (make-hash-table :test #'equal)) (straight--packages-to-rebuild (make-hash-table :test #'equal))
(total (hash-table-count straight--repo-cache)) (total (hash-table-count straight--repo-cache))

8
core/core-ui.el
View file

@ -277,9 +277,11 @@ windows, switch to `doom-fallback-buffer'. Otherwise, delegate to original
(setq window-resize-pixelwise t (setq window-resize-pixelwise t
frame-resize-pixelwise t) frame-resize-pixelwise t)
(unless EMACS27+ ; We already do this in early-init.el (unless EMACS27+
;; Disable tool and scrollbars; Doom encourages keyboard-centric workflows, so ;; We do this in early-init.el too, but in case the user is on Emacs 26 we do
;; these are just clutter (the scrollbar also impacts Emacs' performance). ;; it here too: disable tool and scrollbars, as Doom encourages
;; keyboard-centric workflows, so these are just clutter (the scrollbar also
;; impacts performance).
(push '(menu-bar-lines . 0) default-frame-alist) (push '(menu-bar-lines . 0) default-frame-alist)
(push '(tool-bar-lines . 0) default-frame-alist) (push '(tool-bar-lines . 0) default-frame-alist)
(push '(vertical-scroll-bars) default-frame-alist)) (push '(vertical-scroll-bars) default-frame-alist))

6
early-init.el
View file

@ -13,9 +13,9 @@
(advice-add #'package--ensure-init-file :override #'ignore) (advice-add #'package--ensure-init-file :override #'ignore)
;; Prevent the glimpse of un-styled Emacs by disabling these UI elements early. ;; Prevent the glimpse of un-styled Emacs by disabling these UI elements early.
(push '(menu-bar-lines . 0) default-frame-alist) (setq tool-bar-mode nil
(push '(tool-bar-lines . 0) default-frame-alist) menu-bar-mode nil)
(push '(vertical-scroll-bars) default-frame-alist) (set-scroll-bar-mode nil)
;; Resizing the Emacs frame can be a terribly expensive part of changing the ;; Resizing the Emacs frame can be a terribly expensive part of changing the
;; font. By inhibiting this, we easily halve startup times with fonts that are ;; font. By inhibiting this, we easily halve startup times with fonts that are