blob: 1fea9afc83f56e5fce653063ee76c6fcf38469f9 (
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
;;; init-appearance.el --- configure appearance -*- lexical-binding:t -*-
;;; Commentary:
;;; Code:
(defvar mpolden/font-family "Iosevka" "Set the default font.")
(defvar mpolden/font-size 14 "Set the default font size in points.")
;; set font
(when (and (display-graphic-p)
(member mpolden/font-family (font-family-list)))
(set-face-attribute 'default nil
:family mpolden/font-family
:height (* 10 mpolden/font-size)))
;; 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
:hook ((compilation-mode . hl-line-mode)
(dired-mode . hl-line-mode)
(ibuffer-mode . hl-line-mode)
(prog-mode . hl-line-mode)
(restclient-mode . hl-line-mode)
(text-mode . hl-line-mode)))
;; highlight matching parentheses
(use-package paren
:hook ((text-mode . show-paren-mode)))
(defun mpolden/prog-mode-buffer-local-variables ()
"Set buffer-local variables for `prog-mode'."
;; highlight trailing whitespace
(setq-local show-trailing-whitespace t)
;; disable word wrapping
(setq-local truncate-lines t))
(use-package prog-mode
:hook ((prog-mode . mpolden/prog-mode-buffer-local-variables)))
;; display line and column numbers in mode-line
(setq line-number-mode t
column-number-mode t)
;; display time in mode-line
(use-package time
:init
;; civilized societies use a 24 hour clock
(setq display-time-24hr-format t)
;; hide load average
(setq display-time-default-load-average nil)
:config
(display-time-mode 1))
;; do not set fringe mark for bookmarked lines
(setq bookmark-set-fringe-mark nil)
;; do not underline compilation messages
(setq compilation-message-face nil)
(provide 'init-appearance)
;;; init-appearance.el ends here
|