-
Notifications
You must be signed in to change notification settings - Fork 1
/
UI-settings.el
65 lines (55 loc) · 1.74 KB
/
UI-settings.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
;; 去掉欢迎屏幕
(custom-set-variables
'(ecb-options-version "2.40")
'(inhibit-startup-screen t))
(custom-set-faces
)
;; scratch初始无字符
(setq initial-scratch-message "")
;; 启动时大小位置
(setq default-frame-alist
'((height . 40)(width . 160)(top . 120) (left . 180) (menu-bar-lines . 20) (tool-bar-lines . 0)))
;; 设置标题栏显示文件的完整路径名
(setq frame-title-format
'("%S" (buffer-file-name "%f"
(dired-directory dired-directory "%b"))))
;; mode-line时间格式设置
(setq display-time-24hr-format t)
;; mode-line显示日期与时间
(display-time)
(global-set-key "\M-o" 'other-window)
(global-set-key "\M-k" 'kill-this-buffer)
;; 设置color-theme
(add-to-list 'load-path (concat emacs-path "color-theme"))
(require 'color-theme)
(color-theme-initialize)
(require 'color-theme-awesome)
(color-theme-awesome)
;; 显示列号
(setq column-number-mode t)
(setq line-number-mode t)
(global-linum-mode t)
(setq default-tab-width 4)
;; 显示配对括号
(setq show-paren-delay 0)
(show-paren-mode t)
;; whitespace-mode
;;; To insert a literal tab char, press 【Ctrl+q Tab】.
;;; To type a newline char, type 【Ctrl+q Ctrl+j】.
(global-whitespace-mode t)
(setq whitespace-style (quote
( spaces tabs newline space-mark tab-mark newline-mark)))
(setq whitespace-display-mappings
'(
;(space-mark 32 [183] [46]) ; normal space, ·
(space-mark 160 [164] [95])
(space-mark 2208 [2212] [95])
(space-mark 2336 [2340] [95])
(space-mark 3616 [3620] [95])
(space-mark 3872 [3876] [95])
(newline-mark 10 [8629 10]) ; newlne, ↵
;(tab-mark 9 [8614 9] [92 9]) ; tab, ↦
(tab-mark 9 [8739 9] [92 9]) ; tab, |
))
(global-set-key (kbd "s-SPC") 'delete-trailing-whitespace)
(provide 'UI-settings)