54 lines
1.5 KiB
EmacsLisp
54 lines
1.5 KiB
EmacsLisp
;; -*- 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/welcom-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/welcom-message 1999)
|
|
|
|
|
|
(setq warning-minimum-level :error)
|
|
(setq warning-minimum-log-level :error)
|
|
|
|
(load-theme 'modus-vivendi t)
|
|
;; (load-theme 'wheatgrass t)
|