-
Notifications
You must be signed in to change notification settings - Fork 0
/
global.el
92 lines (71 loc) · 1.83 KB
/
global.el
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
(defmacro toggle-modes (flag &rest modes)
`(progn
,@(mapcar (lambda (mode)
`(,mode ,flag))
modes)))
(defmacro enable-modes (&rest modes)
`(toggle-modes 1 ,@modes))
(defmacro disable-modes (&rest modes)
`(toggle-modes 0 ,@modes))
(enable-modes
ido-mode
column-number-mode
show-paren-mode
global-hi-lock-mode
delete-selection-mode
subword-mode
global-prettify-symbols-mode
;; assuming tooltips are sent to echo area
tooltip-mode
midnight-mode
)
(disable-modes
tool-bar-mode
menu-bar-mode
;; Time might be nice, but other stuff is included in the default
display-time-mode
;; Is there a way to get rid of that ugly line number stripe?
global-linum-mode
)
;;;
(setq
completions-format 'vertical
tab-always-indent 'complete
;; makes windows always open vertically
split-height-threshold nil
split-width-threshold 80
uniquify-buffer-name-style 'forward
inhibit-startup-message t
sentence-end-double-space nil
emacs-lisp-docstring-fill-column 50
auto-revert-verbose nil
jka-compr-verbose nil
delete-by-moving-to-trash t
)
(defmacro enable-functions (&rest functions)
`(dolist (func '(,@functions))
(put func 'disabled nil)))
(enable-functions
upcase-region
downcase-region
narrow-to-region
list-timers
)
;; good idea?
;; (add-hook 'focus-out-hook #'garbage-collect)
(add-hook 'before-save-hook 'delete-trailing-whitespace)
(add-hook 'eval-expression-minibuffer-setup-hook 'paredit-mode)
(dolist (regexp '("magit:.+" "\*shell\*"))
(add-to-list 'same-window-regexps regexp t))
(when (boundp 'byte-metering-on)
(setq byte-metering-on t))
;; Backups
(setq
make-backup-files t
version-control nil
kept-old-versions 2
kept-new-versions 2
delete-old-versions nil
backup-by-copying t
backup-directory-alist '(("." . "~/.emacs.d/backups"))
)