;; -*- coding: utf-8; lexical-binding: t; -*-

(defconst creature/native-comp-enable t
  "Enable `native-comp' feature when supported.")

(let ((enable-native-comp creature/native-comp-enable))
  (setq native-comp-jit-compilation enable-native-comp
        native-comp-deferred-compilation enable-native-comp))


(setq package-enable-at-startup nil)

(setq frame-inhibit-implied-resize t)

;; Initialize frame with alpha
(add-to-list 'default-frame-alist '(alpha-background . 85))
(add-to-list 'default-frame-alist '(fullscreen . maximized))

(when (fboundp 'menu-bar-mode)
  (menu-bar-mode -1))

(when (fboundp 'tool-bar-mode)
  (tool-bar-mode -1))

(when (fboundp 'scroll-bar-mode)
  (scroll-bar-mode -1))


(defun creature/welcome-message ()
  (let (init-time startup-time)
    (setq startup-time (time-since before-init-time))
    (setq init-time
          (time-subtract after-init-time before-init-time))
    (setq initial-scratch-message
          (format ";; startup: %fs -- init: %fs\n\
;; Happy hacking %s - Emacs loves you.\n\n"
                  (float-time startup-time)
                  (float-time init-time)
                  (or (user-login-name) "user"))))

  (with-current-buffer "*scratch*"
    (erase-buffer)
    (insert initial-scratch-message)
    (set-buffer-modified-p nil)))

(add-hook 'emacs-startup-hook #'creature/welcome-message 1999)


(setq warning-minimum-level :error)
(setq warning-minimum-log-level :error)

(load-theme 'modus-vivendi t)
;; (load-theme 'wheatgrass t)