-
Notifications
You must be signed in to change notification settings - Fork 1
/
theme.el
94 lines (85 loc) · 4.79 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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
; -*- truncate-lines: t; -*-
;; Disable that nasty background applied to “bold” TTY text
(tty-suppress-bold-inverse-default-colors t)
;; Remove :inverse-video effect when resolving conflicts
(unless (getenv "DISPLAY")
(progn (custom-set-faces
'(smerge-refined-added ((t (:inherit smerge-refined-change))))
'(smerge-refined-removed ((t (:inherit smerge-refined-change)))))))
;; Modeline
(column-number-mode t)
(display-battery-mode t)
(show-paren-mode t)
;; Text colours
(custom-set-faces
'(font-lock-function-name-face ((t (:weight bold))))
'(match ((t (:background "brightcyan" :foreground "black")))))
;; Graphical displays
(when (getenv "DISPLAY")
(when (fboundp 'fringe-mode)
(fringe-mode '(0 . 0)))
(custom-set-variables
'(blink-cursor-mode nil)
'(cursor-in-non-selected-windows nil)
'(cursor-type (quote (bar . 1)))
'(font-use-system-font t)
'(global-display-line-numbers-mode t)
'(scroll-bar-mode nil)
'(tool-bar-mode nil))
; Frame parameters
(add-to-list 'default-frame-alist '(background-mode . 'dark))
(add-to-list 'default-frame-alist '(name . "Emacs"))
(add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-11"))
(add-to-list 'default-frame-alist '(line-spacing . 2))
(add-to-list 'default-frame-alist '(alpha . 90))
(setq frame-title-format nil)
; macOS-specific polishes
(when (eq (window-system) 'ns)
(setq ns-use-proxy-icon nil
ns-use-thin-smoothing t)
(add-to-list 'default-frame-alist '(name . ""))
(add-to-list 'default-frame-alist '(font . "Menlo-14"))
(add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
(add-to-list 'default-frame-alist '(ns-appearance . 'dark)))
; Fullscreen by default
(setq frame-resize-pixelwise t)
(add-hook 'emacs-startup-hook 'toggle-frame-maximized)
(add-hook 'after-make-frame-functions (lambda (frame) (select-frame frame)
(toggle-frame-maximized)))
; Theme based on `tsdh-dark' theme
(custom-set-faces
'(custom-button ((t (:foreground "#000000" :background "#888888" :box (:line-width 2 :style released-button) :weight bold))))
'(default ((t (:background "#000000" :foreground "#FFFFFF"))))
'(diff-added ((t (:inherit diff-changed :background "dark green"))))
'(diff-changed ((t (:background "midnight blue"))))
'(diff-indicator-added ((t (:inherit diff-indicator-changed))))
'(diff-indicator-changed ((t (:weight bold))))
'(diff-indicator-removed ((t (:inherit diff-indicator-changed))))
'(diff-removed ((t (:inherit diff-changed :background "dark red"))))
'(dired-directory ((t (:foreground "DodgerBlue" :weight bold))))
'(error ((t (:foreground "red" :weight bold))))
'(font-lock-builtin-face ((t (:foreground "chartreuse2"))))
'(font-lock-comment-face ((t (:foreground "#00AA00"))))
'(font-lock-constant-face ((t (:foreground "dodger blue"))))
'(font-lock-doc-face ((t (:foreground "indian red"))))
'(font-lock-function-name-face ((t (:foreground "spring green"))))
'(font-lock-keyword-face ((t (:foreground "light sea green" :weight bold))))
'(font-lock-preprocessor-face ((t (:foreground "cornflower blue"))))
'(font-lock-string-face ((t (:foreground "light salmon"))))
'(font-lock-type-face ((t (:foreground "medium purple"))))
'(font-lock-variable-name-face ((t (:foreground "yellow green"))))
'(font-lock-warning-face ((t (:foreground "red" :weight bold))))
'(header-line ((t (:inverse-video t :box (:line-width -1 :color "red" :style released-button)))))
'(highlight ((t (:background "sea green"))))
'(line-number ((t (:foreground "#666666"))))
'(line-number-current-line ((t (:foreground "#CCCCCC"))))
'(menu ((t (:background "gray30" :foreground "gray70"))))
'(minibuffer-prompt ((t (:foreground "#4682b4" :weight bold))))
'(mode-line ((t (:background "#444444"))))
'(mode-line-inactive ((t (:inherit mode-line :background "#222222" :foreground "#666666"))))
'(region ((t (:background "#334466"))))
'(scroll-bar ((t (:background "gray20" :foreground "dark turquoise"))))
'(secondary-selection ((t (:background "#333366" :foreground "#f6f3e8"))))
'(show-paren-match ((t (:background "DeepSkyBlue4"))))
'(show-paren-mismatch ((t (:background "dark magenta"))))
'(widget-field ((t (:box (:line-width 2 :color "grey75" :style pressed-button)))))))