From 67ac6b272371a679c23f1e7af60abb0615aeb1d4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E9=98=B3=E5=85=89=E5=B0=91=E5=B9=B4?= <849317537@qq.com> Date: Thu, 13 Jun 2024 17:38:33 +0800 Subject: [PATCH] =?UTF-8?q?=E4=B8=80=E4=B8=AA=E9=85=8D=E7=BD=AE?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- init.el | 102 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 102 insertions(+) create mode 100644 init.el diff --git a/init.el b/init.el new file mode 100644 index 0000000..d3921d8 --- /dev/null +++ b/init.el @@ -0,0 +1,102 @@ +;; -*- lexical-binding: t -*- +(setq mac-option-modifier 'meta + mac-command-modifier 'super) + +(global-set-key (kbd "s-a") 'mark-whole-buffer) ; 对应Windows上面的Ctrl-a 全选 +(global-set-key (kbd "s-c") 'kill-ring-save) ; 对应Windows上面的Ctrl-c 复制 +(global-set-key (kbd "s-s") 'save-buffer) ; 对应Windows上面的Ctrl-s 保存 +(global-set-key (kbd "s-v") 'yank) ; 对应Windows上面的Ctrl-v 粘贴 +(global-set-key (kbd "s-z") 'undo) ; 对应Windows上面的Ctrol-z 撤销 +(global-set-key (kbd "s-x") 'kill-region) ; 对应Windows上面的Ctrol-x 剪切 + + +(global-hl-line-mode 1) ; 高亮行号 +(set-face-background 'hl-line "#e3f0fe") ; 颜色 + +(setq default-frame-alist '((font . "霞鹜文楷等宽-20"))) ; 字体设置 +(setq inhibit-startup-screen t) ; 关闭欢迎界面 +(global-display-line-numbers-mode 1) ; 设置行号 +(electric-pair-mode t) ; 自动补全括号, 引号等 +(tool-bar-mode 0) ; 关闭界面菜单 +(scroll-bar-mode 0) ; 关闭右侧滑动 +(setq-default cursor-type '(bar . 4)) ; 设置光标样式 +(setq make-backup-files nil) ; 不要设置~备份文件 +(delete-selection-mode 1) ; 被选中的文字重新编辑允许直接覆盖 + + +;(setq tab-always-indent 'complete) ; tab补全(界面有点乱, 不用了) + +;(require 'recentf) ; 关闭文件后记录文件位置(好像没起作用) +;(recentf-mode 1) +;(setq recentf-max-menu-item 10) ; 保留历史位置的文件数目 + + + + + +; 启动包管理器 +(require 'package) +(setq package-archives '(("gnu" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/") + ("melpa" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/"))) +(package-initialize) +;;防止反复调用 package-refresh-contents 会影响加载速度 +(when (not package-archive-contents) + (package-refresh-contents)) + + + +(package-install 'company) ; 会在当前页显示一个buf进代码行提示 +(global-company-mode 1) +(setq company-minimum-prefix-length 1) +(setq company-idle-delay 0) + +(package-install 'keycast) ; 提示按下的按键和对应的函数 +(keycast-mode-line-mode t) + +(package-install 'vertico) ; 对C M 相关的命令搜索提示 +(vertico-mode t) + +(package-install 'orderless) ; 模糊搜搜提示 +(setq completion-styles '(orderless)) + +(package-install 'marginalia) ; 直接显示粗略的帮助文档 用来配合vertico orderless +(marginalia-mode t) + +(package-install 'embark-consult ) ; 增强帮助和搜索 +(setq consult-async-min-input 2) ; 必须要输入两个中文/英文 字符才开始搜索 +(global-set-key (kbd "C-;") 'embark-act) +(setq prefix-help-command 'embark-prefix-help-command) + +(global-set-key (kbd "C-s") 'consult-line) ; 文本搜索 +(global-set-key (kbd "M-s i") 'consult-imenu) ; 函数列表快速跳转 +(global-set-key (kbd "C-x b") 'consult-buffer) ; 打开带有历史文件记录的buffer列表 + + +; 设置主题 +(package-install 'catppuccin-theme) +(load-theme 'catppuccin :no-confirm) +(setq catppuccin-flavor 'latte) +(catppuccin-reload) + + +(setq a "~/.emacs.d/") + +(defun say ()) + + + + + +(custom-set-variables + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(package-selected-packages + '(catppuccin-theme embark-consult embark consult company marginalia orderless vertico keycast))) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + )