-
Notifications
You must be signed in to change notification settings - Fork 12
/
my-ui.el
254 lines (196 loc) · 8.11 KB
/
my-ui.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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
;;; my-ui.el ---
;;
;; Author: Hua Liang[Stupid ET] <et@everet.org>
;; Time-stamp: <2014-08-24 15:34:20 Sunday by Hua Liang>
;;====================== time setting =====================
;;启用时间显示设置，在minibuffer上面的那个杠上（忘了叫什么来着）
(display-time-mode 1)
;;时间使用24小时制
(setq display-time-24hr-format t)
(setq display-time-format "%02H:%02M:%02S %Y-%02m-%02d %3a")
;;时间显示包括日期和具体时间
(setq display-time-day-and-date t)
;;时间栏旁边启用邮件设置
;(setq display-time-use-mail-icon t)
;;时间的变化频率
(setq display-time-interval 1)
;;显示时间，格式如下
(display-time-mode 1)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
;;---------------------- END time setting ---------------------
(prefer-coding-system 'utf-8)
(modify-coding-system-alist 'file "\\.pat\\'" 'chinese-iso-8bit)
;; ==================== UI setting ====================
;; Font Setting
(setq my-font "Monaco-11")
(if (member "Monaco" (font-family-list))
(progn
(if (string= (system-name) "Stupid-ET.local") ; for retina
(setq my-font "Monaco-14")
(setq my-font "Monaco-11")
))
(if (member "Consola" (font-family-list))
(setq my-font "Consolas-11")))
(add-to-list 'default-frame-alist
'(font . my-font))
;(set-frame-font "Ubuntu Mono-12")
;; 可以用 C-u C-x = 来看当前汉字是用什么字体显示的。
;; 另一个有用的函数是 describe-fontset
(defun frame-setting ()
;; English Font
(set-frame-font my-font)
;; http://baohaojun.github.com/perfect-emacs-chinese-font.html
;; Chinese Font，太大了，除了在表格的地方用到，其他地方严重影响视觉。
(if (display-graphic-p)
(progn
(dolist (charset '(kana han symbol cjk-misc bopomofo))
(set-fontset-font (frame-parameter nil 'font)
charset (font-spec :family "WenQuanYi Micro Hei Mono"
;; :size 15 ; 18
)))
;; Fix rescale
(setq face-font-rescale-alist '(("Microsoft Yahei" . 1.2) ("WenQuanYi Micro Hei Mono" . 1.2)))
)
)
)
(frame-setting)
;; ==================== 滚动缩放 ====================
;; http://zhuoqiang.me/torture-emacs.html
;; For Linux
(global-set-key (kbd "<C-mouse-4>") 'text-scale-increase)
(global-set-key (kbd "<C-mouse-5>") 'text-scale-decrease)
;; For Windows
(global-set-key (kbd "<C-wheel-up>") 'text-scale-increase)
(global-set-key (kbd "<C-wheel-down>") 'text-scale-decrease)
;; -------------------- 滚动缩放 --------------------
;; ;; 解决汉字表格对齐问题，也就是设置等宽汉字
;; (if (and (fboundp 'daemonp) (daemonp))
;; (add-hook 'after-make-frame-functions
;; (lambda (frame)
;; (with-selected-frame frame
;; (frame-setting))))
;; (frame-setting))
(add-hook 'after-make-frame-functions
(lambda (frame)
(with-selected-frame frame
(frame-setting))))
(if (not (and (fboundp 'daemonp) (daemonp)))
(frame-setting))
(setq-default fill-column 81)
(setq default-fill-column 80)
;; 启动窗口大小
(setq default-frame-alist
'((height . 35) (width . 125) (menu-bar-lines . 20) (tool-bar-lines . 0)))
;; 去掉滚动栏
(scroll-bar-mode -1)
;;去掉菜单栏，将F10绑定为显示菜单栏，需要菜单栏了可以摁F10调出，再摁F10就去掉菜单
;; 如果总是不显示工具栏，将下面代码加到.emacs中
;; 参考： http://www.emacswiki.org/emacs/ToolBar
;; 注意：在menu-bar不显示的情况下，按ctrl+鼠标右键还是能调出菜单选项的
(tool-bar-mode -1)
;; 如果总是不显示菜单，将下面代码加到.emacs中
;;参考： http://www.emacswiki.org/emacs/MenuBar
(menu-bar-mode -1)
;; -------------------- UI setting --------------------
;; ==================== mode line ====================
;; ==================== line count ====================
;; borrow from http://stackoverflow.com/questions/8190277/how-do-i-display-the-total-number-of-lines-in-the-emacs-modeline
(defvar my-mode-line-buffer-line-count nil)
(make-variable-buffer-local 'my-mode-line-buffer-line-count)
(defun my-mode-line-count-lines ()
(setq my-mode-line-buffer-line-count (int-to-string (count-lines (point-min) (point-max)))))
(add-hook 'find-file-hook 'my-mode-line-count-lines)
(add-hook 'after-save-hook 'my-mode-line-count-lines)
(add-hook 'after-revert-hook 'my-mode-line-count-lines)
(add-hook 'dired-after-readin-hook 'my-mode-line-count-lines)
;; -------------------- line count --------------------
;;在标题栏提示当前位置
(setq frame-title-format
(list "[" '(:eval (projectile-project-name)) "]"
" ψωETωψ ◎ "
'(buffer-file-name "%f" (dired-directory dired-directory "%b"))))
(setq show-buffer-file-name nil)
(defun toggle-show-buffer-file-name ()
"toggle show or hide buffer full file name in mode line"
(interactive)
(setq show-buffer-file-name
(if show-buffer-file-name nil t)))
(global-set-key (kbd "M-<f11>") 'toggle-show-buffer-file-name)
;; use setq-default to set it for /all/ modes
;; http://emacs-fu.blogspot.com/2011/08/customizing-mode-line.html
(defun my-mode-line ()
(setq-default
mode-line-format
(list
;; the buffer name; the file name as a tool tip
'(:eval (propertize "%b " 'face 'font-lock-keyword-face
'help-echo (format "%s" (buffer-file-name))
))
"[" ;; insert vs overwrite mode, input-method in a tooltip
'(:eval (propertize (if overwrite-mode "Ovr" "Ins")
'face 'font-lock-preprocessor-face
'help-echo (concat "Buffer is in "
(if overwrite-mode "overwrite" "insert") " mode")))
;; was this buffer modified since the last save?
'(:eval (when (buffer-modified-p)
(concat "," (propertize "Mod"
'face 'font-lock-warning-face
'help-echo "Buffer has been modified"))))
;; is this buffer read-only?
'(:eval (when buffer-read-only
(concat "," (propertize "RO"
'face 'font-lock-type-face
'help-echo "Buffer is read-only"))))
"] "
;; ;; line and column
;; "(" ;; '%02' to set to 2 chars at least; prevents flickering
;; (propertize "%01l" 'face 'font-lock-type-face) ","
;; (propertize "%02c" 'face 'font-lock-type-face)
;; ") "
;; relative position, size of file
"["
(propertize "%p" 'face 'font-lock-constant-face) ;; % above top
;; (propertize "%I" 'face 'font-lock-constant-face) ;; size
'(:eval (when (and (not (buffer-modified-p)) my-mode-line-buffer-line-count)
(propertize (concat "/" my-mode-line-buffer-line-count "L")
'face 'font-lock-type-face
)))
"] "
;; the current major mode for the buffer.
"["
;; mode-line-modes ;; too much infomation
'(:eval (propertize "%m" 'face 'font-lock-string-face
'help-echo buffer-file-coding-system))
"] "
'(:eval (when vc-mode
(concat "["
(propertize (string-strip (format "%s" vc-mode)) 'face 'font-lock-variable-name-face)
"] "
)))
;; '(:eval (format "Proj[%s] " (projectile-project-name)))
;; add the time, with the date and the emacs uptime in the tooltip
'(:eval (propertize (format-time-string "%H:%M:%S")
'face 'font-lock-type-face
'help-echo
(concat (format-time-string "%Y-%02m-%02d %02H:%02M:%02S %Y-%02m-%02d %3a; ")
(emacs-uptime "Uptime:%hh"))))
;; show buffer file name
'(:eval (when show-buffer-file-name
(format " [%s]" (buffer-file-name))))
" "
;; date
'(:eval (propertize (format-time-string "%Y-%02m-%02d %3a")
'face 'font-lock-comment-face))
" --"
;; i don't want to see minor-modes; but if you want, uncomment this:
;; minor-mode-alist ;; list of minor modes
"%-" ;; fill with '-'
;; mode-line-modes mode-line-misc-info mode-line-end-spaces
))
;; 这里不知道Emacs发生啥事，初始化完成后，mode-line-format就被设置回默认值。
;; (setq default-mode-line-format mode-line-format) ; 奇葩了，没有这行它就没法设置成功
)
(my-mode-line)
;; -------------------- mode line --------------------
;;; my-ui.el ends here