From 2fb72671c096779830912dbe84ba704ce695d879 Mon Sep 17 00:00:00 2001 From: verdant Date: Sat, 2 May 2026 00:17:22 +0800 Subject: refactor: migrate configuration to a single org-mode file --- core/core-basic.el | 54 ------------------------------------------------------ 1 file changed, 54 deletions(-) delete mode 100644 core/core-basic.el (limited to 'core/core-basic.el') diff --git a/core/core-basic.el b/core/core-basic.el deleted file mode 100644 index ce5375d..0000000 --- a/core/core-basic.el +++ /dev/null @@ -1,54 +0,0 @@ -;; -*- 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 "") #'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 "") #'my/keyboard-escape-quit) - -(global-auto-revert-mode t) ; 另一程序修改文件让 Emacs 及时刷新 Buffer -(auto-save-mode 1) - -(provide 'core-basic) -- cgit v1.2.3