     (aim/straight-bootstrap)))
 
 (setq warning-suppress-log-types '((comp) (use-package)))
+
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (message "Happiness delivered in %s with %d garbage collections."
+                     (format "%.2f seconds"
+                             (float-time (time-subtract after-init-time before-init-time)))
+                     gcs-done)))
 
 ;;; PACKAGES
 

  :config
  (direnv-mode))

(when (boundp 'read-process-output-max)
  ;; This is to speedup LSP. Increase the amount of data which Emacs
  ;; reads from the process. Again the emacs default is too low 4k
  ;; considering that the some of the language server responses are in
  ;; 800k - 3M range.
  (setq-local read-process-output-max (* 4 (* 1024 1024))))

(with-eval-after-load 'company
  (define-key company-active-map (kbd "M-n") nil)
  (define-key company-active-map (kbd "M-p") nil)

                          (string= system-name "x1c")))

(setq use-nix-epkgs nil)
(unless (functionp 'json-serialize)
  (error "**** you don't have a json-serialize built-in function ****"))

