在Emacs刚启动，还未加载主要配置文件时的配置文件。
;;; early-init.el --- Emacs pre-initialization config -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; 设置垃圾回收参数
(setq gc-cons-threshold most-positive-fixnum)
(setq gc-cons-percentage 0.6)
;; 启动早期不加载`package.el'包管理器
(setq package-enable-at-startup nil)
;; 不从包缓存中加载
(setq package-quickstart nil)
;; 禁止展示菜单栏、工具栏和纵向滚动条
(push '(menu-bar-lines . 0) default-frame-alist)
(push '(tool-bar-lines . 0) default-frame-alist)
(push '(vertical-scroll-bars) default-frame-alist)
;; 禁止自动缩放窗口先
(setq frame-inhibit-implied-resize t)
;; 禁止菜单栏、工具栏、滚动条模式，禁止启动屏幕和文件对话框
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(setq inhibit-splash-screen t)
(setq use-file-dialog nil)
;; 在这个阶段不编译
(setq comp-deferred-compilation nil)
(provide 'early-init)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; early-init.el ends hereinit.el 是Emacs的主要配置文件。
;;; init.el --- The main init entry for Emacs -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'package)
(setq package-archives
'(("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(package-initialize)use-package 是一个让Emacs配置更加结构化更加清晰的一个宏插件。
;; 安装 `use-package'
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
;; 配置 `use-package'
(eval-and-compile
(setq use-package-always-ensure nil)
(setq use-package-always-defer nil)
(setq use-package-expand-minimally nil)
(setq use-package-enable-imenu-support t)
(if (daemonp)
(setq use-package-always-demand t)))
(eval-when-compile
(require 'use-package))
;; 安装 `use-package' 的集成模块
(use-package use-package-ensure-system-package
:ensure t)
(use-package diminish
:ensure t)
(use-package bind-key
:ensure t)quelpa 是配合 package.el 使用的，基于git的一个包管理器。
;; 安装 `quelpa'
(use-package quelpa
:ensure t
:commands quelpa
:config
:custom
(quelpa-git-clone-depth 1)
(quelpa-update-melpa-p nil)
(quelpa-self-upgrade-p nil)
(quelpa-checkout-melpa-p nil))
;; `quelpa' 与 `use-package' 集成
(use-package quelpa-use-package
:ensure t);; 将lisp目录放到加载路径的前面以加快启动速度
(let ((dir (locate-user-emacs-file "lisp")))
(add-to-list 'load-path (file-name-as-directory dir)))
;; 加载各模块化配置
;; 不要在`*message*'缓冲区显示加载模块化配置的信息
(with-temp-message ""
(require 'init-ui) ; UI交互
(require 'init-edit) ; 编辑行为
(require 'init-org) ; org相关设置
(require 'init-completion) ; 补全系统
(require 'init-tools) ; 相关工具
(require 'init-base) ; 一些基本配置
(require 'init-dev) ; 开发相关配置
)(provide 'init)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init.el ends here;;; init-ui.el --- UI settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
ef themes 是我非常喜欢的一个主题包。
(use-package ef-themes
:ensure t
:bind ("C-c t" . ef-themes-toggle)
:init
;; set two specific themes and switch between them
(setq ef-themes-to-toggle '(ef-summer ef-winter))
;; set org headings and function syntax
(setq ef-themes-headings
'((0 . (bold 1))
(1 . (bold 1))
(2 . (rainbow bold 1))
(3 . (rainbow bold 1))
(4 . (rainbow bold 1))
(t . (rainbow bold 1))))
(setq ef-themes-region '(intense no-extend neutral))
;; Disable all other themes to avoid awkward blending:
(mapc #'disable-theme custom-enabled-themes)
;; Load the theme of choice:
;; The themes we provide are recorded in the `ef-themes-dark-themes',
;; `ef-themes-light-themes'.
;; 如果你不喜欢随机主题，也可以直接固定选择一个主题，如下：
;; (ef-themes-select 'ef-summer)
;; 随机挑选一款主题，如果是命令行打开Emacs，则随机挑选一款黑色主题
(if (display-graphic-p)
(ef-themes-load-random)
(ef-themes-load-random 'dark))
:config
;; auto change theme, aligning with system themes.
(defun my/apply-theme (appearance)
"Load theme, taking current system APPEARANCE into consideration."
(mapc #'disable-theme custom-enabled-themes)
(pcase appearance
('light (if (display-graphic-p) (ef-themes-load-random 'light) (ef-themes-load-random 'dark)))
('dark (ef-themes-load-random 'dark))))
(if (eq system-type 'darwin)
;; only for emacs-plus
(add-hook 'ns-system-appearance-change-functions #'my/apply-theme)
(ef-themes-select 'ef-summer)
)
)fontaine 插件可以根据需要高度定制字体。
这篇文章可以作为字体设置的参考： http://xahlee.info/emacs/emacs/emacs_list_and_set_font.html
(use-package fontaine
:ensure t
:when (display-graphic-p)
;; :hook (kill-emacs . fontaine-store-latest-preset)
:config
(setq fontaine-latest-state-file
(locate-user-emacs-file "etc/fontaine-latest-state.eld"))
(setq fontaine-presets
'((regular
:default-height 140
:default-weight regular
:fixed-pitch-height 1.0
:variable-pitch-height 1.0
)
(large
:default-height 180
:default-weight normal
:fixed-pitch-height 1.0
:variable-pitch-height 1.05
)
(t
:default-family "Source Code Pro"
:fixed-pitch-family "Source Code Pro"
:variable-pitch-family "Source Code Pro"
:italic-family "Source Code Pro"
:variable-pitch-weight normal
:bold-weight normal
:italic-slant italic
:line-spacing 0.1)
))
;; (fontaine-set-preset (or (fontaine-restore-latest-preset) 'regular))
(fontaine-set-preset 'regular)
;; set emoji font
(set-fontset-font
t
(if (version< emacs-version "28.1")
'(#x1f300 . #x1fad0)
'emoji)
(cond
((member "Noto Emoji" (font-family-list)) "Noto Emoji")
((member "Symbola" (font-family-list)) "Symbola")
((member "Apple Color Emoji" (font-family-list)) "Apple Color Emoji")
((member "Noto Color Emoji" (font-family-list)) "Noto Color Emoji")
((member "Segoe UI Emoji" (font-family-list)) "Segoe UI Emoji")
))
;; set Chinese font
(dolist (charset '(kana han symbol cjk-misc bopomofo))
(set-fontset-font
(frame-parameter nil 'font)
charset
(font-spec :family
(cond
((eq system-type 'darwin)
(cond
((member "Sarasa Mono SC Nerd" (font-family-list)) "Sarasa Mono SC Nerd")
((member "PingFang SC" (font-family-list)) "PingFang SC")
((member "WenQuanYi Zen Hei" (font-family-list)) "WenQuanYi Zen Hei")
((member "Microsoft YaHei" (font-family-list)) "Microsoft YaHei")
))
((eq system-type 'gnu/linux)
(cond
((member "Sarasa Mono SC Nerd" (font-family-list)) "Sarasa Mono SC Nerd")
((member "WenQuanYi Micro Hei" (font-family-list)) "WenQuanYi Micro Hei")
((member "WenQuanYi Zen Hei" (font-family-list)) "WenQuanYi Zen Hei")
((member "Microsoft YaHei" (font-family-list)) "Microsoft YaHei")
))
(t
(cond
((member "Sarasa Mono SC Nerd" (font-family-list)) "Sarasa Mono SC Nerd")
((member "Microsoft YaHei" (font-family-list)) "Microsoft YaHei")
)))
)))
;; set Chinese font scale
(setq face-font-rescale-alist `(
("Symbola" . 1.3)
("Microsoft YaHei" . 1.2)
("WenQuanYi Zen Hei" . 1.2)
("Sarasa Mono SC Nerd" . 1.2)
("PingFang SC" . 1.16)
("Lantinghei SC" . 1.16)
("Kaiti SC" . 1.16)
("Yuanti SC" . 1.16)
("Apple Color Emoji" . 0.91)
))
)| 中文 | |
| abcd |
在Mac下，我的默认启动窗口大小
;; 设置窗口大小，仅仅在图形界面需要设置
(when (display-graphic-p)
(let ((top 0) ; 顶不留空
(left (/ (x-display-pixel-width) 10)) ; 左边空10%
(height (round (* 0.8 ; 窗体高度为0.8倍的显示高度
(/ (x-display-pixel-height)
(frame-char-height))))))
(let ((width (round (* 2.5 height)))) ; 窗体宽度为2.5倍高度
(setq default-frame-alist nil)
(add-to-list 'default-frame-alist (cons 'top top))
(add-to-list 'default-frame-alist (cons 'left left))
(add-to-list 'default-frame-alist (cons 'height height))
(add-to-list 'default-frame-alist (cons 'width width)))));; 禁用一些GUI特性
(setq use-dialog-box nil) ; 鼠标操作不使用对话框
(setq inhibit-default-init t) ; 不加载 `default' 库
(setq inhibit-startup-screen t) ; 不加载启动画面
(setq inhibit-startup-message t) ; 不加载启动消息
(setq inhibit-startup-buffer-menu t) ; 不显示缓冲区列表
;; 草稿缓冲区默认文字设置
(setq initial-scratch-message (concat ";; Happy hacking, "
(capitalize user-login-name) " - Emacs ♥ you!\n\n"))
;; 设置缓冲区的文字方向为从左到右
(setq bidi-paragraph-direction 'left-to-right)
;; 禁止使用双向括号算法
;; (setq bidi-inhibit-bpa t)
;; 设置自动折行宽度为80个字符，默认值为70
(setq-default fill-column 80)
;; 设置大文件阈值为100MB，默认10MB
(setq large-file-warning-threshold 100000000)
;; 以16进制显示字节数
(setq display-raw-bytes-as-hex t)
;; 有输入时禁止 `fontification' 相关的函数钩子，能让滚动更顺滑
(setq redisplay-skip-fontification-on-input t)
;; 禁止响铃
(setq ring-bell-function 'ignore)
;; 禁止闪烁光标
(blink-cursor-mode -1)
;; 在光标处而非鼠标所在位置粘贴
(setq mouse-yank-at-point t)
;; 拷贝粘贴设置
(setq select-enable-primary nil) ; 选择文字时不拷贝
(setq select-enable-clipboard t) ; 拷贝时使用剪贴板
;; 鼠标滚动设置
(setq scroll-step 2)
(setq scroll-margin 2)
(setq hscroll-step 2)
(setq hscroll-margin 2)
(setq scroll-conservatively 101)
(setq scroll-up-aggressively 0.01)
(setq scroll-down-aggressively 0.01)
(setq scroll-preserve-screen-position 'always)
;; 对于高的行禁止自动垂直滚动
(setq auto-window-vscroll nil)
;; 设置新分屏打开的位置的阈值
(setq split-width-threshold (assoc-default 'width default-frame-alist))
(setq split-height-threshold nil)
;; TAB键设置，在Emacs里不使用TAB键，所有的TAB默认为4个空格
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
;; yes或no提示设置，通过下面这个函数设置当缓冲区名字匹配到预设的字符串时自动回答yes
(setq original-y-or-n-p 'y-or-n-p)
(defalias 'original-y-or-n-p (symbol-function 'y-or-n-p))
(defun default-yes-sometimes (prompt)
"automatically say y when buffer name match following string"
(if (or
(string-match "has a running process" prompt)
(string-match "does not exist; create" prompt)
(string-match "modified; kill anyway" prompt)
(string-match "Delete buffer using" prompt)
(string-match "Kill buffer of" prompt)
(string-match "still connected. Kill it?" prompt)
(string-match "Shutdown the client's kernel" prompt)
(string-match "kill them and exit anyway" prompt)
(string-match "Revert buffer from file" prompt)
(string-match "Kill Dired buffer of" prompt)
(string-match "delete buffer using" prompt)
(string-match "Kill all pass entry" prompt)
(string-match "for all cursors" prompt)
(string-match "Do you want edit the entry" prompt))
t
(original-y-or-n-p prompt)))
(defalias 'yes-or-no-p 'default-yes-sometimes)
(defalias 'y-or-n-p 'default-yes-sometimes)
;; 设置剪贴板历史长度300，默认为60
(setq kill-ring-max 200)
;; 在剪贴板里不存储重复内容
(setq kill-do-not-save-duplicates t)
;; 设置位置记录长度为6，默认为16
;; 可以使用 `counsel-mark-ring' or `consult-mark' (C-x j) 来访问光标位置记录
;; 使用 C-x C-SPC 执行 `pop-global-mark' 直接跳转到上一个全局位置处
;; 使用 C-u C-SPC 跳转到本地位置处
(setq mark-ring-max 6)
(setq global-mark-ring-max 6)
;; 设置 emacs-lisp 的限制
(setq max-lisp-eval-depth 10000) ; 默认值为 800
(setq max-specpdl-size 10000) ; 默认值为 1600
;; 启用 `list-timers', `list-threads' 这两个命令
(put 'list-timers 'disabled nil)
(put 'list-threads 'disabled nil)
;; 在命令行里支持鼠标
(xterm-mouse-mode 1)
;; 退出Emacs时进行确认
(setq confirm-kill-emacs 'y-or-n-p)
;; 在模式栏上显示当前光标的列号
(column-number-mode t)统一使用 UTF-8 编码。
;; 配置所有的编码为UTF-8，参考：
;; https://thraxys.wordpress.com/2016/01/13/utf-8-in-emacs-everywhere-forever/
(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-language-environment 'utf-8)
(set-clipboard-coding-system 'utf-8)
(set-file-name-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(modify-coding-system-alist 'process "*" 'utf-8)
(when (display-graphic-p)
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)))doom-modeline 是一个模式栏美化插件。
(use-package doom-modeline
:ensure t
:hook (after-init . doom-modeline-mode)
:custom
(doom-modeline-irc nil)
(doom-modeline-mu4e nil)
(doom-modeline-gnus nil)
(doom-modeline-github nil)
(doom-modeline-buffer-file-name-style 'truncate-upto-root) ; : auto
(doom-modeline-persp-name nil)
(doom-modeline-unicode-fallback t)
(doom-modeline-enable-word-count nil))minions 插件能让模式栏变得清爽，将次要模式隐藏起来。
(use-package minions
:ensure t
:hook (after-init . minions-mode))keycast mode 插件可以在模式栏上展示所有的按键，以及对应的函数。
(use-package keycast
:ensure t
:hook (after-init . keycast-mode)
:config
;; set for doom-modeline support
;; With the latest change 72d9add, mode-line-keycast needs to be modified to keycast-mode-line.
(define-minor-mode keycast-mode
"Show current command and its key binding in the mode line (fix for use with doom-mode-line)."
:global t
(if keycast-mode
(progn
(add-hook 'pre-command-hook 'keycast--update t)
(add-to-list 'global-mode-string '("" keycast-mode-line " ")))
(remove-hook 'pre-command-hook 'keycast--update)
(setq global-mode-string (delete '("" keycast-mode-line " ") global-mode-string))
))
(dolist (input '(self-insert-command
org-self-insert-command))
(add-to-list 'keycast-substitute-alist `(,input "." "Typing…")))
(dolist (event '(mouse-event-p
mouse-movement-p
mwheel-scroll))
(add-to-list 'keycast-substitute-alist `(,event nil)))
(setq keycast-log-format "%-20K%C\n")
(setq keycast-log-frame-alist
'((minibuffer . nil)))
(setq keycast-log-newest-first t)
)(provide 'init-ui)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-ui.el ends here;;; init-base.el --- Basical settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
no-littering 插件将原本放在 .emacs.d 目录下的一些配置信息或动态信息，转移到 etc 或 var 子目录里，让配置目录更加简洁清爽。
(use-package no-littering
:ensure t)记住迷你缓冲区历史。
(use-package savehist
:ensure nil
:hook (after-init . savehist-mode)
:config
;; Allow commands in minibuffers, will affect `dired-do-dired-do-find-regexp-and-replace' command:
(setq enable-recursive-minibuffers t)
(setq history-length 1000)
(setq savehist-additional-variables '(mark-ring
global-mark-ring
search-ring
regexp-search-ring
extended-command-history))
(setq savehist-autosave-interval 300))自动记住每个文件的最后一次访问的光标位置。
(use-package saveplace
:ensure nil
:hook (after-init . save-place-mode))记住最近打开的文件历史。
(use-package recentf
:ensure nil
:defines no-littering-etc-directory no-littering-var-directory
:hook (after-init . recentf-mode)
:custom
(recentf-max-saved-items 300)
(recentf-auto-cleanup 'never)
;; `recentf-add-file' will apply handlers first, then call `string-prefix-p'
;; to check if it can be pushed to recentf list.
(recentf-filename-handlers '(abbreviate-file-name))
(recentf-exclude `(,@(cl-loop for f in `(,package-user-dir
,no-littering-var-directory
,no-littering-etc-directory)
collect (abbreviate-file-name f))
;; Folders on MacOS start
"^/private/tmp/"
"^/var/folders/"
;; Folders on MacOS end
".cache"
".cask"
".elfeed"
"elfeed"
"bookmarks"
"cache"
"ido.*"
"persp-confs"
"recentf"
"undo-tree-hist"
"url"
"^/tmp/"
"/ssh\\(x\\)?:"
"/su\\(do\\)?:"
"^/usr/include/"
"/TAGS\\'"
"COMMIT_EDITMSG\\'")))undo-tree 插件可以提供一个可视化的撤销、重做系统，我们使用 C-/ 来撤销，使用 M-_ 来重做。
(use-package undo-tree
:ensure t
:hook (after-init . global-undo-tree-mode)
:config
;; don't save undo history to local files
(setq undo-tree-auto-save-history nil)
)super-save 插件能自动保存缓冲区。它可以设置在某些行为（如窗口切换、或窗口空闲一段时间）下自动保存。
(use-package super-save
:ensure t
:hook (after-init . super-save-mode)
:config
;; Emacs空闲是否自动保存，这里不设置
(setq super-save-auto-save-when-idle nil)
;; 切换窗口自动保存
(add-to-list 'super-save-triggers 'other-window)
;; 查找文件时自动保存
(add-to-list 'super-save-hook-triggers 'find-file-hook)
;; 远程文件编辑不自动保存
(setq super-save-remote-files nil)
;; 特定后缀名的文件不自动保存
(setq super-save-exclude '(".gpg"))
;; 自动保存时，保存所有缓冲区
(defun super-save/save-all-buffers ()
(save-excursion
(dolist (buf (buffer-list))
(set-buffer buf)
(when (and buffer-file-name
(buffer-modified-p (current-buffer))
(file-writable-p buffer-file-name)
(if (file-remote-p buffer-file-name) super-save-remote-files t))
(save-buffer)))))
(advice-add 'super-save-command :override 'super-save/save-all-buffers)
)crux 插件提供一系列的增强，如移动增强、删除增强等优化功能。
(use-package crux
:ensure t
:bind (("C-a" . crux-move-beginning-of-line)
("C-x 4 t" . crux-transpose-windows)
("C-x K" . crux-kill-other-buffers)
("C-k" . crux-smart-kill-line)
("C-c r" . crux-rename-file-and-buffer)
("C-x DEL" . crux-kill-line-backwards))
:config
(crux-with-region-or-buffer indent-region)
(crux-with-region-or-buffer untabify)
(crux-with-region-or-point-to-eol kill-ring-save)
(defalias 'rename-file-and-buffer #'crux-rename-file-and-buffer))以下是一些个人的函数定义，配置文件的其他部分会用到这些函数。
;; 将列表加入到列表
(defun add-list-to-list (dst src)
"Similar to `add-to-list', but accepts a list as 2nd argument"
(set dst
(append (eval dst) src)))(provide 'init-base)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-base.el ends here;;; init-edit.el --- Editing settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
不使用Emacs的自动备份设置。
(setq make-backup-files nil) ; 不自动备份
(setq auto-save-default nil) ; 不使用Emacs自带的自动保存将一些不常用的快捷键解除，防止误操作。
;; 解除不常用的快捷键定义
(global-set-key (kbd "C-z") nil)
(global-set-key (kbd "s-q") nil)
(global-set-key (kbd "M-z") nil)
(global-set-key (kbd "M-m") nil)
(global-set-key (kbd "C-x C-z") nil)
(global-set-key [mouse-2] nil)Emacs默认选择文本后直接输入，是不会直接删除所选择的文本进行替换的。通过内置的 delsel 插件来实现这个行为。
;; Directly modify when selecting text
(use-package delsel
:ensure nil
:hook (after-init . delete-selection-mode))当我们的文件发生了改变后，我们希望Emacs里打开的永远是最新的文件，这个时候，我们需要对自动重载进行设置，让我们的Emacs在文件发生改变的时候自动重载文件。
(use-package autorevert
:ensure nil
:hook (after-init . global-auto-revert-mode)
:bind ("s-u" . revert-buffer)
:custom
(auto-revert-interval 10)
(auto-revert-avoid-polling t)
(auto-revert-verbose nil)
(auto-revert-remote-files t)
(auto-revert-check-vc-info t)
(global-auto-revert-non-file-buffers t))avy 是一个光标移动插件，能快速将光标移动到屏幕上的任意字符，非常强大！
(use-package avy
:ensure t
:bind (("C-." . my/avy-goto-char-timer)
("C-。" . my/avy-goto-char-timer)
:map isearch-mode-map
("C-." . avy-isearch))
:config
;; Make `avy-goto-char-timer' support pinyin, refer to:
;; https://emacs-china.org/t/avy-avy-goto-char-timer/20900/2
(defun my/avy-goto-char-timer (&optional arg)
"Make avy-goto-char-timer support pinyin"
(interactive "P")
(let ((avy-all-windows (if arg
(not avy-all-windows)
avy-all-windows)))
(avy-with avy-goto-char-timer
(setq avy--old-cands (avy--read-candidates
'pinyinlib-build-regexp-string))
(avy-process avy--old-cands))))
(defun avy-action-kill-whole-line (pt)
"avy action: kill the whole line where avy selection is"
(save-excursion
(goto-char pt)
(kill-whole-line))
(select-window
(cdr
(ring-ref avy-ring 0)))
t)
(defun avy-action-copy-whole-line (pt)
"avy action: copy the whole line where avy selection is"
(save-excursion
(goto-char pt)
(cl-destructuring-bind (start . end)
(bounds-of-thing-at-point 'line)
(copy-region-as-kill start end)))
(select-window
(cdr
(ring-ref avy-ring 0)))
t)
(defun avy-action-yank-whole-line (pt)
"avy action: copy the line where avy selection is and paste to current point"
(avy-action-copy-whole-line pt)
(save-excursion (yank))
t)
(defun avy-action-teleport-whole-line (pt)
"avy action: kill the line where avy selection is and paste to current point"
(avy-action-kill-whole-line pt)
(save-excursion (yank)) t)
(defun avy-action-helpful (pt)
"avy action: get helpful information at point"
(save-excursion
(goto-char pt)
(helpful-at-point))
;; (select-window
;; (cdr (ring-ref avy-ring 0)))
t)
(defun avy-action-mark-to-char (pt)
"avy action: mark from current point to avy selection"
(activate-mark)
(goto-char pt))
(defun avy-action-flyspell (pt)
"avy action: flyspell the word where avy selection is"
(save-excursion
(goto-char pt)
(when (require 'flyspell nil t)
(flyspell-correct-wrapper))))
(defun avy-action-define (pt)
"avy action: define the word in dictionary where avy selection is"
(save-excursion
(goto-char pt)
(fanyi-dwim2)))
(defun avy-action-embark (pt)
"avy action: embark where avy selection is"
(unwind-protect
(save-excursion
(goto-char pt)
(embark-act))
(select-window
(cdr (ring-ref avy-ring 0))))
t)
(defun avy-action-google (pt)
"avy action: google the avy selection when it is a word or browse it when it is a link"
(save-excursion
(goto-char pt)
(my/search-or-browse)))
(setf (alist-get ?k avy-dispatch-alist) 'avy-action-kill-stay
(alist-get ?K avy-dispatch-alist) 'avy-action-kill-whole-line
(alist-get ?w avy-dispatch-alist) 'avy-action-copy
(alist-get ?W avy-dispatch-alist) 'avy-action-copy-whole-line
(alist-get ?y avy-dispatch-alist) 'avy-action-yank
(alist-get ?Y avy-dispatch-alist) 'avy-action-yank-whole-line
(alist-get ?t avy-dispatch-alist) 'avy-action-teleport
(alist-get ?T avy-dispatch-alist) 'avy-action-teleport-whole-line
(alist-get ?H avy-dispatch-alist) 'avy-action-helpful
(alist-get ? avy-dispatch-alist) 'avy-action-mark-to-char
(alist-get ?\; avy-dispatch-alist) 'avy-action-flyspell
(alist-get ?= avy-dispatch-alist) 'avy-action-define
(alist-get ?o avy-dispatch-alist) 'avy-action-embark
(alist-get ?G avy-dispatch-alist) 'avy-action-google
)
:custom
;; (avy-case-fold-search t) ; default is t
(avy-timeout-seconds 1.0)
(avy-all-windows t)
(avy-background t)
(avy-keys '(?a ?s ?d ?f ?g ?h ?j ?l ?q ?e ?r ?u ?i ?p ?n))
)multiple-cursors 插件能让Emacs实现多光标编辑和移动。
(use-package multiple-cursors
:ensure t
:bind-keymap ("C-c o" . multiple-cursors-map)
:bind (("C-`" . mc/mark-next-like-this)
("C-\\" . mc/unmark-next-like-this)
:map multiple-cursors-map
("SPC" . mc/edit-lines)
(">" . mc/mark-next-like-this)
("<" . mc/mark-previous-like-this)
("a" . mc/mark-all-like-this)
("n" . mc/mark-next-like-this-word)
("p" . mc/mark-previous-like-this-word)
("r" . set-rectangular-region-anchor)
)
:config
(defvar multiple-cursors-map nil "keymap for `multiple-cursors")
(setq multiple-cursors-map (make-sparse-keymap))
(setq mc/list-file (concat user-emacs-directory "/etc/mc-lists.el"))
(setq mc/always-run-for-all t)
);; (message "init-base configuration: %.2fs"
;; (float-time (time-subtract (current-time) my/init-base-start-time)))
(provide 'init-edit)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-edit.el ends here;;; init-org.el --- Org mode settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
对Org mode基本配置进行修改。
(use-package org
:ensure nil
:mode ("\\.org\\'" . org-mode)
:hook ((org-mode . visual-line-mode)
(org-mode . my/org-prettify-symbols))
:commands (org-find-exact-headline-in-buffer org-set-tags)
:custom-face
;; 设置Org mode标题以及每级标题行的大小
(org-document-title ((t (:height 1.75 :weight bold))))
(org-level-1 ((t (:height 1.2 :weight bold))))
(org-level-2 ((t (:height 1.15 :weight bold))))
(org-level-3 ((t (:height 1.1 :weight bold))))
(org-level-4 ((t (:height 1.05 :weight bold))))
(org-level-5 ((t (:height 1.0 :weight bold))))
(org-level-6 ((t (:height 1.0 :weight bold))))
(org-level-7 ((t (:height 1.0 :weight bold))))
(org-level-8 ((t (:height 1.0 :weight bold))))
(org-level-9 ((t (:height 1.0 :weight bold))))
;; 设置代码块用上下边线包裹
(org-block-begin-line ((t (:underline t :background unspecified))))
(org-block-end-line ((t (:overline t :underline nil :background unspecified))))
:config
;; ================================
;; 在org mode里美化字符串
;; ================================
(defun my/org-prettify-symbols ()
(setq prettify-symbols-alist
(mapcan (lambda (x) (list x (cons (upcase (car x)) (cdr x))))
'(
;; ("[ ]" . 9744) ; ☐
;; ("[X]" . 9745) ; ☑
;; ("[-]" . 8863) ; ⊟
("#+begin_src" . 9998) ; ✎
("#+end_src" . 9633) ; □
("#+begin_example" . 129083) ; 🠻
("#+end_example" . 129081) ; 🠹
("#+results:" . 9776) ; ☰
("#+attr_latex:" . "🄛")
("#+attr_html:" . "🄗")
("#+attr_org:" . "🄞")
("#+name:" . "🄝") ; 127261
("#+caption:" . "🄒") ; 127250
("#+date:" . "📅") ; 128197
("#+author:" . "💁") ; 128100
("#+setupfile:" . 128221) ; 📝
("#+email:" . 128231) ; 📧
("#+startup:" . 10034) ; ✲
("#+options:" . 9965) ; ⛭
("#+title:" . 10162) ; ➲
("#+subtitle:" . 11146) ; ⮊
("#+downloaded:" . 8650) ; ⇊
("#+language:" . 128441) ; 🖹
("#+begin_quote" . 187) ; »
("#+end_quote" . 171) ; «
("#+begin_results" . 8943) ; ⋯
("#+end_results" . 8943) ; ⋯
)))
(setq prettify-symbols-unprettify-at-point t)
(prettify-symbols-mode 1))
;; 提升latex预览的图片清晰度
(plist-put org-format-latex-options :scale 1.8)
;; 设置标题行之间总是有空格；列表之间根据情况自动加空格
(setq org-blank-before-new-entry '((heading . t)
(plain-list-item . auto)
))
;; ======================================
;; 设置打开Org links的程序
;; ======================================
(defun my-func/open-and-play-gif-image (file &optional link)
"Open and play GIF image `FILE' in Emacs buffer.
Optional for Org-mode file: `LINK'."
(let ((gif-image (create-image file))
(tmp-buf (get-buffer-create "*Org-mode GIF image animation*")))
(switch-to-buffer tmp-buf)
(erase-buffer)
(insert-image gif-image)
(image-animate gif-image nil t)
(local-set-key (kbd "q") 'bury-buffer)
))
(setq org-file-apps '(("\\.png\\'" . default)
(auto-mode . emacs)
(directory . emacs)
("\\.mm\\'" . default)
("\\.x?html?\\'" . default)
("\\.pdf\\'" . emacs)
("\\.md\\'" . emacs)
("\\.gif\\'" . my-func/open-and-play-gif-image)
("\\.xlsx\\'" . default)
("\\.svg\\'" . default)
("\\.pptx\\'" . default)
("\\.docx\\'" . default)))
:custom
;; 设置Org mode的目录
(org-directory "~/org")
;; 设置笔记的默认存储位置
(org-default-notes-file (expand-file-name "capture.org" org-directory))
;; 启用一些子模块
(org-modules '(ol-bibtex ol-gnus ol-info ol-eww org-habit org-protocol))
;; 在按M-RET时，是否根据光标所在的位置分行，这里设置为是
;; (org-M-RET-may-split-line '((default . nil)))
;; 一些Org mode自带的美化设置
;; 标题行美化
(org-fontify-whole-heading-line t)
;; 设置标题行折叠符号
(org-ellipsis " ▾")
;; 在活动区域内的所有标题栏执行某些命令
(org-loop-over-headlines-in-active-region t)
;; TODO标签美化
(org-fontify-todo-headline t)
;; DONE标签美化
(org-fontify-done-headline t)
;; 引用块美化
(org-fontify-quote-and-verse-blocks t)
;; 隐藏宏标记
(org-hide-macro-markers t)
;; 隐藏强调标签
(org-hide-emphasis-markers t)
;; 高亮latex语法
(org-highlight-latex-and-related '(native script entities))
;; 以UTF-8显示
(org-pretty-entities t)
;; 是否隐藏标题栏的前置星号，这里我们通过org-modern来隐藏
;; (org-hide-leading-stars t)
;; 当启用缩进模式时自动隐藏前置星号
(org-indent-mode-turns-on-hiding-stars t)
;; 自动启用缩进
(org-startup-indented nil)
;; 根据标题栏自动缩进文本
(org-adapt-indentation nil)
;; 自动显示图片
(org-startup-with-inline-images t)
;; 默认以Overview的模式展示标题行
(org-startup-folded 'overview)
;; 允许字母列表
(org-list-allow-alphabetical t)
;; 列表的下一级设置
(org-list-demote-modify-bullet '(
("-" . "+")
("+" . "1.")
("1." . "a.")
))
;; 编辑时检查是否在折叠的不可见区域
(org-fold-catch-invisible-edits 'smart)
;; 在当前位置插入新标题行还是在当前标题行后插入，这里设置为当前位置
(org-insert-heading-respect-content nil)
;; 设置图片的最大宽度，如果有imagemagick支持将会改变图片实际宽度
;; 四种设置方法：(1080), 1080, t, nil
(org-image-actual-width nil)
;; imenu的最大深度，默认为2
(org-imenu-depth 4)
;; 回车要不要触发链接，这里设置不触发
(org-return-follows-link nil)
;; 上标^下标_是否需要特殊字符包裹，这里设置需要用大括号包裹
(org-use-sub-superscripts '{})
;; 复制粘贴标题行的时候删除id
(org-clone-delete-id t)
;; 粘贴时调整标题行的级别
(org-yank-adjusted-subtrees t)
;; TOOD的关键词设置，可以设置不同的组
(org-todo-keywords '((sequence "TODO(t)" "HOLD(h!)" "WIP(i!)" "WAIT(w!)" "|" "DONE(d!)" "CANCELLED(c@/!)")
(sequence "REPORT(r)" "BUG(b)" "KNOWNCAUSE(k)" "|" "FIXED(f!)")))
;; TODO关键词的样式设置
(org-todo-keyword-faces '(("TODO" :foreground "#7c7c75" :weight bold)
("HOLD" :foreground "#feb24c" :weight bold)
("WIP" :foreground "#0098dd" :weight bold)
("WAIT" :foreground "#9f7efe" :weight bold)
("DONE" :foreground "#50a14f" :weight bold)
("CANCELLED" :foreground "#ff6480" :weight bold)
("REPORT" :foreground "magenta" :weight bold)
("BUG" :foreground "red" :weight bold)
("KNOWNCAUSE" :foreground "yellow" :weight bold)
("FIXED" :foreground "green" :weight bold)))
;; 当标题行状态变化时标签同步发生的变化
;; Moving a task to CANCELLED adds a CANCELLED tag
;; Moving a task to WAIT adds a WAIT tag
;; Moving a task to HOLD adds WAIT and HOLD tags
;; Moving a task to a done state removes WAIT and HOLD tags
;; Moving a task to TODO removes WAIT, CANCELLED, and HOLD tags
;; Moving a task to DONE removes WAIT, CANCELLED, and HOLD tags
(org-todo-state-tags-triggers
(quote (("CANCELLED" ("CANCELLED" . t))
("WAIT" ("WAIT" . t))
("HOLD" ("WAIT") ("HOLD" . t))
(done ("WAIT") ("HOLD"))
("TODO" ("WAIT") ("CANCELLED") ("HOLD"))
("DONE" ("WAIT") ("CANCELLED") ("HOLD")))))
;; 使用专家模式选择标题栏状态
(org-use-fast-todo-selection 'expert)
;; 父子标题栏状态有依赖
(org-enforce-todo-dependencies t)
;; 标题栏和任务复选框有依赖
(org-enforce-todo-checkbox-dependencies t)
;; 优先级样式设置
(org-priority-faces '((?A :foreground "red")
(?B :foreground "orange")
(?C :foreground "yellow")))
;; 标题行全局属性设置
(org-global-properties '(("EFFORT_ALL" . "0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00 7:00 8:00")
("APPT_WARNTIME_ALL" . "0 5 10 15 20 25 30 45 60")
("RISK_ALL" . "Low Medium High")
("STYLE_ALL" . "habit")))
;; Org columns的默认格式
(org-columns-default-format "%25ITEM %TODO %SCHEDULED %DEADLINE %3PRIORITY %TAGS %CLOCKSUM %EFFORT{:}")
;; 当状态从DONE改成其他状态时，移除 CLOSED: [timestamp]
(org-closed-keep-when-no-todo t)
;; DONE时加上时间戳
(org-log-done 'time)
;; 重复执行时加上时间戳
(org-log-repeat 'time)
;; Deadline修改时加上一条记录
(org-log-redeadline 'note)
;; Schedule修改时加上一条记录
(org-log-reschedule 'note)
;; 以抽屉的方式记录
(org-log-into-drawer t)
;; 紧接着标题行或者计划/截止时间戳后加上记录抽屉
(org-log-state-notes-insert-after-drawers nil)
;; refile使用缓存
(org-refile-use-cache t)
;; refile的目的地，这里设置的是agenda文件的所有标题
(org-refile-targets '((org-agenda-files . (:maxlevel . 9))))
;; 将文件名加入到路径
(org-refile-use-outline-path 'file)
;; 是否按步骤refile
(org-outline-path-complete-in-steps nil)
;; 允许创建新的标题行，但需要确认
(org-refile-allow-creating-parent-nodes 'confirm)
;; 设置标签的默认位置，默认是第77列右对齐
;; (org-tags-column -77)
;; 自动对齐标签
(org-auto-align-tags t)
;; 标签不继承
(org-use-tag-inheritance nil)
;; 在日程视图的标签不继承
(org-agenda-use-tag-inheritance nil)
;; 标签快速选择
(org-use-fast-tag-selection t)
;; 标签选择不需要回车确认
(org-fast-tag-selection-single-key t)
;; 定义了有序属性的标题行也加上 OREDERD 标签
(org-track-ordered-property-with-tag t)
;; 始终存在的的标签
(org-tag-persistent-alist '(("read" . ?r)
("mail" . ?m)
("emacs" . ?e)
("study" . ?s)
("work" . ?w)))
;; 预定义好的标签
(org-tag-alist '((:startgroup)
("crypt" . ?c)
("linux" . ?l)
("apple" . ?a)
("noexport" . ?n)
("ignore" . ?i)
("TOC" . ?t)
(:endgroup)))
;; 归档设置
(org-archive-location "%s_archive::datetree/")
)
;; Org mode的附加包，有诸多附加功能
(use-package org-contrib
:ensure t)下面，我们通过 org-modern 插件对Org mode进行进一步的美化。
(use-package org-modern
:ensure t
:hook (after-init . (lambda ()
(setq org-modern-hide-stars 'leading)
(global-org-modern-mode t)))
:config
;; 标题行型号字符
(setq org-modern-star ["◉" "○" "✸" "✳" "◈" "◇" "✿" "❀" "✜"])
;; 额外的行间距，0.1表示10%，1表示1px
(setq-default line-spacing 0.1)
;; tag边框宽度，还可以设置为 `auto' 即自动计算
(setq org-modern-label-border 1)
;; 设置表格竖线宽度，默认为3
(setq org-modern-table-vertical 2)
;; 设置表格横线为0，默认为0.1
(setq org-modern-table-horizontal 0)
;; 复选框美化
(setq org-modern-checkbox
'((?X . #("▢✓" 0 2 (composition ((2)))))
(?- . #("▢–" 0 2 (composition ((2)))))
(?\s . #("▢" 0 1 (composition ((1)))))))
;; 列表符号美化
(setq org-modern-list
'((?- . "•")
(?+ . "◦")
(?* . "▹")))
;; 代码块左边加上一条竖边线（需要Org mode顶头，如果启用了 `visual-fill-column-mode' 会很难看）
(setq org-modern-block-fringe t)
;; 代码块类型美化，我们使用了 `prettify-symbols-mode'
(setq org-modern-block-name nil)
;; #+关键字美化，我们使用了 `prettify-symbols-mode'
(setq org-modern-keyword nil)
)通过 org-appear 插件，当我们的光标移动到Org mode里的强调、链接上时，会自动展开，这样方便进行编辑。
(use-package org-appear
:ensure t
:hook (org-mode . org-appear-mode)
:config
(setq org-appear-autolinks t)
(setq org-appear-autosubmarkers t)
(setq org-appear-autoentities t)
(setq org-appear-autokeywords t)
(setq org-appear-inside-latex t)
)org-auto-tangle 插件可以在Org mode下自动进行tangle。
(use-package org-auto-tangle
:ensure t
:hook (org-mode . org-auto-tangle-mode)
:config
(setq org-auto-tangle-default t)
)(use-package org-capture
:ensure nil
:bind ("\e\e c" . (lambda () (interactive) (org-capture)))
:hook ((org-capture-mode . (lambda ()
(setq-local org-complete-tags-always-offer-all-agenda-tags t)))
(org-capture-mode . delete-other-windows))
:custom
(org-capture-use-agenda-date nil)
;; define common template
(org-capture-templates `(("t" "Tasks" entry (file+headline "tasks.org" "Reminders")
"* TODO %i%?"
:empty-lines-after 1
:prepend t)
("n" "Notes" entry (file+headline "capture.org" "Notes")
"* %? %^g\n%i\n"
:empty-lines-after 1)
;; For EWW
("b" "Bookmarks" entry (file+headline "capture.org" "Bookmarks")
"* %:description\n\n%a%?"
:empty-lines 1
:immediate-finish t)
("d" "Diary")
("dt" "Today's TODO list" entry (file+olp+datetree "diary.org")
"* Today's TODO list [/]\n%T\n\n** TODO %?"
:empty-lines 1
:jump-to-captured t)
("do" "Other stuff" entry (file+olp+datetree "diary.org")
"* %?\n%T\n\n%i"
:empty-lines 1
:jump-to-captured t)
))
)denote 是一个轻量级的笔记插件，拥有良好的文件名命名模板。
(use-package denote
:ensure t
:hook (dired-mode . denote-dired-mode-in-directories)
:bind (("C-c d n" . denote)
("C-c d d" . denote-date)
("C-c d t" . denote-type)
("C-c d s" . denote-subdirectory)
("C-c d f" . denote-open-or-create)
("C-c d r" . denote-dired-rename-file))
:init
(with-eval-after-load 'org-capture
(setq denote-org-capture-specifiers "%l\n%i\n%?")
(add-to-list 'org-capture-templates
'("N" "New note (with denote.el)" plain
(file denote-last-path)
#'denote-org-capture
:no-save t
:immediate-finish nil
:kill-buffer t
:jump-to-captured t)))
:config
(setq denote-directory (expand-file-name "~/org/"))
(setq denote-known-keywords '("emacs" "entertainment" "reading" "studying"))
(setq denote-infer-keywords t)
(setq denote-sort-keywords t)
;; org is default, set others such as text, markdown-yaml, markdown-toml
(setq denote-file-type nil)
(setq denote-prompts '(title keywords))
;; We allow multi-word keywords by default. The author's personal
;; preference is for single-word keywords for a more rigid workflow.
(setq denote-allow-multi-word-keywords t)
(setq denote-date-format nil)
;; If you use Markdown or plain text files (Org renders links as buttons
;; right away)
(add-hook 'find-file-hook #'denote-link-buttonize-buffer)
(setq denote-dired-rename-expert nil)
;; OR if only want it in `denote-dired-directories':
(add-hook 'dired-mode-hook #'denote-dired-mode-in-directories)
)consult-notes 插件可以通过consult快速找到笔记。
(use-package consult-notes
:ensure t
:commands (consult-notes
consult-notes-search-in-all-notes)
:bind (("C-c n f" . consult-notes)
("C-c n c" . consult-notes-search-in-all-notes))
:config
(setq consult-notes-file-dir-sources
`(
("work" ?w ,(concat org-directory "/midea/"))
("article" ?a ,(concat org-directory "/article/"))
("org" ?o ,(concat org-directory "/"))
("hugo" ?h ,(concat org-directory "/hugo/"))
("books" ?b ,(concat (getenv "HOME") "/Books/"))
))
;; embark support
(with-eval-after-load 'embark
(defun consult-notes-open-dired (cand)
"Open notes directory dired with point on file CAND."
(interactive "fNote: ")
;; dired-jump is in dired-x.el but is moved to dired in Emacs 28
(dired-jump nil cand))
(defun consult-notes-marked (cand)
"Open a notes file CAND in Marked 2.
Marked 2 is a mac app that renders markdown."
(interactive "fNote: ")
(call-process-shell-command (format "open -a \"Marked 2\" \"%s\"" (expand-file-name cand))))
(defun consult-notes-grep (cand)
"Run grep in directory of notes file CAND."
(interactive "fNote: ")
(consult-grep (file-name-directory cand)))
(embark-define-keymap consult-notes-map
"Keymap for Embark notes actions."
:parent embark-file-map
("d" consult-notes-dired)
("g" consult-notes-grep)
("m" consult-notes-marked))
(add-to-list 'embark-keymap-alist `(,consult-notes-category . consult-notes-map))
;; make embark-export use dired for notes
(setf (alist-get consult-notes-category embark-exporters-alist) #'embark-export-dired)
)
)org-super-links 插件可以设置反向链接。
(use-package org-super-links
:quelpa (org-super-links :fetcher github :repo "toshism/org-super-links")
:bind (("C-c s s" . org-super-links-link)
("C-c s l" . org-super-links-store-link)
("C-c s C-l" . org-super-links-insert-link)
("C-c s d" . org-super-links-quick-insert-drawer-link)
("C-c s i" . org-super-links-quick-insert-inline-link)
("C-c s C-d" . org-super-links-delete-link))
:config
(setq org-super-links-related-into-drawer t)
(setq org-super-links-link-prefix 'org-super-links-link-prefix-timestamp))Org mode代码块的基本配置。
(use-package org-src
:ensure nil
:hook (org-babel-after-execute . org-redisplay-inline-images)
:bind (("s-l" . show-line-number-in-src-block)
:map org-src-mode-map
("C-c C-c" . org-edit-src-exit))
:init
;; 设置代码块的默认头参数
(setq org-babel-default-header-args
'(
(:eval . "never-export") ; 导出时不执行代码块
(:session . "none")
(:results . "replace") ; 执行结果替换
(:exports . "both") ; 导出代码和结果
(:cache . "no")
(:noweb . "no")
(:hlines . "no")
(:wrap . "results") ; 结果通过#+begin_results包裹
(:tangle . "no") ; 不写入文件
))
:config
;; ==================================
;; 如果出现代码运行结果为乱码，可以参考：
;; https://github.com/nnicandro/emacs-jupyter/issues/366
;; ==================================
(defun display-ansi-colors ()
(ansi-color-apply-on-region (point-min) (point-max)))
(add-hook 'org-babel-after-execute-hook #'display-ansi-colors)
;; ==============================================
;; 通过overlay在代码块里显示行号，s-l显示，任意键关闭
;; ==============================================
(defvar number-line-overlays '()
"List of overlays for line numbers.")
(defun show-line-number-in-src-block ()
(interactive)
(save-excursion
(let* ((src-block (org-element-context))
(nlines (- (length
(s-split
"\n"
(org-element-property :value src-block)))
1)))
(goto-char (org-element-property :begin src-block))
(re-search-forward (regexp-quote (org-element-property :value src-block)))
(goto-char (match-beginning 0))
(cl-loop for i from 1 to nlines
do
(beginning-of-line)
(let (ov)
(setq ov (make-overlay (point) (point)))
(overlay-put ov 'before-string (format "%3s | " (number-to-string i)))
(add-to-list 'number-line-overlays ov))
(next-line))))
;; now read a char to clear them
(read-key "Press a key to clear numbers.")
(mapc 'delete-overlay number-line-overlays)
(setq number-line-overlays '()))
;; =================================================
;; 执行结果后，如果结果所在的文件夹不存在将自动创建
;; =================================================
(defun check-directory-exists-before-src-execution (orig-fun
&optional arg
info
params)
(when (and (assq ':file (cadr (cdr (org-babel-get-src-block-info))))
(member (car (org-babel-get-src-block-info)) '("mermaid" "ditaa" "dot" "lilypond" "plantuml" "gnuplot" "d2")))
(let ((foldername (file-name-directory (alist-get :file (nth 2 (org-babel-get-src-block-info))))))
(if (not (file-exists-p foldername))
(mkdir foldername)))))
(advice-add 'org-babel-execute-src-block :before #'check-directory-exists-before-src-execution)
;; =================================================
;; 自动给结果的图片加上相关属性
;; =================================================
(setq original-image-width-before-del "400") ; 设置图片的默认宽度为400
(setq original-caption-before-del "") ; 设置默认的图示文本为空
(defun insert-attr-decls ()
"insert string before babel execution results"
(insert (concat "\n#+CAPTION:"
original-caption-before-del
"\n#+ATTR_ORG: :width "
original-image-width-before-del
"\n#+ATTR_LATEX: :width "
(if (>= (/ (string-to-number original-image-width-before-del) 800.0) 1)
"1.0"
(number-to-string (/ (string-to-number original-image-width-before-del) 800.0)))
"\\linewidth :float nil"
"\n#+ATTR_HTML: :width "
original-image-width-before-del
)))
(defun insert-attr-decls-at (s)
"insert string right after specific string"
(let ((case-fold-search t))
(if (search-forward s nil t)
(progn
;; (search-backward s nil t)
(insert-attr-decls)))))
(defun insert-attr-decls-at-results (orig-fun
&optional arg
info
param)
"insert extra image attributes after babel execution"
(interactive)
(progn
(when (member (car (org-babel-get-src-block-info)) '("mermaid" "ditaa" "dot" "lilypond" "plantuml" "gnuplot" "d2"))
(setq original-image-width-before-del (number-to-string (if-let* ((babel-width (alist-get :width (nth 2 (org-babel-get-src-block-info))))) babel-width (string-to-number original-image-width-before-del))))
(save-excursion
;; `#+begin_results' for :wrap results, `#+RESULTS:' for non :wrap results
(insert-attr-decls-at "#+begin_results")))
(org-redisplay-inline-images)))
(advice-add 'org-babel-execute-src-block :after #'insert-attr-decls-at-results)
;; 再次执行时需要将旧的图片相关参数行删除，并从中头参数中获得宽度参数，参考
;; https://emacs.stackexchange.com/questions/57710/how-to-set-image-size-in-result-of-src-block-in-org-mode
(defun get-attributes-from-src-block-result (&rest args)
"get information via last babel execution"
(let ((location (org-babel-where-is-src-block-result))
;; 主要获取的是图示文字和宽度信息，下面这个正则就是为了捕获这两个信息
(attr-regexp "[:blank:]*#\\+\\(ATTR_ORG: :width \\([0-9]\\{3\\}\\)\\|CAPTION:\\(.*\\)\\)"))
(setq original-caption-before-del "") ; 重置为空
(when location
(save-excursion
(goto-char location)
(when (looking-at (concat org-babel-result-regexp ".*$"))
(next-line 2) ; 因为有个begin_result的抽屉，所以往下2行
;; 通过正则表达式来捕获需要的信息
(while (looking-at attr-regexp)
(when (match-string 2)
(setq original-image-width-before-del (match-string 2)))
(when (match-string 3)
(setq original-caption-before-del (match-string 3)))
(next-line) ; 因为设置了:wrap，所以这里不需要删除这一行
)
)))))
(advice-add 'org-babel-execute-src-block :before #'get-attributes-from-src-block-result)
:custom
;; 代码块语法高亮
(org-src-fontify-natively t)
;; 使用编程语言的TAB绑定设置
(org-src-tab-acts-natively t)
;; 保留代码块前面的空格
(org-src-preserve-indentation t)
;; 代码块编辑窗口的打开方式：当前窗口+代码块编辑窗口
(org-src-window-setup 'reorganize-frame)
;; 执行前是否需要确认
(org-confirm-babel-evaluate nil)
;; 代码块默认前置多少空格
(org-edit-src-content-indentation 0)
;; 代码块的语言模式设置，设置之后才能正确语法高亮
(org-src-lang-modes '(("C" . c)
("C++" . c++)
("bash" . sh)
("cpp" . c++)
("elisp" . emacs-lisp)
("python" . python)
("shell" . sh)
("mysql" . sql)
))
;; 在这个阶段，只需要加载默认支持的语言
(org-babel-load-languages '((python . t)
(awk . t)
(C . t)
(calc . t)
(emacs-lisp . t)
(eshell . t)
(shell . t)
(sql . t)
(css . t)
))
)plantuml 可以让我们在Org mode里通过纯文本画各种图，具体参考：PlantUML integration with Emacs。
需要提前通过 brew install plantuml 安装 plantuml 。
(use-package plantuml-mode
:ensure t
:mode ("\\.plantuml\\'" . plantuml-mode)
:init
;; enable plantuml babel support
(add-to-list 'org-src-lang-modes '("plantuml" . plantuml))
(org-babel-do-load-languages 'org-babel-load-languages
(append org-babel-load-languages
'((plantuml . t))))
:config
(setq org-plantuml-exec-mode 'plantuml)
(setq org-plantuml-executable-path "plantuml")
(setq plantuml-executable-path "plantuml")
(setq plantuml-default-exec-mode 'executable)
;; set default babel header arguments
(setq org-babel-default-header-args:plantuml
'((:exports . "results")
(:results . "file")
))
)gnuplot 插件可以让Emacs通过gnuplot绘图。
(use-package gnuplot
:ensure t
:mode ("\\.gp$" . gnuplot-mode)
:init
(add-to-list 'org-src-lang-modes '("gnuplot" . gnuplot))
(org-babel-do-load-languages 'org-babel-load-languages
(append org-babel-load-languages
'((gnuplot . t))))
:config
;; (add-to-list 'auto-mode-alist '("\\.gp$" . gnuplot-mode))
(setq org-babel-default-header-args:gnuplot
'((:exports . "results")
(:results . "file")))
)通过 lilypond 乐谱画图，需要提前安装 lilypond 和 mactex-no-gui 。
(use-package lilypond-mode
:ensure nil
:mode ("\\.i?ly\\'" . LilyPond-mode)
:init
(add-to-list 'org-src-lang-modes '("lilypond" . lilypond))
;; add support for org babel
(org-babel-do-load-languages 'org-babel-load-languages
(append org-babel-load-languages
'((lilypond . t))))
;; set lilypond binary directory
(setq org-babel-lilypond-ly-command "/usr/local/bin/lilypond -dpreview")
:config
;; ;; trim extra space for generated image
;; (defun my/trim-lilypond-png (orig-fun
;; &optional arg
;; info
;; param)
;; (when (member (car (org-babel-get-src-block-info)) '("lilypond"))
;; (let ((ly-file (alist-get :file (nth 2 (org-babel-get-src-block-info)))))
;; (let ((ly-preview-file (replace-regexp-in-string "\\.png" ".preview.png" ly-file)))
;; (when (file-exists-p ly-preview-file)
;; (shell-command (concat "mv " ly-preview-file " " ly-file)))
;; (org-redisplay-inline-images)))))
;; (advice-add 'org-babel-execute-src-block :after #'my/trim-lilypond-png)
(setq ob-lilypond-header-args
'((:results . "file replace")
(:exports . "results")
))
);; limit the babel result length
(defvar org-babel-result-lines-limit 40)
(defvar org-babel-result-length-limit 6000)
(defun org-babel-insert-result@limit (orig-fn result &rest args)
(if (not (member (car (org-babel-get-src-block-info)) '("jupyter-python"))) ; not for jupyter-python etc.
(if (and result (or org-babel-result-lines-limit org-babel-result-length-limit))
(let (new-result plines plenght limit)
(with-temp-buffer
(insert result)
(setq plines (if org-babel-result-lines-limit
(goto-line org-babel-result-lines-limit)
(point-max)))
(setq plenght (if org-babel-result-length-limit
(min org-babel-result-length-limit (point-max))
(point-max)))
(setq limit (min plines plenght))
(setq new-result (concat (buffer-substring (point-min) limit)
(if (< limit (point-max)) "..."))))
(apply orig-fn new-result args))
(apply orig-fn result args))
(apply orig-fn result args)))
(advice-add 'org-babel-insert-result :around #'org-babel-insert-result@limit)(provide 'init-org)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-org.el ends hereEmacs的补全设置。
;;; init-completion.el --- Completion settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
vertico 插件提供了一个垂直样式的补全系统。
(use-package vertico
:ensure t
:hook (after-init . vertico-mode)
:bind (:map minibuffer-local-map
("M-<DEL>" . my/minibuffer-backward-kill)
:map vertico-map
("M-q" . vertico-quick-insert)) ; use C-g to exit
:config
(defun my/minibuffer-backward-kill (arg)
"When minibuffer is completing a file name delete up to parent
folder, otherwise delete a word"
(interactive "p")
(if minibuffer-completing-file-name
;; Borrowed from https://github.com/raxod502/selectrum/issues/498#issuecomment-803283608
(if (string-match-p "/." (minibuffer-contents))
(zap-up-to-char (- arg) ?/)
(delete-minibuffer-contents))
(backward-kill-word arg)))
;; Do not allow the cursor in the minibuffer prompt
(setq minibuffer-prompt-properties
'(read-only t cursor-intangible t face minibuffer-prompt))
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
(setq vertico-cycle t) ; cycle from last to first
:custom
(vertico-count 15) ; number of candidates to display, default is 10
)oderless 插件提供一种无序的补全新姿势，将一个搜索的范式变成数个以空格分隔的部分，各部分之间没有顺序，你要做的就是根据记忆输入关键词、空格、关键词。
;; support Pinyin first character match for orderless, avy etc.
(use-package pinyinlib
:ensure t)
;; orderless 是一种哲学思想
(use-package orderless
:ensure t
:init
(setq completion-styles '(orderless partial-completion basic))
(setq orderless-component-separator "[ &]") ; & is for company because space will break completion
(setq completion-category-defaults nil)
(setq completion-category-overrides nil)
:config
;; make completion support pinyin, refer to
;; https://emacs-china.org/t/vertico/17913/2
(defun completion--regex-pinyin (str)
(orderless-regexp (pinyinlib-build-regexp-string str)))
(add-to-list 'orderless-matching-styles 'completion--regex-pinyin)
)marginalia 插件给迷你缓冲区的补全候选条目添加一些提示。
;; minibuffer helpful annotations
(use-package marginalia
:ensure t
:hook (after-init . marginalia-mode)
:custom
(marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil)))consult 插件基于Emacs自带的补全机制，提供了一系列的补全命令。
For locate on MacOS:
locateis not enabled in MacOS by default. We need to enable it via: sudo launchctl load -w /System/Library/LaunchDaemons/com.apple.locate.plist- Then we need to wait
locateto build db for the whole file system.- If there is something wrong with updating locate db, we can update it manually via: chomd 755 ~/Library ~/Downloads ~/Documents ~/Desktop sudo /usr/libexec/locate.updatedb
(use-package consult
:ensure t
:after org
:bind (([remap goto-line] . consult-goto-line)
([remap isearch-forward] . consult-line-symbol-at-point) ; my-consult-ripgrep-or-line
([remap switch-to-buffer] . consult-buffer)
([remap switch-to-buffer-other-window] . consult-buffer-other-window)
([remap switch-to-buffer-other-frame] . consult-buffer-other-frame)
([remap yank-pop] . consult-yank-pop)
([remap apropos] . consult-apropos)
([remap bookmark-jump] . consult-bookmark)
([remap goto-line] . consult-goto-line)
([remap imenu] . consult-imenu)
([remap multi-occur] . consult-multi-occur)
([remap recentf-open-files] . consult-recent-file)
("C-x j" . consult-mark)
("C-c g" . consult-ripgrep)
("C-c f" . consult-find)
("\e\ef" . consult-locate) ; need to enable locate first
("C-c n h" . my/consult-find-org-headings)
:map org-mode-map
("C-c C-j" . consult-org-heading)
:map minibuffer-local-map
("C-r" . consult-history)
:map isearch-mode-map
("C-;" . consult-line)
:map prog-mode-map
("C-c C-j" . consult-outline)
)
:hook (completion-list-mode . consult-preview-at-point-mode)
:init
;; Optionally configure the register formatting. This improves the register
;; preview for `consult-register', `consult-register-load',
;; `consult-register-store' and the Emacs built-ins.
(setq register-preview-delay 0
register-preview-function #'consult-register-format)
;; Optionally tweak the register preview window.
;; This adds thin lines, sorting and hides the mode line of the window.
(advice-add #'register-preview :override #'consult-register-window)
;; Use Consult to select xref locations with preview
(setq xref-show-xrefs-function #'consult-xref
xref-show-definitions-function #'consult-xref)
;; MacOS locate doesn't support `--ignore-case --existing' args.
(setq consult-locate-args (pcase system-type
('gnu/linux "locate --ignore-case --existing --regex")
('darwin "mdfind -name")))
:config
(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-recent-file consult--source-project-recent-file consult--source-bookmark
:preview-key (kbd "M-."))
;; Optionally configure the narrowing key.
;; Both < and C-+ work reasonably well.
(setq consult-narrow-key "<") ;; (kbd "C-+")
(autoload 'projectile-project-root "projectile")
(setq consult-project-root-function #'projectile-project-root)
;; search all org file headings under a directory, see:
;; https://emacs-china.org/t/org-files-heading-entry/20830/4
(defun my/consult-find-org-headings (&optional match)
"find headngs in all org files."
(interactive)
(consult-org-heading match (directory-files org-directory t "^[0-9]\\{8\\}.+\\.org$")))
;; Use `consult-ripgrep' instead of `consult-line' in large buffers
(defun consult-line-symbol-at-point ()
"Consult line the synbol where the point is"
(interactive)
(consult-line (thing-at-point 'symbol)))
)corfu 通过弹窗进行补全。
(use-package corfu
:ensure t
:hook (after-init . global-corfu-mode)
:bind
(:map corfu-map
("SPC" . corfu-insert-separator) ; configure space for separator insertion
("M-q" . corfu-quick-complete) ; use C-g to exit
("TAB" . corfu-next)
([tab] . corfu-next)
("S-TAB" . corfu-previous)
([backtab] . corfu-previous))
:config
;; TAB cycle if there are only few candidates
(setq completion-cycle-threshold 0)
(setq tab-always-indent 'complete)
(defun corfu-enable-always-in-minibuffer ()
"Enable Corfu in the minibuffer if Vertico/Mct are not active."
(unless (or (bound-and-true-p mct--active)
(bound-and-true-p vertico--input))
;; (setq-local corfu-auto nil) Enable/disable auto completion
(corfu-mode 1)))
(add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
;; enable corfu in eshell
(add-hook 'eshell-mode-hook
(lambda ()
(setq-local corfu-auto nil)
(corfu-mode)))
;; For Eshell
;; ===========
;; avoid press RET twice in Eshell
(defun corfu-send-shell (&rest _)
"Send completion candidate when inside comint/eshell."
(cond
((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input))
(eshell-send-input))
((and (derived-mode-p 'comint-mode) (fboundp 'comint-send-input))
(comint-send-input))))
(advice-add #'corfu-insert :after #'corfu-send-shell)
:custom
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
)Cape 提供了一系列开箱即用的补全后端，跟corfu联合使用。
(use-package cape
:ensure t
:init
;; Add `completion-at-point-functions', used by `completion-at-point'.
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
(add-to-list 'completion-at-point-functions #'cape-keyword) ; programming language keyword
(add-to-list 'completion-at-point-functions #'cape-ispell)
(add-to-list 'completion-at-point-functions #'cape-dict)
(add-to-list 'completion-at-point-functions #'cape-symbol) ; elisp symbol
(add-to-list 'completion-at-point-functions #'cape-line)
:config
(setq cape-dict-file (expand-file-name "etc/hunspell_dict.txt" user-emacs-directory))
;; for Eshell:
;; ===========
;; Silence the pcomplete capf, no errors or messages!
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
;; Ensure that pcomplete does not write to the buffer
;; and behaves as a pure `completion-at-point-function'.
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)
)yasnippet 插件是一个非常强大的模板补全系统。
;; yasnippet settings
(use-package yasnippet
:ensure t
:diminish yas-minor-mode
:hook ((after-init . yas-reload-all)
((prog-mode LaTeX-mode org-mode) . yas-minor-mode))
:config
;; Suppress warning for yasnippet code.
(require 'warnings)
(add-to-list 'warning-suppress-types '(yasnippet backquote-change))
(setq yas-prompt-functions '(yas-x-prompt yas-dropdown-prompt))
(defun smarter-yas-expand-next-field ()
"Try to `yas-expand' then `yas-next-field' at current cursor position."
(interactive)
(let ((old-point (point))
(old-tick (buffer-chars-modified-tick)))
(yas-expand)
(when (and (eq old-point (point))
(eq old-tick (buffer-chars-modified-tick)))
(ignore-errors (yas-next-field))))))(provide 'init-completion)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-completion.el ends here;;; init-tools.el --- Tools settings -*- lexical-binding: t -*-
;;; Commentary: Useful tools to make Emacs efficient!
;;; Code:
helpful 插件提供了帮助增强。
(use-package helpful
:ensure t
:commands (helpful-callable helpful-variable helpful-command helpful-key helpful-mode)
:bind (([remap describe-command] . helpful-command)
("C-h f" . helpful-callable)
("C-h v" . helpful-variable)
("C-h s" . helpful-symbol)
("C-h S" . describe-syntax)
("C-h m" . describe-mode)
("C-h F" . describe-face)
([remap describe-key] . helpful-key))
)which-key 插件将提示快捷键。
(use-package which-key
:ensure t
:hook (after-init . which-key-mode)
:config
(which-key-add-key-based-replacements
"C-c !" "flycheck"
"C-c @" "hideshow"
"C-c i" "ispell"
"C-c t" "hl-todo"
"C-x a" "abbrev"
"C-x n" "narrow"
"C-x t" "tab")
:custom
(which-key-idle-delay 0.7)
(which-key-add-column-padding 1))(provide 'init-tools)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-tools.el ends here;;; init-dev.el --- Development settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
Emacs自带的vc设置。
(use-package vc
:ensure nil
:custom
;; 打开链接文件时，不进行追问
(vc-follow-symlinks t)
(vc-allow-async-revert t)
(vc-handled-backends '(Git)))magit 是Emacs里的另一个杀手级应用！可以直接在Emacs里进行基于git的版本管理。
(use-package magit
:ensure t
:hook (git-commit-mode . flyspell-mode)
:bind (("C-x g" . magit-status)
("C-x M-g" . magit-dispatch)
("C-c M-g" . magit-file-dispatch))
:custom
(magit-diff-refine-hunk t)
(magit-ediff-dwim-show-on-hunks t))diff-hl 插件可以在左侧高亮显示相对于远程仓库的修改部分。
(use-package diff-hl
:ensure t
:hook ((dired-mode . diff-hl-dired-mode-unless-remote)
(magit-pre-refresh . diff-hl-magit-pre-refresh)
(magit-post-refresh . diff-hl-magit-post-refresh))
:init
(global-diff-hl-mode t)
:config
;; When Emacs runs in terminal, show the indicators in margin instead.
(unless (display-graphic-p)
(diff-hl-margin-mode)))magit-delta 插件可以通过 git-delta 来更优化的方式显示diff内容（需要提前安装 brew install git-delta ）。
(use-package magit-delta
:ensure t
:hook (magit-mode . magit-delta-mode)
:config
(setq magit-delta-hide-plus-minus-markers nil)
)(use-package paren
:ensure nil
:hook (after-init . show-paren-mode)
:custom
(show-paren-when-point-inside-paren t)
(show-paren-when-point-in-periphery t))rainbow-delimiters 插件将多彩显示括号等分隔符。
(use-package rainbow-delimiters
:ensure t
:hook (prog-mode . rainbow-delimiters-mode))(use-package elisp-mode
:ensure nil
:after org
:bind (:map emacs-lisp-mode-map
("C-c C-b" . eval-buffer)
("C-c C-c" . eval-to-comment)
:map lisp-interaction-mode-map
("C-c C-c" . eval-to-comment)
:map org-mode-map
("C-c C-;" . eval-to-comment)
)
:init
;; for emacs-lisp org babel
(add-to-list 'org-babel-default-header-args:emacs-lisp
'(:results . "value pp"))
:config
(defconst eval-as-comment-prefix " ⇒ ")
(defun eval-to-comment (&optional arg)
(interactive "P")
;; (if (not (looking-back ";\\s*"))
;; (call-interactively 'comment-dwim))
(call-interactively 'comment-dwim)
(progn
(search-backward ";")
(forward-char 1))
(delete-region (point) (line-end-position))
(save-excursion
(let ((current-prefix-arg '(4)))
(call-interactively 'eval-last-sexp)))
(insert eval-as-comment-prefix)
(end-of-line 1))
)Python语言的设置。py-autopep8.el 插件可以让我们在编写Python保存文件的时候，自动以 PEP8 标准做格式美化（需要提前 brew install autopep8 ）。
(use-package python
:ensure nil
:mode ("\\.py\\'" . python-mode)
:init
(add-list-to-list 'org-babel-default-header-args:python '((:results . "output pp")
(:noweb . "yes")
(:session . "py")
(:async . "yes")
(:exports . "both")
))
:config
(setq python-indent-offset 4)
;; Disable readline based native completion
(setq python-shell-completion-native-enable nil)
(setq python-indent-guess-indent-offset-verbose nil)
(setq python-shell-interpreter "python3"
python-shell-prompt-detect-failure-warning nil)
;; disable native completion
(add-to-list 'python-shell-completion-native-disabled-interpreters "python3")
;; Env vars
(with-eval-after-load 'exec-path-from-shell
(exec-path-from-shell-copy-env "PYTHONPATH"))
)
;; need to pip install autopep8 first
(use-package py-autopep8
:ensure t
:hook (python-mode . py-autopep8-mode)
)(use-package sh-script
:ensure nil
:mode (("\\.sh\\'" . sh-mode)
("zshrc" . sh-mode)
("zshenv" . sh-mode)
("/PKGBUILD\\'" . sh-mode))
:hook (sh-mode . sh-mode-setup)
:bind (:map sh-mode-map
("C-c C-e" . sh-execute-region))
:init
;; for org babel
(add-list-to-list 'org-babel-default-header-args:shell
'((:results . "output")
(:tangle . "no")))
:config
(defun sh-mode-setup ()
(add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p nil t))
:custom
(sh-basic-offset 2)
(sh-indentation 2))(provide 'init-dev)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-dev.el ends here