-
Notifications
You must be signed in to change notification settings - Fork 0
/
theme.el
57 lines (48 loc) · 1.37 KB
/
theme.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
;; modeline
(size-indication-mode 0)
(column-number-mode 0)
(line-number-mode 0)
(setq sml/theme 'light
sml/no-confirm-load-theme t)
(sml/setup)
(which-function-mode 1)
(setq which-func-unknown "∅")
;; color theme
(load-theme 'leuven t)
(set-language-environment "UTF-8")
(set-default-coding-systems 'utf-8)
(setq visible-bell 1)
(global-hl-line-mode 0)
(setq ring-bell-function 'ignore)
;(setq neo-theme (if (display-graphic-p) 'icons 'arrow))
(setq neo-window-fixed-size nil)
(setq neo-smart-open t)
(setq fci-rule-column 80)
(setq fci-rule-width 1)
(setq fci-rule-color "#DDDDDD")
; Remove any bars... only text
(scroll-bar-mode -1)
(toggle-scroll-bar -1)
(tool-bar-mode -1)
(menu-bar-mode -1)
;; SCROLL
(yascroll-bar-mode 1)
;; whitespace
(require 'whitespace)
(delete 'lines whitespace-style)
(delete 'empty whitespace-style)
(defun show-visuals (activate)
(linum-mode activate)
(whitespace-mode activate))
(defun is-show-visuals ()
(bound-and-true-p linum-mode))
(defun toggle-show-visual ()
(interactive)
(let* ((activated (is-show-visuals))
(toggle (or (and activated 0) 1)))
(show-visuals toggle)))
(add-hook 'prog-mode-hook (lambda () (show-visuals 1)))
(custom-set-faces
'(default ((t (:foreground "black" :slant normal))))
'(whitespace-space ((t (:background nil :foreground "#DDDDDD"))))
'(which-func ((t (:foreground "black" :weight normal)))))