;; -*- lexical-binding: t; -*-


;;;; display load information + speedups
(defun bd/display-startup-time ()
  (message "Emacs loaded in %s with %d garbage collections."
           (format "%.2f seconds"
                   (float-time
                    (time-subtract after-init-time before-init-time)))
           gcs-done))

(add-hook 'emacs-startup-hook #'bd/display-startup-time)

(setq frame-inhibit-implied-resize t)

;; reduce the frequency of garbage collection during startup
;; by making it happen as little as possible
;; TODO: `most-positive-fixnum' will pressure system memory if used
;; as a permanent value
(setopt gc-cons-threshold most-positive-fixnum
        gc-cons-percentage 0.5)

(add-hook 'emacs-startup-hook
          (lambda ()
            (setopt gc-cons-threshold (* 1024 1024 20)
                    gc-cons-percentage 0.2)))


;;;; avoid-blinding startup
(push '(menu-bar-lines . 0) default-frame-alist)
(push '(tool-bar-lines . 0) default-frame-alist)
(push '(background-color . "#000000") default-frame-alist)
(push '(foreground-color . "#ffffff") default-frame-alist)