blob: e316ba0335fec87fd905fcdecab82f6bc9d94fab (
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
|
;;; init-appearance.el --- configure appearance -*- lexical-binding:t -*-
;;; Commentary:
;;; Code:
;; disable splash
(setq inhibit-startup-message t)
;; hide menubar when not on os x
(when (and (fboundp 'menu-bar-mode) (not (eq system-type 'darwin)))
(menu-bar-mode -1))
;; hide toolbar
(when (fboundp 'tool-bar-mode)
(tool-bar-mode -1))
;; hide scrollbar
(when (fboundp 'scroll-bar-mode)
(scroll-bar-mode -1))
;; disable dialogs
(setq use-dialog-box nil)
;; highlight current line
(use-package hl-line
:config
(global-hl-line-mode 1))
;; highlight matching parentheses
(use-package paren
:config
(show-paren-mode 1))
;; highlight trailing whitespace in prog-mode
(add-hook 'prog-mode-hook (lambda () (setq-local show-trailing-whitespace t)))
(defun mpolden/colorize-compilation-buffer ()
"Render ansi colors in compilation buffer."
(when (eq major-mode 'compilation-mode)
(ansi-color-apply-on-region compilation-filter-start (point-max))))
(use-package ansi-color
:hook ((compilation-filter . mpolden/colorize-compilation-buffer)))
;; disable word wrapping
(setq-default truncate-lines t)
;; display line and column numbers in mode-line
(setq line-number-mode t
column-number-mode t)
(provide 'init-appearance)
;;; init-appearance.el ends here
|