first commit
This commit is contained in:
trogloxene
50
lisp/init-completion.el
Normal file
50
lisp/init-completion.el
Normal file
@@ -0,0 +1,50 @@
|
||||
;;; init-completion.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
;; eglot
|
||||
(use-package eglot
|
||||
:hook ((python-mode . eglot-ensure))
|
||||
|
||||
:config
|
||||
(setq eglot-send-changes-idle-time 0.5))
|
||||
|
||||
;; corfu
|
||||
(use-package corfu
|
||||
:custom
|
||||
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
|
||||
|
||||
:init
|
||||
(global-corfu-mode)
|
||||
(corfu-history-mode)
|
||||
(corfu-popupinfo-mode)
|
||||
(corfu-echo-mode)
|
||||
|
||||
:custom
|
||||
(corfu-popupinfo-delay 0.5)
|
||||
(corfu-auto t)
|
||||
|
||||
:bind
|
||||
(:map corfu-map
|
||||
("RET" . nil)))
|
||||
|
||||
(use-package emacs
|
||||
:custom
|
||||
(tab-always-indent 'complete)
|
||||
|
||||
;; Emacs 30 and newer: Disable Ispell completion function.
|
||||
;; Try `cape-dict' as an alternative.
|
||||
(text-mode-ispell-word-completion nil)
|
||||
|
||||
;; Hide commands in M-x which do not apply to the current mode. Corfu
|
||||
;; commands are hidden, since they are not used via M-x. This setting is
|
||||
;; useful beyond Corfu.
|
||||
(read-extended-command-predicate #'command-completion-default-include-p))
|
||||
|
||||
;; cape
|
||||
(use-package cape
|
||||
:init
|
||||
(add-to-list 'completion-at-point-functions #'cape-file) ;; 文件补全
|
||||
(setq-local completion-at-point-functions
|
||||
(list (cape-capf-super #'cape-dabbrev)))) ;; 启用dabbrev
|
||||
|
||||
(provide 'init-completion)
|
||||
35
lisp/init-const.el
Normal file
35
lisp/init-const.el
Normal file
@@ -0,0 +1,35 @@
|
||||
;;; init-const.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
;; 识别操作系统
|
||||
(defconst *is-mac* (eq system-type 'darwin))
|
||||
(defconst *is-linux* (eq system-type 'gnu/linux))
|
||||
(defconst *is-windows* (or (eq system-type 'ms-dos)
|
||||
(eq system-type 'windows-nt)))
|
||||
|
||||
;; Windows 系统编码设置
|
||||
(when *is-windows*
|
||||
;; 设置默认编码环境
|
||||
(set-language-environment "UTF-8")
|
||||
(prefer-coding-system 'utf-8)
|
||||
(set-default-coding-systems 'utf-8)
|
||||
(set-terminal-coding-system 'utf-8)
|
||||
(set-keyboard-coding-system 'utf-8)
|
||||
(setq default-buffer-file-coding-system 'utf-8)
|
||||
|
||||
;; 设置进程通信编码
|
||||
(setq default-process-coding-system '(utf-8 . utf-8))
|
||||
|
||||
;; 为特定程序设置编码
|
||||
(add-to-list 'process-coding-system-alist '("rg" utf-8 . utf-8))
|
||||
(add-to-list 'process-coding-system-alist '("ripgrep" utf-8 . utf-8))
|
||||
(add-to-list 'process-coding-system-alist '("grep" utf-8 . utf-8))
|
||||
(add-to-list 'process-coding-system-alist '("find" utf-8 . utf-8))
|
||||
(add-to-list 'process-coding-system-alist '("fd" utf-8 . utf-8))
|
||||
(add-to-list 'process-coding-system-alist '("fdfind" utf-8 . utf-8))
|
||||
|
||||
;; Windows 文件名 Unicode 支持
|
||||
(setq w32-unicode-filenames t)
|
||||
(setq w32-system-coding-system 'utf-8))
|
||||
|
||||
(provide 'init-const)
|
||||
49
lisp/init-elpa.el
Normal file
49
lisp/init-elpa.el
Normal file
@@ -0,0 +1,49 @@
|
||||
;;; init-elpa.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
;; Clash 代理配置
|
||||
(setq url-proxy-services
|
||||
'(("http" . "127.0.0.1:7890")
|
||||
("https" . "127.0.0.1:7890")
|
||||
("no_proxy" . "\\(localhost\\|127\\.0\\.0\\.1\\|192\\.168\\.*\\)")))
|
||||
|
||||
;; straight.el
|
||||
(defvar bootstrap-version)
|
||||
(let ((bootstrap-file
|
||||
(expand-file-name
|
||||
"straight/repos/straight.el/bootstrap.el"
|
||||
(or (bound-and-true-p straight-base-dir)
|
||||
user-emacs-directory)))
|
||||
(bootstrap-version 7))
|
||||
(unless (file-exists-p bootstrap-file)
|
||||
(with-current-buffer
|
||||
(url-retrieve-synchronously
|
||||
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
|
||||
'silent 'inhibit-cookies)
|
||||
(goto-char (point-max))
|
||||
(eval-print-last-sexp)))
|
||||
(load bootstrap-file nil 'nomessage))
|
||||
|
||||
;; 安装el-patch
|
||||
(use-package el-patch
|
||||
:straight t)
|
||||
|
||||
;; 从develop分支而不是main分支获取straight.el
|
||||
(setq straight-repository-branch t)
|
||||
|
||||
;; 安装use-package
|
||||
(straight-use-package 'use-package)
|
||||
|
||||
;; 配置 use-package
|
||||
(setq use-package-always-defer t
|
||||
use-package-expand-minimally t
|
||||
use-package-verbose t
|
||||
straight-use-package-version t
|
||||
straight-use-package-by-default t)
|
||||
|
||||
;; 安装benchmark-init
|
||||
(use-package benchmark-init
|
||||
:init (benchmark-init/activate)
|
||||
:hook (after-init . benchmark-init/deactivate))
|
||||
|
||||
(provide 'init-elpa)
|
||||
169
lisp/init-kbd.el
Normal file
169
lisp/init-kbd.el
Normal file
@@ -0,0 +1,169 @@
|
||||
;;; init-kbd.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
;; 修改mac键位
|
||||
(when *is-mac*
|
||||
(setq mac-command-modifier 'meta)
|
||||
(setq mac-option-modifier 'none))
|
||||
|
||||
;; 使用F2打开init.el
|
||||
(defun open-init-file()
|
||||
"Open user's init.el file in ~/.emacs.d
|
||||
这是一段文档"
|
||||
(interactive)
|
||||
(find-file "~/.emacs.d/init.el"))
|
||||
|
||||
(global-set-key (kbd "<f2>") 'open-init-file)
|
||||
|
||||
;; 快速打开函数与变量的定义
|
||||
(global-set-key (kbd "C-h C-f") 'find-function)
|
||||
(global-set-key (kbd "C-h C-v") 'find-variable)
|
||||
|
||||
;; 根据平台使用不同的重启方式
|
||||
(if *is-windows*
|
||||
(progn
|
||||
(defun restart-emacs ()
|
||||
"Restart emacs (for Windows)"
|
||||
(interactive)
|
||||
(save-some-buffers)
|
||||
(w32-shell-execute "open" "runemacs.exe")
|
||||
(kill-emacs))
|
||||
(global-set-key (kbd "C-c r") 'restart-emacs))
|
||||
(global-set-key (kbd "C-c r") 'restart-emacs))
|
||||
|
||||
;; multiple cursors
|
||||
(global-set-key (kbd "C-c c c") 'mc/edit-lines)
|
||||
(global-set-key (kbd "C-c c a") 'mc/mark-all-in-region)
|
||||
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
|
||||
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
|
||||
|
||||
;; 快速复制当前行
|
||||
(defun duplicate-and-move-to-next-line()
|
||||
(interactive)
|
||||
(progn
|
||||
(duplicate-line)
|
||||
(next-line)))
|
||||
(global-set-key (kbd "C-,") 'duplicate-and-move-to-next-line)
|
||||
|
||||
;; 切换buffer
|
||||
(defun my-tab-line-buffers ()
|
||||
"Get list of buffers shown in tab-line."
|
||||
(mapcar (lambda (tab)
|
||||
(if (consp tab) (cdr tab) tab))
|
||||
(funcall tab-line-tabs-function)))
|
||||
|
||||
(defun previous-buffer-with-tab-line ()
|
||||
"Switch to previous buffer in tab-line order"
|
||||
(interactive)
|
||||
(let ((already-enabled global-tab-line-mode))
|
||||
(unless already-enabled
|
||||
(global-tab-line-mode 1))
|
||||
(let* ((buffers (my-tab-line-buffers))
|
||||
(current (current-buffer))
|
||||
(pos (cl-position current buffers)))
|
||||
(when pos
|
||||
(switch-to-buffer
|
||||
(nth (mod (1- pos) (length buffers)) buffers))))
|
||||
(unless already-enabled
|
||||
(run-with-idle-timer 0.5 nil (lambda () (global-tab-line-mode -1))))))
|
||||
|
||||
(defun next-buffer-with-tab-line ()
|
||||
"Switch to next buffer in tab-line order"
|
||||
(interactive)
|
||||
(let ((already-enabled global-tab-line-mode))
|
||||
(unless already-enabled
|
||||
(global-tab-line-mode 1))
|
||||
(let* ((buffers (my-tab-line-buffers))
|
||||
(current (current-buffer))
|
||||
(pos (cl-position current buffers)))
|
||||
(when pos
|
||||
(switch-to-buffer
|
||||
(nth (mod (1+ pos) (length buffers)) buffers))))
|
||||
(unless already-enabled
|
||||
(run-with-idle-timer 0.5 nil (lambda () (global-tab-line-mode -1))))))
|
||||
|
||||
(global-set-key (kbd "<f3>") 'previous-buffer-with-tab-line)
|
||||
(global-set-key (kbd "<mouse-4>") 'previous-buffer)
|
||||
(global-set-key (kbd "M-[") 'previous-buffer)
|
||||
(global-set-key (kbd "<f4>") 'next-buffer-with-tab-line)
|
||||
(global-set-key (kbd "<mouse-5>") 'next-buffer)
|
||||
(global-set-key (kbd "M-]") 'next-buffer)
|
||||
|
||||
;; 段落导航
|
||||
(global-set-key (kbd "M-p") 'backward-paragraph)
|
||||
(global-set-key (kbd "M-n") 'forward-paragraph)
|
||||
|
||||
;; 打开tab-line-mode
|
||||
(global-set-key (kbd "C-c u t") 'global-tab-line-mode)
|
||||
(global-set-key (kbd "<mouse-3>") 'global-tab-line-mode)
|
||||
|
||||
;; 中键使用embark打开定义
|
||||
(global-set-key (kbd "<mouse-2>") 'xref-find-definitions)
|
||||
|
||||
;; 使用C-c s切换到scrath buffer
|
||||
(global-set-key (kbd "C-c <delete>") 'scratch-buffer)
|
||||
|
||||
;; 使用M-<方向键>调整window
|
||||
(global-set-key (kbd "M-<left>") 'shrink-window-horizontally)
|
||||
(global-set-key (kbd "M-<right>") 'enlarge-window-horizontally)
|
||||
(global-set-key (kbd "M-<up>") 'enlarge-window)
|
||||
(global-set-key (kbd "M-<down>") 'shrink-window)
|
||||
|
||||
;; crux相关
|
||||
(global-set-key (kbd "C-<backspace>") 'crux-kill-line-backwards) ;; C-DEL kill line backwards
|
||||
(global-set-key (kbd "C-c k") 'comment-line) ;; 快速注释
|
||||
(global-set-key (kbd "C-k") 'crux-smart-kill-line) ;; smart kill line
|
||||
(global-set-key (kbd "C-a") 'crux-move-beginning-of-line) ;; 移动到第一个缩进而非行首
|
||||
(global-set-key (kbd "C-x K") 'crux-kill-other-buffers) ;; 删除除当前buffer之外的buffer
|
||||
|
||||
;; consult
|
||||
(global-set-key (kbd "C-x b") 'consult-buffer) ;; buffer菜单
|
||||
(global-set-key (kbd "C-s") 'consult-line) ;; 搜索
|
||||
(global-set-key (kbd "C-c i") 'consult-imenu) ;; imenu
|
||||
(global-set-key (kbd "C-c f r") 'consult-recent-file) ;; 最近打开
|
||||
(global-set-key (kbd "C-c f f") 'consult-fd) ;; 调用fd进行目录内搜索
|
||||
(global-set-key (kbd "C-c f l") 'consult-locate) ;; consult-locate
|
||||
(global-set-key (kbd "C-c f g") 'consult-ripgrep) ;; consult-ripgrep
|
||||
(global-set-key (kbd "C-c y") 'consult-yank-from-kill-ring) ;; 从kill ring中粘贴
|
||||
|
||||
;; hungry-delete
|
||||
(global-set-key (kbd "C-c DEL") 'hungry-delete-backward) ;; 向后删除到第一个非空字符
|
||||
(global-set-key (kbd "C-c d") 'hungry-delete-forward) ;; 向前删除到第一个非空字符
|
||||
|
||||
;; drag-stuff
|
||||
(global-set-key (kbd "M-P") 'drag-stuff-up)
|
||||
(global-set-key (kbd "M-N") 'drag-stuff-down)
|
||||
|
||||
;; ace-windows
|
||||
(global-set-key (kbd "M-o") 'ace-window)
|
||||
|
||||
;; embark，修饰键之后加C-h可以查看所有指令
|
||||
(global-set-key (kbd "C-;") 'embark-act)
|
||||
|
||||
;; 打开目录
|
||||
(defun consult-directory-externally (file)
|
||||
"Open FILE externally using the default application of the system."
|
||||
(interactive "fOpen externally: ")
|
||||
(if (and (eq system-type 'windows-nt)
|
||||
(fboundp 'w32-shell-execute))
|
||||
(shell-command-to-string (encode-coding-string (replace-regexp-in-string "/" "\\\\"
|
||||
(format "explorer.exe %s" (file-name-directory (expand-file-name file))))
|
||||
'gbk))
|
||||
(call-process (pcase system-type
|
||||
('darwin "open")
|
||||
('cygwin "cygstart")
|
||||
(_ "xdg-open"))
|
||||
nil 0 nil
|
||||
(file-name-directory (expand-file-name file)))))
|
||||
|
||||
(with-eval-after-load 'embark
|
||||
(define-key embark-file-map (kbd "d") 'consult-directory-externally))
|
||||
|
||||
;;打开当前文件的目录
|
||||
(defun my-open-current-directory ()
|
||||
(interactive)
|
||||
(consult-directory-externally default-directory))
|
||||
|
||||
(global-set-key (kbd "C-c f d") 'my-open-current-directory)
|
||||
|
||||
(provide 'init-kbd)
|
||||
50
lisp/init-org.el
Normal file
50
lisp/init-org.el
Normal file
@@ -0,0 +1,50 @@
|
||||
;;; init-org.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
(use-package org)
|
||||
|
||||
;; (if *is-windows*
|
||||
;; (progn (run-with-idle-timer
|
||||
;; 0.5 nil
|
||||
;; (lambda ()
|
||||
;; (with-temp-buffer
|
||||
;; (org-mode)
|
||||
;; (org-mode))
|
||||
;; (message "Org preloaded")))))
|
||||
|
||||
(setq org-todo-keywords
|
||||
(quote ((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d!/!)")
|
||||
(sequence "WAITING(w@/!)" "SOMEDAY(S)" "|" "CANCELLED(c@/!)" "MEETING(m)" "PHONE(p)"))))
|
||||
|
||||
(setq system-time-locale "C")
|
||||
|
||||
;; org-contrib 和 org-checklist
|
||||
(use-package org-contrib
|
||||
:straight (org-contrib :type git :host github :repo "emacsmirror/org-contrib"
|
||||
:depth 1))
|
||||
|
||||
(add-hook 'org-mode-hook
|
||||
(lambda ()
|
||||
(require 'org-checklist nil t)))
|
||||
|
||||
(setq org-log-done t)
|
||||
(setq org-log-into-drawer t)
|
||||
|
||||
(global-set-key (kbd "C-c a") 'org-agenda)
|
||||
(setq org-agenda-files '("d:/emacs/org/learning-org-mode.org"))
|
||||
(setq org-agenda-span 'day)
|
||||
|
||||
(setq org-capture-templates
|
||||
'(("t" "Todo" entry (file+headline "d:/emacs/org/learning-org-mode.org" "Workspace")
|
||||
"* TODO [#B] %?\n %i\n %U"
|
||||
:empty-lines 1)))
|
||||
|
||||
(global-set-key (kbd "C-c o c") 'org-capture)
|
||||
|
||||
(setq org-agenda-custom-commands
|
||||
'(("c" "important stuff"
|
||||
((tags-todo "+PRIORITY=\"A\"")))
|
||||
;; ...other commands here
|
||||
))
|
||||
|
||||
(provide 'init-org)
|
||||
91
lisp/init-package.el
Normal file
91
lisp/init-package.el
Normal file
@@ -0,0 +1,91 @@
|
||||
;;; init-package.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
;; 安装gcmh用于管理内存回收
|
||||
(use-package gcmh
|
||||
:init
|
||||
(setq gcmh-idle-delay 5 ; 空闲 5 秒后 GC
|
||||
gcmh-high-cons-threshold (* 16 1024 1024)) ; 高阈值 16MB
|
||||
:config
|
||||
(gcmh-mode 1))
|
||||
|
||||
(use-package restart-emacs)
|
||||
|
||||
;; 安装multiple-cursors
|
||||
(use-package multiple-cursors)
|
||||
|
||||
;; 安装crux，增强快捷键，快捷键配置在init-kbd.el中
|
||||
(use-package crux)
|
||||
|
||||
;; 安装hungry-delete
|
||||
(use-package hungry-delete)
|
||||
|
||||
;; 安装drag-stuff，拖动字符
|
||||
(use-package drag-stuff)
|
||||
|
||||
;; 安装which-key，快捷键提示
|
||||
(use-package which-key
|
||||
:defer 0
|
||||
:config
|
||||
(which-key-mode))
|
||||
|
||||
;; 安装ace-windows，快速切换窗口
|
||||
(use-package ace-window)
|
||||
|
||||
;; 安装vertico
|
||||
(use-package vertico
|
||||
:init (vertico-mode t))
|
||||
|
||||
;; 安装orderless，用于模糊搜索
|
||||
(use-package orderless
|
||||
:custom (completion-styles '(orderless basic)))
|
||||
|
||||
;; 安装marginalia，用于命令注释
|
||||
(use-package marginalia
|
||||
:init (marginalia-mode))
|
||||
|
||||
;; 安装consult，增强搜索和其他菜单
|
||||
(use-package consult)
|
||||
|
||||
;; 安装embark，一个菜单，用用就明白了
|
||||
(use-package embark
|
||||
:config (setq prefix-help-command 'embark-prefix-help-command))
|
||||
|
||||
;; 安装embark-consult和wgrep
|
||||
(use-package embark-consult)
|
||||
(use-package wgrep)
|
||||
|
||||
(with-eval-after-load
|
||||
'consult
|
||||
'(with-eval-after-load
|
||||
'embark
|
||||
'(progn
|
||||
(require 'embark-consult)
|
||||
(add-hook
|
||||
'embark-collect-mode-hook
|
||||
#'consult-preview-at-point-mode))))
|
||||
|
||||
(define-key minibuffer-local-map (kbd "C-c C-e") 'embark-export)
|
||||
|
||||
(progn
|
||||
(setq consult-locate-args (encode-coding-string "es.exe -i -p -r" 'gbk))
|
||||
(add-to-list 'process-coding-system-alist '("es" gbk . gbk)))
|
||||
|
||||
;; 启用savehist，保存命令顺序
|
||||
(use-package savehist
|
||||
:hook (after-init . savehist-mode)
|
||||
:init (setq enable-recursive-minibuffers t
|
||||
history-length 1000
|
||||
savehist-additional-variables '(mark-ring
|
||||
global-mark-ring
|
||||
search-ring
|
||||
regexp-search-ring
|
||||
extended-command-history)
|
||||
savehist-autosave-interval 300)
|
||||
)
|
||||
|
||||
;; saveplace，保存光标位置
|
||||
(use-package saveplace
|
||||
:hook (after-init . save-place-mode))
|
||||
|
||||
(provide 'init-package)
|
||||
32
lisp/init-segmentation.el
Normal file
32
lisp/init-segmentation.el
Normal file
@@ -0,0 +1,32 @@
|
||||
;;; init-segmentation.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
;; emacs-chinese-word-segmentation 配置
|
||||
(when *is-windows*
|
||||
(add-to-list 'load-path "D:/emacs/emacs-chinese-word-segmentation")
|
||||
;; 设置为进程调用方式
|
||||
(setq cns-process-type 'shell)
|
||||
;; 设置可执行文件路径
|
||||
(setq cns-prog "D:/emacs/emacs-chinese-word-segmentation/cnws.exe")
|
||||
;; 设置字典目录
|
||||
(setq cns-dict-directory "D:/emacs/emacs-chinese-word-segmentation/cppjieba/dict")
|
||||
;; 直接设置进程命令，绕过 Windows shell 检测
|
||||
(setq cns-process-shell-command
|
||||
(format "%s %s %s %s %s %s"
|
||||
cns-prog
|
||||
(concat (file-name-as-directory cns-dict-directory) "jieba.dict.utf8")
|
||||
(concat (file-name-as-directory cns-dict-directory) "hmm_model.utf8")
|
||||
(concat (file-name-as-directory cns-dict-directory) "user.dict.utf8")
|
||||
(concat (file-name-as-directory cns-dict-directory) "idf.utf8")
|
||||
(concat (file-name-as-directory cns-dict-directory) "stop_words.utf8")))
|
||||
;; 其他配置
|
||||
(setq cns-recent-segmentation-limit 40)
|
||||
(require 'cns nil t)
|
||||
;; 自动启动
|
||||
(when (featurep 'cns)
|
||||
(add-hook 'find-file-hook 'cns-auto-enable))
|
||||
;; 取消C-<backspace>绑定
|
||||
(with-eval-after-load 'cns
|
||||
(define-key cns-mode-map (kbd "C-<backspace>") nil)))
|
||||
|
||||
(provide 'init-segmentation)
|
||||
49
lisp/init-startup.el
Normal file
49
lisp/init-startup.el
Normal file
@@ -0,0 +1,49 @@
|
||||
;;; init-startup.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
;; 配置备份文件和自动保存文件目录
|
||||
(setq backup-directory-alist
|
||||
`((".*" . ,(expand-file-name "backup/" user-emacs-directory)))
|
||||
backup-by-copying t
|
||||
delete-old-versions t
|
||||
kept-new-versions 6
|
||||
kept-old-versions 2
|
||||
version-control t)
|
||||
|
||||
(setq auto-save-file-name-transforms
|
||||
`((".*" ,(expand-file-name "auto-save-list/" user-emacs-directory) t)))
|
||||
|
||||
;; 关闭lock文件
|
||||
(setq create-lockfiles nil)
|
||||
|
||||
;; 关闭提示音
|
||||
(setq ring-bell-function 'ignore)
|
||||
|
||||
;; 同步scoop目录
|
||||
(when *is-windows*
|
||||
;; 将 Scoop 的 Python Scripts 添加到 exec-path
|
||||
(add-to-list 'exec-path (expand-file-name "H/appppppppppp/scoop/apps/"))
|
||||
;; 同时更新环境变量 PATH（供子进程使用）
|
||||
(setenv "PATH" (concat (expand-file-name "H/appppppppppp/scoop/apps/") ";" (getenv "PATH"))))
|
||||
|
||||
;; 当文件被外部修改时自动刷新
|
||||
(global-auto-revert-mode 1)
|
||||
|
||||
;; 开启rencent file mode
|
||||
(recentf-mode)
|
||||
(setq recentf-max-saved-items 20) ;; 最大保存数量
|
||||
|
||||
;; 启用select delete
|
||||
(delete-selection-mode)
|
||||
|
||||
;; 启用winner mode
|
||||
(winner-mode)
|
||||
|
||||
;; 自定义scratch
|
||||
(setq initial-scratch-message
|
||||
";; SCRATCH SCRATCH SCRATCH\n\n")
|
||||
|
||||
;; 开启server mode
|
||||
(server-start)
|
||||
|
||||
(provide 'init-startup)
|
||||
96
lisp/init-ui.el
Normal file
96
lisp/init-ui.el
Normal file
@@ -0,0 +1,96 @@
|
||||
;;; init-ui.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
|
||||
;; 设置系统编码
|
||||
(when (fboundp 'set-charset-priority)
|
||||
(set-charset-priority 'unicode))
|
||||
|
||||
(set-language-environment 'chinese-gbk)
|
||||
(prefer-coding-system 'utf-8-auto)
|
||||
|
||||
;; 安装solarized dark
|
||||
(use-package solarized-theme)
|
||||
(load-theme 'solarized-dark t)
|
||||
|
||||
;; 安装smart-mode-line
|
||||
(use-package smart-mode-line
|
||||
:defer 0.5
|
||||
:config
|
||||
(setq sml/no-confirm-load-theme t
|
||||
sml/theme 'respectful)
|
||||
(sml/setup))
|
||||
|
||||
;; 高亮当前行
|
||||
(global-hl-line-mode t)
|
||||
|
||||
;; 显示文件大小
|
||||
(size-indication-mode t)
|
||||
|
||||
;; 显示行号列号
|
||||
(column-number-mode t)
|
||||
|
||||
;; 配置字体
|
||||
(defvar cn-fonts-list '("Sarasa Fixed TC" "STHeiti" "微软雅黑" "文泉译微米黑")
|
||||
"定义使用的中文字体候选列表")
|
||||
|
||||
(defvar en-fonts-list '("Sarasa Fixed TC" "Courier New" "Monaco" "Ubuntu Mono")
|
||||
"定义使用的英文字体候选列表")
|
||||
|
||||
(defvar emoji-fonts-list '("Apple Color Emoji" "Segoe UI Emoji" "Noto Color Emoji" "Symbola" "Symbol")
|
||||
"定义使用Emoji字体候选列表")
|
||||
|
||||
(defun tenon--available-font (font-list)
|
||||
"从 FONT-LIST 中寻找第一个系统中可用的字"
|
||||
(catch 'found
|
||||
(dolist (font font-list)
|
||||
(when (member font (font-family-list))
|
||||
(throw 'found font)))))
|
||||
|
||||
;; 设置字体大小和字重变量
|
||||
(defvar tenon-font-size 125
|
||||
"默认字体大小")
|
||||
(defvar tenon-font-weight 'light
|
||||
"默认字重，选项有ultra-light，light，normal，medium，semibold，bold")
|
||||
|
||||
;; 定义函数
|
||||
;;;###autoload
|
||||
(defun tenon--font-setup ()
|
||||
"Font setup."
|
||||
(interactive)
|
||||
(let* ((cf (tenon--available-font cn-fonts-list))
|
||||
(ef (tenon--available-font en-fonts-list))
|
||||
(em (tenon--available-font emoji-fonts-list)))
|
||||
(when ef
|
||||
(dolist (face '(default fixed-pitch fixed-pitch-serif variable-pitch))
|
||||
(set-face-attribute face nil
|
||||
:family ef
|
||||
:height tenon-font-size
|
||||
:weight tenon-font-weight)))
|
||||
(when em
|
||||
(dolist (charset `(unicode unicode-bmp ,(if (> emacs-major-version 27) 'emoji 'symbol)))
|
||||
(set-fontset-font t charset em nil 'prepend)))
|
||||
(when cf
|
||||
(dolist (charset '(kana han cjk-misc bopomofo))
|
||||
(set-fontset-font t charset cf))
|
||||
(setq face-font-rescale-alist
|
||||
(mapcar (lambda (item) (cons item 1)) `(,cf ,em))))))
|
||||
|
||||
;; 延迟执行字体设置
|
||||
(add-hook 'after-init-hook #'tenon--font-setup)
|
||||
|
||||
;; 添加个人字体到 cnfonts
|
||||
(setq cnfonts-personal-fontnames
|
||||
'(("Sarasa Fixed TC") ; 英文字体
|
||||
("Sarasa Fixed TC") ; 中文字体
|
||||
nil ; Ext-B 字体（可选）
|
||||
nil ; Symbol 字体（可选）
|
||||
nil)) ; 装饰字体（可选）
|
||||
|
||||
;; 安装cnfonts脚本，用于修复中英文对齐
|
||||
(use-package cnfonts
|
||||
:defer 0
|
||||
:config
|
||||
(cnfonts-mode 1)
|
||||
(cnfonts--select-profile "profile1"))
|
||||
|
||||
(provide 'init-ui)
|
||||
Reference in New Issue
Block a user