Emacs: 神的编辑器 Emacs

你可以使用大佬配置一段时间后总结出自己的配置，也可以从原生 Emacs入手， 即少量的配置。

路线一：

• 原生 emacs
• 学习 emacs-lisp
• 自己做插件

路线二：

• 原生 emacs
• Org 管理
• 学习 emacs-lisp
• 不同场景插件包使用
• 自己做插件

参考官方 ：https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server

https://github.com/daviwil/emacs-from-scratch/blob/d24357b488862223fecaebdad758b136b0ca96e7/show-notes/Emacs-Tips-08.org

在 Unix-like 的操作系统中，可以通过设置 EDITOR 环境变量来配置命令行工 具（比如 git commit）默认的文本编辑器，比如

export EDITOR=vim
export EDITOR=emacs

但通过这种方式，每一次都会新创建一个编辑器实例，这时就用到了 Emacs Server 模式。

Server 模式只需要启动一次，后续使用时通过 emacsclient 进行连接即可。

• Emacs 中: M-x server-start

• 配置文件添加如下：

  (unless (server-running-p)
   (server-start))
  

• 命令行

通过在命令行执行

# 3 种启动守护方式
emacs --daemon
emacs --daemon=work # 可多进程守护
emacs --fg-daemon # 前台

emacsclient -e "(kill-emacs)" # 关闭 emacs 守护进程
emacsclient -f work -c -n # 指定守护进程连接

也通过 emacsclient 来直接启动 server 模式，命令如下：

emacsclient -a "" -c -n "$@"

各参数的解释：

• -c 新建一个frame。这个参数也让 emacsclientw 不要求提供文件名。
• -n 表示执行完该命令后，立刻退出，不用等待 server 返回。这也非常重 要，否则终端就不会立刻返回了。
• -a 是 alternate-editor 的简写，意思是在连接 server 失败时的替代编 辑器，当为空值时，会自动执行 emacs –daemon ，然后再去连接。这样就解 决了完美解决了重复调用 daemon 时的错误，而且也能在第一次调用时启动 server 模式

做成别名方便调用

vim ~/.bash_profile
alias e='emacsclient -a "" -c -n "$@"'

# 使用
e ~/.bashrc

像 Vim 一样读取 stdin

在 Vim 中可以用 vim - 读取标准输入的内容，比如

echo 123 | vim -

很遗憾，默认 emacs/emacsclient 命令是不支持这种方式的，但可以通过间接的方式实现

# cat ~/bin/e
function _emacsclient
{
  emacsclient -a "" -c -n "$@"
}

