blob: ce5375da827a507782ddb5f39012062cd53b196f (
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
|
;; -*- lexical-binding: t; -*-
(setq confirm-kill-emacs #'yes-or-no-p ; 关闭 Emacs 时询问 y or n
auto-save-visited-interval 5
native-comp-async-report-warinings-errors nil
backup-directory-alist `((".*" . ,temporary-file-directory))
auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
select-enable-clipboard t
select-enable-primary t
interprogram-cut-function
(lambda (text &optional push)
(let ((process-connection-type nil))
(let ((proc (start-process "xclip" nil "xclip" "-selection" "clipboard")))
(process-send-string proc text)
(process-send-eof proc))))
interprogram-paste-function
(lambda ()
(shell-command-to-string "xclip -o -selection clipboard")))
(setq-default delete-by-moving-to-transh t ; 删除文件移动到垃圾箱
window-combination-resize t ; 新窗口平均其他左右窗口
x-stretch-cursor t ; 将光标拉伸到字符宽度
)
(defun my/keyboard-escape-quit()
"快速的 Esc 退出 minibuffer"
(interactive)
(keyboard-escape-quit))
(global-set-key (kbd "<escape>") #'my/keyboard-escape-quit)
;; 在 Dired 中，按`l`进入文件，按`h`回到上一级目录
(add-hook 'evil-mode-hook (lambda ()
(with-eval-after-load 'dired
(add-hook 'dired-mode-hook
(lambda ()
(define-key evil-normal-state-local-map (kbd "h") nil)
(define-key evil-normal-state-local-map (kbd "l") nil)
(define-key evil-normal-state-local-map (kbd "h") #'dired-up-directory)
(define-key evil-normal-state-local-map (kbd "l") #'dired-find-file))))))
(add-hook 'dired-mode-hook
(lambda ()
(define-key dired-mode-map (kbd "C-b") nil)
(define-key dired-mode-map (kbd "C-f") nil)
(define-key dired-mode-map (kbd "C-b") #'dired-up-directory)
(define-key dired-mode-map (kbd "C-f") #'dired-find-file)))
(global-set-key (kbd "<escape>") #'my/keyboard-escape-quit)
(global-auto-revert-mode t) ; 另一程序修改文件让 Emacs 及时刷新 Buffer
(auto-save-mode 1)
(provide 'core-basic)
|
