blob: c57f1ec29ec6b11fb6909cd8cef6ee089d6bac8d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
(setq inhibit-startup-message t)
(setq inhibit-startup-screen t)
(setq frame-resize-pixelwise t
frame-inhibit-implied-resize t
use-dialog-box t ; only for mouse events, which I seldom use
use-file-dialog nil
use-short-answers t
inhibit-x-resources t
inhibit-startup-echo-area-message user-login-name
inhibit-startup-buffer-menu t)
(setq mode-line-misc-info
(delete (assoc 'minor-mode-alist mode-line-misc-info) mode-line-misc-info))
(add-hook 'after-init-hook (lambda () (set-frame-name "home")))
;; Modes
(scroll-bar-mode -1)
(tool-bar-mode -1)
(tooltip-mode -1)
(set-fringe-mode 10)
(menu-bar-mode -1)
(tool-bar-mode 0)
;; settings for windows
(setq focus-follows-mouse t)
(add-to-list 'default-frame-alist '(alpha . (95 . 95)))
(setq initial-frame-alist default-frame-alist)
;; garbage collection
(setq gc-cons-threshold most-positive-fixnum
gc-cons-percentage 0.5)
(defvar bard-emacs--file-name-handler-alist file-name-handler-alist)
(defvar bard-emacs--vc-handled-backends vc-handled-backends)
(add-hook 'emacs-startup-hook
(lambda ()
(setq gc-cons-threshold (* 1000 1000 8)
gc-cons-percentage 0.1
file-name-handler-alist bard-emacs--file-name-handler-alist
vc-handled-backends bard-emacs--vc-handled-backends)))
;; Package cache
(setq package-enable-at-startup t)
(unless package-archive-contents
(package-refresh-contents))
|
