grass-emacs
我的 emacs 配置
#+TITLE: grass-emacs
#+PROPERTY: header-args :results silent #+PROPERTY: header-args:emacs-lisp :tangle init.el
本仓库是我的个人 =Emacs= 配置，主打一个满足个人日常使用。如果里面的一些代码对你有帮助，欢迎拿走。
- 目录 :TOC:
- [[#header][Header]]
- [[#如何使用][如何使用]]
- [[#nixos-用户][NixOS 用户]]
- [[#nix-darwin-用户][Nix-Darwin 用户]]
- [[#非-nixos-用户][非 NixOS 用户]]
- [[#全局配置][全局配置]]
- [[#emacs-版本判断][Emacs 版本判断]]
- [[#定义常量][定义常量]]
- [[#常用工具函数][常用工具函数]]
- [[#定义常用目录][定义常用目录]]
- [[#修改默认配置][修改默认配置]]
- [[#性能优化][性能优化]]
- [[#定义用户级别的键位映射图][定义用户级别的键位映射图]]
- [[#包管理工具及相关依赖][包管理工具及相关依赖]]
- [[#straightel][straight.el]]
- [[#leafel][leaf.el]]
- [[#systempackages][systemPackages]]
- [[#shell-path][Shell Path]]
- [[#内置包的配置][内置包的配置]]
- [[#功能增强][功能增强]]
- [[#meow---模态编辑][Meow - 模态编辑]]
- [[#smart-input-source用于在模式编辑中自动切换输入法][smart-input-source用于在模式编辑中，自动切换输入法。]]
- [[#ace-window][ace-window]]
- [[#mwim][mwim]]
- [[#doom-modeline][doom-modeline]]
- [[#good-scroll][good-scroll]]
- [[#which-key][which-key]]
- [[#avy][avy]]
- [[#marginalia][marginalia]]
- [[#consult][consult]]
- [[#vertico][vertico]]
- [[#embark][embark]]
- [[#orderless][orderless]]
- [[#rainbow-delimiters][rainbow-delimiters]]
- [[#transient][transient]]
- [[#应用程序][应用程序]]
- [[#mu4e---邮件][mu4e - 邮件]]
- [[#rss][RSS]]
- [[#pocket][Pocket]]
- [[#浏览器][浏览器]]
- [[#补全][补全]]
- [[#lsp-bridge][LSP-Bridge]]
- [[#gui][GUI]]
- [[#tui-patch-ace-terminal][TUI Patch (ace-terminal)]]
- [[#项目工程][项目工程]]
- [[#project][Project]]
- [[#projectile][Projectile]]
- [[#magit][Magit]]
- [[#org][Org]]
- [[#org-base][Org base]]
- [[#org-agenda][Org Agenda]]
- [[#org-habit][Org Habit]]
- [[#org-pomodoro-番茄钟][Org Pomodoro 番茄钟]]
- [[#org-roam][Org-roam]]
- [[#org-mordern][Org-Mordern]]
- [[#ox-hugo][Ox-hugo]]
- [[#org-caldav][Org Caldav]]
- [[#org-anki][Org Anki]]
- [[#toc-org-自动生成目录][Toc-Org 自动生成目录]]
- [[#cal-x-农历][cal-x 农历]]
- [[#编程语言][编程语言]]
- [[#通用配置][通用配置]]
- [[#nix][Nix]]
- [[#sh-script][Sh Script]]
- [[#php][PHP]]
- [[#python][Python]]
- [[#haskell][Haskell]]
- [[#web][Web]]
- [[#vue][Vue]]
- [[#markdown][Markdown]]
- [[#yaml][YAML]]
- [[#dotenv][Dotenv]]
- [[#direnv][DirEnv]]
- [[#plantuml][PlantUML]]
- [[#mermaid][Mermaid]]
- [[#gnuplot][Gnuplot]]
- [[#r][R]]
- [[#just-file][Just File]]
- [[#docker][Docker]]
- [[#todo-keyword][TODO-keyword]]
- [[#ledger][Ledger]]
- [[#idris2][Idris2]]
- [[#style][Style]]
- [[#杂项][杂项]]
- [[#undoredo][Undo/Redo]]
- [[#小功能][小功能]]
- [[#dashboard][Dashboard]]
- [[#auto-save][Auto save]]
- [[#加载自定义文件][加载自定义文件]]
- [[#footer][Footer]]
- Header
#+begin_src emacs-lisp
;;; init.el --- Load the full configuration -- lexical-binding: t --
;;; Commentary:
;; This file bootstraps the full configuration
;;; Code: #+end_src
- 如何使用
** NixOS 用户
*** 使用 Flakes
#+name: flake.nix #+begin_src nix
其它inputs
{ inputs.grass-emacs.url = "github:running-grass/grass-emacs";
# 在主机配置中导入模块
nixosConfigurations.galaxy =
lib.nixosSystem { modules = [ inputs.grass-emacs.nixosModules.default ]; };
} #+end_src
可以直接在命令行使用 =Emacs= 启动。
** Nix-Darwin 用户
目前还不太好用，堪堪可以使用
#+name: flake.nix #+begin_src nix
其它inputs
{ inputs.grass-emacs.url = "github:running-grass/grass-emacs";
# 在主机配置中导入模块
darwinConfigurations.galaxy = inputs.nix-darwin.lib.darwinSystem {
modules = [ inputs.grass-emacs.nixosModules.default ];
};
} #+end_src
** 非 NixOS 用户
*** 前置条件
- =Emacs= 版本大于 =29=
- 命令行依赖
- git
- wakatime-cli
- mu
- python3
- multimarkdown
- 其它依赖
- 确保 =
/.emacs= ， =/.emacs.d= 和 =~/.config/emacs= 目录不存在，如果存在需要重命名备份
*** 安装
- 确保 =
执行下列代码克隆仓库
#+begin_src bash git clone [email protected]:running-grass/grass-emacs.git ~/.config/emacs #+end_src
修改配置以后就可以使用 =SPC r= 来重新加载配置了。
- 全局配置
** Emacs 版本判断
#+begin_src emacs-lisp
(when (version< emacs-version "29")
(error "必须要使用 Emacs 29 以上的版本"))
#+end_src
** 定义常量 #+begin_src emacs-lisp ;; 判断是否是 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 操作系统") #+end_src
** 常用工具函数 #+begin_src emacs-lisp ;; 计算中国农历的年份，用于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)
))
#+end_src ** 定义常用目录
这里定义了四个 =Emacs= 使用过程中的目录， 配置、数据、状态、缓存
配置： 存放各种配置文件， 例如 =init.el= 和 =early-init.el= 等，以及用户自定义配置文件，用于存储敏感信息，可以在多台机器直接复用 数据： 存放数据型的文件，例如 =sqllite= 数据库的存储，或者 =BBDB= 数据库文件等，同样可以在多台机器直接共享。 和配置的区别在于，一个是声明式的，一个是动态增加的数据 状态： 在多次启动运行之间共享的状态，例如 最近打开的文件，搜索历史等， 不可以跨机器和跨用户使用。 缓存： 使用过程中的缓存文件，可以被安全的删除，必须可以被重建。
#+begin_src emacs-lisp (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")) #+end_src
** 修改默认配置 #+begin_src emacs-lisp ;; 关闭原生编译警告 (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-")) #+End_src
** 性能优化 #+begin_src emacs-lisp ;; 调大 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) #+end_src
** 定义用户级别的键位映射图
定义了几个键位映射图，用于作为一些常用命令的分组。
会被绑定到 =meow= 的 =leader= 键位图中
#+begin_src emacs-lisp (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) #+end_src
- 包管理工具及相关依赖
** straight.el
#+begin_src emacs-lisp
(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))
#+end_src
** leaf.el #+begin_src emacs-lisp (straight-use-package 'leaf) (straight-use-package 'leaf-keywords) (leaf leaf-keywords :custom (leaf-expand-ensure-system-package . t) :config (leaf-keywords-init) ) #+end_src
** systemPackages #+begin_src emacs-lisp (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") ) #+end_src
** Shell Path #+begin_src emacs-lisp (leaf exec-path-from-shell :straight t :config (exec-path-from-shell-initialize)) #+end_src
- 内置包的配置
#+begin_src emacs-lisp
(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) )
#+end_src
- 功能增强
** Meow - 模态编辑
可以说这个模态编辑包是整个配置中我最喜欢的。 它可以最大限度的使用 =Emacs= 原生键位。而不需要每安装一个新的包，就去做一些适配和兼容（我说的就是 =evil= ） #+begin_src emacs-lisp (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))
)
#+end_src
** smart-input-source用于在模式编辑中，自动切换输入法。 包括从插入模式退出的时候，以及输入按键序列的时候，都会自动切换输入法到英文，再次进入插入模式的时候，又会自动恢复之前的输入法 #+begin_src emacs-lisp (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)
)
#+end_src ** ace-window
这又是一个 abo-abo（Oleh Krehel）的项目。我们用 Emacs 多窗口时，window 超过 3 个后就很难使用 C-x o 进行切换了。ace-window 对 C-x o 重新绑定，使用时可以为每个 window 编个号，用编号进行跳转。
#+begin_src emacs-lisp (leaf ace-window :straight t :bind (("C-x o" . ace-window))) #+end_src
** mwim
还记得我们提到 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 将光标移动到代码尾部、注释之前。再按一次则是移动到整行的行尾。 这就大大提高了写代码的效率。
#+begin_src emacs-lisp (leaf mwim :straight t :bind ("C-a" . mwim-beginning-of-code-or-line) ("C-e" . mwim-end-of-code-or-line)) #+end_src
** doom-modeline
可以进行丰富的定制化
#+begin_src emacs-lisp (leaf doom-modeline :straight t :global-minor-mode t :custom (doom-modeline-modal-icon . t) ) #+end_src
** good-scroll
在现代图形界面操作系统中，光标在上下移动、翻页的时候 Emacs 会直接刷新界面，滚动时也是按行滚动，比较粗糙。good-scroll 提供了平滑滚动，并且支持变速滚动，更加顺手。
#+begin_src emacs-lisp (leaf good-scroll :straight t :global-minor-mode t :when is-gui ; 在图形化界面时才使用这个插件 ) #+end_src
** which-key
这是一个实用小工具，专门针对 Emacs 快捷键多而杂的问题，安装后，当按下部分快捷键前缀时，它会通过 minibuffer 提示你都有哪些可以按的快捷键及其命令名。例如启动了 hs-minor-mode 后，我们正常可以通过 C-c @ C-h 折叠代码块、用 C-c @ C-s 来展开代码块。但这个快捷键很长，时常记不住，那么有了 which-key 后我们可以先按下 C-c @ ，此时 which-key 就会提示我们接下来可以按的键：
#+begin_src emacs-lisp (leaf which-key :straight t :global-minor-mode t ) #+end_src
** avy
[[https://pavinberg.github.io/emacs-book/zh/enhancement/#avy][使用方法]]
#+begin_src emacs-lisp (leaf avy :straight t :bind ("C-c j j" . avy-goto-char-timer) ("C-c j l" . avy-goto-line) ) #+end_src
** marginalia
可以为 Emacs minibuffer 中的选项添加注解
#+begin_src emacs-lisp
;; 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))
)
#+end_src
** consult
#+begin_src emacs-lisp (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)
)
#+end_src
** vertico
#+begin_src emacs-lisp (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)
)
#+end_src
** embark
embark 是另一个比较神奇的工具。Emacs 基本的操作流程是先输入命令再输入命令作用的对象。例如，我们先按下 C-x C-f 再输入文件名来打开文件。但是有的时候，我们按下命令、选择了文件后，可能又后悔了，想要对相同的文件输入另一个命令。例如我们按下 C-x k 打算关闭一个后台 buffer，然后输入了文件名，这时我们忽然想再查看一眼那个文件。那么平常，我们只好按下 C-g 放弃这次命令，再用 C-x b 切换过去。而有了 embark ，我们可以在按下 C-x k 、输入了部分文件名选中文件后 ，按下 C-. 触发 embark- act，这时按下 o 就可以在另一个新的窗口打开这个 buffer 了。我们无需放弃命令重新输入，而是继续输入就好了。
#+begin_src emacs-lisp (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)) #+end_src
** orderless 一个模糊搜索的插件，可以为多个其它插件提供排序函数 #+begin_src emacs-lisp (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)))) ) #+end_src
** rainbow-delimiters
这个插件可以用不同颜色标记多级括号，方便看清代码块（尤其在 EmacsLisp 中）。
#+begin_src emacs-lisp ;; 括号的多色彩 (leaf rainbow-delimiters :straight t :hook (prog-mode-hook . rainbow-delimiters-mode) ) #+end_src
** transient
#+begin_src emacs-lisp
(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"))
)
#+end_src
- 应用程序
** COMMENT EAF
现在这个功能还不好用。
待解决的问题
- 封装每个应用为一个 nixpkg
- 和Meow模式的集成
目前的安装方式
- 克隆到指定的目录
- 使用 =nix-shell -p pkg-config libinput libevdev= 进入编译环境
- 使用 =./install-eaf.py --ignore-core-deps= 安装所需依赖
#+begin_src emacs-lisp (leaf eaf :straight '(eaf :type git :host github :repo "emacs-eaf/emacs-application-framework" ;; :files (:defaults "") :files (:defaults ".el" ".py" ".json" "extension" "core" "reinput") )
;; :load-path (expand-file-name
;; "workspace/forks/emacs-application-framework"
;; (getenv "HOME")
;; )
;; :init
;; :config
;; (add-to-list 'meow-mode-state-list '(eaf-mode . motion))
)
(leaf eaf-browser :after eaf :require t :load-path "~/.local/state/emacs/straight/repos/emacs-application-framework/app/browser/" :custom (eaf-browser-continue-where-left-off . t) (eaf-browser-enable-adblocker . t) (browse-url-browser-function . 'eaf-open-browser)
:config
(defalias 'browse-web #'eaf-open-browser)
;; (eaf-bind-key scroll_up "C-n" eaf-pdf-viewer-keybinding)
;; (eaf-bind-key scroll_down "C-p" eaf-pdf-viewer-keybinding)
;; (eaf-bind-key take_photo "p" eaf-camera-keybinding)
;; (eaf-bind-key nil "M-q" eaf-browser-keybinding) ;; unbind, see more in the Wiki
;; (eaf-bind-key nil "SPC" eaf-browser-keybinding) ;; unbind, see more in the Wiki
)
(leaf eaf-file-manager :after eaf :require t :load-path "~/.local/state/emacs/straight/repos/emacs-application-framework/app/file-manager/" ;; :custom ;; (eaf-browser-continue-where-left-off . t) ;; (eaf-browser-enable-adblocker . t) ;; (browse-url-browser-function . 'eaf-open-browser)
;; :config
;; (defalias 'browse-web #'eaf-open-browser)
;; (eaf-bind-key scroll_up "C-n" eaf-pdf-viewer-keybinding)
;; (eaf-bind-key scroll_down "C-p" eaf-pdf-viewer-keybinding)
;; (eaf-bind-key take_photo "p" eaf-camera-keybinding)
;; (eaf-bind-key nil "M-q" eaf-browser-keybinding) ;; unbind, see more in the Wiki
;; (eaf-bind-key nil "SPC" eaf-browser-keybinding) ;; unbind, see more in the Wiki
)
#+end_src
** mu4e - 邮件 收邮件方案是使用 offlineimap 进行邮件的同步，由 mu 对邮箱进行索引，前端使用 mu4e 进行管理。 发邮件的方案是 使用 msmtp
目前只在 nix 相关的环境下可用
#+begin_src emacs-lisp (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)
)
#+end_src
** RSS
#+begin_src emacs-lisp (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)
)
#+end_src
用于阅读和管理稍后阅读列表
#+begin_src emacs-lisp (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) )
)
#+end_src
** 浏览器
#+begin_src emacs-lisp (leaf eww ) #+end_src
- 补全
列表补全使用的是 =vertico= / =marginalia= / =consult= / =orderless= 全家桶
#+begin_src emacs-lisp ;; Use Dabbrev with Corfu! (leaf yasnippet :straight t :global-minor-mode yas-global-mode :custom `(yas--default-user-snippets-dir . ,(expand-emacs-data "snippets")) )
#+end_src
-
LSP-Bridge ** GUI #+begin_src emacs-lisp (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) ) #+end_src
** TUI Patch (ace-terminal)
由于 =lsp-bridge= 不支持 =TUI=, 单独装一个包来支持 =TUI= #+begin_src emacs-lisp
(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") ) #+end_src
- 项目工程
#+begin_src emacs-lisp
(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)
)
#+end_src
** Project
#+begin_src emacs-lisp
(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)
)
#+end_src
** Projectile
#+begin_src emacs-lisp
(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) ) #+end_src ** Magit 支持 Git 的使用，同时使用 =magit-todos= 增强TODO关键词的展示 #+begin_src emacs-lisp (leaf magit :straight t :bind ("C-c p v" . magit) )
#+end_src
- Org
Org-mode 相关的配置。
我目前只使用 =Org-mode= 来管理我的 =Emacs= 配置。后续再逐步用于任务管理，项目管理，笔记管理等用途。
** Org base #+begin_src emacs-lisp
;; 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 )
#+end_src
** Org Agenda
和日程相关的配置。
#+begin_src emacs-lisp
(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 "))
)
#+end_src
** Org Habit
#+begin_src emacs-lisp
(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)
)
)
#+end_src
** Org Pomodoro 番茄钟
#+begin_src emacs-lisp
(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)) ) #+end_src ** Org-roam #+begin_src emacs-lisp (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))
#+end_src
** Org-Mordern #+begin_src emacs-lisp ;; 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") ))
)
#+end_src ** Ox-hugo #+begin_src emacs-lisp (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")))
)
#+end_src ** Org Caldav #+begin_src emacs-lisp (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)
)
#+end_src ** Org Anki #+begin_src emacs-lisp (leaf org-anki :straight t :ensure-system-package anki ) #+end_src ** Toc-Org 自动生成目录 保存时自动更新具有 :TOC: 的标题为目录 #+begin_src emacs-lisp (leaf toc-org :straight t :after org :hook (org-mode-hook . toc-org-mode) ) #+end_src ** cal-x 农历 #+begin_src emacs-lisp (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))) #+end_src
- 编程语言
** 通用配置
一些不区分语言的功能，例如重命名，简单重构等
*** format 格式化
#+begin_src emacs-lisp (leaf format-all :straight t :commands format-all-mode :bind ("C-c b =" . format-all-region-or-buffer) ) #+end_src
*** editorconfig #+begin_src emacs-lisp (leaf editorconfig :straight t :global-minor-mode editorconfig-mode ) #+end_src
*** COMMENT codeium 使用 =codeium= 可以自动生成代码提示，但是不支持 =TUI= #+begin_src emacs-lisp ;; we recommend using use-package to organize your init.el (leaf codeium :straight '(codeium :host github :type git :repo "Exafunction/codeium.el") ;; if you use straight ;; :straight '(:type git :host github :repo "Exafunction/codeium.el") ;; otherwise, make sure that the codeium.el file is on load-path
:init
;; use globally
(add-to-list 'completion-at-point-functions #'codeium-completion-at-point)
;; or on a hook
;; (add-hook 'python-mode-hook
;; (lambda ()
;; (setq-local completion-at-point-functions '(codeium-completion-at-point))))
;; if you want multiple completion backends, use cape (https://github.com/minad/cape):
;; (add-hook 'python-mode-hook
;; (lambda ()
;; (setq-local completion-at-point-functions
;; (list (cape-super-capf #'codeium-completion-at-point #'lsp-completion-at-point)))))
;; an async company-backend is coming soon!
;; codeium-completion-at-point is autoloaded, but you can
;; optionally set a timer, which might speed up things as the
;; codeium local language server takes ~0.2s to start up
;; (add-hook 'emacs-startup-hook
;; (lambda () (run-with-timer 0.1 nil #'codeium-init)))
;; :defer t ;; lazy loading, if you want
:config
(setq use-dialog-box nil) ;; do not use popup boxes
;; if you don't want to use customize to save the api-key
;; (setq codeium/metadata/api_key "xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx")
;; get codeium status in the modeline
(setq codeium-mode-line-enable
(lambda (api) (not (memq api '(CancelRequest Heartbeat AcceptCompletion)))))
(add-to-list 'mode-line-format '(:eval (car-safe codeium-mode-line)) t)
;; alternatively for a more extensive mode-line
;; (add-to-list 'mode-line-format '(-50 "" codeium-mode-line) t)
;; use M-x codeium-diagnose to see apis/fields that would be sent to the local language server
(setq codeium-api-enabled
(lambda (api)
(memq api '(GetCompletions Heartbeat CancelRequest GetAuthToken RegisterUser auth-redirect AcceptCompletion))))
;; you can also set a config for a single buffer like this:
;; (add-hook 'python-mode-hook
;; (lambda ()
;; (setq-local codeium/editor_options/tab_size 4)))
;; You can overwrite all the codeium configs!
;; for example, we recommend limiting the string sent to codeium for better performance
(defun my-codeium/document/text ()
(buffer-substring-no-properties (max (- (point) 3000) (point-min)) (min (+ (point) 1000) (point-max))))
;; if you change the text, you should also change the cursor_offset
;; warning: this is measured by UTF-8 encoded bytes
(defun my-codeium/document/cursor_offset ()
(codeium-utf8-byte-length
(buffer-substring-no-properties (max (- (point) 3000) (point-min)) (point))))
(setq codeium/document/text 'my-codeium/document/text)
(setq codeium/document/cursor_offset 'my-codeium/document/cursor_offset))
(leaf company :straight t :config (global-company-mode t) (setq-default company-idle-delay 0.05 company-require-match nil company-minimum-prefix-length 0
;; get only preview
company-frontends '(company-preview-frontend)
;; also get a drop down
;; company-frontends '(company-pseudo-tooltip-frontend company-preview-frontend)
))
#+end_src ** Nix #+begin_src emacs-lisp (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)))) ) #+end_src ** Sh Script #+begin_src emacs-lisp (leaf sh-script :require ob-shell )
#+end_src ** PHP
#+begin_src emacs-lisp (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)) ) #+end_src
** Python #+begin_src emacs-lisp (leaf python :ensure-system-package pyright :custom (lsp-bridge-python-lsp-server . 'pyright) ) #+end_src
** Haskell #+begin_src emacs-lisp (leaf haskell-mode :straight t :ensure-system-package (haskell-language-server-wrapper . haskell-language-server) (cabal . cabal-install) ghc :mode "\.hs\'" ) #+end_src ** Web
使用 =Emmet= 处理快速展开，语法高亮都使用 =treesite= ， =ts= 和 =js= 的基础补全使用 =lsp= ，其余高级功能使用 =tide= #+begin_src emacs-lisp ;; 配置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) ;; ) #+end_src
** Vue #+begin_src emacs-lisp (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)
)
#+end_src
** Markdown
#+begin_src emacs-lisp (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) )) #+end_src
** YAML
#+begin_src emacs-lisp (leaf yaml-ts-mode :mode ("\.yml\'" "\.yaml\'") :setq-default (format-all-formatters . '(("YAML" (prettier))))) #+end_src
** Dotenv #+begin_src emacs-lisp (leaf dotenv-mode :straight t :mode "\.env\..*\'" ) #+end_src
** DirEnv #+begin_src emacs-lisp (leaf direnv :straight t :global-minor-mode direnv-mode ) #+end_src ** PlantUML
#+begin_src emacs-lisp (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" )) ) #+end_src
** Mermaid #+begin_src emacs-lisp (leaf mermaid-mode :straight t :ensure-system-package (mmdc . mermaid-cli) :custom (mermaid-output-format . ".png") (mermaid-flags . "-w 2000") ) #+end_src
** Gnuplot
#+begin_src emacs-lisp (leaf gnuplot :straight t :ensure-system-package gnuplot :mode "\.gp\'" :require ob-gnuplot ) #+end_src
** R #+begin_src emacs-lisp (leaf ess :straight t :ensure-system-package R :mode "\.r\'" :require ob-R ) #+end_src ** Just File #+begin_src emacs-lisp (leaf just-mode :straight t :mode ("\justfile\'") ) (leaf justl :straight t :bind ("C-c p r" . justl-exec-recipe-in-dir) ) #+end_src
** Docker #+begin_src emacs-lisp (leaf dockerfile-mode :straight t :mode ("\Dockerfile\'") ) #+end_src
** TODO-keyword #+begin_src emacs-lisp (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) ) #+end_src
** Ledger
#+begin_src emacs-lisp (leaf ledger-mode :straight t :ensure-system-package ledger :require ob-ledger :mode "\.ledger\'" :custom (ledger-post-amount-alignment-column . 60) ) #+end_src
** Idris2 #+begin_src emacs-lisp (leaf idris-mode :straight t :custom (idris-interpreter-path . "idris2") ) #+end_src
-
Style #+begin_src emacs-lisp ;; 高亮当前行 (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 ("" . 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)) #+end_src
-
杂项
** Undo/Redo #+begin_src emacs-lisp (leaf vundo :straight t :bind ("C-c u" . vundo) )
#+end_src ** 小功能 #+begin_src emacs-lisp
;; 当某个文件的某一行特别长的时候，自动优化性能 (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)) ) #+end_src
** Dashboard
#+begin_src emacs-lisp ;; 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))
#+end_src
** Auto save #+begin_src emacs-lisp (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) ) #+end_src
-
加载自定义文件 #+begin_src emacs-lisp (when (file-exists-p custom-file) (load custom-file)) #+end_src
-
Footer #+begin_src emacs-lisp ;;; init.el ends here #+end_src