本仓库是我的个人 Emacs 配置，主打一个满足个人日常使用。如果里面的一些代码对你有帮助，欢迎拿走。
;;; init.el --- Load the full configuration -*- lexical-binding: t -*-
;;; Commentary:
;; This file bootstraps the full configuration
;;; Code:# 其它inputs
{
inputs.grass-emacs.url = "github:running-grass/grass-emacs";
# 在主机配置中导入模块
nixosConfigurations.galaxy =
lib.nixosSystem { modules = [ inputs.grass-emacs.nixosModules.default ]; };
}可以直接在命令行使用 Emacs 启动。
目前还不太好用，堪堪可以使用
# 其它inputs
{
inputs.grass-emacs.url = "github:running-grass/grass-emacs";
# 在主机配置中导入模块
darwinConfigurations.galaxy = inputs.nix-darwin.lib.darwinSystem {
modules = [ inputs.grass-emacs.nixosModules.default ];
};
}Emacs版本大于29- 命令行依赖
- git
- wakatime-cli
- mu
- python3
- multimarkdown
- 其它依赖
- 确保
~/.emacs，~/.emacs.d和~/.config/emacs目录不存在，如果存在需要重命名备份
- 确保
执行下列代码克隆仓库
git clone [email protected]:running-grass/grass-emacs.git ~/.config/emacs修改配置以后就可以使用 SPC r 来重新加载配置了。
(when (version< emacs-version "29")
(error "必须要使用 Emacs 29 以上的版本"));; 判断是否是 MacOS 系统
(defconst *is-mac* (eq system-type 'darwin) "是否是 MacOS 操作系统")
;; 判断是否是 Linux 系统
(defconst *is-linux* (eq system-type 'gnu/linux) "是否是 Linux 操作系统")
;; 判断是否是 Windows 系统
(defconst *is-win* (eq system-type 'windows-nt) "是否是 Windows 操作系统")
;; 是否是 GUI
(defconst *is-gui* (display-graphic-p) "是否是GUI")
;; 是否是 TUI
(defconst *is-tui* (not *is-gui*) "是否是TUI")
;; 是否是 nixos/darwin 模块 使用
(defconst *is-nix-module* (equal (getenv "GRASS_EMACS_ENV") "nix-module") "是否是Nix模块")
;; 是否是nixos
(defconst *is-nixos* (and *is-linux* *is-nix-module*) "是否是 NixOS 操作系统");; 计算中国农历的年份，用于org中
(defun grass-emacs/calc-chinese-year (year)
(let* ((cycle (/ (+ year 2637) 60.0))
(year (- (+ year 2637) (* 60 (truncate cycle)))))
(list (+ 1 (floor cycle)) year))
)
;; 从 Bitwarden 中读取密码
(defun grass-emacs/get-bitwarden-password (name)
"根据name从rbw（Bitwarden 非官方 cli 客户端） 中读取密码"
(let (
(out (shell-command-to-string (concat "echo -n `rbw get " name "`")))
)
(if (string-prefix-p "rbw get: couldn't find entry for" out) (error "没找到对应的密码") out)
))
这里定义了四个 Emacs 使用过程中的目录， 配置、数据、状态、缓存
配置： 存放各种配置文件， 例如 init.el 和 early-init.el 等，以及用户自定义配置文件，用于存储敏感信息，可以在多台机器直接复用
数据： 存放数据型的文件，例如 sqllite 数据库的存储，或者 BBDB 数据库文件等，同样可以在多台机器直接共享。 和配置的区别在于，一个是声明式的，一个是动态增加的数据
状态： 在多次启动运行之间共享的状态，例如 最近打开的文件，搜索历史等， 不可以跨机器和跨用户使用。
缓存： 使用过程中的缓存文件，可以被安全的删除，必须可以被重建。
(require 'xdg)
(defun expand-emacs-config (filename)
"expand emacs config files"
(expand-file-name filename
(or (getenv "EMACS_DEBUG_DIR")
(expand-file-name "emacs" (xdg-config-home))
)))
(defun expand-emacs-data (filename)
"expand emacs data files"
(expand-file-name filename
(expand-file-name "emacs" (xdg-data-home))
))
(defun expand-emacs-state (filename)
"expand emacs state files"
(expand-file-name filename
(expand-file-name "emacs" (xdg-state-home))
))
(defun expand-emacs-cache (filename)
"expand emacs cache files"
(expand-file-name filename
(expand-file-name "emacs" (xdg-cache-home))
))
;; 给 eln-cache 目录换个地方
(when (boundp 'native-comp-eln-load-path)
(startup-redirect-eln-cache (expand-emacs-cache "eln-cache")))
;; 定义自定义文件
(defconst custom-file (expand-emacs-data "custom.el") "一些个性化的定义存放之地")
;; 插件默认使用这个目录，如果需要的话，再调整到其它相关目录
(setq user-emacs-directory (expand-emacs-state ""))
;; 更改到缓存目录
(setq package-user-dir (expand-emacs-cache "elpa"));; 关闭原生编译警告
(setq native-comp-async-report-warnings-errors nil)
;; 关闭启动画面
(setq inhibit-startup-screen t)
;; 禁用对话框
(setq use-dialog-box nil)
;; 禁用文件对话框
(setq use-file-dialog nil)
;; 允许像素级别调整窗口和窗体大小
(setq-default
window-resize-pixelwise t
frame-resize-pixelwise t)
;; 关闭工具栏
(when (fboundp 'tool-bar-mode)
(tool-bar-mode -1))
;; 关闭文件滑动控件
(when (fboundp 'set-scroll-bar-mode)
(set-scroll-bar-mode nil))
;; 关闭菜单栏
(menu-bar-mode -1)
;; 隐藏内部边框
(let ((no-border '(internal-border-width . 0)))
(add-to-list 'default-frame-alist no-border)
(add-to-list 'initial-frame-alist no-border))
;; 开启像素级滚动
(when (fboundp 'pixel-scroll-precision-mode)
(pixel-scroll-precision-mode))
;; 关闭emacs自带的退出确认
(setq confirm-kill-emacs #'yes-or-no-p)
;; 自动补全括号(关闭，有时候很烦人))
(electric-pair-mode -1)
;; 编程模式下，光标在括号上时高亮另一个括号
(add-hook 'prog-mode-hook #'show-paren-mode)
;; 在 Mode line 上显示列号
(column-number-mode 1)
;; 选中文本后输入文本会替换文本（更符合我们习惯了的其它编辑器的逻辑）
(delete-selection-mode t)
;; 关闭文件自动备份
(setq make-backup-files nil)
;; 编程模式下，可以折叠代码块
(add-hook 'prog-mode-hook #'hs-minor-mode)
;; 如果是nixos关闭内置的包管理工具
(when *is-nix-module*
(setq package-enable-at-startup nil))
;; 设置等宽字体
(set-face-attribute 'default nil :family "Sarasa Term Slab SC" :height 140)
;; 设置后备字体
(set-fontset-font t nil "Sarasa Term SC" nil 'prepend)
(set-fontset-font t nil "Iosevka" nil 'prepend)
(set-fontset-font t nil "Source Han Sans HW" nil 'append)
(set-fontset-font t nil "Unifont" nil 'append)
(set-fontset-font t nil "Symbols Nerd Font" nil 'append)
;; 设置自动折行
(setq truncate-lines nil)
;; 默认查找目录为home目录
(setq command-line-default-directory "~")
(setq nerd-icons-font-names '("SymbolsNerdFontMono-Regular.ttf")) ;
;; 设置2个空格
(setq-default indent-tabs-mode nil)
(setq-default tab-width 2)
(setq-default default-tab-width 2)
(setq-default js-indent-level 2)
;; 使用短的 y-or-n
(setopt use-short-answers t)
;; 禁用外部程序的粘贴板，避免扰乱emacs 内部的 kill-ring
(setq select-enable-clipboard nil)
;; 为外部剪切板增加绑定
(keymap-global-set "C-S-y" 'meow-clipboard-yank)
(keymap-global-set "C-S-s" 'meow-clipboard-save)
(keymap-global-unset "C-h C-f")
(setq bookmark-default-file (expand-emacs-data "bookmarks"))
(setq auto-save-list-file-prefix (expand-emacs-state "auto-save-list/.saves-"));; 调大 gc 的阈值
(let ((normal-gc-cons-threshold (* 20 1024 1024))
(init-gc-cons-threshold (* 128 1024 1024)))
(setq gc-cons-threshold init-gc-cons-threshold)
(add-hook 'emacs-startup-hook
(lambda () (setq gc-cons-threshold normal-gc-cons-threshold))))
;; 调大子进程的输出读取缓冲
(setq read-process-output-max (* 4 1024 1024))
;; 关闭对子进程读取输出时的延迟缓冲
(setq process-adaptive-read-buffering nil)定义了几个键位映射图，用于作为一些常用命令的分组。
会被绑定到 meow 的 leader 键位图中
(defvar application-keymap (make-sparse-keymap) "applications")
(defalias 'application-keymap application-keymap)
(defvar project-keymap (make-sparse-keymap) "project commands")
(defalias 'project-keymap project-keymap)
(defvar buffer-keymap (make-sparse-keymap) "buffer operations")
(defalias 'buffer-keymap buffer-keymap)
(defvar file-keymap (make-sparse-keymap) "file operations")
(defalias 'file-keymap file-keymap)
(defvar org-keymap (make-sparse-keymap) "所有gtd相关的全局操作都在这里")
(defalias 'org-keymap org-keymap)
(defvar-keymap grass/jump-map
:doc "My jump keymap"
)
(keymap-set global-map "C-c j" grass/jump-map)
(defvar toggle-keymap (make-sparse-keymap) "一些开关按键")
(defalias 'toggle-keymap toggle-keymap)(defvar bootstrap-version)
(setq straight-base-dir (expand-emacs-state ""))
(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))(straight-use-package 'leaf)
(straight-use-package 'leaf-keywords)
(leaf leaf-keywords
:custom
(leaf-expand-ensure-system-package . t)
:config
(leaf-keywords-init)
)(leaf system-packages
:straight '(system-packages
:type git :host github :repo "running-grass/system-packages")
:custom
(system-packages-use-sudo . nil)
(system-packages-noconfirm . t)
:config
(system-packages-ensure "git")
)(leaf exec-path-from-shell
:straight t
:config
(exec-path-from-shell-initialize))(leaf url
:custom
`(url-configuration-directory . ,(expand-emacs-state "url"))
)
;; 保存了上一次打开文件时的光标位置
(leaf saveplace
:global-minor-mode save-place-mode
:custom
`(save-place-file . ,(expand-emacs-state "places"))
)
;; 命令记录
(leaf savehist
:global-minor-mode t
:custom
(savehist-autosave-interval . 60)
`(savehist-file . ,(expand-emacs-state "history"))
)
(leaf dabbrev
;; Swap M-/ and C-M-/
:bind (("M-/" . dabbrev-completion)
("C-M-/" . dabbrev-expand))
;; Other useful Dabbrev configurations.
:custom
(dabbrev-ignored-buffer-regexps . '("\\.\\(?:pdf\\|jpe?g\\|png\\)\\'")))
;; 配置 tramp -- 远程编辑
(leaf tramp
:custom
(tramp-default-method . "ssh")
`(tramp-persistency-file-name . ,(expand-emacs-state "tramp")))
;; 文件被外部程序修改后，重新载入buffer
(leaf autorevert
:global-minor-mode global-auto-revert-mode
)
;; 最近打开的文件
(leaf recentf
:global-minor-mode t
:custom
`(recentf-save-file . ,(expand-emacs-state "recentf"))
(recentf-max-saved-items . 2000)
(recentf-max-menu-items . 150)
)
可以说这个模态编辑包是整个配置中我最喜欢的。 它可以最大限度的使用 Emacs 原生键位。而不需要每安装一个新的包，就去做一些适配和兼容（我说的就是 evil ）
(defun reload-config ()
"重新加载配置"
(interactive)
(progn
(org-babel-tangle-file (expand-emacs-config "README.org"))
(load-file (expand-emacs-config "init.el"))
)
)
(defun meow-setup ()
(setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
(meow-motion-overwrite-define-key
;; '("j" . meow-next)
;; '("k" . meow-prev)
'("<escape>" . ignore))
(meow-leader-define-key
;; SPC j/k will run the original command in MOTION state.
'("J" . "H-j")
'("K" . "H-k")
;; Use SPC (0-9) for digit arguments.
'("1" . meow-digit-argument)
'("2" . meow-digit-argument)
'("3" . meow-digit-argument)
'("4" . meow-digit-argument)
'("5" . meow-digit-argument)
'("6" . meow-digit-argument)
'("7" . meow-digit-argument)
'("8" . meow-digit-argument)
'("9" . meow-digit-argument)
'("0" . meow-digit-argument)
'("/" . meow-keypad-describe-key)
'("?" . meow-cheatsheet)
'("<SPC>" . consult-mode-command)
'("r" . reload-config)
)
(meow-normal-define-key
'("0" . meow-expand-0)
'("9" . meow-expand-9)
'("8" . meow-expand-8)
'("7" . meow-expand-7)
'("6" . meow-expand-6)
'("5" . meow-expand-5)
'("4" . meow-expand-4)
'("3" . meow-expand-3)
'("2" . meow-expand-2)
'("1" . meow-expand-1)
'("-" . negative-argument)
'(";" . meow-reverse)
'("," . meow-inner-of-thing)
'("." . meow-bounds-of-thing)
'("[" . meow-beginning-of-thing)
'("]" . meow-end-of-thing)
'("a" . meow-append)
'("A" . meow-open-below)
'("b" . meow-back-word)
'("B" . meow-back-symbol)
'("c" . meow-change)
'("d" . meow-delete)
'("D" . meow-backward-delete)
'("e" . meow-next-word)
'("E" . meow-next-symbol)
'("f" . meow-find)
'("g" . meow-cancel-selection)
'("G" . meow-grab)
'("h" . meow-left)
'("H" . meow-left-expand)
'("i" . meow-insert)
'("I" . meow-open-above)
'("j" . meow-next)
'("J" . meow-next-expand)
'("k" . meow-prev)
'("K" . meow-prev-expand)
'("l" . meow-right)
'("L" . meow-right-expand)
'("m" . meow-join)
'("n" . meow-search)
'("o" . meow-block)
'("O" . meow-to-block)
'("p" . meow-yank)
'("P" . consult-yank-from-kill-ring)
'("q" . meow-quit)
'("Q" . meow-goto-line)
'("r" . meow-replace)
'("R" . meow-swap-grab)
'("s" . meow-kill)
'("t" . meow-till)
'("u" . meow-undo)
'("U" . meow-undo-in-selection)
'("v" . meow-visit)
'("w" . meow-mark-word)
'("W" . meow-mark-symbol)
'("x" . meow-line)
'("X" . meow-goto-line)
'("y" . meow-save)
'("Y" . meow-sync-grab)
'("z" . meow-pop-selection)
'("'" . repeat)
'("<escape>" . ignore))
)
(leaf meow
:straight t
:require t
:init
(defvar meow-leaving-insert-mode-hook nil
"Hook to run when leaving meow insert mode.")
(defvar meow-entering-insert-mode-hook nil
"Hook to run when entering meow insert mode.")
:hook
(meow-insert-mode-hook . (lambda ()
(if meow-insert-mode
(run-hooks 'meow-entering-insert-mode-hook)
(run-hooks 'meow-leaving-insert-mode-hook))))
(meow-leaving-insert-mode-hook . sis-set-english)
:config
(meow-setup)
(meow-global-mode 1)
(add-to-list 'meow-mode-state-list '(minibuffer-mode . insert))
)包括从插入模式退出的时候，以及输入按键序列的时候，都会自动切换输入法到英文，再次进入插入模式的时候，又会自动恢复之前的输入法
(leaf sis
:straight t
:when *is-linux*
:hook
(sis-context-hooks . meow-entering-insert-mode-hook)
;; enable the /context/ and /inline region/ mode for specific buffers
;; (((text-mode prog-mode) . sis-context-mode)
;; ((text-mode prog-mode) . sis-inline-mode))
:config
;; For MacOS
(sis-ism-lazyman-config
;; English input source may be: "ABC", "US" or another one.
;; "com.apple.keylayout.ABC"
"1"
;; Other language input source: "rime", "sogou" or another one.
;; "im.rime.inputmethod.Squirrel.Rime"
"2"
'fcitx5
)
;; enable the /cursor color/ mode
(sis-global-cursor-color-mode t)
;; enable the /respect/ mode
(sis-global-respect-mode -1)
;; enable the /context/ mode for all buffers
(sis-global-context-mode 1)
;; enable the /inline english/ mode for all buffers
;; (sis-global-inline-mode t)
;; org title 处切换 Rime，telega 聊天时切换 Rime。
;; 使用模式编辑 meow，需要额外加 meow-insert-mode 条件。
(add-to-list 'sis-context-detectors
(lambda (&rest _)
(when (and meow-insert-mode
(or (derived-mode-p 'org-mode
'telega-chat-mode
)))
'other)))
(defun +meow-focus-change-function ()
(if (frame-focus-state)
(sis-set-english)
(meow-insert-exit)))
(add-function :after after-focus-change-function '+meow-focus-change-function)
)这又是一个 abo-abo（Oleh Krehel）的项目。我们用 Emacs 多窗口时，window 超过 3 个后就很难使用 C-x o 进行切换了。ace-window 对 C-x o 重新绑定，使用时可以为每个 window 编个号，用编号进行跳转。
(leaf ace-window
:straight t
:bind (("C-x o" . ace-window)))还记得我们提到 C-a 对应了 move-beginning-of-line，M-m 对应了 back-to-indentation。当代码有缩进时，前者会把光标移动到行首（到空格之前），后者会移动到代码文字的开头（到空格之后）。那么实际中这两个按法差别较大，且不易区分，使用起来不方便。mwim 就将二者合并，覆盖 C-a 为 mwim-beginning-of-code-or-line，这样按一次 C-a 时移动到代码文字开头，再按一次则是移动到整行的行首，如此反复。
同时，更有意义的是，它还可以覆盖 C-e move-end-of-line 为 mwim-end-of-code-or-line，当本行代码结尾有注释时，第一次按 C-e 将光标移动到代码尾部、注释之前。再按一次则是移动到整行的行尾。 这就大大提高了写代码的效率。
(leaf mwim
:straight t
:bind
("C-a" . mwim-beginning-of-code-or-line)
("C-e" . mwim-end-of-code-or-line))可以进行丰富的定制化
(leaf doom-modeline
:straight t
:global-minor-mode t
:custom
(doom-modeline-modal-icon . t)
)在现代图形界面操作系统中，光标在上下移动、翻页的时候 Emacs 会直接刷新界面，滚动时也是按行滚动，比较粗糙。good-scroll 提供了平滑滚动，并且支持变速滚动，更加顺手。
(leaf good-scroll
:straight t
:global-minor-mode t
:when *is-gui* ; 在图形化界面时才使用这个插件
)这是一个实用小工具，专门针对 Emacs 快捷键多而杂的问题，安装后，当按下部分快捷键前缀时，它会通过 minibuffer 提示你都有哪些可以按的快捷键及其命令名。例如启动了 hs-minor-mode 后，我们正常可以通过 C-c @ C-h 折叠代码块、用 C-c @ C-s 来展开代码块。但这个快捷键很长，时常记不住，那么有了 which-key 后我们可以先按下 C-c @ ，此时 which-key 就会提示我们接下来可以按的键：
(leaf which-key
:straight t
:global-minor-mode t
)(leaf avy
:straight t
:bind
("C-c j j" . avy-goto-char-timer)
("C-c j l" . avy-goto-line)
)可以为 Emacs minibuffer 中的选项添加注解
;; Enable rich annotations using the Marginalia package
(leaf marginalia
:straight t
:global-minor-mode t
;; Bind `marginalia-cycle' locally in the minibuffer. To make the binding
;; available in the *Completions* buffer, add it to the
;; `completion-list-mode-map'.
:bind
(:minibuffer-local-map
("M-A" . marginalia-cycle))
)(defun delete-current-file ()
"Delete the file associated with the current buffer. Delete the current buffer too. If no file is associated, just close buffer without prompt for save."
(interactive)
(let ((currentFile (buffer-file-name)))
(when (yes-or-no-p (concat "Delete file?: " currentFile))
(kill-buffer (current-buffer))
(when currentFile (delete-file currentFile)))))
;; Example configuration for Consult
(leaf consult
:straight t
:ensure-system-package (rg . ripgrep)
:bind
("C-c b b" . consult-buffer)
("C-c p s" . consult-ripgrep)
("C-c f f" . find-file)
("C-c f d" . delete-current-file)
("C-c f e" . consult-recent-file)
("C-c j g" . consult-goto-line) ;; orig. goto-line
("C-c j m" . consult-imenu)
("C-c j s" . consult-line) ;; orig. previous-matching-history-element
;; Enable automatic preview at point in the *Completions* buffer. This is
;; relevant when you use the default completion UI.
:hook
(completion-list-mode-hook . consult-preview-at-point-mode)
;; The :init configuration is always executed (Not lazy)
:custom
;; Optionally configure the register formatting. This improves the register
;; preview for `consult-register', `consult-register-load',
;; `consult-register-store' and the Emacs built-ins.
(register-preview-delay . 0.5)
(register-preview-function . #'consult-register-format)
;; Use Consult to select xref locations with preview
(xref-show-xrefs-function . #'consult-xref)
(xref-show-definitions-function . #'consult-xref)
;; Optionally configure the narrowing key.
;; Both < and C-+ work reasonably well.
(consult-narrow-key . "<") ;; "C-+"
;; Optionally tweak the register preview window.
;; This adds thin lines, sorting and hides the mode line of the window.
:init
(advice-add #'register-preview :override #'consult-register-window)
;; Configure other variables and modes in the :config section,
;; after lazily loading the package.
:config
;; Optionally configure preview. The default value
;; is 'any, such that any key triggers the preview.
;; (setq consult-preview-key 'any)
;; (setq consult-preview-key "M-.")
;; (setq consult-preview-key '("S-<down>" "S-<up>"))
;; For some commands and buffer sources it is useful to configure the
;; :preview-key on a per-command basis using the `consult-customize' macro.
(consult-customize
consult-theme :preview-key '(:debounce 0.2 any)
consult-ripgrep consult-git-grep consult-grep
consult-bookmark consult-recent-file
;; consult-xref
consult--source-bookmark consult--source-file-register
consult--source-recent-file consult--source-project-recent-file
;; :preview-key "M-."
:preview-key '(:debounce 0.4 any))
;; Optionally make narrowing help available in the minibuffer.
;; You may want to use `embark-prefix-help-command' or which-key instead.
;; (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help)
;; By default `consult-project-function' uses `project-root' from project.el.
;; Optionally configure a different project root function.
;;;; 1. project.el (the default)
;; (setq consult-project-function #'consult--default-project-function)
;;;; 2. vc.el (vc-root-dir)
;; (setq consult-project-function (lambda (_) (vc-root-dir)))
;;;; 3. locate-dominating-file
;; (setq consult-project-function (lambda (_) (locate-dominating-file "." ".git")))
;; 4. projectile.el (projectile-project-root)
(autoload 'projectile-project-root "projectile")
(setq consult-project-function (lambda (_) (projectile-project-root)))
;;;; 5. No project support
;; (setq consult-project-function nil)
)(leaf vertico
:straight t
:global-minor-mode t
:custom
;; Show more candidates
(vertico-count . 20)
;; Grow and shrink the Vertico minibuffer
(vertico-resize . t)
;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
(vertico-cycle . t)
)embark 是另一个比较神奇的工具。Emacs 基本的操作流程是先输入命令再输入命令作用的对象。例如，我们先按下 C-x C-f 再输入文件名来打开文件。但是有的时候，我们按下命令、选择了文件后，可能又后悔了，想要对相同的文件输入另一个命令。例如我们按下 C-x k 打算关闭一个后台 buffer，然后输入了文件名，这时我们忽然想再查看一眼那个文件。那么平常，我们只好按下 C-g 放弃这次命令，再用 C-x b 切换过去。而有了 embark ，我们可以在按下 C-x k 、输入了部分文件名选中文件后 ，按下 C-. 触发 embark- act，这时按下 o 就可以在另一个新的窗口打开这个 buffer 了。我们无需放弃命令重新输入，而是继续输入就好了。
(leaf embark
:straight t
:bind
(("C-." . embark-act) ;; pick some comfortable binding
("C-;" . embark-dwim) ;; good alternative: M-.
("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'
:custom
;; Optionally replace the key help with a completing-read interface
(prefix-help-command . #'embark-prefix-help-command)
;; Show the Embark target at point via Eldoc. You may adjust the
;; Eldoc strategy, if you want to see the documentation from
;; multiple providers. Beware that using this can be a little
;; jarring since the message shown in the minibuffer can be more
;; than one line, causing the modeline to move up and down:
;; (add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
;; (setq eldoc-documentation-strategy #'eldoc-documentation-compose-eagerly)
:config
;; Hide the mode line of the Embark live/completions buffers
(add-to-list 'display-buffer-alist
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
nil
(window-parameters (mode-line-format . none)))))
;; Consult users will also want the embark-consult package.
(leaf embark-consult
:straight t ; only need to install it, embark loads it after consult if found
:after (consult embark)
:hook
(embark-collect-mode-hook . consult-preview-at-point-mode))一个模糊搜索的插件，可以为多个其它插件提供排序函数
(leaf orderless
:straight t
:custom
;; Configure a custom style dispatcher (see the Consult wiki)
;; (setq orderless-style-dispatchers '(+orderless-consult-dispatch orderless-affix-dispatch)
;; orderless-component-separator #'orderless-escapable-split-on-space)
(completion-styles . '(orderless basic))
(completion-category-defaults . nil)
(completion-category-overrides . '((file (styles partial-completion))))
)这个插件可以用不同颜色标记多级括号，方便看清代码块（尤其在 EmacsLisp 中）。
;; 括号的多色彩
(leaf rainbow-delimiters
:straight t
:hook
(prog-mode-hook . rainbow-delimiters-mode)
)(leaf transient
:straight t
:custom
`(transient-levels-file . ,(expand-emacs-state "transient/levels.el"))
`(transient-values-file . ,(expand-emacs-state "transient/values.el"))
`(transient-history-file . ,(expand-emacs-state "transient/history.el"))
)收邮件方案是使用 offlineimap 进行邮件的同步，由 mu 对邮箱进行索引，前端使用 mu4e 进行管理。 发邮件的方案是 使用 msmtp
目前只在 nix 相关的环境下可用
(leaf mu4e
:when *is-nix-module*
:ensure-system-package mu offlineimap
:custom
(user-full-name . "Leo Liu")
(user-mail-address . "[email protected]")
(sendmail-program . "msmtp")
(mail-user-agent . 'mu4e-user-agent)
(send-mail-function . 'smtpmail-send-it)
(message-sendmail-f-is-evil . t)
(message-sendmail-extra-arguments . '("--read-envelope-from"))
(message-send-mail-function . 'message-send-mail-with-sendmail)
(mu4e-attachment-dir . "~/Downloads")
(mu4e-get-mail-command . "offlineimap -o")
(mu4e-update-interval . 300)
(mu4e-notification-support . t)
:init
;; 定时更新索引
(run-with-idle-timer (* 5 60) t 'mu4e-update-index)
:config
;; 默认是motion模式
(add-to-list 'meow-mode-state-list '(mu4e-view-mode . motion))
;; allow for updating mail using 'U' in the main view:
:commands mu4e-update-index
:bind
("C-c a m" . mu4e)
("C-c t m" . mu4e-update-mail-and-index)
)(leaf elfeed-protocol
:straight t
:ensure-system-package rbw
:custom
(elfeed-use-curl . t)
`(elfeed-db-directory . ,(expand-emacs-cache "elfeed"))
(elfeed-curl-extra-arguments . '("--insecure")) ;necessary for https without a trust certificate
;; (setq elfeed-protocol-fever-update-unread-only nil)
(elfeed-protocol-fever-fetch-category-as-tag . t)
(elfeed-protocol-fever-update-unread-only . t)
;; setup feeds
(elfeed-protocol-feeds .
'(
("fever+https://[email protected]:30443"
:api-url "https://[email protected]:30443/fever/"
:password (grass-emacs/get-bitwarden-password "miniflux-fever grass"))
))
;; enable elfeed-protocol
(elfeed-protocol-enabled-protocols . '(fever))
(elfeed-curl-timeout . 36000)
:require t
:config
(elfeed-protocol-enable)
:bind
("C-c a r" . elfeed)
)用于阅读和管理稍后阅读列表
(leaf pocket-reader
:straight t
:after elfeed
:custom
(pocket-reader-open-url-default-function . #'eww)
:bind
("C-c a p" . pocket-reader)
(:elfeed-search-mode-map
("P" . pocket-reader-elfeed-search-add-link)
)
(:elfeed-show-mode-map
("P" . pocket-reader-elfeed-entry-add-link)
)
)(leaf eww
)列表补全使用的是 vertico / marginalia / consult / orderless 全家桶
;; Use Dabbrev with Corfu!
(leaf yasnippet
:straight t
:global-minor-mode yas-global-mode
:custom
`(yas--default-user-snippets-dir . ,(expand-emacs-data "snippets"))
)
(leaf lsp-bridge
:straight '(lsp-bridge :type git :host github :repo "manateelazycat/lsp-bridge"
:files (:defaults "*.el" "*.py" "acm" "core" "langserver" "multiserver" "resources")
:build (:not compile)
)
:leaf-defer nil
:custom
;; ui
(acm-enable-preview . t)
(lsp-bridge-enable-log . nil)
;; 用户级别的lsp-bridge配置
(lsp-bridge-user-langserver-dir . "~/.config/emacs/lsp-bridge-user/langserver")
(lsp-bridge-php-lsp-server . 'phpactor)
;; codeium
(acm-enable-codeium . t)
(lsp-bridge-enable-completion-in-string . t)
;; formatter
(lsp-bridge-enable-auto-format-code . nil)
(lsp-bridge-auto-format-code-idle . nil)
(lsp-bridge-enable-inlay-hint . t)
:hook
(vue-mode-hook . lsp-bridge-mode)
:config
(add-to-list 'meow-mode-state-list '(lsp-bridge-ref-mode . motion))
(global-lsp-bridge-mode)
:bind
("M-." . lsp-bridge-find-def)
("M-," . lsp-bridge-find-def-return)
("C-c t l" . lsp-bridge-mode)
)由于 lsp-bridge 不支持 TUI, 单独装一个包来支持 TUI
(leaf acm-terminal
:when *is-tui*
:straight '(popon :host nil :repo "https://codeberg.org/akib/emacs-popon.git")
:straight '(acm-terminal :host github :repo "twlz0ne/acm-terminal")
)(defun projectile-run-vterm ()
(interactive)
(let* ((project (projectile-ensure-project (projectile-project-root)))
(buffer "vterm"))
(require 'vterm)
(if (buffer-live-p (get-buffer buffer))
(switch-to-buffer buffer)
(vterm))
(vterm-send-string (concat "cd " project))
(vterm-send-return)))
(leaf vterm
:straight t
:config
(add-to-list 'meow-mode-state-list '(vterm-mode . insert))
:bind
("C-c b t" . vterm)
)(leaf project
:config
(setq project-list-file (expand-emacs-state "projects"))
:bind
("C-c p f" . project-find-file)
("C-c p d" . project-find-dir)
("C-c p b" . consult-project-buffer)
)(leaf projectile
:straight t
:global-minor-mode projectile-mode
:custom
;; 关闭启动时的自动项目发现
(projectile-auto-discover . nil)
`(projectile-known-projects-file . ,(expand-emacs-state "projectile-known-projects.eld"))
(projectile-project-search-path . '(
("~/workspace" . 2)
"~/workspace/mugeda"
))
:bind
("C-c p R" . projectile-replace)
("C-c p S" . projectile-save-project-buffers)
)
;; 绑定 consult-projectile
(leaf consult-projectile
:straight t
:bind
("C-c p p" . consult-projectile-switch-project)
("C-c p 4 f" . consult-projectile-find-file-other-window)
)支持 Git 的使用，同时使用 magit-todos 增强TODO关键词的展示
(leaf magit
:straight t
:bind
("C-c p v" . magit)
)
Org-mode 相关的配置。
我目前只使用 Org-mode 来管理我的 Emacs 配置。后续再逐步用于任务管理，项目管理，笔记管理等用途。
;; Org模式相关的，和GTD相关的
(leaf org
:ensure-system-package (pandoc zip)
:custom
;; Edit settings
(org-auto-align-tags . t)
(org-tags-column . 0)
(org-catch-invisible-edits . 'show-and-error)
(org-special-ctrl-a/e . t)
(org-insert-heading-respect-content . t)
(org-protocol-deault-template-key . "n")
;; 使org子项目具有先后依赖
(org-enforce-todo-dependencies . t)
;; Org styling, hide markup etc.
(org-hide-emphasis-markers . t)
(org-pretty-entities . t)
(org-directory . "~/org/")
(org-startup-folded . 'nofold)
(org-refile-targets . '(
(nil . (:level . 1)) ;当前文件的level1
(nil . (:tag . "project"))
("~/org/gtd/gtd.org" . (:tag . "inbox"))
))
(org-todo-keywords . '(
(sequence "NEXT(n)" "TODO(t)" "WAITING(w@)" "SOMEDAY(s)" "|" "DONE(d!)" "CANCELLED(c@)")
))
(org-clock-string-limit . 5)
(org-log-refile . 'nil)
(org-log-done . 'time)
(org-log-into-drawer . "LOGBOOK")
(org-clock-stored-history . t)
(org-clock-auto-clockout-timer . 1800)
(org-tag-alist . '(
;; 上下文需求
(:startgroup . nil)
("@home" . ?h)
("@office" . ?o)
("@phone" . ?f)
("@pc" . ?c)
(:endgroup . nil)
;; 类型
("task" . ?t)
("project" . ?p)
("event" . ?e)
))
(org-capture-templates . '(
("T" "带上下文捕获任务" entry (file+headline "~/org/gtd/gtd.org" "Inbox For GTD") "* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:RELATED: %a\n:END:")
("t" "捕获任务" entry (file+headline "~/org/gtd/gtd.org" "Inbox For GTD") "* TODO %?\n")
("n" "摘抄" entry (file "~/org/inbox/emacs.org") "* TODO 摘抄自 %a \n:PROPERTIES:\n:CREATED: %U\n:RELATED: %a\n:END:\n%i\n" :immediate-finish t)
("x" "快速捕获任务" entry (file+headline "~/org/gtd/gtd.org" "Inbox For GTD") "* TODO %l \nSCHEDULED: %t\n" :immediate-finish t)
))
;; 图片显示
(org-startup-with-inline-images . t)
(org-cycle-inline-images-display . t)
:config
(org-clock-auto-clockout-insinuate)
(defun grass-emacs/next-monday ()
(org-read-date nil nil "Mon"))
(defun grass-emacs/current-monday ()
(org-read-date nil nil "-Mon"))
(defun grass-emacs/last-monday ()
(org-read-date nil nil "--1w" nil (date-to-time (grass-emacs/current-monday))))
:bind
("C-c n s" . org-save-all-org-buffers)
("C-c n c" . org-capture)
:hook
(org-capture-after-finalize-hook . org-save-all-org-buffers)
(org-after-tags-change-hook . org-save-all-org-buffers)
(org-after-refile-insert-hook . org-save-all-org-buffers)
(org-after-todo-state-change-hook . org-save-all-org-buffers)
)
(leaf org-contrib
:straight t
)
和日程相关的配置。
(leaf org-agenda
:after org
:custom
;; 除了gtd的，还有各种外部收集箱中的未整理的也要显示
(org-agenda-files . '("~/org/gtd/gtd.org" "~/org/inbox" "~/org/roam/project"))
(org-agenda-tags-column . 0)
(org-agenda-include-diary . t)
(org-agenda-show-future-repeats . 'next)
;; 在agenda视图中默认显示实体文本内容，且最多10行
(org-agenda-start-with-entry-text-mode . nil)
(org-agenda-entry-text-maxlines . 3)
(org-agenda-custom-commands . `(
("i" "外部收集箱" tags "+inbox" ((org-agenda-files '("~/org/inbox" "~/org/sync"))))
("j" "所有待细化的项目" tags "inbox"
(
(org-agenda-files '("~/org/gtd/gtd.org"))
(org-agenda-skip-function '(org-agenda-skip-entry-if 'regexp "Inbox For GTD"))
))
("p" "每周项目回顾" tags-tree "+project" )
("r" . "回顾统计")
("rt" "今日完成任务"
tags "+CLOSED>=\"<today>\"|+LAST_REPEAT>=\"<today>\"-habit|+TIMESTAMP>=\"<today>\"+TIMESTAMP<\"<tomorrow>\"-habit"
((org-agenda-overriding-header "今日完成的任务")
(org-agenda-sorting-strategy '(priority-down))
(org-agenda-start-with-entry-text-mode . nil)
)
nil)
("ry" "昨日完成任务"
tags "+CLOSED>=\"<-1d>\"+CLOSED<\"<today>\"|+LAST_REPEAT>=\"<-1d>\"+LAST_REPEAT<\"<today>\"-habit|+TIMESTAMP>=\"<-1d>\"+TIMESTAMP<\"<today>\"-habit"
((org-agenda-overriding-header "昨日完成的任务")
(org-agenda-sorting-strategy '(priority-down))
(org-agenda-start-with-entry-text-mode . nil)
(org-agenda-prefix-format '((todo . " %i %-12:c %s ")))
)
nil)
("rw" "本周完成任务"
tags ,(let ((monday (grass-emacs/current-monday)))
(format "+CLOSED>=\"<%s>\"|+LAST_REPEAT>=\"<%s>\"-habit|+TIMESTAMP>=\"<%s>\"+TIMESTAMP<=\"<now>\"-habit" monday monday monday))
((org-agenda-overriding-header "本周完成的任务")
(org-agenda-sorting-strategy '(priority-down))
(org-agenda-start-with-entry-text-mode . nil)
)
nil)
("rp" "上周完成任务"
tags ,(let (
(monday (grass-emacs/current-monday))
(last-monday (grass-emacs/last-monday)))
(format
"+CLOSED>=\"<%s>\"+CLOSED<\"<%s>\"|+LAST_REPEAT>=\"<%s>\"+LAST_REPEAT<\"<%s>\"-habit|+TIMESTAMP>=\"<%s>\"+TIMESTAMP<\"<%s>\"-habit"
last-monday monday last-monday monday last-monday monday))
((org-agenda-overriding-header "上周完成的任务")
(org-agenda-sorting-strategy '(priority-down))
(org-agenda-start-with-entry-text-mode . nil)
)
nil)
))
:bind
("C-c n a" . org-agenda)
("C-c n n" . org-agenda-list)
:config
(assoc-delete-all 'todo org-agenda-prefix-format)
(add-to-list 'org-agenda-prefix-format '(todo . " %i %-12:c %s "))
)(leaf org-habit
:custom
(org-habit-show-habits . t)
(org-habit-following-days . 2)
(org-habit-preceding-days . 7)
(org-habit-graph-column . 60)
:require t
:push ((org-modules . 'habit)
)
)(leaf org-pomodoro
:straight t
:config
(defun org-pomodoro-notify (title message)
"Send a notification with TITLE and MESSAGE using `alert'."
(notifications-notify :body message :title title :timeout (* 5 * 60 * 1000)))
:bind
("C-c n p" . org-pomodoro)
(:org-agenda-mode-map
("C-c C-x C-p" . org-pomodoro))
(:org-mode-map
("C-c C-x C-p" . org-pomodoro))
)(leaf org-roam
:straight t
:require org-roam org-roam-protocol
:ensure-system-package
(dot . graphviz)
:after org
:custom
(org-roam-directory . "~/org/roam/")
`(org-roam-node-display-template . ,(concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
:bind
("C-c n f" . org-roam-node-find)
("C-c n g" . org-roam-graph)
("C-c n i" . org-roam-node-insert)
("C-c n C" . org-roam-capture)
;; Dailies
("C-c n j" . org-roam-dailies-capture-today)
:init
(defvar org-roam--project-directory (concat org-roam-directory "project/") "roam中存放带待办任务的项目目录")
(defun org-roam--project-add ()
"用于把当前的文件移动 roam的项目目录中"
(interactive)
(let* ((filename (buffer-file-name))
(new-filename (expand-file-name (file-name-nondirectory filename) org-roam--project-directory)))
(rename-file filename new-filename)
(find-file new-filename)
(message "File moved to %s" org-roam--project-directory))
)
(defun org-roam--project-remove ()
"用于把当前的文件从 roam的项目目录中移动到 roam 目录"
(interactive)
(let* ((filename (buffer-file-name))
(new-filename (expand-file-name (file-name-nondirectory filename) org-roam-directory)))
(when (s-prefix-p (expand-file-name org-roam--project-directory) (buffer-file-name))
(progn
(rename-file filename new-filename)
(find-file new-filename)
(message "ok")
)
))
)
:config
(org-roam-db-autosync-mode)
)
(leaf consult-org-roam
:straight t
:after org-roam
:require t
:global-minor-mode t
:custom
;; Use `ripgrep' for searching with `consult-org-roam-search'
(consult-org-roam-grep-func . 'consult-ripgrep)
;; Configure a custom narrow key for `consult-buffer'
(consult-org-roam-buffer-narrow-key . ?r)
;; Display org-roam buffers right after non-org-roam buffers
;; in consult-buffer (and not down at the bottom)
(consult-org-roam-buffer-after-buffers . t)
:config
;; Eventually suppress previewing for certain functions
(consult-customize
consult-org-roam-forward-links
:preview-key "M-.")
:bind
;; Define some convenient keybindings as an addition
("C-c n e" . consult-org-roam-file-find)
("C-c n b" . consult-org-roam-backlinks)
("C-c n B" . consult-org-roam-backlinks-recursive)
("C-c n l" . consult-org-roam-forward-links)
("C-c n r" . consult-org-roam-search));; org 美化
(leaf org-modern
:straight t
:hook
(org-mode-hook . org-modern-mode)
(org-agenda-finalize-hook . org-modern-agenda)
:custom
(org-modern-todo-faces . '(
("NEXT" :background "red"
:foreground "white")
("SOMEDAY" :background "gray"
:foreground "black")
))
)(leaf ox-hugo
:straight t
:after ox
:require t
:leaf-defer nil
:ensure-system-package hugo
:custom
(org-hugo-section . "post")
(org-hugo-auto-set-lastmod . t)
:init
(add-to-list 'org-capture-templates
'("h"
"Hugo draft"
entry
(file+olp "~/org/blog/draft.org" "Draft")
(function org-hugo-new-subtree-post-capture-template)))
)
(with-eval-after-load 'org-capture
(defun org-hugo-new-subtree-post-capture-template ()
"Return `org-capture' template string for new Hugo post."
(let* ((date (format-time-string (org-time-stamp-format :long :inactive) (org-current-time)))
(title (read-from-minibuffer "Post Title: "))
(file-name (read-from-minibuffer "File Name: "))
(fname (org-hugo-slug file-name)))
(mapconcat #'identity
`(
,(concat "* TODO " title)
":PROPERTIES:"
,(concat ":EXPORT_FILE_NAME: " fname)
,(concat ":EXPORT_DATE: " date)
":END:"
"%?\n")
"\n")))
)(leaf org-caldav
:straight t
:ensure-system-package rbw
:custom
;; 双向同步
(org-caldav-sync-direction . 'twoway)
(org-caldav-exclude-tags . '("no_caldav"))
(org-caldav-todo-percent-states . '(
(0 "TODO")
(10 "NEXT")
(100 "DONE")
))
;; ;; 如果上一次异常，不询问
(org-caldav-resume-aborted . 'always)
;; 同步过程中自动删除条目，不再询问(我的本地org使用了git存储)
;; org-caldav-delete-org-entries 'always
(org-caldav-delete-calendar-entries . 'always)
;; 不导出 VTODO
(org-caldav-sync-todo . t)
(org-icalendar-include-todo . '("TODO" "NEXT"))
;; 如果不是是todo节点，会作为一个event
(org-icalendar-use-scheduled . '(todo-start event-if-not-todo))
;; 如果不是todo节点，会作为一个event
(org-icalendar-use-deadline . '(todo-due event-if-not-todo))
;; 不使用sexp
(org-icalendar-include-sexps . nil)
(org-icalendar-include-bbdb-anniversaries . nil)
;; 后台导出，不显示同步结果
(org-caldav-show-sync-results . nil)
;; debug logs
(org-caldav-debug-level . 1)
:init
;; 多个日历
(setq org-caldav-calendars (list (list
:url (concat "https://grass:" (grass-emacs/get-bitwarden-password "carddav grass") "@carddav.grass.work:30443/grass")
:calendar-id "34a7e558-4066-efe4-69f7-15ada01bc7b6" ; 个人日历
:select-tags (list "personal" "work")
:files '("~/org/gtd/gtd.org")
:inbox "~/org/inbox/caldav-personal.org")
(list
:url (concat "https://family:" (grass-emacs/get-bitwarden-password "carddav family") "@carddav.grass.work:30443/family")
:calendar-id "593557a2-6721-38bf-0243-0cd18c9237ea" ; 家庭日历
:select-tags (list "family")
:files '("~/org/gtd/gtd.org")
:inbox "~/org/inbox/caldav-family.org")))
:bind
("C-c t c" . org-caldav-sync)
)(leaf org-anki
:straight t
:ensure-system-package anki
)保存时自动更新具有 :TOC: 的标题为目录
(leaf toc-org
:straight t
:after org
:hook
(org-mode-hook . toc-org-mode)
)(leaf cal-china-x
:straight t
:custom
(mark-holidays-in-calendar . t)
(calendar-holidays . '(
(holiday-fixed 1 1 "元旦")
(holiday-lunar 1 1 "春节")
(holiday-lunar 1 15 "元宵节")
(holiday-lunar 2 2 "龙抬头")
(holiday-fixed 2 14 "情人节")
(holiday-fixed 3 8 "妇女节")
(holiday-solar-term "清明" "清明节")
(holiday-fixed 5 1 "劳动节")
(holiday-lunar 5 5 "端午节")
(holiday-lunar 7 7 "七夕")
(holiday-lunar 7 15 "中元节")
(holiday-lunar 8 15 "中秋节")
(holiday-lunar 9 9 "重阳节")
(holiday-fixed 10 1 "国庆节")
(holiday-lunar 10 1 "寒衣节")
(holiday-lunar 12 23 "小年")
(holiday-lunar 12 30 "除夕")
(holiday-float 5 0 2 "母亲节")
(holiday-float 6 0 3 "父亲节")
))
;; 在议程中自定义显示格式为阴历
(org-agenda-format-date . 'grass-emacs/org-agenda-format-date-aligned)
)
;; agenda中的日期格式化
(defun grass-emacs/org-agenda-format-date-aligned (date)
"Format a DATE string for display in the daily/weekly agenda, or timeline.
This function makes sure that dates are aligned for easy reading."
(require 'cal-iso)
(let* ((dayname (aref cal-china-x-days
(calendar-day-of-week date)))
(day (cadr date))
(month (car date))
(year (nth 2 date))
(cn-date (calendar-chinese-from-absolute (calendar-absolute-from-gregorian date)))
(cn-month (cl-caddr cn-date))
(cn-day (cl-cadddr cn-date))
(cn-month-string (concat (aref cal-china-x-month-name
(1- (floor cn-month)))
(if (integerp cn-month)
""
"(闰月)")))
(cn-day-string (aref cal-china-x-day-name
(1- cn-day))))
(format "%04d-%02d-%02d 周%s %s%s" year month
day dayname cn-month-string cn-day-string)))一些不区分语言的功能，例如重命名，简单重构等
(leaf format-all
:straight t
:commands format-all-mode
:bind
("C-c b =" . format-all-region-or-buffer)
)(leaf editorconfig
:straight t
:global-minor-mode editorconfig-mode
)(leaf nix-mode
:straight t
:ensure-system-package
(nixfmt . nixfmt-classic)
:mode "\\.nix\\'"
;; :custom
;; (lsp-bridge-nix-lsp-server . 'rnix-lsp)
:setq-default
(format-all-formatters . '(("Nix" (nixfmt))))
)(leaf sh-script
:require ob-shell
)
(leaf php-mode
:straight t
:ensure-system-package phpactor
:mode "\\.php\\'"
:custom
(lsp-bridge-php-lsp-server . 'phpactor)
:bind
(:php-mode-map
;; 清除 C-. 为 embark 腾空
("C-," . nil)
("C-." . nil))
)(leaf python
:ensure-system-package pyright
:custom
(lsp-bridge-python-lsp-server . 'pyright)
)(leaf haskell-mode
:straight t
:ensure-system-package
(haskell-language-server-wrapper . haskell-language-server)
(cabal . cabal-install)
ghc
:mode "\\.hs\\'"
)使用 Emmet 处理快速展开，语法高亮都使用 treesite ， ts 和 js 的基础补全使用 lsp ，其余高级功能使用 tide
;; 配置emmet-mode
;; 默认为C-j展开
(leaf emmet-mode
:straight t
:hook html-mode-hook
:hook html-ts-mode-hook
:hook css-mode-hook
:hook vue-mode-hook
)
(leaf typescript-ts-mode
:ensure-system-package
(typescript-language-server . nodePackages.typescript-language-server)
(tsc . typescript)
yaml-language-server
:mode "\\.ts\\'"
)
;; (leaf tide
;; :straight t
;; :hook
;; (typescript-ts-mode-hook . tide-setup)
;; (tsx-ts-mode-hook . tide-setup)
;; (js-mode-hook . tide-setup)
;; (vue-mode-hook . tide-setup)
;; (typescript-ts-mode-hook . tide-hl-identifier-mode)
;; )(leaf vue-mode
:straight t
:ensure-system-package
emmet-ls
(vue-language-server . nodePackages.vls)
(vscode-css-language-server . vscode-langservers-extracted)
:mode "\\.vue\\'"
:custom
;; 0, 1, or 2, representing (respectively) none, low, and high coloring
(mmm-submode-decoration-level . 0)
)(leaf markdown-mode
:straight t
:ensure-system-package multimarkdown
:mode ("README\\.md\\'" . gfm-mode)
:custom
(markdown-command . "multimarkdown")
:bind
(:markdown-mode-map
("C-c C-e" . markdown-do)
))(leaf yaml-ts-mode
:mode ("\\.yml\\'" "\\.yaml\\'")
:setq-default
(format-all-formatters . '(("YAML" (prettier)))))(leaf dotenv-mode
:straight t
:mode "\\.env\\..*\\'"
)(leaf direnv
:straight t
:global-minor-mode direnv-mode
)(leaf plantuml-mode
:straight t
:ensure-system-package plantuml
:mode ("\\.puml\\'" "\\.plantuml\\'" "\\.wsd\\'" "\\.pu\\'" "\\.iuml\\'")
:custom
(plantuml-default-exec-mode . 'executable)
(plantuml-executable-args . '(
"-headless"
"-charset"
"UTF-8"
))
)(leaf mermaid-mode
:straight t
:ensure-system-package
(mmdc . mermaid-cli)
:custom
(mermaid-output-format . ".png")
(mermaid-flags . "-w 2000")
)(leaf gnuplot
:straight t
:ensure-system-package gnuplot
:mode "\\.gp\\'"
:require ob-gnuplot
)(leaf ess
:straight t
:ensure-system-package R
:mode "\\.r\\'"
:require ob-R
)(leaf just-mode
:straight t
:mode ("\\justfile\\'")
)
(leaf justl
:straight t
:bind
("C-c p r" . justl-exec-recipe-in-dir)
)(leaf dockerfile-mode
:straight t
:mode ("\\Dockerfile\\'")
)(leaf hl-todo
:straight t
:global-minor-mode global-hl-todo-mode
)
(leaf magit-todos
:straight t
:after magit
:global-minor-mode magit-todos-mode
)
(leaf consult-todo
:straight t
:after consult
:bind
("C-c p t" . consult-todo-project)
("C-c j t" . consult-todo)
)(leaf ledger-mode
:straight t
:ensure-system-package ledger
:require ob-ledger
:mode "\\.ledger\\'"
:custom
(ledger-post-amount-alignment-column . 60)
)(leaf idris-mode
:straight t
:custom
(idris-interpreter-path . "idris2")
);; 高亮当前行
(leaf hl-line
:global-minor-mode global-hl-line-mode
)
(leaf modus-themes
:straight t
:leaf-defer nil
:require t
:config
(setq modus-themes-italic-constructs t
modus-themes-bold-constructs nil)
(setq modus-themes-to-toggle '(modus-vivendi-tinted modus-operandi-tinted))
(modus-themes-load-theme 'modus-vivendi-tinted)
;; Maybe define some palette overrides, such as by using our presets
;; (setq modus-themes-common-palette-overrides
;; modus-themes-preset-overrides-intense)
:bind
("<f5>" . modus-themes-toggle)
("C-c t t" . modus-themes-toggle)
)
(leaf nerd-icons
:straight t
)
(leaf nerd-icons-dired
:straight t
:after nerd-icons
:hook
(dired-mode-hook . nerd-icons-dired-mode))
(leaf nerd-icons-completion
:straight t
:after marginalia nerd-icons
:config
(nerd-icons-completion-mode)
(add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup))(leaf vundo
:straight t
:bind
("C-c u" . vundo)
)
;; 当某个文件的某一行特别长的时候，自动优化性能
(leaf so-long
:straight t
:global-minor-mode global-so-long-mode
)
;; 自动给内置函数增加 demo
(leaf elisp-demos
:straight t
:config
(advice-add 'describe-function-1 :after #'elisp-demos-advice-describe-function-1)
)
;; (leaf company)
;; 记录命令使用次数
(leaf keyfreq
:straight t
:config
(keyfreq-mode 1)
(keyfreq-autosave-mode 1))
(leaf wakatime-mode
:straight t
:ensure-system-package (wakatime-cli . wakatime)
:global-minor-mode global-wakatime-mode
:config
(setq wakatime-cli-path "wakatime-cli")
)
;; 快速选择工具
;; (leaf expand-region
;; :bind
;; ("C-c e" . er/expand-region)
;; )
;; A few more useful configurations...
;; Optionally use the `orderless' completion style.
(leaf dirvish
:straight t
:config
(setq dirvish-mode-line-format
'(:left (sort symlink) :right (omit yank index)))
(setq dirvish-mode-line-height 10)
(setq dirvish-attributes
'(nerd-icons file-time file-size collapse subtree-state vc-state git-msg))
(setq dirvish-subtree-state-style 'nerd)
(setq delete-by-moving-to-trash t)
(setq dirvish-path-separators (list
(format " %s " (nerd-icons-codicon "nf-cod-home"))
(format " %s " (nerd-icons-codicon "nf-cod-root_folder"))
(format " %s " (nerd-icons-faicon "nf-fa-angle_right"))))
(setq dired-listing-switches
"-l --almost-all --human-readable --group-directories-first --no-group")
(dirvish-peek-mode) ; Preview files in minibuffer
(dirvish-side-follow-mode) ; similar to `treemacs-follow-mode'
:hook
(dired-mode-hook . (dirvish-override-dired-mode))
);; leaf:
(leaf dashboard
:straight t
:after nerd-icons
:require t
:init
;; Content is not centered by default. To center, set
(setq dashboard-center-content t)
:config
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
;; Set the title
;; (setq dashboard-banner-logo-title nil)
(setq dashboard-startup-banner 'logo)
;; To disable shortcut "jump" indicators for each section, set
(setq dashboard-show-shortcuts t)
(setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal
(setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package
(setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t)
(setq dashboard-items '((recents . 10)
(bookmarks . 10)
;; (projects . 5)
(agenda . 5)
;; (registers . 5)
))
(setq dashboard-set-navigator nil)
(setq dashboard-set-footer t)
(setq dashboard-set-init-info t)
(setq dashboard-projects-switch-function 'projectile-switch-project-by-name)
(dashboard-modify-heading-icons '((recents . "nf-oct-file")
(bookmarks . "nf-oct-bookmark")
(agenda . "nf-oct-calendar")
))
(setq dashboard-agenda-item-icon (nerd-icons-mdicon "nf-md-chevron_triple_right"))
;; Set the banner
;; (setq dashboard-startup-banner [VALUE])
;; Value can be
;; - nil to display no banner
;; - 'official which displays the official emacs logo
;; - 'logo which displays an alternative emacs logo
;; - 1, 2 or 3 which displays one of the text banners
;; - "path/to/your/image.gif", "path/to/your/image.png", "path/to/your/text.txt" or "path/to/your/image.xbm" which displays whatever gif/image/text/xbm you would prefer
;; - a cons of '("path/to/your/image.png" . "path/to/your/text.txt")
(defun dashboard-refresh-buffer ()
(interactive)
(when (get-buffer dashboard-buffer-name)
(kill-buffer dashboard-buffer-name))
(dashboard-insert-startupify-lists)
(switch-to-buffer dashboard-buffer-name))
(dashboard-setup-startup-hook))(leaf auto-save
:straight '(auto-save :host github :type git :repo "manateelazycat/auto-save")
:require t
:config
;; (auto-save-enable)
(setq auto-save-silent t) ; quietly save
(setq auto-save-idle 10)
(setq auto-save-delete-trailing-whitespace t) ; automatically delete spaces at the end of the line when saving
;;; custom predicates if you don't want auto save.
;;; disable auto save mode when current filetype is an gpg file.
(setq auto-save-disable-predicates
'((lambda ()
(string-suffix-p
"gpg"
(file-name-extension (buffer-name)) t))))
(auto-save-enable)
)(when (file-exists-p custom-file)
(load custom-file));;; init.el ends here