;;; EMACS early-init file -*- lexical-binding:t -*-

;; Manual implementation of gcmh as soon as possible (stolen from lambda emacs)
(setq gc-cons-threshold (* 300 1024 1024)) ; 300 MB
(defmacro k-time (&rest body)
  "Measure and return the time it takes evaluating BODY."
  `(let ((time (current-time)))
     ,@body
     (float-time (time-since time))))
;; 15 sec gc loop when idle
(run-with-idle-timer 15 t
                     (lambda ()
                       (let ((inhibit-message t))
                         (message "Garbage Collector ran for %.06fsec"
                                  (k-time (garbage-collect))))))

;; Set frame parameters early
(setq default-frame-alist '((font . "JetbrainsMono Nerd Font-10.5")
                            (alpha-background . 0.94)
                            (tool-bar-lines . 0)
                            (menu-bar-lines . 0)
                            (vertical-scroll-bars . nil)))

;; Annoyoing comp errors
(setq native-comp-async-report-warnings-errors 'silent)