function main
{
  # If the argument is - then write stdin to a tempfile and open the
  # tempfile.
  if [[ $# -ge 1 ]] && [[ "$1" == - ]]; then
    tempfile="$(mktemp -t emacs-stdin-$USER.XXXXXXX)"
    cat - > "$tempfile"
    _emacsclient --eval "(find-file \"$tempfile\")" \
          --eval '(set-visited-file-name nil)' \
          --eval '(rename-buffer "*stdin*" t))'
  else
    _emacsclient "$@"
  fi
}

main "$@"

上述脚本通过重定向到一个临时文件的方式来解决，这样 emacsclient 就能够 像 Vim 一样读取 stdin 了。参考：https://emacstalk.codeberg.page/post/020/

mac 设置 emacsclient 为文件默认打开程序

参考： https://emacstalk.codeberg.page/post/006/

对于 Emacs 熟练用户来说，大部分都会选择启动 server 模式，这样可以加速 后续的启动时间，为与其他命令行工具组合使用奠定基础。 本文介绍一种将 emacsclient 设置为文件默认打开程序的方式，适用平台 macOS。

• 打开 Automator ，新创建 应用 类型文档

• Action 选择 Run Shell Script ， Pass input 设为 as arguments ，并输入以下内容：

  /Applications/Emacs.app/Contents/MacOS/bin/emacsclient -n -c "$@"
  

  上面的 shell 命令，不需要 & ，只需要加上 -n 选项后，即可在执行后， 立刻退出该应用

• 导出应用
• 在 Finder 中找到需要修改打开程序的文件，按 M-i ，在 Open With 子栏 中选择刚才导出的应用，并点击 Change All

这样以后在打开相同后缀名的文件时，就会用 emacsclient 打开了。

windows 右键菜单添加 Open With Emacs 功能

创建注册表文件 emacs-context.reg

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell]
[HKEY_CLASSES_ROOT\*\shell\openwemacs]
@="&Edit with Emacs"
[HKEY_CLASSES_ROOT\*\shell\openwemacs\command]
@="D:\\msys64\\mingw64\\bin\\emacsclientw.exe -n \"%1\""
[HKEY_CLASSES_ROOT\Directory\shell\openwemacs]
@="Edit &with Emacs"
[HKEY_CLASSES_ROOT\Directory\shell\openwemacs\command]
@="D:\\msys64\\mingw64\\bin\\emacsclientw.exe -n \"%1\""

使用这个 OpenWithEmacs 的功能，Emacs 需要开启 Server Mode，代码如下：

(server-mode 1)

双击注册文件。这时右键打开文件就可以选择emacs打开了。

接下来我们介绍如何更好地管理 Emacs 插件, 或叫 Emacs 包 (package)。插件 可以给我们带来更多的功能，是 Emacs 使用中不可缺少的一环。 插件的安装和 设置与其它的 Emacs 设置一样，都放在 Emacs 的启动文件 ~/.emacs.d/ini t.el 中。关于插件安装与设置，我推荐大家使用现在常用的 use-package 语法，它的语法更简洁，还可以很方便地自动安装插件。

use-package管理插件的插件

• 更简洁的语法
• 更方便自动安装

两种下载和安装插件的方式

• package.el ：内置
• straight.el : 需要访问 github.com 以及使用 git
  • msys2 安装 不行

pacman -S git

我们在 package.el 和 straight.el 的设置示例中都手动检查并安装了 us e-package 。Emacs 29 后 use-package 已经是内置插件，相关代码可以省 去。

之前我们是在命令行中使用 emacs <filename> 的方式来打开文件。而想要在 Emacs 内打开一个文件如下：

快捷键：

• 打开文件：find-file == C-x C-f
• find-file-read-only == C-x C-r
• 替换：find-alternate-file == C-x C-v (替换缓冲区关联的文件)
• 已打开切换只读模式：read-only-mode == C-x C-q

按下 C-x C-f=（=find-file=），此时 Echo area 会出现 “Find file: “， 后面为一个路径，输入文件对应的路径即可打开相应文件。如果想新建文件，只 需要输入一个不存在的文件名即可。输入时可以使用 =<tab> 键自动补全，就 和 Linux 中类似。

保存文件对应命令 C-x C-s。

打开文件并只读不改： C-x C-r 。打开另一相近文件： C-x C-v ，此时下 面的路径会自动以当前文件全名作为初始路径（而不是目录的路径），这样方便 稍微修改一些文件名打开另一文件。 已打开的文件切换为只读模式： C-x C-q 再执行取消只读.

Emacs 可以打开多个文件，同样使用 C-x C-f 打开即可。 但是你如果打开了 第二个文件，便会发现第一个文件就消失不见了，应当去哪里找呢？事实上，所 有打开的文件都会被放入一个被称为 Buffer 的对象中，当打开了第二个文件时， 第一个文件所在的 Buffer 会切入后台，而第二个文件的 Buffer 会占据当前的 Window。Buffer 的名字显示在 Mode line 中间，通常是文件名本身。

Emacs 也可以用这个方式打开目录（文件夹），会显示出目录内的文件（此即 Linux 的设计理念，一切皆为文件，即使是目录也本质上是一个文件），可以用光标选择想打开的文件。

快捷键：

• switch-to-buffer == C-x b (-> Helm-mini) 切换缓存区，按?可以显示缓存区列表，C-g退出
• switch-to-buffer-other-(window|frame) == C-x (4|5) b
• list-buffers == C-x C-b (-> helm-buffers-list) 开启buffer管理
• (previous|next)-buffer == C-x (left|right) 切換到(上|下)一個 buffer

鼠标操作：

• 方法1：菜单中点击 buffer
• 方法2：鼠标左键或右键点击文件向前或向后切换buffer
• C-mouse-1 （`mouse-1` 表示鼠标左键）

切换 Buffer 有三类方法，简短的方法是使用 C-x b ，输入 Buffer 的名字 后按回车即可切换。 Echo area 中会提示你，如果什么也不输直接按回车，可 以跳转到当前默认的 Buffer 中，这样方便在两个文件中来回切换。

显然这样如果 Buffer 多了会记不住名字也不便于管理，于是可以使用第二个方 法， C-x C-b ，此时会弹出一个 Window，名为 "Buffer List" ，列出了 当前所打开的所有 Buffer。其中可以看到多个以星号（*） 开头结尾的 Buffer， 那些都是 Emacs 用于输出一些信息的 Buffer，并不是由于打开文件而产生。例 如 “*Messages*” 是 Emacs 的一些输出信息。“*scratch*” 是可以编写一 些 Elisp 代码的地方。Buffer 开头如果是 %，表示这个 Buffer 被修改过而没 有保存。

如果当前光标没有在 "Buffer List" 中可以用 C-x o 键切换过去。

可以通过光标选择切换到某个 Buffer。同时在这个 "Buffer List" 中有很多 功能可以使用。按问号（?）可以显示帮助。常见的操作例如 q 退出， d 标记 一个 Buffer 打算关闭，s 标记一个 Buffer 打算保存，u 取消标记，x 执行刚 刚标记过的删除和保存操作。事实上，在这里上下移动光标也不需要 C-p 和 C-n，直接按 p 和 n 即可。

此外，第三种方法是使用 C-mouse-1 （ mouse-1 表示鼠标左键）然后用鼠标菜单切换 Buffer。

事实上，在输入 M-x 后、 C-x b 后在 Echo area 显示的等待输入的区域被称为 Minibuffer， 所以它们的输入方式是共通的，都可以用相同的补全机制等。

想要关闭当前的 Buffer？直接在当前的 Buffer 处按下 C-x k 即可。

使用 Emacs 打开文件后，会发现目录下会多一个和打开的文件同名但是后面多 了个 ~ 字符的文件，例如打开了 names.txt 后会出现 names.txt~ ， 这是 Emacs 的备份机制，防止程序或系统崩溃，或是用户误操作破坏了文件。 可以设置关闭或文件数量上限等等，详见文档。

关闭备份需要设置： (setq make-backup-files nil) 。

• 全部: save-some-buffers == C-x s
• 当前: save-buffer == C-x C-s
• 另存为：write-file == C-x C-w

C-x C-b ;; 进入Buffer列表  命令：list-buffers
m ;; （小写m）标记缓冲区（当前光标处）
u ;; 取消当前行标记
U ;; 取消全部标记
d ;; 标记删除
s ;; 标记一个 Buffer 打算保存
D ;; 关闭已标记的缓冲区
S ;; 保存已标记的缓冲区
x ;; 执行刚刚标记过的删除和保存操作

g ;; 更新列表
o ;; 在新窗口中查看缓冲区
RET ;; 查看该缓冲区
` ;; 切换列表显示形式
? ;; 查看按键帮助


命令组合示例：
*uSD：标记所有未保存缓冲区，保存，然后关闭

在这里上下移动光标也不需要 C-p 和 C-n，直接按 p 和 n 即可

Buffer列表list-buffers的替代品

;; 使用ibuffer代替list-buffers，有颜色，进入ibuffer中
(defalias 'list-buffers 'ibuffer)
;; 或使用ibuffer-other-window, 有颜色，侧边新开个窗口
;;(defalias 'list-buffers 'ibuffer-other-window)

• kill-buffer == C-x k 关闭缓冲区
• M-x kill-(some|matching)-buffers
• M-x clean-buffer-list (未修改>=3天)

窗口关闭：

• 方法1：鼠标停在状态栏，右键
• 方法2：菜单栏选择 Remove Other Windows 只保留当前buffer，New Window Below 水平
• 方法3：鼠标滚轮按住状态栏，拖动

eval-expression：查看表达式的结果
eval-buffer ：把缓冲区所有代码全部运行一遍
erase-buffer：清空当前缓冲区

#重命名
M-x rename-(buffer|uniquely)


#恢复
M-x revert-buffer (恢复到上一次存盘时)
M-x recover-file (从自动保存恢复)
M-x recover-session

#重定位
recenter-top-bottom == C-l

#Indirect Buffers : shares the text of some other buffer
M-x (make|clone)-indirect-buffer
clone-indirect-buffer-other-window == C-x 4 c

#Tab 标签页管理
C-x t 2 ;; 新建Tab
      1 ;; 关闭其它Tab
      0 ;; 关闭当前Tab
      b ;; 在新Tab中打开Buffer

窗口大小：

• 鼠标在状态栏，上下拖动

插件

ido自动匹配buffer插件

;; ido自动匹配buffer C-x b时自动匹配
(setq ido-enable-flex-matching t) 
(setq ido-erverywhere t)
(ido-mode 1)

使用向上,下键切换上次/下次的文件/buffer，按回车直接选择第一个匹配项

tabbar标签栏插件

;; if you like a tabbar
;(use-package tabbar
;  :ensure t
;  :config
;  (tabbar-mode t))

ibuffer插件

开箱即用， C-x C-b 绑定到 Emacs list-buffers 命令。

可以参考Martin Owen文章给buffer设置不同的组

;; ibuffer
;; buffer列表绑定ibuffer，给buffer归类设置不同的组
(global-set-key (kbd "C-x C-b") 'ibuffer)
(setq ibuffer-saved-filter-groups
      (quote (("default"
               ("dired" (mode . dired-mode))
               ("org" (name . "^.*org$"))
               ("magit" (mode . magit-mode))
               ("IRC" (or (mode . circe-channel-mode) (mode . circe-server-mode)))
               ("web" (or (mode . web-mode) (mode . js2-mode)))
               ("shell" (or (mode . eshell-mode) (mode . shell-mode)))
               ("mu4e" (or

                        (mode . mu4e-compose-mode)
                        (name . "\*mu4e\*")
                        ))
               ("programming" (or
                               (mode . clojure-mode)
                               (mode . clojurescript-mode)
                               (mode . python-mode)
                               (mode . c++-mode)))
               ("emacs" (or
                         (name . "^\\*scratch\\*$")
                         (name . "^\\*Messages\\*$")))
               ))))
(add-hook 'ibuffer-mode-hook
          (lambda ()
            (ibuffer-auto-mode 1)
            (ibuffer-switch-to-saved-filter-groups "default")))

;; don't show these不展示在缓存列表中
;;(add-to-list 'ibuffer-never-show-predicates "zowie")
;; Don't show filter groups if there are no buffers in that group
(setq ibuffer-show-empty-filter-groups nil)

;; Don't ask for confirmation to delete marked buffers
(setq ibuffer-expert t)

可以使用`m`来标记缓存，使用`H`新建多个emacs进程来打开这些缓存，使用`C-x 50`退出。

#打开-文件
find-file-other-frame == C-x 5 f
find-file-read-only-other-frame == C-x 5 r

#新建
make-frame-command == C-x 5 2

#切换
other-frame == C-x 5 o
switch-to-buffer-other-frame == C-x 5 b

#删除
当前: delete-frame == C-x 5 0
其它: delete-other-frames == C-x 5 1

既然能多 Window，自然能多个 Frame。打开一个新的 Frame 可以使用快捷键 C-x 5 2 ； 在一个新的 Frame 打开文件，可以使用快捷键 C-x 5 f 。 C-x 5 和 C-x 4 基本类似，只是前者在 Frame 间操作，后者在 Window 间 操作。 图形界面使用较多。

有的人在日常使用中，对多文件的打开更偏爱在单个 Frame 中用多个 Window，很少在多 Frame 中间频繁切换。

插件

• ace-window

popwin光标自动切到弹出的窗口里

• popwin光标自动切到弹出的窗口里 https://github.com/emacsorphanage/popwin

(defvar mypackages '(
         ;; --- popwin ---
         popwin
         ) "Default packages")
;; popwin 光标自动切到弹出的窗口里
(require 'popwin)
(popwin-mode t)

use-package

;; 光标自动切到弹出的窗口里
(use-package popwin
  :ensure t
  :config (popwin-mode))

MiniBuffer 交互优化

显示在左下角的 MiniBuffer 移动视线范围大，移动到中央位置，更合适一些。

• ivy-posframe https://github.com/tumashu/ivy-posframe

;; 窗口交互优化,移动到中央位置
(use-package ivy-posframe
  :ensure t
  :init
  (setq ivy-posframe-display-functions-alist
    '((swiper . ivy-posframe-display-at-frame-center)
      (complete-symbol . ivy-posframe-display-at-point)
      (counsel-M-x . ivy-posframe-display-at-frame-center)
      (counsel-find-file . ivy-posframe-display-at-frame-center)
      (ivy-switch-buffer . ivy-posframe-display-at-frame-center)
      (t . ivy-posframe-display-at-frame-center))))

hydra 窗口

左右移动：

• 左右
  • 字符：C-b|f== (backward|forward)-char
  • 单词：M-(←|→)|(b|f) == (backward|forward)-word
• 行-首|尾

  • C-a|e == (beginning|end)-of-line

    而代码经常是有缩进的，但 C-a 会直接移动到整个行首，并不能直接编辑开头的文字，这种情况可使用 M-m 来移动到文字的开头。插件 mwim ，避免这个琐碎的小区别。

• 句子-首|尾
  • M-a|e == (backward|forward)-sentence
• 段落-首|尾
  • M-{|} == (backward|forward)-paragraph
• 环境-首|尾
  • C-M-{a|e} {beginning|end}-of-defun 和段落-首尾一样效果
• 到本行第一个非空字符
  • M-m == back-to-indentation

上下移动：

• 上|下
  • C-p|n == (previous|next)-line
• 翻页-上|下

  • M|C-v == PgUp|PgDn | scroll-(up|down)-command

    但 Emacs 会保留三行不会被翻过去，这样看起来更为舒服。

• 缓冲区-首|尾

  • M-<|> == (beginning|end)-of-buffer

    注意这里需要同时按下 Meta 键、 Shift 键和逗号/句号键。

• 移动页

  • C-l

    第一次按光标所在行在窗口中央，之后再按窗口最上面、窗口最下面，如此循环。

• 当前缓冲区可视区域-(Top|Center|Bottom)

  • M-r == move-to-window-line-top-bottom

    按第一次——光标移动到窗口中间行；接着按第二次——光标移动到窗口最上面一行；接着按第三次——光标移动到窗口最下面一行

跳转：

• N-行

  • M-g (g|M-g) == goto-line

    跳到特定的行， M-g M-g +加行号 回车即可

• 函数定义跳转 M-. 再使用 M-, 跳回原来位置

  如果是指向的是C语言的源代码，需要从官网下载源代码，添加src路径

  http://gnu.mirrors.hoobly.com/emacs/

  (setq find-function-C-source-directory "~/emacs-27.2/src")
  

  包含Lisp代码的文件习惯上被称为`库`

• 跳转 C-x o == other-window

• M-x select-frame-by-name

插件

• Wind Move
  • M-x windmove-(left|right|up|down)
• Ace Window
  • M-x ace-window (Me: == S-o)
• Avy
  • M-x avy-goto-(char|word-1|line)

补充

;; 设置 sentence-end 可以识别中文标点
(setq sentence-end
      "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")

速记-选中区域

方法1：拉去鼠标左键
方法2：Shift + 方向键
方法3：左键点击标记位置，右键点击光标位置
方法4：
1. 激活标记：C-@ 或者 C-空格
2. 用方向键/Emacs快捷键移动光标  或者 C-n 向下移动光标

C-x C-x 交换标记和光标的位置

选中 需要编辑的部分文本

• 标记

  • 点

    • C-(<SPC>|@) == set-mark-command (激活)

      在 emacs 中一个区域的范围是由2个点决定的。第一个点是标记(mark)， 任何在标记和光标之间的东西都是区域的一部分。在状态栏下面的 minibuffer中会有提示信息"Mark set" 。即使这个区域的高亮消失了， 那个标记还会存在在那里，还是能对标记和光标之间的内容进行操作。

      C-g 取消标记。对于很多场景下C-SPC 快捷键被占用（输入法，Spotlight 等）

    • C-@ C-@ (不激活 但进入标记环)

    光标移动到别的位置（甚至以后学过之后，到别的文件），这时候按下 C-x C-SPC 或 C-u C-SPC，即可立刻跳转回刚刚的位置

  • 段落

    • M-h == mark-paragraph

    说明：在不同模式下段落的范围不一样

  • 缓冲区
    • C-x h == mark-whole-buffer
  • Mouse shift-selection
    • Shift-<Mouse>
• 标记环 (Mark Ring : 标记的点 进入 标记环) [Global|Local]
  • 最后标记点
    • C-u C-@ (当前缓冲)
    • C-x C-@ == pop-global-mark
  • 列表
• 互换位置-插入点和标记点
  • C-x C-x == exchange-point-and-mark

一些系统对有些键位会做映射。例如 macOS 就会将 C-/ 映射为 C-_ ， C-SPC 映射为 C-@。不影响日常使用，但是想覆盖键位时需要注意。

Special

• 标记 表达式
  • C-M-@ == mark-sexp 可以标记成对的特殊的字符内容，如“”内内容
• 标记 定义
  • C-M-h == mark-defun

补充

整行

(defun xt3/sel-cur-line ()
  (interactive)
  (set-mark (line-end-position))
  (beginning-of-line))
(bind-key "C-x M-h" #'xt3/sel-cur-line)

范例：选定全文件

• 方法1：
  • M-< 跳到文件头
  • C-@ 设定标记
  • M-> 跳到文件尾
• 方法2：
  • C-x h 即mark-whole-buffer

插件-expand-region 选中一个区域

使用同样的方法将 expand-region 添加至我们的插件列表中，重启 Emacs 安装插件。

• expand-region https://github.com/magnars/expand-region.el/ er/expand-region == C-=

再为其绑定一个快捷键，

;;expand-region 方便选中一个区域
(global-set-key (kbd "C-=") 'er/expand-region)

use-package

;; 方便选中一个区域
(use-package expand-region
  :ensure t
  :config
  (global-set-key (kbd "C-=") 'er/expand-region))

使用这个插件可以使我们更方便的选中一个区域。（更多使用方法和文档可以在这里找到）

插件-标记环列表

https://github.com/emacs-helm/helm

• M-x helm-mark-all-rings | helm-[global]-mark-ring

input输入

• 可见的(图形字符)

  a..z , 1..0, !..?
  

• 控制字符

  <SPC>, <RET>, <TAB>, <DEL>, <ESC>, <F1>, <Home>, <LEFT>

• 插入空白行

  <RET> | C-j | C-o

  在光标所在行下方创建一个新的空行： C-o ；将光标所在前后所有连续空行变为一个空行： C-x C-o 。

• 修饰键

  <Control>, <META>

• 输入 对应 命令

• 非键盘

  mouse(鼠标) (一般作为定位 特殊模式 拖拽绘制字符)

• 引用插入（输入一些看不见的字符）

C-q == quoted-insert
不可见(非图形字符)
    - <Ret>, C-l(分页符)
    - 033 Enter (Ascii 八进制) = f(原样输出f)

• Unicode

C-x 8 RET
速记 : C-x 8 C-h £
∑ (2211) ⤶ (2936)

速记

C-w 剪切
M-w 复制
C-y 粘贴
M-y 从剪贴析中选择

C-k 剪切光标到行末
C-S-退格 剪切光标所在行  S 为Shitf 键。等同于 C-a C-k C-k
用 C-k 和 C-S-退格删除的内容会保留在剪贴板中，可以用C-y/M-y进行粘贴

单词操作:
- 退格：向左删除字符
- C-退格：向左删除单词(保存到剪贴板)
- C-d/Delete：向右删除字符
- Alt-d：向右删除单词(保存到剪贴板)

速记：

C-g 中断当前命令
C-/ 撤消

恢复的话需要撤消我们的撤消：
- 中断撤消：如按一下空格中断撤消
- C-/ 就会是撤消之前撤消

• 撤销/重做
  • Undo: undo == C-/ 或者 C-_ 或者 C-x u
    • 撤销刚刚的操作。对字符进行编辑例外，例如你按了 5 次删除键删除了 5 个字符，按一下撤销即可复原。
    • C-x z 重复之前的操作 重复多次可以只按zzzz
  • Redo 反撤销: C-g C-/ 或者 C-g C-_ 或者 C-g C-x u

Emacs 对于历史记录也维护成了一个环。但 Emacs 并没有直接的重做操作，而是先按一下 C-g ，即没有操作，此时再按撤销键时，会撤销上次的“撤销”，相当于重做；也可以理解为按下 C-g 后这个环的移动方向会改变。所以 Emacs 其实不分 undo 和 redo，而是靠改变历史记录的移动方向来控制。

redo 的思维就是 “undo undo”.

Emacs 提供了一个机制可以把一个命令重复执行任意次数。具体来说，先按下 `C-u` ，再按数字表示次数，再按下命令的快捷键。例如：`C-u 12 C-n` 表示向下 12 行。如果不加数字，默认是 4 次。

注意，有些特殊命令不表示次数，例如与 M-x 组合时表示传参。

注意，C-u 其实是前缀参数（prefix argument）中的 universal-arument 的快捷键。其后加数字在大部分基本命令中是表示次数，但其它命令不一定表示次数，例如与 M-x 组合时的 C-u M-x 是基于前缀字符串搜索命令。可以类比我们的键盘上，按下 1 是输入数字 1，但按下 shift+1 得到的是叹号，C-u 就类似 shift 的作用，并且由于可以接数字等额外参数，C-u 非常强大。具体每个命令的前缀参数有何作用在其文档中都有说明，如何查看文档参考本文“获得帮助”小节。

• 交换光标左右的字符：C-t ；交换光标前后的词：M-t；交换光标所在行和上一行：C-x C-t。还有交换句子、段落、选择区域等，但没有快捷键，详见文档。
• 在光标所在行下方创建一个新的空行：C-o；将光标所在前后所有连续空行变为一个空行：C-x C-o。
• 将光标后一词变为小写：M-l；变为大写 ：M-u；变为首字母大写：M-c。
• 调字号：放大 C-x C-= 、缩小 C-x C–、重置字号 C-x C-0。

• isearchn (Incremental search)
  • 前|后 (重复-切换搜索到的词)
    • isearch-(forward|backward) == C-(s|r)
    • isearch-(forward|backward)-regexp == C-M-(s|r)
    • isearch-forward-(word|symbol) == M-s (w|_)
    • isearch-forward-symbol-at-point == M-s .
  • Activated (C-s ..) 如果你想让光标跳到下一个匹配位置，就再按一次 C-s。 如果想停留在当前位置，退出搜索，按下回车键。 如果想放弃搜索，回到搜索前的位置，按下 C-g。
    • Paste : C-y
    • History : M-n|p
    • 大小写敏感 : M-c
    • C-w (光标处到下一个词的词尾)
    • C-(s|r) ( 同向: 重复上一次搜索; 反向: 切换搜索方向)
    • 非增量 : RET
    • Regex : M-r
• occor
  • M-s o == occur
    • -> Occur buffer
    • e : occur-edit-mode : Edit current Occur buffer
      • exit : C-c C-c
    • next|previous : M-g (n|p)
    • repeat : C-x z
    • next|previous line : C-n|p
    • beginning|end of buffer : <|>
    • refresh : g
    • Jump to match : o
    • Jump to match but point remainon Occur : C-o
    • help : h
    • quit : q
  • multi-occur (multiple buffers)
    • M-x multi-occur
    • M-x multi-occur-in-matching-buffers
• grep
  • M-x grep
  • Asynchronously : M-x lgrep
  • M-x grep-find | find-grep

• 所有: replace-(string|regexp)
• 问询
  • query-replace == M-%
  • query-replace-regexp == C-M-%
  • 选项
    • 退出 : <Enter>|q
    • 替换当前 : <Spc>|y
    • 替换-所有 : !
    • 跳过 : <Del>|n
    • 退回-到前一次替换 : ^
    • 替换当前 且 退出 : .
    • 替换当前 且 光标移动到此处 且 退出 : ,
    • 撤销-前一个|所有 : u|U
    • 递归编辑 : C-r
      • 退出 : C-M-c
    • 删除-这个匹配 并 进入递归编辑 : C-w
    • 退出-递归编辑 和 问询 : C-]
    • 编辑-替换的字符串 : E

• ivy-counsel-swiper 三剑客插件 No description for this link No description for this link 强化搜索
  • C-s ..
    • Paste : C-y | M-y(Kill Ring)
    • Next|Previous : C-(n|p)
• avy 快速搜索定位插件 No description for this link No description for this link
• ag 搜索
• multiple-cursors多游标插件 No description for this link No description for this link
• iedit 同时编辑插件

• Keyboard Macro 键盘宏(Keyboard Macro 键盘宏编辑)
• Multiple cursors No description for this link No description for this link config kbd

• 词数
  • count-words-region == M-= (缓冲: C-u ..)
  • M-x count-words (缓冲|选中区域)
• 行数
  • M-x count-lines-region
• 字符信息
  • what-cursor-position == C-x = (编码 第几个字符 第几列)
  • M-x describe-char (详细信息)

(Keyboard Macro 键盘宏编辑) 略，见上文

• 添加
  • 全局: add-global-abbrev == C-x a g
  • 当前主要模式: add-mode-abbrev == C-x a l
  • inverse-add-(global|mode)-abbrev == C-x a i (g|l)
  • M-x define-(global|mode)-abbrev
  • 前缀
    • 0 : region as expansion
    • C-u [N] : N words
• 删除
  • Arg: C-u -
  • 全部: M-x kill-all-abbrevs
• 扩展
  • abbrev-prefix-mark == M-'
  • expand-abbrev == C-x a e
  • M-x expand-region-abbrevs
  • M-x unexpand-abbrev
• 查看和编辑
  • M-x list-abbrevs (C-u [N] .. : local, N:次数)
  • M-x edit-abbrevs
• 保存
  • M-x write-abbrev-file <RET> file <RET>
  • M-x read-abbrev-file <RET> file <RET>
  • M-x define-abbrevs
  • M-x insert-abbrevs

寄存器 : 存储 文本 矩形区块 位置 值 设置

• View
  • M-x view-register <RET>
• Jump
  • jump-to-register == C-x r j
• Position
  • Save: point-to-register == C-x r <SPC>
• Text|Rectangle
  • Save: copy-[rectangle]-to-register == C-x r (s|r) (C-u .. : copy-to and del)
  • Insert: insert-register == C-x r i
• Text
  • Append: M-x append-to-register <RET>
    • increment-register == C-x r +
  • Prepend: M-x prepend-to-register <RET>
• Frame&Window Configuration
  • Save
    • window-configuration-to-register == C-x r w
    • frameset-to-register == C-x r f
  • Restore: C-x r j (C-u .. : del frame invisible)
• Number
  • Save: number-to-register == C-u [N] C-x r n
  • Increment: C-u [N] C-x r +
  • Insert: insert-register == C-x r i
• Keyboard Macro
  • Save: kmacro-to-register == C-x C-k x
  • Exe: C-x r j

就和电子书中的书签功能一样，在当前光标位置打上一个书签，之后可以随时跳转回来。主要涉及到如下命令

书签 : 保存缓冲区中位置

• 设置-光标位置
  • bookmark-set == C-x r m 设置书签。可以为书签起个标记名称，默认为文件名。也可以为目录打书签。
  • bookmark-set-no-overwrite == C-x r M

• 移动到-指示的位置

  • bookmark-jump == C-x r b

  如果安装了 ivy counsel No description for this link，应当已被覆盖为 counsel-bookmark）

• 显示-书签列表
  • list-bookmarks == C-x r l
• 删除
  • M-x bookmark-delete
• 重命名
  • M-x bookmark-rename
• 保存 加载
  • 到默认文件: bookmark-save
  • 新文件: bookmark-write
  • 加载: bookmark-load
• 插入
  • 文件内容: bookmark-insert
  • 文件名字: bookmark-insert-location

范例：随时打开指定目录

• C-x C-f ~/.emacs.d/
• M-x bookmark-set 回车 设置书签，同时emacs.d/目录下会生成一个书签文件 bookmarks
• C-x C-c 关闭emacs
• 打开emacs M-x bookmark-jump 打开书签

Highlight 高亮

• 光标所在行
  • M-x hl-line-mode (当前缓冲)
    • (global-hl-line-mode 1)

自动加载外部修改过的文件

• global-auto-revert-mode

自动保存

• M-x auto-save
  • 重开: M-1 ..

统计行数

• C-x l

从当前光标开始删除到下一个指定的字符为止(包括这个字符)

• zap-to-char == M-z

也是vim里的ct命令.

删除两个单词之间的空格

• M-x cycle-spacing 或者 Alt+Space
  • Ubuntu下要禁用Alt+Space快捷捷才行.

请务必完成这篇教程（Learn X in Y Minutes）来了解 Elisp 的使用（阅读时间大约 15 分钟），你也可以在这里找到它的中文版。Emacs Lisp 为一个函数式的语言，所以它全部 功能都是由函数来实现的。

在这一部分我们首先需要知道的是什么是 features 。在 Emacs 中每一个 feature 都 是一个 Elisp 符号，用于代表一个 Lisp 插件（Package）。

当一个插件调用 (provide 'symbol_name) 函数时，Emacs 就会将这个符号加入到 features 的列表中去。你可以在这里读到更多关于 feature 的内容。

接着我们需要弄明白的是 load-file , load , require , autoload 之间的区别。 （他们之间区别的链接已经再前面贴过了，你也可以在这里找到之前同样的链接）

简单来说， load-file 用于打开某一个指定的文件，用于当你不想让 Emacs 来去决定加 载某个配置文件时（ .el 或者 .elc 文件）。

load 搜索 load-path 中的路径并打开第一个所找到的匹配文件名的文件。此方法用于 你预先不知道文件路径的时候。

require 加载还未被加载的插件。首先它会查看变量 features 中是否存在所要加载的 符号如果不存在则使用上面提到的 load 将其载入。（有点类似于其他编程语言中的 import ）

autoload 用于仅在函数调用时加载文件，使用此方法可以大大节省编辑器的启动时间。

;;init-better-defaults.el 或elc文件内容
;;;**autoload
(defun test-autoload()
  (interactive)
  (message "test autoload))

;; init.el文件内容
(autoload 'test-autoload "init-better-defaults")
(test-autoload)

require 依赖 load=，=load 依赖 load-file

quote 的意思是不要执行后面的内容，返回它原本的内容，用 ' 引号表示（具体请参考下面的例子）

(print '(+ 1 1)) ;; -> (+ 1 1)
(print (+ 1 1))  ;; -> 2

更多关于 quote 的内容可以在这里找到，或者在这里找到 StackOverflow 上对于它的讨论。

elisp代码执行：

• C-x C-e ： eval-last-sexp 这是最常用的，每次都要移动光标到要运行的代码后面。
• M-x eval-region ：执行选中区域代码
• M-x eval-buffer ：执行当前缓冲区代码
• M-x load-file <ENTER> FILE_NAME ：执行指定文件代码
• C-j : 执行最近距离代码，并打印输出以当前位置
• C-M-x : runs the command eval-defun 执行整个代码块。写函数经常修改 然后运行，如果每次跑到最外面去 C-x C-e ，就很麻烦。光标只要在运行的代码块里就行了。
• M-: : runs the command eval-expression
• M-x ielm 类似于ipython交互式运行

cd ~/.emacs.d
git init
vim .gitignore

# 提交修改
git add .
git commit -m 'first commit'
git push 

# 每次功能填写完提交 tag
git tag basic.v.1.0
git push tags

# 快速恢复
git reset --hard HEAD

gitingnore 文件

*.elc
CVS
.svn
*~
\#*
.\#*
/auto-save-list
/bookmarks
/custom.el
/elpa
/elpa-*
/history
/recentf
site-lisp/package/
/eshell/
/server/
/transient/

重新加载文件

;; 重新加载文件 M-x global-auto-revert-mode 
(global-auto-revert-mode t)

emacs 下创建目录使用 `M-x make-directory`

Elisp 中并没有命名空间（Namespace），换句话说就是所有的变量均为全局变量，所以其 命名方法就变的非常重要。下面是一个简单的命名规则，

#自定义变量可以使用自己的名字作为命名方式（可以是变量名或者函数名）
my/XXXX

#模式命名规则
ModeName-mode

#模式内的变量则可以使用
ModeName-VariableName

遵守上面的命名规则可以最大程度的减少命名冲突发生的可能性。

现在我们想将原本混合在一起的配置文件分为下面的几个模块（每一个模块为一个独立的配 置文件并将其保存在指定的子目录中），它们分别是

• Packages：
  • init-packages.el 插件源
• Core：
  • init-basic.el 基础配置
    • custom.el 存放使用编辑器接口产生的配置信息
    • init-funcs 自定义函数
  • init-completion 补全
  • init-tools 工具包
• uis：
  • init-ui.el 视觉层配置
  • init-better-defaults.el 增强内置功能
• Tools：
  • init-org.el Org 模式相关的全部设定
• Languages：
  • init-c.el C语言
• personal：
  • init-keybindings.el 快捷键绑定

Org-mode 下的文学编程将颠覆你对于 Emacs 的看法。因为我们也可以使用 Org 来管理 Emacs 的配置文件。

我们可以让我们的配置文件更加清晰有序，并且可以添加很多注释之外的资料、链接等，让我们的配置更加易读和可管理。

我们通常可以有如下几种方式来管理配置文件：

• 将所有配置都放到 ~/.emacs 文件里（比较老的方式，不推荐）
• 将所有配置文件都统一放到 ~/.emacs.d/init.el 里；
• 将所有配置文件通过一个org文件来管理，通过 org-babel-load-file 函数来加载；
• 将所有配置文件模块化，通过 init.el 来统一加载（这是众多大佬采用的方式）；
• 将所有配置文件通过一个 org 文件来管理，通过 tangle 的技术实现模块化（最优解）；

这里我们讲解我个人认为的最优解——将所有配置文件放到一个 org 文件来管理，并通过 Org mode 的 tangle 功能实现模块化。

;; 默认没有激活。在文件最开头添加文件作用域的变量设置，设置变量的绑定方式。设置在当前文件作用域内是激活的。
;; -*- lexical-binding: t -*-
(let ((x 1))    ; x is lexically bound.
  (+ x 3))
     ⇒ 4       ; 1 + 3 的值为 4

(defun getx ()
  x)            ; x is used free in this function.

(let ((x 1))    ; x is lexically bound. getx 是用不到 let 定义的 x 的
  (getx))
;;error→ Symbol's value as variable is void: x

关于lexical binding更多的细节，可以自行阅读 Emacs 的官方文档。程序代码使用 lexical binding 会更利于并发，编辑器会执行一些优化让代码执行的更快。很多插件要求安装 lexical binding。

范例：init.el

;;; init.el --- Load the full configuration -*- lexical-binding: t -*-
;;; Commentary:

;; This file bootstraps the configuration, which is divided into
;; a number of other files.

;;; Code:

(+ 1 2)

;;; init.el ends here

三个分号开头的注释表示“节”，两个分号开头的注释表示“段落”。（一个分号开头的是一行代码后面的行内注释）。

首先介绍一下如何配置全局的快捷键：

(global-set-key (kbd <KEY>) <FUNCTION>)

其中 <KEY> 和 <FUNCTION> 替换为你想要设置的快捷键和功能。

范例-一个常见设置是修改回车键为“新起一行并做缩进”：

(global-set-key (kbd "RET") 'newline-and-indent)

• MELPA https://melpa.org/

Emacs 最大的插件仓库就是 MELPA 了，也就是上文提到的 Steve Purcell 所维护的项目。此外也有一个默认仓库 GNU ELPA。

MELPA 的官网有直接介绍如何配置

(require 'package)  ;; 引用包管理器
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)  ;; 设置包的源
(package-initialize)  ;; 初始化包

只需这三行，就可以把仓库地址 https://melpa.org/packages 存储到 package-archives 列表中，并命名为 “melpa”。

由于国内网络问题，直接访问速度较慢，有如下两个方案。

1. 使用代理 把下面的代码加在配置文件中，修改为自己的代理服务器 IP 和代理服务器端口号。

(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3") ; 不加这一句可能有问题，建议读者尝试一下
(setq url-proxy-services '(("no_proxy" . "^\\(192\\.168\\..*\\)")
                           ("http" . "<代理 IP>:<代理端口号>")
                           ("https" . "<代理 IP>:<代理端口号>")))

2. 使用国内镜像

• 官方镜像：

;; (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

(setq package-archives '(("gnu"   . "https://elpa.gnu.org/packages/")
                         ("nongnu" . "https://elpa.nongnu.org/nongnu/")
                         ("melpa" . "https://melpa.org/packages/"))

(unless (bound-and-true-p package--initialized)
  (package-initialize)) ;; 刷新软件源索引

;;防止反复调用 package-refresh-contents 会影响加载速度
(when (not package-archive-contents)
  (package-refresh-contents))

• 腾讯镜像：

(setq package-archives '(("gnu"   . "http://mirrors.cloud.tencent.com/elpa/gnu/")
                         ("melpa" . "http://mirrors.cloud.tencent.com/elpa/melpa/")))

• 清华源 https://mirrors.tuna.tsinghua.edu.cn/help/elpa/

(setq package-archives '(
    ("melpa" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/")
    ("gnu" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/")
    ("org" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/org/")))

• emacs 中国社区的源 https://elpa.emacs-china.org/

(setq package-archives '(
                         ("gnu"   . "http://elpa.zilongshanren.com/gnu/")
                         ("nongnu" . "http://elpa.zilongshanren.com/nongnu/")
                         ("melpa" . "http://elpa.zilongshanren.com/melpa/")))

假如不清楚需要用哪些 ELPA 的话

• gnu 一般是必备的，其它的 elpa 中的包会依赖 gnu 中的包
• melpa 滚动升级，收录了的包的数量最大
• melpa-stable 依据源码的 Tag （Git）升级，数量比 melpa 少，因为很多包作者根本不打 Tag
• org 仅仅为了 org-plus-contrib 这一个包，org 重度用户使用

安装扩展前，需要先刷新软件源的索引。

随后重启 Emacs 后，输入命令 package-list-packages 就可以列出来仓库中的所有插件，可以选中相应的插件，会弹出介绍的界面和安装按钮。此外，还可以直接输入命令 package-install 后输入插件名就可以安装相应插件。

默认情况下，插件会被安装到 ~/.emacs.d/elpa/ 目录下。

想要删除已安装的插件，输入命令 package-delete ，然后输入已安装的插件名即可。

• 刷新软件源 M-x package-refresh-contents
• 查看软件 M-x package-list-packages
• 按 U 可以看到有多个包要更新，按 x 执行更新
• 重新打开emacs，到包管理中按 U 提示没有包要更新了

在表单中可以使用 I 来标记安装 D 来标记删除， U 来更新，并用 X 来确认。

或者菜单栏 Options > Manage Emacs Packages

• i/u 包位置输入，安装/取消包，前面标记I

• d 删除插件包，前面标记D。再按 x 提示是否要删除。
• 大U 更新包。旧包标记为D，新包标记为I
• C-s 搜索插件包。如 C-s company 使用 C-s C-s C-s 向下匹配

使用 M-x customize-group 后选择对应的插件名称，可以进入可视化选项区对指定的插 件做自定义设置。当选择 Save for future session 后，刚刚做的设计就会被保存在你的 配置文件（ init.el ）中。关于各个插件的安装与使用方法通常都可以在其官方页面找 到（GitHub Pages 或者是项目仓库中的 README 文件）。我们强烈建议大家在安装这些插 件后阅读使用方法来更好的将它们使用到你的日常工作当中使效率最大化。

一些常用的操作，以下操作使用`M-x`调用

list-packages 或 package-list-packages  查看全部软件包列表
package-install                         安装软件包
package-delete                          删除软件包
package-autoremove                      无用软件包自动删除
package-refresh-contents                刷新软件包信息索引
describe-package                        包信息

Company 补全插件

使用默认的插件管理系统（可在菜单栏 `Options > Manage Emacs Packages` 中找到）安 装 Company 插件，他是一个用于代码补全的插件。它的名字代表补全一切的意思（ Comp lete Any thing）。因为默认的插件管理系统提供的插件十分有限，所以我们会在之后的 几天中继续将其强化。

点击安装

使用的下面的配置将 Company-mode 在全局模式下激活

; 开启全局 Company 补全
(global-company-mode 1)
(setq company-idle-delay 0)                ;; 补全时间快些
(setq company-minimum-prefix-length 1)     ;; 最少输入1个字符开启   

以 awesome-tab 为例

创建目录，使用内容Dir包。 C-x d 回车， + 创建目录输入目录名site-lisp 回车， q 退出

使用 M-x eshell 克隆代码

cd site-lisp
git clone --depth=1 https://github.com/manateelazycat/awesome-tab.git

配置文件

(add-to-list 'load-path (expand-file-name "~/.emacs.d/site-lisp/awesome-tab/"))
(require 'awesome-tab)
(awesome-tab-mode t)

(defun awesome-tab-buffer-groups ()
"`awesome-tab-buffer-groups' control buffers' group rules.
Group awesome-tab with mode if buffer is derived from `eshell-mode' `emacs-lisp-mode' `dired-mode' `org-mode' `magit-mode'.
All buffer name start with * will group to \"Emacs\".
Other buffer group by `awesome-tab-get-group-name' with project name."
(list
(cond
    ((or (string-equal "*" (substring (buffer-name) 0 1))
        (memq major-mode '(magit-process-mode
                            magit-status-mode
                            magit-diff-mode
                            magit-log-mode
                            magit-file-mode
                            magit-blob-mode
                            magit-blame-mode)))
    "Emacs")
    ((derived-mode-p 'eshell-mode)
    "EShell")
    ((derived-mode-p 'dired-mode)
    "Dired")
    ((memq major-mode '(org-mode org-agenda-mode diary-mode))
    "OrgMode")
    ((derived-mode-p 'eaf-mode)
    "EAF")
    (t
    (awesome-tab-get-group-name (current-buffer))))))

自动加载 site-lisp 中的包

(require 'cl-lib)

(defun sanityinc/add-subdirs-to-load-path (parent-dir)
  "Add every non-hidden subdir of PARENT-DIR to `load-path'."
  (let ((default-directory parent-dir))
    (setq load-path
          (append
           (cl-remove-if-not
            #'file-directory-p
            (directory-files (expand-file-name parent-dir) t "^[^\\.]"))
           load-path))))

