summary refs log tree commit diff
path: root/emacs.d/core/core-ui.el
blob: 2962cc5fe235bd62ea5f7a034c494221083517ec (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
(defvar fcuny/font-family "Source Code Pro")
(defvar fcuny/font-size 140)

(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 smart-mode-line
  :ensure t
  :config
  (setq sml/theme 'light)
  (setq rm-whitelist '(""))
  (setq sml/no-confirm-load-theme t)
  (sml/setup))

(use-package rainbow-delimiters
  :ensure t
  :defer t
  :init
  (progn
    (add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode)))

(provide 'core-ui)