blob: 10f79180e98d78f968ec8854a44db69eda74daaa (
plain) (
blame)
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
|
;; I don't want a startup screen
(setq inhibit-startup-screen t)
;; fullscreen
(global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
;; disable tool bar and the scroll bar
(dolist (mode '(tool-bar-mode scroll-bar-mode))
(when (fboundp mode) (funcall mode -1)))
;; Set default font.
(set-face-attribute 'default nil :height 130 :weight 'normal :width 'normal)
;; no bell
(setq visible-bell nil)
(setq ring-bell-function 'ignore)
;; don't use native full screen on OS-X
(when (eq system-type 'darwin)
(setq ns-use-native-fullscreen nil))
;; highlight current line
(global-hl-line-mode 1)
;; cursor is a horizontal bar
(setq-default cursor-type 'hbar)
;; no blinking cursor
(blink-cursor-mode -1)
;; I don't want a frindge on the right
(fringe-mode '(8 . 0))
;; frame title
(setq frame-title-format '( "%f" " [" (:eval mode-name) "]"))
;; show parenthesis
(show-paren-mode +1)
;; show column number in the mode line
(setq column-number-mode t)
;; unclutter the modeline
(use-package diminish)
(use-package rich-minority)
(use-package smart-mode-line
:init
(setq sml/theme 'light
sml/shorten-directory t
sml/no-confirm-load-theme t
sml/shorten-modes t
sml/name-width 40
sml/mode-width 'full)
:config
(sml/setup))
(provide 'module-appareance)
|