;; Add both site-lisp and its immediate subdirs to `load-path'
(let ((site-lisp-dir (expand-file-name "site-lisp/" user-emacs-directory)))
  (push site-lisp-dir load-path)
  (sanityinc/add-subdirs-to-load-path site-lisp-dir))

你可以直接将下面的代码复制到你的配置文件顶端，从而直接使用 Melpa 作为插件的源。 你可以将你需要的插件名字写在 `my/packages` 中，Emacs 在启动时会自动下载未被安装 的插件。

(require 'package)
(setq package-archives '(
                         ("gnu"   . "http://elpa.zilongshanren.com/gnu/")
                         ("nongnu" . "http://elpa.zilongshanren.com/nongnu/")
                         ("melpa" . "http://elpa.zilongshanren.com/melpa/")))
(package-initialize)

;;防止反复调用 package-refresh-contents 会影响加载速度
(when (not package-archive-contents)
  (package-refresh-contents))

;;(package-install 'use-package)

(provide 'init-packages)

安装包使用 `package-install` 如安装 use-package

(package-install 'use-package)

宏是一种可以生成代码的代码. 类比与 C 语言中的宏以及 C++中的模板. 先看一个简单的例子:

(setq my-var 1)
(setq my-var (+ 1 my-var)) ; C-x C-e 执行多次

;; 定义宏和定义函数差不多，只是关键字不一样。
;; 定义宏 变量var + 1
(defmacro inc (var)
  (list 'setq var (list '1+ var)))

(macroexpand '(inc my-var)) ;; DSL 宏展开。我们可以看到展开后和上面的一样。


(inc my-var) ; 宏会做一个宏展示。结果在变，影响外部

;;; pass by value
;; 函数只是进行传值
(defun inc-2 (var)
  (setq var (1+ var)))

(inc-2 my-var) ;永远等于一个值，不影响外部


;;; quote 是'引号， backquote 是`
;; backqote有外部的作用，在表示前加个,逗号可动态求值; 表达式前加,@可拆散求值
;; Backquote allows you to:
;; quote a list, and
;; selectively evaluate elements of the list (with comma ,), or:
;; splice (eval & spread) the element with ,@

