forked from technomancy/emacs-starter-kit
-
Notifications
You must be signed in to change notification settings - Fork 1
/
look-n-feel.el
36 lines (31 loc) · 1.33 KB
/
look-n-feel.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
(load-theme 'tango-2 t)
;; (load-theme 'whiteboard t)
(blink-cursor-mode 1)
(require 'dash)
(defun font-candidate (&rest fonts)
"Return the first available font."
(--first (find-font (font-spec :name it)) fonts))
(defun fontify-frame (frame)
(interactive)
(if window-system
(progn
(if (> (x-display-pixel-width) 2000)
(set-face-attribute 'default nil :font
(font-candidate '"Fira Mono-18"
"Source Code Pro-18"
"DejaVu Sans Mono-18"
"Droid Sans Mono-18"
"Consolas-18"))
(set-face-attribute 'default nil :font
(font-candidate '"Fira Mono-14.5"
"Source Code Pro-14.5"
"DejaVu Sans Mono-14.5"
"Droid Sans Mono-14.5"
"Consolas-14.5"))))))
;; Fontify current frame
(fontify-frame nil)
;; Fontify any future frames
(push 'fontify-frame after-make-frame-functions)
;; (setq longlines-show-hard-newlines t)
(setq fill-column 100)
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)