blob: 266fb151617082e606958e024baa20c70b1df6bd (
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
|
(defvar fcuny/font-family "Source Code Pro")
(defvar fcuny/font-size 130)
(defun fcuny/set-font-size (size)
(interactive)
(set-face-attribute 'default nil :height size))
(defun fcuny/regular-mode ()
(interactive)
(set-frame-font fcuny/font-family)
(fcuny/set-font-size fcuny/font-size))
(defun fcuny/presentation-mode ()
(interactive)
(set-frame-font fcuny/font-family)
(fcuny/set-font-size 190))
;; no menu
(menu-bar-mode -1)
;; show parenthesis
(show-paren-mode +1)
;; enable colors
(global-font-lock-mode +1)
;; no startup screen
(setq inhibit-startup-message t)
(setq initial-scratch-message "")
;; highlight the current line
(global-hl-line-mode +1)
(setq frame-title-format '(buffer-file-name "%f" ("%b")))
;; no blink cursor
(blink-cursor-mode -1)
;; show the column number in the mode-line
(setq column-number-mode t)
(when window-system
;;hide tool-bar
(tool-bar-mode 0)
;;hide scroll-bar
(scroll-bar-mode 0)
;;hide menu-bar
(menu-bar-mode +1)
;; set the font size and family
(fcuny/regular-mode))
(require 'whitespace)
(global-whitespace-mode 1)
(setq whitespace-style '(face trailing tabs tab-mark))
(use-package rainbow-delimiters
:ensure t
:defer t
:init
(progn
(add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode)))
(setq-default mode-line-format
'("%e" mode-line-front-space
;; Standard info about the current buffer
mode-line-mule-info
mode-line-client
mode-line-modified
mode-line-remote
mode-line-frame-identification
mode-line-buffer-identification " " mode-line-position
;; Some specific information about the current buffer:
(flycheck-mode flycheck-mode-line) ; Flycheck status
mode-line-misc-info
;; And the modes, which I don't really care for anyway
" " mode-line-modes mode-line-end-spaces))
(provide 'core-ui)
|