`(a list of ,(+ 2 3) elements) ; 在表示前加个,逗号可动态求值

(setq some-list '(2 3)) ;(a list of 5 elements)

`(1 ,@some-list 4 ,@some-list) ;backquote中表达式前有,@会拆解出来。(1 2 3 4 2 3)

• ` backquto
• ' quote

它们都是 quete，不同点在于 backquote 与逗号 , 一起使用，后面动态求值； 与 ,@ 展示元素

范例：

`(a list of ,(+ 2 3) elements) ;C-x C-e (a list of 5 elements)

'(a list of (+ 2 3) elements) ;C-x C-e (a list of (+ 2 3) elements)

;; 与 `,@` 一起使用时为展示元
(setq some-list '(2 3))
`(1 ,@some-list 4 ,@some-list) ; C-x C-e (1 2 3 4 2 3)

backquote https://www.gnu.org/software/emacs/manual/html_node/elisp/Backquote.html

关于 backquote 的更多讨论, 可以见以下地址: lisp 中的`与，是怎么用的？

使用宏可以减少重复的代码, 以下是一个使用宏来定义函数的例子:

(defun prelude-search (query-url prompt)
  "Open the search url constructed with the QUERY-URL.
PROMPT sets the `read-string prompt."
  (browse-url
   (concat query-url
     (url-hexify-string
      (if mark-active
    (buffer-substring (region-beginning) (region-end))
        (read-string prompt))))))

(defmacro prelude-install-search-engine (search-engine-name search-engine-url search-engine-prompt)                   ; #1
  "Given some information regarding a search engine, install the interactive command to search through them"    
  `(defun ,(intern (format "prelude-%s" search-engine-name)) ()                                                       ; #2
       ,(format "Search %s with a query or region if any." search-engine-name)                                        ; #3
       (interactive)
       (prelude-search ,search-engine-url ,search-engine-prompt)))                                                    ; #4

(prelude-install-search-engine "google"     "http://www.google.com/search?q="              "Google: ")                ; #5
(prelude-install-search-engine "youtube"    "http://www.youtube.com/results?search_query=" "Search YouTube: ")
(prelude-install-search-engine "github"     "https://github.com/search?q="                 "Search GitHub: ")
(prelude-install-search-engine "duckduckgo" "https://duckduckgo.com/?t=lm&q="              "Search DuckDuckGo: ")

下面对以上代码进行讲解:

第#1 行, 通过 prelude-install-search-engine 定义了一个需要 3 个参数的宏, 这个 宏的作用是生成一个函数.

第#2 行, 通过 intern 生成一个符号作为函数名, 名称为　prelude-xxx , 其中 xxx 为第一个参数的值.

第#3 行, 生成了这个函数的描述.

第#4 行, 调用 prelude-search 函数进行搜索处理.

第#5 行, 调用这个宏定义了一个名为　prelude-google 的函数.

从以上代码可以知道, 我们利用宏生成了４个名称不同的函数, 避免了手动编写函数的问题 (因为这４个函数的代码非常相似, 根据 DRY 原则应该尽量避免做这种重复工作).

关于宏的更多内容, 可以阅读 Paul Graham 的著作《On Lisp》

prelude-duckduckgo

quelpa 是配合 package.el 使用的，基于git的一个包管理器。我们在后面会发现，有不少优秀的插件，并没有提交到上面我们设置的仓库源（比如懒猫大大的很多插件），而是在 Github 上或者其他基于 Git 的仓库里，那我们就可以通过 quelpa 来安装这些插件，并且可以与 use-package 结合使用

;; 安装 `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)

• Company 补全插件 http://company-mode.github.io/
• Company是'complete anything'的意思，是一种 auto-complete 自动补全
• 支持各种后端 (back-ends): Elisp, clang, yasnippet…
• 可以更改前端样式

(use-package company
  :ensure t
  :init
  (global-company-mode t)                    ;; 全局开启 company 补全
  :config
  (setq company-idle-delay 0)                ;; 补全时间快些
  (setq company-minimum-prefix-length 1)     ;; 最少输入1个字符开启
  (setq company-show-numbers t)              ;; 给选项编号 (按快捷键 M-1、M-2 等等来进行选择)
  (setq company-dabbrev-other-buffers 'all)  ;; 从所有缓冲区收集补全信息
  (setq company-tooltip-align-annotations t) ;; 右侧附加注释
  (setq company-selection-wrap-around t)
  (setq company-transformers '(company-sort-by-occurrence)) ; 根据选择的频率进行排序，如果不喜欢可以去掉
  :bind (:map company-active-map  ;;激活时才映射
              ("C-n" . 'company-select-next)
              ("C-p" . 'company-select-previous)))  ;; 使用 `C-n` 与 `C-p` 来选择补全项，默认选择上一条和下一条候选项命令 M-n M-p

Emacs有很多很好用的补全体系，如 ivy 体系，vertico 体系等等，这里我们推荐新手朋友使用的是 vertico 。

vertico 体系包含以下几个插件

• vertico
• consult
• embark
• maginalia

它们都比较轻量级，可替代 ivy helm ido 重量级补全

;;modeline上显示我的所有的按键和执行的命令
(use-package keycast
  :ensure t
  :config
  (add-to-list 'global-mode-string '("" keycast-mode-line " "))
  (keycast-mode-line-mode t))

可激活以下2种 keycast-log-mode 新窗口显示 keycast-mode 状态栏显示

It's command-log-mode. See also clm/toggle-command-log-buffer

recentf-mode 最近打开过文件的选项

内置功能

No description for this link

让我们更快捷的在图形界面的菜单中打开最近 编辑过的文件。

;;  最近打开过文件的选项 t(rue) 1表示开启
(add-hook 'after-init-hook 'recentf-mode)
(setq-default
 recentf-max-saved-items 1000
 recentf-exclude `("/tmp/" "/ssh:" ,(concat package-user-dir "/.*-autoloads\\.el\\'")))

使用 `M-x recentf-open-files` 打开最近文件列表。后面可以使用 counsel 插件No description for this link 的 `counsel-recentf` 绑定快捷键 `C-x C-r`代替此功能。 或者使用 consult 插件 No description for this link 的 `consult-buffer` 绑定 `C-x b` 显示最近打开的文件

(use-package recentf
  :ensure nil
  :bind (("C-x C-r" . recentf-open-files))
  :hook (after-init . recentf-mode)
  :init (setq recentf-max-saved-items 300
              recentf-exclude
              '("\\.?cache" ".cask" "url" "COMMIT_EDITMSG\\'" "bookmarks"
                "\\.\\(?:gz\\|gif\\|svg\\|png\\|jpe?g\\|bmp\\|xpm\\)$"
                "\\.?ido\\.last$" "\\.revive$" "/G?TAGS$" "/.elfeed/"
                "^/tmp/" "^/var/folders/.+$" "^/ssh:" "/persp-confs/"
                (lambda (file) (file-in-directory-p file package-user-dir))))
  :config
  (push (expand-file-name recentf-save-file) recentf-exclude)
  (add-to-list 'recentf-filename-handlers #'abbreviate-file-name))

use-package

(use-package restart-emacs
  :ensure t
  :commands (restart-emacs))

;;emacs --debug-init

(shell-command-to-string "explorer.exe C:\\")

(shell-command-to-string "explorer.exe ~/.emacs.d")

(shell-command-to-string
 (encode-coding-string
  (replace-regexp-in-string "/" "\\\\"
                  (format "explorer.exe %s" (expand-file-name "~/.emacs.d")))
  'gbk))

(defun consult-directory-externally (file)
  "Open FILE externally using the default application of the system."
  (interactive "fOpen externally: ")
  (if (and (eq system-type 'windows-nt)
             (fboundp 'w32-shell-execute))
        (shell-command-to-string (encode-coding-string (replace-regexp-in-string "/" "\\\\"
              (format "explorer.exe %s" (file-name-directory (expand-file-name file)))) 'gbk))
    (call-process (pcase system-type
                      ('darwin "open")
                      ('cygwin "cygstart")
                      (_ "xdg-open"))
                    nil 0 nil
                    (file-name-directory (expand-file-name file)))))

(require 'embark)
(define-key embark-file-map (kbd "E") #'consult-directory-externally)
;;打开当前文件的目录
(defun my-open-current-directory ()
  (interactive)
  (consult-directory-externally default-directory))

在使用 C-x C-f 选择文件时，可以用embark来打开， C. E 打开文件管理器

性能： grep < ack < ag < ripgrep(rg)

使用ripgrep来进行搜索, M-x consult-ripgrep 搜索hello 会出现报错找不到rg命令。

Error running timer: (file-missing "Searching for program" "No such file or directory" "rg")

下载ripgrep: https://github.com/BurntSushi/ripgrep msys2 https://packages.msys2.org/base/mingw-w64-ripgrep

安装方式：

• PC msys2 pacman -S mingw-w64-x86_64-ripgrep
• PC github release 下载windows包，解压并加入到PARH变量中
• Arch Linux sudo pacman -S ripgrep
• macOS brew install ripgrep

再使用ripgrep来进行搜索, M-x consult-ripgrep 搜索hello ，所有当前目录下包含hello字符串的信息都在minibuffer中展示出来了。 使用 C-n 或 C-p 来预览文件或进入文件里。

(use-package embark-consult
  :ensure t
  :after (embark consult)
  :demand
  :config
  (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode))

(use-package wgrep
  :commands wgrep-change-to-wgrep-mode
  :config (setq wgrep-auto-save-buffer t))

(eval-after-load 'consult
  '(eval-after-load 'embark
     '(progn
            (require 'embark-consult)
            (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode))))

(define-key minibuffer-local-map (kbd "C-c C-e") 'embark-export-write)

(defun embark-export-write ()
  "Export the current vertico results to a writable buffer if possible.
Supports exporting consult-grep to wgrep, file to wdeired, and consult-location to occur-edit"
  (interactive)
  (require 'embark)
  (require 'wgrep)
  (pcase-let ((`(,type . ,candidates)
               (run-hook-with-args-until-success 'embark-candidate-collectors)))
    (pcase type
      ('consult-grep (let ((embark-after-export-hook #'wgrep-change-to-wgrep-mode))
                       (embark-export)))
      ('file (let ((embark-after-export-hook #'wdired-change-to-wdired-mode))
               (embark-export)))
      ('consult-location (let ((embark-after-export-hook #'occur-edit-mode))
                           (embark-export)))
      (x (user-error "embark category %S doesn't support writable export" x)))))


;;使用ripgrep来进行搜索
;;consult-ripgrep

;;everyting
;;consult-locate
;; 配置搜索中文文件
(progn
  (setq consult-locate-args (encode-coding-string "es.exe -i -p -r" 'gbk))
  (add-to-list 'process-coding-system-alist '("es" gbk . gbk))
  )
(eval-after-load 'consult
  (progn
      (setq
        consult-narrow-key "<"
        consult-line-numbers-widen t
        consult-async-min-input 2         ;; 搜索 2 个字符显示输出。默认 3
        consult-async-refresh-delay  0.15
        consult-async-input-throttle 0.2
        consult-async-input-debounce 0.1)
    ))

批量替换操作

• M-x consult-ripgrep 默认会在以 git 为根目录搜索。如 #hello ，搜索包含hello字符的文件。 C-n/C-p 下上搜索同时可以预览。
• C-c C-e 打开写
• M-x query-replace-regexp 输入hello 回车， 替换为hello 回车。 按 y 同意当前行替换，n 不同意修改
• C-c C-c 执行替换，按 q 退出

当前buffer替换操作

• C-s 搜索， 输入hello
• C-c C-e 编辑
• M-x query-replace-regexp 输入要替换的内容
• C-c C-c 执行替换，按 q 退出

配置搜索中文文件

everythin工具可以快速搜索本地文件。下载地址： https://www.voidtools.com/zh-cn/downloads/

安装好后，同时下载 ES.exe 客户端工具加入环境变量。

操作：

• 前提：PC 始终打开everything, 转为ES会调用everthing
• M-x consult-locate 回车，输入要搜索的文件如 #init.el 。 可以看到minibuffer中显示的和everthing界面搜索的是一样的。
• 再输入个#号就可以使用 orderless 的功能进行过滤。如只想看29.4中init.el文件 #init.el#29.4 选中回车即可打开对应文件

使用外部程序打开：

• M-x consult-locate 回车，输入要搜索的文件. 如搜索projeckt中的txt文件 #\.txt#project
• 使用embark C; 按x使用外部程序打开txt文件

中文搜索操作：

• M-x consult-locate 回车，输入要搜索的文件. 如 #学习

配置划分成不同文件，好以下方式方便查找

(eval-after-load 'consult (global-set-key (kbd "C-c p s") 'consult-ripgrep))  ;;  查找文件内容

consult-ripgrep 需要安装 consult No description for this link

(use-package pyim
  :ensure t
  :commands (pyim-cregexp-build)
  :init
  (defun eh-orderless-regexp (orig_func component)
    (let ((result (funcall orig_func component)))
      (pyim-cregexp-build result)))


  (defun toggle-chinese-search ()
    (interactive)
    (if (not (advice-member-p #'eh-orderless-regexp 'orderless-regexp))
        (advice-add 'orderless-regexp :around #'eh-orderless-regexp)
      (advice-remove 'orderless-regexp #'eh-orderless-regexp)))

  (defun disable-py-search (&optional args)
    (if (advice-member-p #'eh-orderless-regexp 'orderless-regexp)
        (advice-remove 'orderless-regexp #'eh-orderless-regexp)))

  ;; (advice-add 'exit-minibuffer :after #'disable-py-search)
  (add-hook 'minibuffer-exit-hook 'disable-py-search)

  (global-set-key (kbd "s-p") 'toggle-chinese-search)
  ;; use #$#pyim to search chinese and also es.exe locate
  )

使用 consult 搜索文件时使用。

添加字符集设置

;; Encoding
;; UTF-8 as the default coding system
(when (fboundp 'set-charset-priority)
  (set-charset-priority 'unicode))

(set-language-environment 'chinese-gbk)
(prefer-coding-system 'utf-8-auto)

不设置，搜索中文时有可能返回乱码

在此做简要归纳：

;; ui 界面
(global-linum-mode 1)                        ;; 显示行号, (1,2,3,t) 都代表开启，-1 关闭
(global-display-line-numbers-mode 1)         ;; 在 Window 显示行号

(setq inhibit-startup-screen t)              ;; 尝试关掉启动界面
;; (setq inhibit-startup-message t)          ;; 为inhibit-startup-screen的别名
;; (setq inhibit-splash-screen 1)            ;; 关闭启动帮助画面
(tool-bar-mode -1)                           ;; 关闭工具栏，tool-bar-mode 即为一个 Minor Mode
(scroll-bar-mode -1)                         ;; 关闭文件滑动控件
;; (menu-bar-mode -1)                        ;; 关闭菜单栏 (不关闭，使用插件时会用到)
(toggle-frame-maximized)                     ;; 全屏编辑器
(setq-default cursor-type 'bar)              ; 更改光标的样式，默认比较粗. 更多C-h v 查询帮助
;;(setq cursor-type 'bar)                    ;; 更改光标的样式。setq当前buffer生效，不能全局生效
(global-hl-line-mode t)                      ;; 高亮当前行

;; 内置补全功能n
;;(setq tab-always-indent 'complete)           ;; 使用 TAB 来列出当前补全选项
;;(icomplete-mode t)                         ;; 开启的，在按 M-x 时就有可选的选项了。使用 vertico-mode，关闭此项
(electric-pair-mode t)                       ;; 括号补全

(add-hook 'prog-mode-hook #'show-paren-mode) ;; 编程模式下，光标在括号上时高亮另一个括号
(column-number-mode t)                       ;; 在 Mode line 上显示列号，来自 simple 内置包
(global-auto-revert-mode t)                  ;; 自动加载外部修改过的文件
(delete-selection-mode t)                    ;; 选中文本后输入文本会替换文本（更符合我们习惯了的其它编辑器的逻辑。默认选中放后面
(setq make-backup-files nil)                 ;; 关闭文件自动备份。如果是有git来管理文件，备份文件没有太大意义。~ 为后缀的文件为自动生成的备份文件
(setq ring-bell-function 'ignore)            ;; 关闭 Emacs 中的错误提醒警告音
(fset 'yes-or-no-p 'y-or-n-p)                ;; 某个命令时需要输入 (yes or no) 比较麻烦，将其简化为只输入 (y or n)
(add-hook 'prog-mode-hook #'hs-minor-mode)   ;; 编程模式下，可以折叠代码块
(savehist-mode 1)                            ;; （可选）打开 Buffer 历史记录保存
(setq display-line-numbers-type 'relative)   ;; （可选）显示相对行号
(add-to-list 'default-frame-alist '(width . 90))  ;; （可选）设定启动图形界面时的初始 Frame 宽度（字符数）
(add-to-list 'default-frame-alist '(height . 55)) ;; （可选）设定启动图形界面时的初始 Frame 高度（字符数）

`M-x eval-buffer` 来执行当前所有配置

更好的默认配置

;; --- better-defaults --
;; 缓存刷新
(global-set-key (kbd "<f5>") 'revert-buffer)
(global-auto-revert-mode 1)    ;; 当访问的文件在磁盘上发生更改时，这会自动恢复缓冲区
(setq auto-rever-verbose nil)  ;; 关闭自动恢复信息

;; 设置系统的编码，避免各处的乱码
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)

;; 关闭提示声音
(setq ring-bell-function 'ignore)

;; 关闭缩进
;; (electric-indent-mode -1)

;;关闭备份文件功能。如果是有git来管理文件，备份文件没有太大意义。~ 为后 缀的文件为自动生成的备份文件 
(setq make-backup-files nil)
;; 禁止自动恢复
(setq auto-save-default nil)

;; 括号匹配
(add-hook 'emacs-lisp-mode-hook 'show-paren-mode)

;; 别名
(setq-default abbrev-mode t)
(define-abbrev-table 'global-abbrev-table '(
                        ;; signature
                        ("8jv" "jaspervincent")
                        ;; Microsoft
                        ("8ms" "Microsoft")
                        ))
;; 输入8jv空格，就补全出jaspervincent  空格也可以换成非26个字母


;; yes or no 简化为y n
(fset 'yes-or-no-p 'y-or-n-p)

;; 更改显示字体大小 16pt
;; http://stackoverflow.com/questions/294664/how-to-set-the-font-size-in-emacs
(set-face-attribute 'default nil :height 160);;

;;让鼠标滚动更好用
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1) ((control) . nil)))
(setq mouse-wheel-progressive-speed nil)

配置划分成不同文件，好以后方便查找

(defun open-init-file()
  (interactive)
  (find-file "~/.emacs.d/init.el")) 
(global-set-key (kbd "<f2>") 'open-init-file) ;; <f2> 键快速打开配置文件

(global-set-key (kbd "C-c p f") 'project-find-file) ;;   查找文件，默认绑定在 C-x p f
(eval-after-load 'consult (global-set-key (kbd "C-c p s") 'consult-ripgrep))  ;;  查找文件内容

C-c 是给用户定义的快捷键，p 代表 project ， f 代表 find-file

consult-ripgrep 需要安装 consult 和 ripgrep ， 方便查找关键字

配置文件生效的几种方法：

• 重启编辑器或者重新加 载配置文件
• `M-x eval-buffer` 去执行当前缓冲区的所有 Lisp 命令
• `C-x C-e` 来执行某一行的 Lisp 代码

• hippie-expand No description for this link

(use-package winner
  :ensure nil
  :hook (after-init . winner-mode))

内置包使用 `(winner-mode 1)` 开启。

• `winner-redo C-c left` 回退窗口
• `winner-undo C-c right` 撤消回退

IDO可以让你交互式的操作缓冲区以及文件。而Icomplete可以让你通过输入一定的文字来快速的补充完整或过滤结果。这两个一般是同时存在的，如果你想体验，你可以按下M-x或者比如C-x b，然后输入一些内容来体验。

作为一个延伸，我们再介绍另外一个内置的功能fido-mode。Fido (Fake IDO)，基本上是整合了以上两者的功能，所以不用单独开启上面的两个功能，开启这一个即可。默认的，这个没有垂直的模式，所以很多人喜欢装一些第三方的包来实现垂直模式。其实在早期的Emacs里面，你可以配置一些变量来实现垂直样式，但从Emacs 28.1开始，内置了一个fido-vertical-mode来原生实现垂直模式的FIDO。如果你喜欢垂直模式的，直接开启这个fido-vertical-mode即可。

这是一个用来管理窗口变化的全局模式。经常的，我们开启了几个Window，然后关闭了一些，我们就可以通过winner-undo，winner-redo等来撤销或者反撤销。

可以根据标题等可识别的菜单项来在当前的缓冲区中进行快速的跳转。非常适合编写org-mode，markdown等文档的时候使用。当然，在变成的环境中，也非常好用。

No description for this link

可以在跳转在不同标题。如markdown

使用

#+end_src M-x imenu #+end_src

imenu 可以显示当前所有缓冲区的列表，下面的配置可以让其拥有更精确的跳转，

;; imenu 可以显示当前所有缓冲区的列表，下面的配置可以让其拥有更精确的跳转
(defun js2-imenu-make-index ()
      (interactive)
      (save-excursion
  ;; (setq imenu-generic-expression '((nil "describe\\(\"\\(.+\\)\"" 1)))
  (imenu--generic-function '(("describe" "\\s-*describe\\s-*(\\s-*[\"']\\(.+\\)[\"']\\s-*,.*" 1)
           ("it" "\\s-*it\\s-*(\\s-*[\"']\\(.+\\)[\"']\\s-*,.*" 1)
           ("test" "\\s-*test\\s-*(\\s-*[\"']\\(.+\\)[\"']\\s-*,.*" 1)
           ("before" "\\s-*before\\s-*(\\s-*[\"']\\(.+\\)[\"']\\s-*,.*" 1)
           ("after" "\\s-*after\\s-*(\\s-*[\"']\\(.+\\)[\"']\\s-*,.*" 1)
           ("Function" "function[ \t]+\\([a-zA-Z0-9_$.]+\\)[ \t]*(" 1)
           ("Function" "^[ \t]*\\([a-zA-Z0-9_$.]+\\)[ \t]*=[ \t]*function[ \t]*(" 1)
           ("Function" "^var[ \t]*\\([a-zA-Z0-9_$.]+\\)[ \t]*=[ \t]*function[ \t]*(" 1)
           ("Function" "^[ \t]*\\([a-zA-Z0-9_$.]+\\)[ \t]*()[ \t]*{" 1)
           ("Function" "^[ \t]*\\([a-zA-Z0-9_$.]+\\)[ \t]*:[ \t]*function[ \t]*(" 1)
           ("Task" "[. \t]task([ \t]*['\"]\\([^'\"]+\\)" 1)))))
(add-hook 'js2-mode-hook
        (lambda ()
    (setq imenu-create-index-function 'js2-imenu-make-index)))
;; imenu 
(global-set-key (kbd "M-s i") 'counsel-imenu)

有些语言编程（Python，我没有念你的身份证；makefile别打喷嚏）的时候，我们非常苦恼这种TAB，空格的混用。这时候我们需要来验证下到底是空格还是TAB。光靠眼睛看，是不现实的。通过移动光标又太慢。而这个whitespace在这种情况下，就可以大显身手。

No description for this link

建议不要一直开启

M-x whitespace-mode

开启后，所有换行位置都会被标记为`$`，空格被标记为`.`，TAB被标记为空白符。

这个模式是非常有趣的，绝大部分的时候我们都不需要，但偶尔有那么的一个瞬间，我们还是会小小的心动一下，比如当看到别人的lambda显示为λ的时候。嗯，这个模式就这一个功能，会将一些特定的符号显示为一些数学样式/希腊字母样式。不必要，但很美妙。

在Emacs中管理文件？是的，这个功能就是为你的这个需求诞生的。虽然很多人觉得它不够美观，不够强大，而纷纷写了更多强大功能的特性来增强或替代它，但不可否认的是，它作为一款内置的文件管理工具，其性能以及其带来的影响都是第三方插件不能比拟的。C-x d来体验吧，它内置了很多的快捷命令，可能得稍微适应一下。

No description for this link

打开

• dired == C-x d == C-x C-f [Dir]
• dired-other-(window | frame) == C-x (4 | 5) d
• list-directory == C-x C-d

Mode

• 退出: q
• 执行 Shell 命令
  • dired-do-(async)-shell-command == ! | (&)
• 标记
  • dired-mark == m
    • 后面的 N 个: (N) m
  • Regex: dired-mark-files-regexp == % m
  • 去掉: dired-unmark-(backward) == u | <del>
  • 去掉所有: dired-unmark-all-marks == U
• 执行
  • dired-do-flagged-delete == x
• 新建
  • dired-create-directory == +
  • dired-create-empty-file 空文件
  • S // 符号链接
  • H // 硬链接
• 复制
  • dired-do-copy == C
    • (N) C // 将复制光标位置上的文件和其后N个
• 删除
  • 立即: dired-do-delete == D
  • 待删标记: dired-flag-file-deletion == d
    • e // 编辑文件
• 移动
  • 下|上
    • Space = C-n = n
    • Del = C-p = p
  • 子目录: dired-(next | prev)-dirline == > | <
  • Jump : dired-goto-file == j
  • 父目录: dired-up-directory == ^
• 打开-文件
  • dired-find-file == <RET> == f
  • dired-find-file-other-window == o
  • dired-display-file == C-o (光标不动)
  • 只读: dired-view-file == v
    • C-c == q // 返回目录清单窗口
    • s // search
    • Enter // 前进到下一行
    • = // 显示光标在哪一行
• 刷新
  • revert-buffer == g
  • dired-do-redisplay == l
• 排序-时间|文件名-(默认按文件名排序)
  • s == dired-sort-toggle-or-edit
  • C-u s
    • c : last modification time.
    • u : access time.
    • S : file size.
    • X : file extension.
• 重命名或移动
  • R
• 修改-权限|用户|用户组|时间戳
  • M // Mode
  • O // owner
  • dired-do-chgrp == G
  • T // Timestamp
• 压缩|解压缩-文件
  • dired-do-compress == Z (已压缩 则 解压缩)
  • dired-do-compress-to ~== c
• 搜索
  • dired-do-search == A
  • dired-isearch-filenames == M-s f C-s
  • dired-isearch-filenames-regexp == M-s f M-C-s
• 查询替换
  • dired-do-query-replace == Q

Dired Mode 是一个强大的模式它能让我们完成和文件管理相关的所有操作。

使用 Dired Mode，

C-x d 或 M-x dired

这个模式类似于图形界面系统中的资源管理器。你 可以在其中查看文件和目录的详细信息，对他们进行各种操作，甚至复制粘贴缓冲区中的内 容。下面是一些常用的操作（下面的所有键均需在 Dired Mode 下使用），

• `+` 创建目录
• `g` 刷新目录 通过在`C-x C-f`创建完文件后按`g`刷新显示
• `C` 拷贝
• `D` 删除
• `R` 重命名
• `d` 标记删除
• `u` 取消标记 大U全部取消
• `x` 执行所有的标记
• `s` 排序 。按修改时间或名称
• `S-6` 上级目录
• `C-x C-q` 目录下进入编辑模式，可改文件名
• %m 正则匹配，可以安装正则插件p
• `dired-jump = C-X C-j` 打开`d:/`

这里有几点可以优化的地方。第一是删除目录的时候 Emacs 会询问是否递归删除或拷贝， 这也有些麻烦我们可以用下面的配置将其设定为默认递归删除目录（出于安全原因的考虑， 也许你需要保持此行为。所有文中的配置请务必按需配置）。

;; C-x d 操作文件时，递归删除，不用询问是否递归删除
(setq dired-recursive-deletes 'always)
(setq dired-recursive-copies 'always)

第二是，每一次你进入一个回车进入一个新的目录中是，一个新的缓冲区就会被建立。这使 得我们的缓冲区列表中充满了大量没有实际意义的记录。我们可以使用下面的代码，让 Emacs 重用唯一的一个缓冲区作为 Dired Mode 显示专用缓冲区。

;; 优化缓冲区 Dired Mode 显示专用缓冲区
(put 'dired-find-alternate-file 'disabled nil)

;; 主动加载 Dired Mode
;; (require 'dired)
;; (defined-key dired-mode-map (kbd "RET") 'dired-find-alternate-file)

;; 延迟加载
(with-eval-after-load 'dired
    (define-key dired-mode-map (kbd "RET") 'dired-find-alternate-file)

使用延迟加载可以使编辑器加载速度有所提升。

启用 `dired-x` 可以让每一次进入 Dired 模式时，使用新的快捷键 `C-x C-j` 就可以进 入当前文件夹的所在的路径。

;; 打开当前文件路径dired mode C-x C-j
(require 'dired-x)

使用 `(setq dired-dwin-target 1)` 则可以使当一个窗口（frame）中存在两个分屏 （window）时，将另一个分屏自动设置成拷贝地址的目标。

;; 2个分屏间自动复制
(setq dired-dwin-target 1)

最后如果你是 Mac OS X 的用户，可以安装 `reveal-in-osx-finder` 这个插件（你可以在 这里找到它），它可以将任意文件直接在 Finder 中打开。你想安装这个插件，将其添加至上文的插件列表中即可，下次启动 Emacs 时，它就会自动帮你完成下载。使用`M-x reveal-in-osx-finder`

展开缩写。那些很长的单词/句子/表达式……总是那么讨厌，而我们需要天天写。所以才会有snippet这样的代码片段思路。虽然，代码片段工具已经十分强大了（事实上，太强大了），但更多的时候我们是用在编程语言的环境下，而在平时的文档等写作中不常用。因为snippet不能涵盖我们自定义的部分。（其实，我们可以添加自定义的部分）。

在一定程度上，snippet是内置abbrev的一种增强，但如果你喜欢的话，内置的abbrev也非常好用。你可以添加一个个人信息（邮箱，电话，网址，住址等），然后通过一两个字符快速的展开，节省我们不少的时间。

No description for this link

缩写快速扩展为目标字符。

开启：`M-x abbrev-mode`

然后我们要在需要创建缩写词的位置输入`C-x a i g`来定义一个缩写词以及它对应的完整词汇。上面的三个字母，可以简单记忆为abbrev insert global

例如：输入yn 然后键入`C-x a i g`输入“you name“，那么下次输入yn时，再输入空格或者其它的符号就会自动替换为you name。

这些被记忆下来的缩写词被记录在`~/.abbrev.defs`文件中。也可以自定义位置

(setq abbrev-file-name
     "~/.emacs.d/abbrev_defs")

配置

;; 别名
(setq-default abbrev-mode t)
(define-abbrev-table 'global-abbrev-table '(
                        ;; signature
                        ("8jv" "jaspervincent")
                        ;; Microsoft
                        ("8ms" "Microsoft")
                        ))
;; 输入8jv空格，就补全出jaspervincent  空格也可以换成非26个字母。 不展开原样显示使用C-q 空格

这个完全不需要介绍了。你甚至感觉不到它的存在，但它无处不在。你平时在minibuffer看到的函数的签名提示，参数类型提示等，都是它完成的。你不需要知道它，但它已与你形影不离。

No description for this link

一个非常简单的帮助编程的工具，用以在echo area显示函数或者变量的签名/定义。这对于编程来说是非常重要的，而且这个功能使用起来非常轻量级。

emacs 27自动开启的

M-x eldoc-mode

或者用hook方式添加到编程模式中

(add-hook 'prog-mode 'eldoc-mode)

在回显区就能看到当前函数或者变量的签名/定义了

就如同它的名字那样，它的作用就是对一段代码/文档，进行折叠/展开。比如你在编写C-Like代码的时候，`{}`包围的部分。比如一个class，比如一个function等等。可以让你的文档以及注意力变的更加的集中和聚焦。

No description for this link

开启

M-x hs-minor-mode
或者 hook中
(add-hook 'prog-mode 'hs-minor-mode)

开启后，就可以用以下命令来折叠或者展开了

hs-hide-all/hs-show-all               折叠/展开全部代码块
hs-hide-block/hs-show-block           折叠/展开当前代码块
hs-hide-initial-comment-block/hs-show-initial-comment-block  折叠/展开开始的注释

实时语法检查。或许曾经你更喜欢flycheck，或者曾经你听说过许多flymake的“坏话”，但那都是历史了。如今你应该重新来体验一下最新的flymake了。从Emacs26开始，重构之后的FlyMake已经焕然一新。是你心中想要的样子了。而且，已经是我必备的日常工具了。简单，强大。我日常使用的场景都能支持了。

No description for this link

自emacs26以来，有了很大进步，体验并不输flycheck多少。

;; flymake 语法检查 内置包
 (use-package flymake
    :ensure nil
    :diminish (flymake " Flym.")
    :hook (prog-mode . flymake-mode)
    :bind (("M-n" . flymake-goto-next-error)
            ("M-p" . flymake-goto-prev-error)))

这样配置了2个快捷键，以及它在Mode line上的表现，同时在编程模式下它会被自动启用。

一直以来，我对这个功能都不怎么感冒。我觉得它重，而且不实用。直到我折腾了它里面的几个命令，比如comment-开头的那几个，hungry delete等之后，就感觉到这些“看似三方”的功能，原来在Emacs中都已经有内置。这已经称为了我日常使用的一个基本的模式了。其实你只需要开启其中的一些你需要或者喜欢的就可以了。但无论你开启了几个，我都建议你非常认真的学习以下CC Mode的手册。太棒了！

交互式Emacs Lisp解释器。经常的，我会用它来学习和测试一些ELisp的语法以及函数等。是跟ipython，go playground差不多的东西。学习ELisp的时候，应该会经常使用到它。

啊，这个包真的不需要解释。甚至有很多人使用Emacs的原因就是因为这个包。文本的世界，或许才是你真正的生活乐趣。（这就是我现在越来越喜欢写而不是录制视频的原因。）

版本控制。你一定用过Subversion，你一定用着Git，或许你还在使用一些其他的版本控制系统。你以往的做法是安装一个又一个的插件来管理不同的系统。但内置的这个VC可以帮你用一种统一的方式来管理各种系统。不论是SVN，还是Git，一样的操作流程。

但讲真，这个插件功能虽然强大，但有些习惯（尤其是被magit这样的插件）一旦养成，还是需要一定的时间来改变和理解。但你只要适应了VC的思路，你应该会喜欢。

更重要的，在任何平台（比如Windows）上VC都没有性能问题，Magit（等插件）能做到吗？

在Emacs中使用终端。不用过多解释，也不用有过多的学习精力，就按照你想的那样使用就行了。减少了一个离开Emacs切换终端的步骤。

No description for this link

使用elisp写成的shell。类似于软件term

M-x eshell

参考使用说明 https://github.com/emacs-china/hello-emacs/blob/master/Emacs%E4%B8%AD%E7%9A%84shell--Eshell%E4%BD%BF%E7%94%A8%E7%AC%94%E8%AE%B0.org

cd /ssh:xx.com
find-file filename

之前的视频版本中，我把这个插件放到了最前面。而在本文中，我也考虑过不介绍。因为它已经是任何的系统/编程语言/工具……的标配了。包管理器。如果没有包管理器，你都不好意思在开源软件的世界里混。就连……Windows都有了winget，scoop，chocolatey。

你安装的那些第三方插件，都是通过它（或者一些它的增强包）来完成的。没有必要刻意研究它，会配置它的源，会调用它的几个命令（更新，安装，删除等）就可以了。你什么时候对它感兴趣了，它就在那里。

No description for this link

• tramp-mode https://www.emacswiki.org/emacs/TrampMode

TRAMP（Transparent Remote Access, Multiple Protocols透明远程访问，多协议）是一个用于编辑远程文件的包，

借助TRAMP,你可以像编辑本地文件一样来编辑远程文件。我通常通过 ssh 执行此操作。其它工具sshfs可以把远程服务器目录挂载到本地。

tramp的用法很简单,只要你在 `C-x C-f` 选择文件时使用一种特殊的语法格式来标示文件就行了.

tramp标示文件的语法为:

/[protocol]:[user@]hostname[#port]:path-to-file 

例如 `/ssh:[email protected]:~/tmp/t.log` 会通过ssh协议,以cnaps2用户登录10.8.6.10这台机,并访问上面的~/tmp/t.log文件.

当你用tramp打开remote文件时,会在modeline上显示一个 `@10.8.6.10` 这样的标识,说明这个是一个10.8.6.10上的远程文件.

范例：

# root身份编辑本地文件
sudo::/tmp/sc/rootfile
# 多级跳转编辑文件
ssh::www.cstu.org|sudo:www.cstuy.org:/home/zamansky/sc/rootfile

当然你也可以用sshfs服务挂载远程服务到本地来使用。

No description for this link

默认的搜索引擎是duckduckgo。可以使用`M-x eww`来启动 EWW 有它无与伦比的优势：

• 干净、纯粹，不容易分心
• 方便调整字体
• 无法执行 JS，无隐私泄漏问题

第二点非常重要，有些网页的设计实在是不方便沉浸式阅读，要不就是文字太小，要不就是背景色太亮，而在 EWW 中，这些问题都能解决，就是一般的 buffer 设置而已。

(defun my/set-eww-font (fontconfig)
  (interactive "sFontconfig(Ubuntu-20): ")
  (let ((font (or (if (string-empty-p fontconfig)
                      "Ubuntu-20"
                    fontconfig))))
    (set-face-attribute 'variable-pitch (selected-frame) :font font)))

常用快捷键

w  拷贝当前页面 URL
g  刷新当前页面
[  后退
]  前进
v  查看网页源码
b  添加当前页面到已签
B  查看已签
R  开启阅读模式
n/p  自动跳到下一页/上一页
M-RET 在新 buffer 内打开链接

n/p 是通过寻找页面中含有 next 标记的链接，比如 MySQL 的文档就支持上下页跳转。

为了方便浏览国外技术网站，需要让 EWW 走代理，可以参考：url-retrieve 使用 curl 作为后端实现。

No description for this link

在artist-mode中，你可以使用鼠标或者键盘来画线(可以带箭头)、矩形、正方形、多边形、椭圆、圆和一些类似于水蒸气似的不规则图形，当然可以擦除，填出图形，还可以在其上写字。

• 进入artist-mode `M-x artist-mode`
• 离开artist-mode `M-x artist-mode-off` 或`C-c C-c`
• mouse-2（鼠标中键）,shift mouse-2 弹出一个菜单，从菜单里你可以选择要使用左键画什么类型更改一些设定
• mouse-1 ( 鼠标左键) , shift-mouse-1 绘制部分由鼠标左键完成，请参考绘制操作。
• mouse-3 ( 鼠标右键) , shift mouse-3 mouse-3 删除鼠标下的一个字符 shift mouse-3 画出矩形框，删除框选所有字符

绘制操作（鼠标左键）

范例： 画一个rectangle

• C-c C-a C-o选择rectangle画笔
• 此时按下Ret, 然后鼠标开始移动(C-b C-n C-p C-f等cursor移送就好)
• C-c C-a C-o切到text画笔(其实不选也可以)，然后输入想要输入的字符串
• 同理就可以绘制出backend1 backend2
• C-c C-a C-o选择line 到线的中间位置按下RET，变成 +，开始走位，然后到结 尾，按下Ret,拐弯就是拐弯的地方按下RET

这个时候没有箭头等信息 可以先生成图片看看是啥样的,结束artist-mode然后首尾添加 怎么增加箭头呢？其实这里我不建议用命令或者啥的搞，如果基本就是 <,>,^,v

     +--------------+
  +--+              +----+
  |  |    nginx     |    |
  |  +--------------+    |
	    |		               |
	    v		               v
+----------+	+-----------+
|          |	|           |
| backend1 |  | backend2  |
+----------+	+-----------+

1. artist-mode/picture-mode: 生成 ascii 图
2. ditaa: 根据ascii图生成图片
3. graphviz: 生成关系图
4. plantuml: 基于graphiz之上,生成uml图

参考帮助: C-h f artist-mode

文档 切换艺术家模式。

这是一个次要模式。 如果以交互方式调用，请切换艺术家模式。 如果前缀参数为正，则启用该模式，如果为零或负，则禁用该模式。

如果从 Lisp 调用，则在 ARG 已切换时切换模式。 如果 ARG 为零、省略或为正数，则启用该模式。 如果 ARG 为负数，则禁用该模式。

要检查当前缓冲区中是否启用了次要模式，请评估艺术家模式。

当模式启用和禁用时都会调用该模式的钩子。

Artist 可让您使用鼠标和/或键盘绘制线条、正方形、矩形和多段线、椭圆形和圆形。

如何退出艺术家模式

  输入 M-x artist-mode-off 退出艺术家模式。


如何提交错误报告

  输入 M-x artist-submit-bug-report 以提交错误报告。


用鼠标绘图：

  mouse-2(鼠标中键)
   shift mouse-2 弹出一个菜单，您可以在其中选择使用 
         mouse-1 绘制的内容，并可以在其中进行一些设置（如下所述）。

  mouse-1(鼠标左键)
   shift mouse-1 绘制线条、矩形或多段线、擦除、剪切、复制
         或粘贴：

         操作               未Shift               Shift
         -------------------------------------------------- ------------
         pen(笔)           在点处填充字符 .      从最后一个点到新点的直线
         -------------------------------------------------- ------------
         Line(直线)        任意方向的直线        直线
         -------------------------------------------------- ------------
         Rectangle(长方形) 长方形                正方形
         -------------------------------------------------- ------------
         Poly-line(多段线) 任意方向的多段线      直多段线
         -------------------------------------------------- ------------
         Ellipses(椭圆)    椭圆                  圆形
         -------------------------------------------------- ------------
         Text(文本)        文本（see thru查看）  文本（overwrite覆盖）
         -------------------------------------------------- ------------
         Spray-can(喷雾罐) 喷雾罐                设置喷雾尺寸
         -------------------------------------------------- ------------
         Erase(擦除)       擦除字符              擦除矩形
         -------------------------------------------------- ------------
         Vaporize(蒸发)    擦除单线              擦除已连接线
         -------------------------------------------------- ------------
         Cut(剪切)         剪切矩形              剪切正方形
         -------------------------------------------------- ------------
         Copy(复制)        复制矩形              复制正方形
         -------------------------------------------------- ------------
         Paste(粘贴)       粘贴                  粘贴
         -------------------------------------------------- ------------
         Flood-fill(填充)  填充                  填充
         -------------------------------------------------- ------------

         * 直线只能水平、垂直或对角线。

         * 按住 mouse-1 时绘制 Poly-lens(多段线)。 当您释放按钮时，该点即被设置。 如果您希望线段是直的，请在按鼠标 1 按钮之前按住 Shift 键。 单击鼠标 2 或鼠标 3 停止绘制多段线。

         * See thru for text 意味着缓冲区中已经存在的文本将通过渲染文本中的空白可见，而 overwrite 则相反。

         * Vaporize(汽化)连接的线路仅汽化 _端点_ 已连接的线路。 另请参见变量 artist-vaporize-fuzziness。

         * Cut(剪切)副本，然后清除矩形/正方形。

         * 绘制直线或多段线时，可以设置箭头。
           有关详细信息，请参阅下面的“箭头”。


         * 模式栏显示当前选择的绘图操作。 此外，如果末尾有一个星号 (*)，则表明您当前正在绘制某些内容。

         * Flood-fill(填充)时要有耐心 —— 大面积区域需要相当长的时间才能被填充。

  mouse-3(鼠标右键) 删除指针下的字符
   shift mouse-3 擦除矩形


设置

   Set fill(设置填充) 设置填充矩形/正方形时使用的字符

   Set line(设置线条) 设置绘制线条时使用的字符

   Erase char(擦除字符) 设置擦除时使用的字符

   Rubber-banding(橡皮筋) 切换橡皮筋

   Trimming(修剪) 切换行尾的修剪（即：绘制形状时，删除行尾处的无关空白）

   Borders(边框) 切换填充形状周围线条边框的绘制


用键绘图

  M-x artist-key-set-point 执行以下操作之一：

         对于直线/矩形/正方形：设置第一个/第二个端点

                 对于多段线：设置一个点（使用 C-u M-x artist-key-set-point 设置最后一个点）

         擦除字符时：切换erasing(擦除)

         剪切/复制时：设置矩形/正方形的第一个/最后一个端点

         粘贴时：Pastes(粘贴)

  M-x artist-select-operation 选择要绘制的内容

  使用 M-x artist-next-line、M-x artist-previous-line、M-x artist-forward-char 和 M-x artist-backward-char 进行移动。

  M-x artist-select-fill-char         设置填充时使用的字符
  M-x artist-select-line-char         设置绘图时使用的字符
  M-x artist-select-erase-char        设置擦除时使用的字符
  M-x artist-toggle-rubber-banding    切换橡皮筋
  M-x artist-toggle-trim-line-endings 切换行结尾的修剪
  M-x artist-toggle-borderless-shapes 切换绘制形状的边框


箭头

   M-x artist-toggle-first-arrow  设置/取消设置线条/折线开头的箭头

   M-x artist-toggle-second-arrow 设置/取消设置线条/多段线末端的箭头


选择操作

  有一些快速选择绘图操作的按键：

   M-x artist-select-op-line               选择绘图线
   M-x artist-select-op-straight-line      选择绘制直线
   M-x artist-select-op-rectangle          选择绘图矩形
   M-x artist-select-op-square             选择绘图方块
   M-x artist-select-op-poly-line          选择绘制多段线
   M-x artist-select-op-straight-poly-line 选择绘制直折线
   M-x artist-select-op-ellipse            选择绘图椭圆
   M-x artist-select-op-circle             选择绘制圆圈
   M-x artist-select-op-text-see-thru      选择渲染文本（see thru）
   M-x artist-select-op-text-overwrite     选择渲染文本（覆盖）
   M-x artist-select-op-spray-can          用喷雾罐喷雾
   M-x artist-select-op-spray-set-size     设置喷雾罐尺寸
   M-x artist-select-op-erase-char         选择擦除字符
   M-x artist-select-op-erase-rectangle    选择擦除矩形
   M-x artist-select-op-vaporize-line      选择蒸发单线
   M-x artist-select-op-vaporize-lines     选择蒸发连接线
   M-x artist-select-op-cut-rectangle      选择剪切矩形
   M-x artist-select-op-copy-rectangle     选择复制矩形
   M-x artist-select-op-paste              选择粘贴
   M-x artist-select-op-flood-fill         选择填充


变量

  这是不同变量的简要概述。 欲了解更多信息，
  请参阅变量的文档（类型 M-x describe-variable <variable> RET）。

  artist-rubber-banding                 是否交互式地进行橡皮筋
  artist-first-char                     在第一/第二点设置什么...
  artist-second-char                    ...当不使用橡皮筋时
  artist-interface-with-rect            应该剪切/复制/粘贴带有矩形的界面
  artist-arrows                         绘制箭头时使用的箭头
  artist-aspect-ratio                   方块的字符高度与宽度
  artist-trim-line-endings              修剪行尾
  artist-flood-fill-right-border        填充时的右边框
  artist-flood-fill-show-incrementally  填充时更新显示
  artist-pointer-shape                  绘图时使用的指针形状
  artist-ellipse-left-char              用于窄椭圆的字符
  artist-ellipse-right-char             用于窄椭圆的字符
  artist-borderless-shapes              形状是否应该有边框
  artist-picture-compatibility          图片模式兼容性打开或关闭
  artist-vaporize-fuzziness             识别线条时的公差
  artist-spray-interval                 重复喷涂之间的秒数
  artist-spray-radius                   喷涂区域的大小
  artist-spray-chars                    喷雾-“颜色”
  artist-spray-new-char                 初始喷雾-“颜色”

Hooks(钩子)

  打开或关闭模式会运行艺术家模式钩子。


键位图总结
  <                 artist-toggle-first-arrow
  <down-mouse-1>    artist-down-mouse-1
  <down-mouse-2>    artist-mouse-choose-operation
  <down-mouse-3>    artist-down-mouse-3
  <down>            artist-next-line
  <left>            artist-backward-char
  <right>           artist-forward-char
  <up>              artist-previous-line
  >                 artist-toggle-second-arrow
  C-<mouse-4>       artist-select-prev-op-in-list
  C-<mouse-5>       artist-select-next-op-in-list
  C-b               artist-backward-char
  C-c C-a C-b       artist-submit-bug-report
  C-c C-a C-d       artist-select-op-erase-char
  C-c C-a C-e       artist-select-erase-char
  C-c C-a C-f       artist-select-fill-char
  C-c C-a C-k       artist-select-op-cut-rectangle
  C-c C-a C-l       artist-select-line-char
  C-c C-a C-o       artist-select-operation
  C-c C-a C-r       artist-toggle-rubber-banding
  C-c C-a C-s       artist-toggle-borderless-shapes
  C-c C-a C-t       artist-toggle-trim-line-endings
  C-c C-a C-y       artist-select-op-paste
  C-c C-a E         artist-select-op-erase-rectangle
  C-c C-a L         artist-select-op-straight-line
  C-c C-a M-w       artist-select-op-copy-rectangle
  C-c C-a P         artist-select-op-straight-poly-line
  C-c C-a R         artist-select-op-square
  C-c C-a S         artist-select-op-spray-can
  C-c C-a T         artist-select-op-text-overwrite
  C-c C-a V         artist-select-op-vaporize-lines
  C-c C-a c         artist-select-op-circle
  C-c C-a e         artist-select-op-ellipse
  C-c C-a f         artist-select-op-flood-fill
  C-c C-a l         artist-select-op-line
  C-c C-a p         artist-select-op-poly-line
  C-c C-a r         artist-select-op-rectangle
  C-c C-a s         artist-select-op-square
  C-c C-a t         artist-select-op-text-see-thru
  C-c C-a v         artist-select-op-vaporize-line
  C-c C-a z         artist-select-op-spray-set-size
  C-c C-c           artist-mode-off
  C-f               artist-forward-char
  C-n               artist-next-line
  C-p               artist-previous-line
  RET               artist-key-set-point
  S-<down-mouse-1>  artist-down-mouse-1
  S-<down-mouse-2>  artist-mouse-choose-operation
  S-<down-mouse-3>  artist-down-mouse-3


按键绑定
该命令不在任何键盘映射中。

No description for this link

unix http://www.lijigang.com/blog/2020/05/12/emacs-process-mail/

http://blog.lujun9972.win/blog/2016/12/29/%E4%BD%BF%E7%94%A8emacs%E5%8F%91%E9%80%81%E7%94%B5%E5%AD%90%E9%82%AE%E4%BB%B6/index.html

windows

No description for this link

• emms https://www.gnu.org/software/emms/

Emms的基本功能由三部分组成：核心、来源和播放器

git chttps://git.savannah.gnu.org/git/emms.git

;; (require 'general) (require 'pretty-hydra)
(use-package emms
  :general
  (z-spc-leader-def "e" 'z-music-hydra/body)
  (ranger-mode-map "C-c m" 'emms-play-dired)
  :pretty-hydra
  (z-music-hydra
   (:color red :quit-key "q")
   ("Playlists"
    (("e" emms)
     ("g" emms-play-directory "open dir")
     ("v" emms-playlist-mode-go "go to current")
     ("m" emms-metaplaylist-mode-go "metaplaylist"))
    "Controls"
    (("n" emms-next "next")
     ("p" emms-previous "previous")
     ("s" emms-shuffle "shuffle"))
    ""
    (("i" emms-mode-line-toggle "song info")
     ("w" emms-pause "pause")
     ("x" emms-stop "stop"))
    ))
  :custom
  (emms-seek-seconds 5)
  (emms-player-list '(emms-player-mpv))
  (emms-source-file-default-directory "~/Music/")
  (emms-playlist-buffer-name "*Emms*")
  (emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find)
  (emms-browser-covers 'emms-browser-cache-thumbnail)
  :config
  (require 'emms-setup)
  (emms-all)
  (emms-history-load)
  (emms-mode-line-disable))

• leuven，我最喜欢的亮色主题之一了。其实它也有暗色主题，只是没有内置。
• modus，应该是从Emacs 28开始内置的一款包含亮/暗色的主题。非常好，我很喜欢。暗色有的时候，我感觉眼睛有点累。

(load-theme 'manoj-dark)
(load-theme 'leuven t)

列举在这里，你可以按照自己的喜好，来开启或试用。

• tab-bar-mode，我个人更喜欢使用buffer切换的方式
• artist-mode，绘制一些ASCII字符画，比如线条，三角形，矩形等
• CEDET，集成开发环境（但很可惜，我更喜欢eglot或者lsp-mode）
• Ebrowse，因为不写C++代码，所以我不怎么使用
• RefTex，Latex的一些标签，引用的支持
• EWW，网络浏览器
• Gnus，邮件和新闻
• Messages，邮件管理
• ERC，IRC客户端
• Rcirc，IRC客户端
• Newsticker，RSS阅读器
• seq.el，ELisp编程中经常使用
• cl-lib.el，Common Lisp的扩展包，也经常使用
• EIEIO，面向对象编程，我是在研究eglot的源码的时候知道了这个东西
• mpc，音乐播放器

No description for this link

• ivy https://github.com/abo-abo/swiper

ivy 就为 Emacs 带来了使用体验上的巨大提升，就好像用了 oh-my-zsh 的 zsh。

打开 ivy 的链接，会发现其实这个仓库名为 swiper，里面包含了 ivy、counsel 和 swiper 三部分。它们三个分别加强了 Emacs 的三个方面：*补全系统*、*部分常用命令*、*搜索功能*。由于是作者 abo-abo（Oleh Krehel）开发的三个模块，现在都整合到了一起，我们一并安装就好。顺带一提的是，这位作者非常厉害，我们后面提到的好几个插件都由他发起和编写。

ivy，设置缓冲区格式

counsel，emacs中命令指定用ivy方式展示

swiper，代替自带的isearch搜索功能

No description for this link

• amx https://github.com/DarwinAwardWinner/amx

这个插件可以记录我们每次调用 M-x 时输入的命令历史，然后每次将最常用的显示在前面，这对于我们短时间希望频繁输入某几个命令的场景非常有用。amx 的配置十分简单：

(use-package amx
  :ensure t
  :init (amx-mode))

No description for this link

• ace-window https://github.com/abo-abo/ace-window

这又是一个 abo-abo（Oleh Krehel）的项目。我们用 Emacs 多窗口时，window 超过 3 个后就很难使用 C-x o 进行切换了。ace-window 对 C-x o 重新绑定，使用时可以为每个 window 编个号，用编号进行跳转。

;;  ace-window 窗口间的跳转插件
(use-package ace-window
  :ensure t
  :init
  ;; 所有窗口做映射
  (progn
    (global-set-key [remap other-window] 'ace-window)
    )
  ;; 绑定快捷键M-o快速切换窗口，默认为C-x o
  :bind (("M-o" . 'ace-window)))

使用`C-x o` + 动作 + 窗口编号，可以完成删除移动等操作

源码

;; Must be defined before `aw-make-frame-char' since its :set function references this.
(defvar aw-dispatch-alist
  '((?x aw-delete-window "Delete Window")
    (?m aw-swap-window "Swap Windows")
    (?M aw-move-window "Move Window")
    (?c aw-copy-window "Copy Window")
    (?j aw-switch-buffer-in-window "Select Buffer")
    (?n aw-flip-window)
    (?u aw-switch-buffer-other-window "Switch Buffer Other Window")
    (?e aw-execute-command-other-window "Execute Command Other Window")
    (?F aw-split-window-fair "Split Fair Window")
    (?v aw-split-window-vert "Split Vert Window")
    (?b aw-split-window-horz "Split Horz Window")
    (?o delete-other-windows "Delete Other Windows")
    (?T aw-transpose-frame "Transpose Frame")
    ;; ?i ?r ?t are used by hyperbole.el
    (?? aw-show-dispatch-help))

No description for this link

• mwin https://github.com/alezost/mwim.el

`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` 将光标移动到代码尾部、注释之前。再按一次则是移动到整行的行尾。 这就大大提高了写代码的效率。

(use-package mwim
  :ensure t
  :bind
  ("C-a" . mwim-beginning-of-code-or-line)
  ("C-e" . mwim-end-of-code-or-line))

No description for this link

• undo-tree https://www.emacswiki.org/emacs/UndoTree

基础撤销 ：使用`C-/` 或者 `C-_` 或者 `C-x u`

还记得 Emacs 令人头疼的撤销和重做操作吗？`C-x u` 对应了 undo 命令，而 redo 则需要先 `C-g` 让历史记录环方向转换，再进行 undo 表示 redo。

想要撤销之前的撤销？你如果撤销，然后再做一个没有任何内容编辑的行动，之后下一个撤销就会撤销刚刚的撤销，于是形成了一个重做。`C-g` 就是起到其中“没有任何内容编辑的行动”的作用。

所有的编辑都会成为 undo-tree 上的一个节点。当按下 `C-x u` 时就会显示出这棵树。当你撤销时，只需要向上寻找历史节点。而当你又做了其它编辑，这棵树就会分叉。也就意味着，你之前的记录依然被保留，你随时可以反悔，也不用担心不小心编辑了内容导致无法重做。

undo-tree 被放在了 GNU ELPA 上，并不是 MELPA，所以读者如果用了国内镜像，一定要把 GNU ELPA 加入到包管理链接中，详见 MELPA 插件源 No description for this link。

;;  undo-tree 撤销树插件
(use-package undo-tree
  :ensure t
  :init (global-undo-tree-mode))

`C-x u`进入undo tree，显示diff window

`p n` 上下移动， `b f` 在分支左右切换， `t` 显示时间戳，选定需要的状态后， `q` 退出。

No description for this link

• smart-mode-line https://github.com/Malabarba/smart-mode-line

让 mode line 更加漂亮、方便管理的插件，可以自动做一些模式的隐藏等等，也可以选择多种主题。具体读者可以自行探索。这里给个基础配置：

(use-package smart-mode-line
  :ensure t
  :init (sml/setup))

(use-package smart-mode-line
    :ensure t
    :init
    (setq sml/no-confirm-load-theme t)
    (setq sml/theme 'respectful)
    (sml/setup))

No description for this link

• good-scroll https://github.com/io12/good-scroll.el

在现代图形界面操作系统中，光标在上下移动、翻页的时候 Emacs 会直接刷新界面，滚动时也是按行滚动，比较粗糙。good-scroll 提供了平滑滚动，并且支持变速滚动，更加顺手。

(use-package good-scroll
  :ensure t
  :init (good-scroll-mode))

• Dashboard - A startup dashboard which provides certain information about your recent Emacs activities.
• Helpful - An enchancement of the Emacs built-in help system.
• sublimity - smooth-scrolling, minimap inspired by the sublime editor.
• workgroups2 - Session manager, saves all your opened buffers, their location and sizes on disk to restore later.
• ace-popup-menu - Replace GUI popup menu with something more efficient.
• GNU Hyperbole - GNU Hyperbole is an efficient and programmable hypertextual information management system. It is a toolkit and user interface for viewing, retrieving and interlinking all kinds of textual information.
• linum-relative - display relative line number in the left margin in emacs.
• beacon - Never lose your cursor again.
• pulsar - Highlights current line, an minimal alternative to beacon.
• yascroll-el - Yet Another Scroll Bar Mode.

这是 Emacs 自带的功能。 这在阅读代码的时候可是个十分方便的功能。

No description for this link

No description for this link

这是 ivy 插件 No description for this link 的额外功能——ivy view。 它与 Book mark 的区别是直接将当前 Frame 中的 Window 的状态都进行保存，然后状态间切换。例如我们打开了多个窗口做一件事，但是中途需要看一些其它文件，那么想要回到刚刚的窗口摆放方式就是 ivy view 出场的地方了。与 Book marks 类似，涉及三个命令：

• ivy-push-view：保存当前的窗口状态。配置中绑定为快捷键 `C-c v`。
• ivy-switch-view：切换窗口状态。配置中绑定为快捷键 `C-c s`。
• ivy-pop-view ：删除保存了的窗口状态。配置中绑定为快捷键 `C-c V`。

No description for this link

• which-key 显示全部组合键的选项 https://github.com/justbur/emacs-which-key

这是一个实用小工具，专门针对 Emacs 快捷键多而杂的问题，安装后，当按下部分快捷键前缀时，它会通过 minibuffer 提示你都有哪些可以按的快捷键及其命令名。例如启动了 `hs-minor-mode` 后，我们正常可以通过 `C-c @ C-h` 折叠代码块、用 `C-c @ C-s` 来展开代码块。但这个快捷键很长，时常记不住，那么有了 which-key 后我们可以先按下 `C-c @` ，此时 which-key 就会提示我们接下来可以按的键：

对于选项过多的前缀，例如 C-x ，which-key 会显示出非常多的选项，那么就需要翻页，根据它的提示，我们只需要按下 `C-h`，然后按 `n` 或 `p` 进行向下翻页和向上翻页。

在下载后可以使用下面的代码进行激活，

(defvar mypackages '(
         ;; --- which-key ---
         which-key
         ) "Default packages")
(which-key-mode 1)
;;(setq which-key-side-window-location 'right)

使用：如按`C-x`会显示所有相关的组合键

组合键显示在右侧窗口可通过`M-x customize-group which-key`找到`Which Key Side Window Location`设置为right

use-package

;; 显示全部组合键
(use-package which-key
  :ensure t
  :defer nil
  :config (which-key-mode))

想要更好解决快捷键繁杂的问题，可以进一步参考插件 hydra No description for this link。

No description for this link

• avy: https://github.com/abo-abo/avy
• 博客 https://karthinks.com/software/avy-can-do-anything/

可以快速定位

avy 又是一个 abo-abo（Oleh Krehel）开发的强大插件。其最最基本的功能就是无需鼠标的快速光标跳转，但其能力远不止于此，接下来将会花一些篇幅介绍。博客中，有详细地介绍 avy 的更多用法，以下是 avy 主要内容的介绍。

No description for this link

• hydra https://github.com/abo-abo/hydra

hydra 进一步解决了 Emacs 的复杂的命令如何组织的问题，这又是一个 abo-abo（Oleh Krehel）编写的插件。我们发现随着使用的 Emacs 插件的数量的增多，我们需要使用的命令也越来越多，一般来说我们为不同类型的命令使用不同的快捷键前缀来进行绑定，但是依然会使我们难以记忆。尽管有了上文提到的 `which-key`No description for this link 也不是在任何时候都方便快捷。

hydra 主要功能是把一组命令组织到一起， 例如 `undo-tree`、`avy`，我们会发现它有功能相近的多个命令，实际中可能都要使用，而都绑定上快捷键又会难以记忆。那么有了 hydra 我们就可以把它们都组织到一起。

;; 自定义按键组合菜单插件
(use-package hydra
  :ensure t)

后面多个包会用到。 更多自定义 hyrdra No description for this link

范例：f2后，g键放大文本，l键缩小文本

;; 定义hydra 名字可以自行定义如hydra-zoom
(defhydra hydra-zoom (global-map "<f2>")
  "zoom"
  ("g" text-scale-increase "in")
  ("l" text-scale-decrease "out"))

使用这个简单的代码，您可以：

• 使用 开始放大：`<f2> g `
• 继续放大：`g`
• 或者缩小：`l`
• 一次放大五倍：`5g`
• 停止缩放：使用不是 `g` 或 `l` 的任何键

再安装一个 use-package-hydra 小插件可以让我们的 use-package 多一个 `:hydra` 关键字，可以更方便地配置。 这段配置应当写在靠前一点的位置比较保险。

(use-package use-package-hydra
  :ensure t
  :after hydra) 

而想要和 hydra 结合可以变为：

(use-package undo-tree
  :ensure t
  :init (global-undo-tree-mode)
  :after hydra
  :bind ("C-x C-h u" . hydra-undo-tree/body)
  :hydra (hydra-undo-tree (:hint nil)
  "
  _p_: undo  _n_: redo _s_: save _l_: load   "
  ("p"   undo-tree-undo)
  ("n"   undo-tree-redo)
  ("s"   undo-tree-save-history)
  ("l"   undo-tree-load-history)
  ("u"   undo-tree-visualize "visualize" :color blue)
  ("q"   nil "quit" :color blue)))

看起来很长，其实就是定义了一个小表格，可以让我们先按下 `C-x C-h u` 来调用 `hydra-undo-tree/body` 这个命令，它会在 minibuffer 中显示出我们配置中的字符串，

此时，我们就可以通过选择 p、n、s、l 和 u 来分别触发五个 undo-tree 的命令了。 所以可以总结为，hydra 可以任意将一些命令组织在一起，方便在某个场合下调用。

一个值得注意的小细节是每个提示词的颜色，有的为红色，有的为蓝色。事实上颜色是有相对应的设置的，红色的表示按过了之后依然可以继续按，不会退出 hydra ；蓝色表示按了一次就会退出 hydra。例如上例中，我们可能需要多次 undo 和 redo，所以 `p` 和 `n` 都是红色的。而 `u` 可以展示出 undo-tree，而展示出来之后我们就不再需要 hydra 了，所以我们把 `u` 配置成了蓝色。所有颜色如下：

| color    | toggle                     |
|----------+----------------------------|
| red      |                            |
| blue     | :exit t                    |
| amaranth | :foreign-keys warn         |
| teal     | :foreign-keys warn :exit t |
| pink     | :foreign-keys run          |

不想用颜色的话也可以直接用 `:exit t` 表示按完后就退出。此外还有很多细节可以调整，例如超时退出，具体参考 hydra 的主页 Wiki 吧。

No description for this link

• multiple-cursors https://github.com/magnars/multiple-cursors.el

多光标编辑可是编辑器的必备需求。这个插件提供了多种生成多光标的方式。

• *连续多行*：我们按下 `C-SPC` 触发一次 `set-mark`，随后让光标向下移动，再输入 `M-xmc/edit-lines` 就生成连续多行光标。
• *编辑多处同一段文本*：选中文本，输入命令`mc/mark-next-like-this`、`mc/mark-previous-like-this`、 `mc/mark-all-like-this`，看名字就知道，分别可以标记下一个词、上一个词、所有词。还可以用 `mc/skip-to-next-like-this` 和 `mc/skip-to-previous-like-this` 跳过一部分。
• *鼠标点击选择*：见配置，将 `mc/toggle-cursor-on-click` 绑定到某个键位。

(use-package multiple-cursors
  :config
  (setq mc/always-run-for-all t))
;; 使用鼠标左键来选多个位置
(bind-key "M-<down-mouse-1>" 'mc/add-cursor-on-click)
(unbind-key "M-<down-mouse-1>" redshank-mode-map)

可以看到这个插件的命令比较杂，一一绑定快捷键难以记忆。这就是又一次要使用 hydra 形成一组快捷键了：

(use-package multiple-cursors
  :ensure t
  :after hydra
  :bind
  (("C-x C-h m" . hydra-multiple-cursors/body)
   ("C-S-<mouse-1>" . mc/toggle-cursor-on-click))
  :hydra (hydra-multiple-cursors
                    (:hint nil)
                    "
Up^^             Down^^           Miscellaneous           % 2(mc/num-cursors) cursor%s(if (> (mc/num-cursors) 1) \"s\" \"\")
------------------------------------------------------------------
 [_p_]   Prev     [_n_]   Next     [_l_] Edit lines  [_0_] Insert numbers
 [_P_]   Skip     [_N_]   Skip     [_a_] Mark all    [_A_] Insert letters
 [_M-p_] Unmark   [_M-n_] Unmark   [_s_] Search      [_q_] Quit
 [_|_] Align with input CHAR       [Click] Cursor at point"
                    ("l" mc/edit-lines :exit t)
                    ("a" mc/mark-all-like-this :exit t)
                    ("n" mc/mark-next-like-this)
                    ("N" mc/skip-to-next-like-this)
                    ("M-n" mc/unmark-next-like-this)
                    ("p" mc/mark-previous-like-this)
                    ("P" mc/skip-to-previous-like-this)
                    ("M-p" mc/unmark-previous-like-this)
                    ("|" mc/vertical-align)
                    ("s" mc/mark-all-in-region-regexp :exit t)
                    ("0" mc/insert-numbers :exit t)
                    ("A" mc/insert-letters :exit t)
                    ("<mouse-1>" mc/add-cursor-on-click)
                    ;; Help with click recognition in this hydra
                    ("<down-mouse-1>" ignore)
                    ("<drag-mouse-1>" ignore)
                    ("q" nil)))

之后我们便可以使用 `C-x C-h m` 来列出所有的命令，然后选择即可。第一次用 `multiple-cursors` 可能会问你是否要将 `xxx` 命令应用到所有的光标上，读者根据具体情况判断即可，之后就不会反复提问了。

利用hydra快速键组合，见hydra部分 No description for this link

No description for this link