Doom Emacs 配置文件

让我们改变对程序构建的传统态度：与其想象我们的主要任务是指导计算机做什么，不如专注于向人们解释我们想让计算机做什么。 — 高德纳

引言

与其说不喜欢 IDE，倒不如说现在太菜了用不上 IDE，况且 Linux 下除了 JetBrains 家的也没其他能用的了。

不过这都是后话了，最初用的是 Dev-C++ 和 VS 2017 ，说实话 VS 好看但太大了，对我这种写 Hello World 的人来说太浪费了。其实简单说就是，VS 太大不会用，JetBrains 太贵买不起，虽然是学生可以申请免费全家桶，但 CLion 不像 Intellij IDEA 或者 PyCharm 它没免费版啊。也就尝试着 Notepad++ 了，当时并没什么政治倾向。也就当一个自带高亮的记事本， Dev-C++ 改用还得用啊。

在用编辑器时听闻了 Vim 、 Linux 等软件，爷投 *nix 了！所以 Notepad++ 也用不上了，选来选去选了个 Emacs ，多少开始离谱起来了，因为我觉得 Vim 的且模式好麻烦。不过好在这种玩意一招鲜吃遍天，你可以为其添加任意语言的支持，什么 Intellij IDEA 、 PyCharm 还要分，太麻烦了，就问你能加 Erlang 、 Elixir 、 Haskell 等支持吗 (这不巧了吗，还都能加)。况且用 shell 时默认的快捷键也是和 Emacs 一致的。

怎么不用 Vim，因为我不喜欢切换模式啊。所以我现在也不用 evil 或 meow ，不过很推荐尝试一下 meow。怎么不用 VSCode ，其实当时也没什么 VSCode， Atom 用不用啊， Sublime 用不用啊。那当然是不用啊，不想再要一个 Chromium 啊，也不想买授权。hhhh

至于 Lisp 会不会啊，那肯定也是不会的啊，就只学会了 New Jersey style 和 The MIT approach 两个名词，干什么用，可以装 B 可以嘲讽你说有用吗。

Why Emacs

网上对于 Emacs 的推荐的文章很多，我就不说了，我就一菜鸡。

这里看看 @tecosaur 对于几个编辑器的比较

这种表有很强的主观印象，不过对于编辑器，还是推荐 VSCode、Emacs 和 Vim。我只是喜欢编辑器在编辑方面极强的扩展优势，对于 Everything (比如 mu4e, EAF)，我的兴趣并不高，或许因为它们又麻烦又没有 FF / Thunderbird 好用？

最后还是要说一下，Emacs 的优势，

• 递归编辑
• 普遍的文档字符串，以及完全的内省性
• 在可变环境中的増量修改
• 无需特定应用启用功能
• 允许客户端、服务器分离，启动守护进程，提供几乎无感知的启动时间

尤其是 Org-mode ，全球独此一家！

Issues

• Emacs 有一些令人厌烦的奇怪操作
• 某些方面很暴露年龄 (名称约定、API 等)
• Emacs 几乎 是单线程的，这意味着一些不当的操作将阻塞整个应用
• 一些其他方面的干扰……

说实话，我是个 Emacs 「低手」，并不是高手。所以 ELisp 有点痛苦，不过还好吧，起码会算 (+ 1 1)。

基础配置

创建词法绑定可以 (稍微) 加速配置文件的运行。 (更多内容可以查看 这篇博客)

1

;;; config.el -*- lexical-binding: t; -*-

配置有用且基础的个人信息

1
2
3
4
5

(setq user-full-name "GinShio"
      user-mail-address "ginshio78@gmail.com"
      user-gpg-key "9E2949D214995C7E"
      wakatime-api-key "cb5cccd0-e5a0-4922-abfd-748a42a96cae"
      org-directory "~/org")

显然这可以被 GPG 或其他程序使用。

设置默认值

尝试一下别人的默认值，比如 angrybacon/dotemacs

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

(setq-default
 delete-by-moving-to-trash t        ; 将文件删除到回收站
 window-combination-resize t        ; 从其他窗口获取新窗口的大小
 x-stretch-cursor t                 ; 将光标拉伸到字形宽度
 )

(setq! undo-limit 104857600         ; 重置撤销限制到 100 MiB
       auto-save-default t          ; 没有人喜欢丢失工作，我也是如此
       truncate-string-ellipsis "…" ; Unicode 省略号相比 ascii 更好
                                    ; 同时节省 /宝贵的/ 空间
       password-cache-expiry nil    ; 我能信任我的电脑 ... 或不能?
       ; scroll-preserve-screen-position 'always
                                    ; 不要让 `点' (光标) 跳来跳去
       scroll-margin 2              ; 适当保持一点点边距
       gc-cons-threshold 1073741824
       read-process-output-max 1048576
       )

(remove-hook 'text-mode-hook #'visual-line-mode)
(add-hook 'text-mode-hook #'auto-fill-mode)
(add-hook! 'window-setup-hook #'toggle-frame-fullscreen)
                                    ; 设置最大化启动
;;(display-time-mode t)             ; 开启时间状态栏
(require 'battery)
(when (and battery-status-function
           (not (string-match-p "N/A"
                                (battery-format "%B"
                                                (funcall battery-status-function)))))
  (display-battery-mode 1))         ; 知道还剩多少 ⚡️ 很重要

(global-subword-mode 1)             ; 识别驼峰，而不是傻瓜前进
(global-unset-key (kbd "C-z"))      ; 关闭 "C-z" 最小化
(define-key! global-map "C-s" #'+default/search-buffer)
(map! (:leader (:desc "load a saved workspace" :g "wr" #'+workspace/load))) ;; workspace load keybind

(when IS-WINDOWS
  (setq-default buffer-file-coding-system 'utf-8-unix)
  (set-default-coding-systems 'utf-8-unix)
  (prefer-coding-system 'utf-8-unix))
                                    ; 将 Windows 上的编码改为 UTF-8 Unix 换行

(custom-set-variables '(delete-selection-mode t) ;; delete when you select region and modify
                      '(delete-by-moving-to-trash t) ;; delete && move to transh
                      '(inhibit-compacting-font-caches t) ;; don’t compact font caches during GC.
                      '(gc-cons-percentage 1))

(add-hook 'prog-mode-hook (lambda () (setq show-trailing-whitespace 1)))
                                    ; 编程模式下让结尾的空白符亮起

定义一个自己的 key leader，或许没什么用

1
2

(after! general
  (general-create-definer ginshio/leader :prefix "s-y"))

默认情况下通过自定义界面所做的修改会被添加到 init.el 中。不过正常的方法是将它们放在 .custom.el 中。

1
2

(setq-default custom-file (expand-file-name ".custom.el" doom-private-dir))
(when (file-exists-p custom-file) (load custom-file))

设置一个方便的在 window 之间进行切换的快捷键。

1
2
3
4
5
6

(map! :map ctl-x-map
      "<left>"   #'windmove-left
      "<down>"   #'windmove-down
      "<up>"     #'windmove-up
      "<right>"  #'windmove-right
      )

如果是 evil 用户可以改为下面这种

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

(map! :map evil-window-map
      "SPC" #'rotate-layout
      ;; 方向
      "<left>"   #'evil-window-left
      "<down>"   #'evil-window-down
      "<up>"     #'evil-window-up
      "<right>"  #'evil-window-right
      ;; 交换窗口
      "C-<left>"   #'+evil/window-move-left
      "C-<down>"   #'+evil/window-move-down
      "C-<up>"     #'+evil/window-move-up
      "C-<right>"  #'+evil/window-move-right
      )

Doom 配置

拉取 doom-emacs 仓库的分支

• git commit: aed2972d74
• doom-version: 3.0.0-dev
• doom-modules-version: 21.12.0-dev

模组

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

;;; init.el -*- lexical-binding: t; -*-

;; This file controls what Doom modules are enabled and what order they load
;; in. Remember to run 'doom sync' after modifying it!

;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
;;      documentation. There you'll find a link to Doom's Module Index where all
;;      of our modules are listed, including what flags they support.

;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
;;      'C-c c k' for non-vim users) to view its documentation. This works on
;;      flags as well (those symbols that start with a plus).
;;
;;      Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
;;      directory (for easy access to its source code).

(doom! :input
       <<doom-input>>

       :completion
       <<doom-completion>>

       :ui
       <<doom-ui>>

       :editor
       <<doom-editor>>

       :emacs
       <<doom-emacs>>

       :term
       <<doom-term>>

       :checkers
       <<doom-checkers>>

       :tools
       <<doom-tools>>

       :os
       <<doom-os>>

       :lang
       <<doom-lang>>

       :email
       <<doom-email>>

       :app
       <<doom-app>>

       :config
       <<doom-config>>
       )

• 结构

  这是一篇文学编程，同时也是 Doom Emacs 的配置文件。Doom 对其支持良好，更多详情可以通过 literate (文学) 模块了解。

  1 2	literate (default +bindings +smartparens)

• 接口

  可以做很多事来增强 Emacs 的功能，。

  输入 : 中日文输入与键盘布局，我主要依赖系统输入法 fcitx 且不输入法语，因此不开此选项 emacs-lisp ;;chinese ;;japanese ;;layout ; auie,ctsrnm is the superior home row

  补全 : 或许叫补全有点不合适，不过也就这样了。另外说一下， helm 、 ido 、 ivy 以及 vertico 是功能一致的，生态不同的四个包 emacs-lisp company ; the ultimate code completion backend ;;helm ; the *other* search engine for love and life ;;ido ; the other *other* search engine... ;;(ivy ; a search engine for love and life ;; +icons ; ... icons are nice ;; +prescient) ; ... I know what I want(ed) (vertico +icons) ; the search engine of the future

  UI : 好不好看就看你这么配置了 emacs-lisp ;;deft ; notational velocity for Emacs doom ; what makes DOOM look the way it does doom-dashboard ; a nifty splash screen for Emacs doom-quit ; DOOM quit-message prompts when you quit Emacs (emoji +unicode +github) ; 🙂 hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW ;;hydra ;;indent-guides ; highlighted indent columns (ligatures +extra) ; ligatures and symbols to make your code pretty again ;;minimap ; show a map of the code on the side modeline ; snazzy, Atom-inspired modeline, plus API nav-flash ; blink cursor line after big motions ;;neotree ; a project drawer, like NERDTree for vim ophints ; highlight the region an operation acts on (popup ; tame sudden yet inevitable temporary windows +all ; catch all popups that start with an asterix +defaults) ; default popup rules ;;tabs ; a tab bar for Emacs treemacs ; a project drawer, like neotree but cooler ;;unicode ; extended unicode support for various languages vc-gutter ; vcs diff in the fringe vi-tilde-fringe ; fringe tildes to mark beyond EOB (window-select ; visually switch windows +numbers) workspaces ; tab emulation, persistence & separate workspaces zen ; distraction-free coding or writing

  编辑器 : VI VI VI Editor of the Beast emacs-lisp ;;(evil +everywhere); come to the dark side, we have cookies file-templates ; auto-snippets for empty files fold ; (nigh) universal code folding (format +onsave) ; automated prettiness ;;god ; run Emacs commands without modifier keys ;;lispy ; vim for lisp, for people who don't like vim multiple-cursors ; editing in many places at once ;;objed ; text object editing for the innocent ;;parinfer ; turn lisp into python, sort of rotate-text ; cycle region at point between text candidates snippets ; my elves. They type so I don't have to ;;word-wrap ; soft wrapping with language-aware indent

  Emacs : 增强一下吧，不然真的是笔记本了 (其实不是 emacs-lisp (dired +icons) ; making dired pretty [functional] electric ; smarter, keyword-based electric-indent (ibuffer +icons) ; interactive buffer management undo ; persistent, smarter undo for your inevitable mistakes vc ; version-control and Emacs, sitting in a tree

  终端 : 也许我应该卸载掉我的 Konsole emacs-lisp ;;eshell ; the elisp shell that works everywhere ;;shell ; simple shell REPL for Emacs ;;term ; basic terminal emulator for Emacs vterm ; the best terminal emulation in Emacs

  检测 : 可以告诉我哪里不对，但我觉得我应该先好好背背单词或者看看 PEP8 emacs-lisp syntax ; tasing you for every semicolon you forget (:if (or (executable-find "hunspell") (executable-find "aspell")) spell) ; tasing you for misspelling mispelling ;;grammar ; tasing grammar mistake every you make

  工具 : Workflow in Emacs! emacs-lisp ansible biblio ; Writes a PhD for you (citation needed) (debugger +lsp) ; FIXME stepping through code, to help you add bugs ;;direnv ;;docker ;;editorconfig ; let someone else argue about tabs vs spaces ;;ein ; tame Jupyter notebooks with emacs (eval +overlay) ; run code, run (also, repls) ;;gist ; interacting with github gists (lookup ; helps you navigate your code and documentation +dictionary ; dictionary/thesaurus is nice +docsets) ; ...or in Dash docsets locally (lsp +peek) ; M-x vscode (magit ; a git porcelain for Emacs +forge) ; interface with git forges make ; run make tasks from Emacs ;;pass ; password manager for nerds pdf ; pdf enhancements ;;prodigy ; FIXME managing external services & code builders rgb ; creating color strings ;;taskrunner ; taskrunner for all your projects ;;terraform ; infrastructure as code ;;tmux ; an API for interacting with tmux ;;upload ; map local to remote projects via ssh/ftp

  OS : 有个问题，我会用 MAC 吗 emacs-lisp (:if IS-MAC macos) ; improve compatibility with macOS tty ; improve the terminal Emacs experience

• 编程语言支持

  最爽的事情就是，我可以在 Emacs 中编写任何语言 (的 Hello World)

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

  ;;agda ; types of types of types of types... ;;beancount ; mind the GAAP (cc +lsp) ; C > C++ == 1 ;;clojure ; java with a lisp ;;common-lisp ; if you've seen one lisp, you've seen them all ;;coq ; proofs-as-programs ;;crystal ; ruby at the speed of c ;;csharp ; unity, .NET, and mono shenanigans data ; config/data formats ;;(dart +flutter) ; paint ui and not much else ;;dhall (elixir +lsp) ; erlang done right ;;elm ; care for a cup of TEA? emacs-lisp ; drown in parentheses (erlang +lsp) ; an elegant language for a more civilized age ;;ess ; emacs speaks statistics ;;factor ;;faust ; dsp, but you get to keep your soul ;;fortran ; in FORTRAN, GOD is REAL (unless declared INTEGER) ;;fsharp ; ML stands for Microsoft's Language ;;fstar ; (dependent) types and (monadic) effects and Z3 ;;gdscript ; the language you waited for ;;(go +lsp) ; the hipster dialect ;;(haskell +lsp) ; a language that's lazier than I am ;;hy ; readability of scheme w/ speed of python ;;idris ; a language you can depend on json ; At least it ain't XML ;;(java +lsp) ; the poster child for carpal tunnel syndrome (javascript +lsp) ; all(hope(abandon(ye(who(enter(here)))))) ;;julia ; a better, faster MATLAB ;;kotlin ; a better, slicker Java(Script) (latex ; writing papers in Emacs has never been so fun +latexmk ; what else would you use? +cdlatex ; quick maths symbols +fold) ; fold the clutter away nicities ;;lean ; for folks with too much to prove ;;ledger ; be audit you can be lua ; one-based indices? one-based indices markdown ; writing docs for people to ignore ;;nim ; python + lisp at the speed of c ;;nix ; I hereby declare "nix geht mehr!" ;;ocaml ; an objective camel (org ; organize your plain life in plain text +pretty ; yessss my pretties! (nice unicode symbols) +dragndrop ; drag & drop files/images into org buffers +hugo ; use Emacs for hugo blogging ;;+noter ; enhanced PDF notetaking ;;+jupyter ; ipython/jupyter support for babel +pandoc ; export-with-pandoc support +gnuplot ; who doesn't like pretty pictures ;;+pomodoro ; be fruitful with the tomato technique +present ; using org-mode for presentations ;; +roam2 ; wander around notes ) ;;php ; perl's insecure younger brother ;;plantuml ; diagrams for confusing people more ;;purescript ; javascript, but functional (python ; beautiful is better than ugly +pyenv +lsp +pyright) qt ; the 'cutest' gui framework ever ;;racket ; a DSL for DSLs ;;raku ; the artist formerly known as perl6 ;;rest ; Emacs as a REST client ;;rst ; ReST in peace ;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"} ;;(rust +lsp) ; Fe2O3.unwrap().unwrap().unwrap().unwrap() ;;scala ; java, but good ;;(scheme +guile) ; a fully conniving family of lisps sh ; she sells {ba,z,fi}sh shells on the C xor ;;sml ;;solidity ; do you need a blockchain? No. ;;swift ; who asked for emoji variables? ;;terra ; Earth and Moon in alignment for performance. web ; the tubes yaml ; JSON, but readable ;;zig ; C, but simpler

• Everything in Emacs

  leave Emacs

  邮件 : 说实话，我想用 Thunderbird emacs-lisp ;;(mu4e +org +gmail) ;;notmuch ;;(wanderlust +gmail)

  应用 : 可以在 Emacs 中上网看新闻。或许我可以用 irc 聊天 emacs-lisp ;;calendar ;;emms everywhere ; *leave* Emacs!? You must be joking irc ; how neckbeards socialize ;;(rss +org) ; emacs as an RSS reader ;;twitter ; twitter client https://twitter.com/vnought

视觉设置

• 字体设置

  ‘Source Code Pro’ 和 ‘Fira Code’ 的效果都很不错，‘JetBrains Mono’ 和 ‘IBM Plex Mono’ 或许也不错。还是比较推荐 Mono 字体，等宽看代码舒服。

  Unicode 字体为什么不试试 ‘JuliaMono’ 呢？

  1 2 3 4 5 6

  (setq doom-font (font-spec :family "Source Code Pro" :size 15) doom-big-font (font-spec :family "Source Code Pro" :size 30) doom-variable-pitch-font (font-spec :family "Source Code Variable" :size 15) doom-unicode-font (font-spec :family "JuliaMono") doom-serif-font (font-spec :family "TeX Gyre Cursor") )

  不过这都是西文字体，没有考虑过 CJK 用户的感受吗！！在后面的 杂项 中，将详细说一下 CJK 字体的配置。

  除了这些字体外，字体 Merriweather 还被用于 nov.el 中，字体 Alegreya 作为衬线比例字体被用于 Org 文件的 writeroom-mode 中的 mixed-pitch-mode 。

• 主题和 modeline

  doom-one 是 Doom 自带的大而全的主题，里面实在太多好看的主题了，干嘛还要自己找。这里我想在众多我喜欢的主题中，启动时随机选取一款。

  1 2 3 4 5 6 7 8

  (setq doom-theme (let ((themes '(doom-vibrant doom-fairy-floss doom-dracula doom-Iosvkem doom-moonlight doom-monokai-pro doom-tokyo-night))) (elt themes (random (length themes)))))

  当然你不喜欢这样，可以直接指定一款。

  1	(setq doom-theme 'doom-vibrant)

  设置一下 modeline，比如说图标、文件名称以及彩虹猫 (Nyan cat)！

  1 2 3 4 5

  (after! doom-modeline (custom-set-variables '(doom-modeline-buffer-file-name-style 'relative-to-project) '(doom-modeline-major-mode-icon t) '(doom-modeline-modal-icon nil)) (nyan-mode t))

• 杂项

  相对行号可以很好的知道距离目标行有多远，然后用快捷键 C-u num <UP> 或 ESC num <UP> 到达你想去的行。

  1	(setq display-line-numbers-type 'relative)

  我想设置一下更好看的默认缓冲区名称

  1 2	(setq doom-fallback-buffer-name "► Doom" +doom-dashboard-name "► Doom")

  再来说说初始化 doom 时，UI 上其实还有很多能做的，比如说关闭丑的不行的 menu-bar ，设置光标模式，以及 CJK 字体等。

  需要说明一下，字体在 GUI 下是有效的，TUI 下使用的应该是终端设置。另外，使用 mono 字体时，CJK 一般是西文字号的 1.2 倍，这样一个 CJK 符号将是西文符号的 2 倍。比较建议西文字体设置为 5 的倍数，这样得到的 CJK 字符都能是一个整数值。

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

  (defun ginshio/doom-init-ui-misc() (menu-bar-mode -1) ;; disable menu-bar (setq-default cursor-type 'box) ;; set box style cursor (blink-cursor-mode -1) ;; cursor not blink <<doom-dashboard-layout>> (if (display-graphic-p) (progn ;; NOTE: ONLY GUI ;; set font (dolist (charset '(kana han symbol cjk-misc bopomofo gb18030)) (set-fontset-font (frame-parameter nil 'font) charset (font-spec :family "Source Han Mono"))) (appendq! face-font-rescale-alist '(("Source Han Mono" . 1.2) )) <<doom-image-banner>> ;; random banner image from bing.com, NOTE: https://emacs-china.org/t/topic/264/33 ) (progn ;; NOTE: ONLY TUI <<doom-ascii-banner>> ))) (add-hook! 'doom-init-ui-hook #'ginshio/doom-init-ui-misc)

辅助宏

这些是 doom 添加的一些非常有用的宏

• load! 可以相对于本文件进行外部 .el 文件的加载
• use-package! 用于配置包
• add-load-path! 将指定目录添加到 load-path 中，可以让 Emacs 在使用 require 和 use-package 时在 load-path 中进行查找
• map! 用于绑定新的快捷键

允许 CLI 运行 org-babel 程序

在 Org 中有时会写一点代码，Org-Babel 就是各个语言在 Org-mode 中的巴别塔。大家都可以通过它来直接运行。

但是在配置文件也会有一些代码，如果在 CLI 中执行 doom sync 之类的操作，大量的代码块输出会直接污染输出。这不能忍！

好在 DOOM 提供了每次运行 CLI 前读取 $DOOMDIR/cli.el 的特性，我们可以不再手动确认是否运行某个代码块 (org-confirm-babel-evaluate)，并且用 org-babel-execute-src-block 来沉默这些代码块，避免污染输出。

1
2
3
4
5

;;; cli.el -*- lexical-binding: t; -*-
(setq! org-confirm-babel-evaluate nil)
(advice-add 'org-babel-execute-src-block
            :around #'(lambda (orig-fn &rest args)
                        (quiet! (apply orig-fn args))))

dashboard

Dashboard 是打开 Emacs 的主页，在这里添加一些常用命令是很舒服的。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

(map! :map +doom-dashboard-mode-map
      :desc "org agenda" "a" #'org-agenda
      :desc "find file" "f" #'find-file
      :desc "recent session" "R" #'doom/quickload-session
      :desc "recent files" "r" #'counsel-recentf
      :desc "config dir" "C" #'doom/open-private-config
      :desc "open config.org" "c" (cmd! (find-file (expand-file-name "config.org" doom-private-dir)))
      ;; :desc "open dotfile" "." (cmd! (doom-project-find-file "~/.config/"))
      :desc "notes (roam)" "n" #'org-roam-node-find
      :desc "switch buffer" "b" #'+vertico/switch-workspace-buffer
      ;; :desc "switch buffers (all)" "B" #'consult-buffer
      :desc "ibuffer" "i" #'ibuffer
      :desc "open project" "p" #'counsel-projectile-switch-project
      ;; :desc "set theme" "t" #'consult-theme
      :desc "quit" "q" #'save-buffers-kill-terminal
      :desc "documentation" "H" #'doom/help
      :desc "show keybindings" "h" (cmd! (which-key-show-major-mode)))

那现在 dashboard 所展示的命令并不是很有用了，移除掉它们

1
2
3
4

(remove-hook '+doom-dashboard-functions
             #'doom-dashboard-widget-shortmenu)
(add-hook! '+doom-dashboard-mode-hook (hide-mode-line-mode 1)
           (hl-line-mode 1))

其他设置

窗口标题

我更喜欢窗口展示缓冲区的名字，然后是项目文件夹 (如果可用)。

1
2
3
4
5
6

(setq! frame-title-format
      '("%b – Doom Emacs"
        (:eval
         (let ((project-name (projectile-project-name)))
           (unless (string= "-" project-name)
             (format "  -  [%s]" project-name))))))

启动界面

@tecosaur 做了一个相当棒的启动画面，心动！但是太复杂了。我只是想简单的在每次重启时更换 banner，仅此而已。

1
2
3
4

(setq! fancy-splash-image
       (let ((banners (directory-files (expand-file-name "banners" doom-private-dir)
                                       'full (rx ".png" eos))))
         (elt banners (random (length banners)))))

当然，不要忘记 ASCII banner

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

(setq! ginshio/+doom-dashbord-ascii-banner
       (split-string (with-output-to-string
                       (call-process "cat" nil standard-output nil
                                     (let ((banners (directory-files (expand-file-name "banners" doom-private-dir)
                                                                     'full (rx ".txt" eos))))
                                       (elt banners (random (length banners))))))
                     "\n" t))
(setq! +doom-dashboard-ascii-banner-fn
       #'(lambda ()
           (mapc (lambda (line)
                   (insert (propertize (+doom-dashboard--center +doom-dashboard--width line)
                                       'face 'doom-dashboard-banner) " ")
                   (insert "\n"))
                 ginshio/+doom-dashbord-ascii-banner)))

守护进程

守护进程是个好东西，可惜我用的是 WSL，没有 systemd ，不过 EmacsWiki 中还是列出了各种 Daemon 的方法。

Systemd (Not WSL)

~/.config/systemd/user/emacs.service

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

[Unit]
Description=Emacs text editor
Documentation=info:emacs man:emacs(1) https://gnu.org/software/emacs/

[Service]
Type=forking
ExecStart=/usr/bin/emacs --daemon
ExecStop=/usr/bin/emacsclient --no-wait --eval "(progn (setq kill-emacs-hook 'nil) (kill-emacs))"
Restart=on-failure

[Install]
WantedBy=default.target

Launchd (MacOS)

/Library/LaunchAgents/gnu.emacs.daemon.plist

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN"
    "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
 <plist version="1.0">
  <dict>
    <key>Label</key>
    <string>gnu.emacs.daemon</string>
    <key>ProgramArguments</key>
    <array>
      <string>/Applications/Emacs.app/Contents/MacOS/Emacs</string>
      <string>--daemon</string>
    </array>
    <key>RunAtLoad</key>
    <true/>
    <key>ServiceDescription</key>
    <string>Gnu Emacs Daemon</string>
  </dict>
 </plist>

rc.d (FreeBSD)

这来自 FreeBSD 论坛的讨论 /etc/init.d/emacsd

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

#!/bin/sh # # PROVIDE: emacsd # REQUIRE: LOGIN # KEYWORD: shutdown . /etc/rc.subr name="emacsd" rcvar="${name}_enable" start_precmd="${name}_prestart" load_rc_config $name : "${emacsd_enable:="NO"}" : "${emacsd_user:="nobody"}" piddir="/var/run/${emacsd_user}" pidfile="${piddir}/${name}_daemon.pid" pidfile_child="${piddir}/${name}_emacs.pid" user_id="$(id -u ${emacsd_user}" emacsd_env="$(env -iL ${user_id} XDG_RUNTIME_DIR=/var/run/user/${user_id} HOME=/home/${emacsd_user} | tr '\n' ' ')" proc_cmd="/usr/local/bin/emacs" proc_args="--fg-daemon -u ${emacsd_user}" command="/usr/sbin/daemon" command_args="-f -P ${pidfile} -p ${pidfile_child} -r ${proc_cmd} ${proc_args}" emacsd_prestart() { [ -z "${XDG_RUNTIME_DIR}" ] && XDG_RUNTIME_DIR="/var/run/user/$(id -u ${emacsd_user})" ! [ -d "${XDG_RUNTIME_DIR}" ] && \ install -d -o "$(id -u ${emacsd_user})" -m 0700 "${XDG_RUNTIME_DIR}" - ! [ -d "${piddir}" ] && \ install -d -o "$(id -u ${emacsd_user})" -g "$(id -u ${emacsd_user})" "${piddir}" - return 0 } run_rc_command "$1"

rc.d (Linux, Maybe WSL)

这是 EmacsWiki 上为 GNU/Debian 创建的 rc.d 脚本，或许 WSL 也能用， /etc/init.d/emacsd

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92

#!/bin/sh ### BEGIN INIT INFO # Provides: emacsd # Required-Start: $remote_fs $syslog # Required-Stop: $remote_fs $syslog # Default-Start: 2 3 4 5 # Default-Stop: 0 1 6 # Short-Description: Start emacsd at boot time # Description: Enable service provided by daemon. ### END INIT INFO # Local Settings PATH=/usr/local/bin:/usr/bin:/bin # emacs location. emacs="emacs" emacsclient="emacsclient" # EE code EE_EMACS_NOT_FOUND=1 EE_INVALID_OPTION=2 EE_EMACS_FAIL_TO_START=3 EE_EMACS_FAIL_TO_STOP=4 # Real code begins here if [ -z `which emacs` ] then log_daemon_msg "Error: Emacs not found. emacsd will now exit." exit $EE_EMACS_NOT_FOUND fi # TODO Start emacs as normal user "emacsd" or "daemon" #emacs run under this uid emacsd_uid="1000" socket_file="/tmp/emacs${emacsd_uid}/server" case "$1" in start) #check whether already started if [ -e "$socket_file" ] then echo "Error: emacsd already started." exit $EE_EMACSD_ALREADY_STARTED fi echo "Start emacs daemon ..." if sudo -u"#"$emacsd_uid $emacs --daemon then echo "emacsd is up." exit 0 else echo "Error: emacsd failed to start." exit $EE_EMACS_FAIL_TO_START fi ;; stop) #options="-s $socket_file" options="" lispcode="(kill-emacs)" if sudo -u"#"$emacsd_uid $emacsclient $options --eval $lispcode then echo "emacsd is down." exit 0 else echo "Error: emacsd failed to stop." exit $EE_EMACS_FAIL_TO_STOP fi ;; restart|force-reload) if [ -e "$socket_file" ] then $0 stop fi $0 start exit $? ;; *) echo "Usage: /etc/init.d/emacsd {start|stop|restart|force-reload}" if ! [ -z "$1" ] then echo "No such option:" $* exit $EE_INVALID_OPTION fi ;; esac

好了，让其开机启动吧！

• Systemd (Not WSL)

  1	systemctl --user enable emacs.service

• Launchd (MacOS)

  1	launchctl load -w ~/Library/LaunchAgents/gnu.emacs.daemon.plist

剩下两个实在不会了。。。

做一个 desktop 文件，可以直接从桌面启动，再添加一些打来文件的默认应用

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

[Desktop Entry]
Name=Emacs client
GenericName=Text Editor
Comment=A flexible platform for end-user applications
MimeType=text/english;text/plain;text/x-makefile;text/x-c++hdr;text/x-c++src;text/x-chdr;text/x-csrc;text/x-java;text/x-moc;text/x-pascal;text/x-tcl;text/x-tex;application/x-shellscript;text/x-c;text/x-c++;
Exec=emacsclient -create-frame --alternate-editor="" --no-wait %F
Icon=emacs
Type=Application
Terminal=false
Categories=TextEditor;Utility;
StartupWMClass=Emacs
Keywords=Text;Editor;
X-KDE-StartupNotify=false

emacsclient 似乎不会开始于 dashboard，修复一下这个让我不爽的问题

1
2

(when (daemonp)
  (add-hook! 'server-after-make-frame-hook (switch-to-buffer +doom-dashboard-name)))

既然有了 emacsclient，那就抄一下 @tecosaur 的启动脚本吧

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

#!/usr/bin/env bash
force_tty=false
force_wait=false
stdin_mode=""

args=()

while :; do
    case "$1" in
        -t | -nw | --tty)
            force_tty=true
            shift ;;
        -w | --wait)
            force_wait=true
            shift ;;
        -m | --mode)
            stdin_mode=" ($2-mode)"
            shift 2 ;;
        -h | --help)
            echo -e "\033[1mUsage: e [-t] [-m MODE] [OPTIONS] FILE [-]\033[0m

Emacs client convenience wrapper.

\033[1mOptions:\033[0m
\033[0;34m-h, --help\033[0m            Show this message
\033[0;34m-t, -nw, --tty\033[0m        Force terminal mode
\033[0;34m-w, --wait\033[0m            Don't supply \033[0;34m--no-wait\033[0m to graphical emacsclient
\033[0;34m-\033[0m                     Take \033[0;33mstdin\033[0m (when last argument)
\033[0;34m-m MODE, --mode MODE\033[0m  Mode to open \033[0;33mstdin\033[0m with

Run \033[0;32memacsclient --help\033[0m to see help for the emacsclient."
            exit 0 ;;
        --*=*)
            set -- "$@" "${1%%=*}" "${1#*=}"
            shift ;;
        *)
            if [ "$#" = 0 ]; then
                break; fi
            args+=("$1")
            shift ;;
    esac
done

if [ ! "${#args[*]}" = 0 ] && [ "${args[-1]}" = "-" ]; then
    unset 'args[-1]'
    TMP="$(mktemp /tmp/emacsstdin-XXX)"
    cat > "$TMP"
    args+=(--eval "(let ((b (generate-new-buffer \"*stdin*\"))) (switch-to-buffer b) (insert-file-contents \"$TMP\") (delete-file \"$TMP\")${stdin_mode})")
fi

if [ -z "$DISPLAY" ] || $force_tty; then
    # detect terminals with sneaky 24-bit support
    if { [ "$COLORTERM" = truecolor ] || [ "$COLORTERM" = 24bit ]; } \
        && [ "$(tput colors 2>/dev/null)" -lt 257 ]; then
        if echo "$TERM" | grep -q "^\w\+-[0-9]"; then
            termstub="${TERM%%-*}"; else
            termstub="${TERM#*-}"; fi
        if infocmp "$termstub-direct" >/dev/null 2>&1; then
            TERM="$termstub-direct"; else
            TERM="xterm-direct"; fi # should be fairly safe
    fi
    emacsclient --tty -create-frame --alternate-editor="" "${args[@]}"
else
    if ! $force_wait; then
        args+=(--no-wait); fi
    emacsclient -create-frame --alternate-editor="" "${args[@]}"
fi

包

加载结构

doom 通过 packages.el 来安装包，非常简单，只需要 package! 就可以安装。需要注意，不应该将该文件编译为字节码。

1
2

;; -*- no-byte-compile: t; -*-
;;; $DOOMDIR/packages.el

警告: 不要禁用 ~/.emacs.d/core/packages.el 中列出的包。Doom 依赖这些，禁用它们可能出现严重问题。

• 从官方的源 MELPA / GNU ELPA / emacsmirror 安装

  1	(package! some-package)

• 关闭某些包

  1	(package! some-package :disable t)

• 从 Git Repo 安装

  1 2 3 4 5 6

  ;; github (package! github-package :recipe (:host github :repo "username/repo")) ;; gitlab (package! gitlab-package :recipe (:host gitlab :repo "username/repo")) ;; other (package! other-package :recipe (:host nil :repo "https://example.com/repo"))

  如果 repo 仅中只有某个 / 某些文件是你需要的

  1 2 3

  (package! some-package :recipe (:host github :repo "username/repo" :files ("some-file.el" "src/elisp/*.el")))

  如果需要指定某个 commit 或某个 branch

  1 2 3 4

  ;; commit (package! some-package :pin "abcdefghijk") ;; branch (package! some-package :recipe (:branch "stable"))

• 使用本地的 repo

  1	(package! some-package :recipe (:local-repo "/path/to/repo"))

工具

缩写

Emacs Stack Exchange 上的在多种模式下使用统一的缩写表，是一个很好的思路

1
2
3
4

(add-hook 'doom-first-buffer-hook
          (defun +abbrev-file-name ()
            (setq-default abbrev-mode t)
            (setq abbrev-file-name (expand-file-name "abbrev.el" doom-private-dir))))

hungry delete

一次 backspace 吃掉所有空白符 (当前光标限定)

1

(package! hungry-delete :recipe (:host github :repo "nflath/hungry-delete"))

1
2
3
4

(use-package! hungry-delete
  :config
  (setq-default hungry-delete-chars-to-skip " \t\v")
  (add-hook! 'after-init-hook #'global-hungry-delete-mode))

DIRED

emacs 自带的强大文件管理器，和之后提到的 Magit、TRAMP 都是 Emacs 的杀手级应用。还出现了很多增强性的包来增加其能力，不过对我来说，稍微修改一下也就够了。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

(after! dired
  (require 'dired-async)
  (define-key! dired-mode-map "RET" #'dired-find-alternate-file)
  (define-key! dired-mode-map "C" #'dired-async-do-copy)
  (define-key! dired-mode-map "H" #'dired-async-do-hardlink)
  (define-key! dired-mode-map "R" #'dired-async-do-rename)
  (define-key! dired-mode-map "S" #'dired-async-do-symlink)
  (define-key! dired-mode-map "n" #'dired-next-marked-file)
  (define-key! dired-mode-map "p" #'dired-prev-marked-file)
  (define-key! dired-mode-map "=" #'ginshio/dired-ediff-files)
  (define-key! dired-mode-map "<mouse-2>" #'dired-mouse-find-file)
  (defun ginshio/dired-ediff-files ()
    "Mark files and ediff in dired mode, you can mark 1, 2 or 3 files and diff.
see: https://oremacs.com/2017/03/18/dired-ediff/"
    (let ((files (dired-get-marked-files)))
      (cond ((= (length files) 0))
            ((= (length files) 1)
             (let ((file1 (nth 0 files))
                   (file2 (read-file-name "file: " (dired-dwim-target-directory))))
               (ediff-files file1 file2)))
            ((= (length files) 2)
             (let ((file1 (nth 0 files)) (file2 (nth 1 files)))
               (ediff-files file1 file2)))
            ((= (length files) 3)
             (let ((file1 (car files)) (file2 (nth 1 files)) (file3 (nth 2 files)))
               (ediff-files3 file1 file2 file3)))
            (t (error "no more than 3 files should be marked")))))
  (define-advice dired-do-print (:override (&optional _))
    "show/hide dotfiles in current dired
see: https://www.emacswiki.org/emacs/DiredOmitMode"
    (cond ((or (not (boundp 'dired-dotfiles-show-p)) dired-dotfiles-show-p)
           (setq-local dired-dotfiles-show-p nil)
           (dired-mark-files-regexp "^\\.")
           (dired-do-kill-lines))
          (t (revert-buffer)
             (setq-local dired-dotfiles-show-p t))))
  (define-advice dired-up-directory (:override (&optional _))
    "goto up directory in this buffer"
    (find-alternate-file ".."))
  (define-advice dired-do-compress-to (:override (&optional _))
    "Compress selected files and directories to an archive."
    (let* ((output (read-file-name "Compress to: "))
           (command-assoc (assoc output dired-compress-files-alist 'string-match))
           (files-str (mapconcat 'identity (dired-get-marked-files t) " ")))
      (when (and command-assoc (not (string= "" files-str)))
        (let ((command (format-spec (cdr command-assoc)
                                    `((?o . ,output)
                                      (?i . ,files-str)))))
          (async-start (lambda () (shell-command command)) nil))))))

Magit

这应该是 Emacs 的杀手应用之一了，感谢 Jonas 及其他贡献者。

• 提交模板

  现在并没有完成这部分，处于一种完全不会写提交的状态，以后大概率会增加一个提交模板。

• Delta

  Delta 是用 rust 实现的 git diff 语法高亮的工具。该作者还将其挂接到了 magit 的 diff 视图上 (默认不会有语法高亮)。不过这需要 delta 二进制文件，在 cargo 安装显得简单些，不过你也可以选择 GitHub Release。

  1	cargo install git-delta

  简单地配置它就行

  1	(package! magit-delta :recipe (:host github :repo "dandavison/magit-delta"))

  1 2 3

  (use-package! magit-delta :after magit :hook (magit-mode . magit-delta-mode))

• 冲突

  在 Emacs 中处理冲突也是不错的体验，和或许可以尝试自己制造一点

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

  (defun smerge-repeatedly () "Perform smerge actions again and again" (interactive) (smerge-mode 1) (smerge-transient)) (after! transient (transient-define-prefix smerge-transient () [["Move" ("n" "next" (lambda () (interactive) (ignore-errors (smerge-next)) (smerge-repeatedly))) ("p" "previous" (lambda () (interactive) (ignore-errors (smerge-prev)) (smerge-repeatedly)))] ["Keep" ("b" "base" (lambda () (interactive) (ignore-errors (smerge-keep-base)) (smerge-repeatedly))) ("u" "upper" (lambda () (interactive) (ignore-errors (smerge-keep-upper)) (smerge-repeatedly))) ("l" "lower" (lambda () (interactive) (ignore-errors (smerge-keep-lower)) (smerge-repeatedly))) ("a" "all" (lambda () (interactive) (ignore-errors (smerge-keep-all)) (smerge-repeatedly))) ("RET" "current" (lambda () (interactive) (ignore-errors (smerge-keep-current)) (smerge-repeatedly)))] ["Diff" ("<" "upper/base" (lambda () (interactive) (ignore-errors (smerge-diff-base-upper)) (smerge-repeatedly))) ("=" "upper/lower" (lambda () (interactive) (ignore-errors (smerge-diff-upper-lower)) (smerge-repeatedly))) (">" "base/lower" (lambda () (interactive) (ignore-errors (smerge-diff-base-lower)) (smerge-repeatedly))) ("R" "refine" (lambda () (interactive) (ignore-errors (smerge-refine)) (smerge-repeatedly))) ("E" "ediff" (lambda () (interactive) (ignore-errors (smerge-ediff)) (smerge-repeatedly)))] ["Other" ("c" "combine" (lambda () (interactive) (ignore-errors (smerge-combine-with-next)) (smerge-repeatedly))) ("r" "resolve" (lambda () (interactive) (ignore-errors (smerge-resolve)) (smerge-repeatedly))) ("k" "kill current" (lambda () (interactive) (ignore-errors (smerge-kill-current)) (smerge-repeatedly))) ("q" "quit" (lambda () (interactive) (smerge-auto-leave)))]]))

补全

没有补全怎么写代码，尤其是 Java ！！！

1
2
3
4
5

(after! company
  (setq! company-idle-delay 0.3
         company-minimum-prefix-length 2
         company-show-numbers t)
  ) ;; make aborting less annoying.

现在改进大多来自 先前选项 的历史记录，所以我们改进以下历史记录。

1
2

(setq-default history-length 1024
              prescient-history-length 1024)

还有最要紧的事，让待选选项有数字提示，方便直接 Alt+num 选择

1

(custom-set-variables '(company-show-numbers t))

Consult

Marginalia

Doom 下 Marginalia 被调教的不错，如果遇到什么好玩的配置了，可以继续加。

LSP

这不是老色批！自从 lsp 普及开始，无论配置什么编辑器都不再复杂了。看了一圈 lsp-mode tutorial 甚至觉得不需要配置什么，估计 doom 也有相应的配置。问题就是，熟悉配置、操作的问题。

拼写检查

Ispell 是一个古老的 Unix 拼写检查软件，当然你可以将其当作拼写检查软件的一种代称。

1
2
3
4
5
6
7
8

(set-company-backend!
  '(text-mode
    markdown-mode
    gfm-mode)
  '(:seperate
    company-ispell
    company-files
    company-yasnippet))

Hunspell 还是 Aspell 都听不错，但是 Aspell 比较式微，故本配置使用的是前者，但是之后的配置是一样的

Hunspell 和 Aspell 都可以从 SCOWL Custom List / Dicionary Creator 获取一个好用的大词典

size (大小)

95 (疯狂)

spellings (拼写)

英语 (美国) 和 英语 (英国, -ise)

spelling variants level (拼写变体等级)

0

diacritics (变音符号)

保留

extra lists (额外列表)

hacker、罗马数字

如果你用的是 Linux 且不想自己下载了，可以用用下面这个小脚本 (hunspell 不用)

• Hunspell

  1 2 3 4 5 6 7 8 9

  cd /tmp wget -O "hunspell-en-custom.zip" \ -c 'http://app.aspell.net/create?max_size=95&spelling=US&spelling=GBs&max_variant=0&diacritic=keep&special=hacker&special=roman-numerals&encoding=utf-8&format=tar.gz&download=hunspell' unzip "hunspell-en-custom.zip" sudo chown root:root en-custom.* sudo mkdir -p /usr/share/hunspell/ sudo mv en-custom.{aff,dic} /usr/share/hunspell/ sudo ln -s /usr/share/hunspell/en-custom.aff /usr/share/hunspell/en_US.aff sudo ln -s /usr/share/hunspell/en-custom.dic /usr/share/hunspell/en_US.dic

• Aspell

  1 2 3 4 5 6

  cd /tmp wget -O "aspell6-en-custom.tar.bz2" \ -c 'http://app.aspell.net/create?max_size=95&spelling=US&spelling=GBs&max_variant=0&diacritic=keep&special=hacker&special=roman-numerals&encoding=utf-8&format=tar.gz&download=aspell' tar -xjf "aspell6-en-custom.tar.bz2" cd aspell6-en-custom ./configure && make && sudo make install

配置一下就能开始用了

1

(setq! ispell-dictionary "en-custom")

String Inflection

变形汽车人！ 变形字符串！

1

(package! string-inflection)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

(use-package! string-inflection
  :defer t
  :init
  (map! :leader :prefix ("cS" . "naming convention")
        :desc "cycle" "~" #'string-inflection-all-cycle
        :desc "toggle" "t" #'string-inflection-toggle
        :desc "CamelCase" "c" #'string-inflection-camelcase
        :desc "downCase" "d" #'string-inflection-lower-camelcase
        :desc "kebab-case" "k" #'string-inflection-kebab-case
        :desc "under_score" "u" #'string-inflection-underscore
        :desc "Upper_Score" "_" #'string-inflection-capital-underscore
        :desc "UP_CASE" "U" #'string-inflection-upcase))

TRAMP

关于其他很有用的功能，TRAMP 算一个，它是多协议透明远程访问 (Transparent Remote Access, Multiple Protocol) 工具。简单说这是简单访问其他主机文件系统的方法。

如果你想使用 ssh-key ，建议开始使用 ssh config ，并用 sshx: 进行 tramp 连接。

• 提示区域

  不幸的是，TRAMP 对远程连接时 SHELL 的提示格式很挑剔，尝试使用 bash 并放宽松提示区域的识别。

  1 2 3 4 5

  (after! tramp (setenv "SHELL" "/bin/bash") (setq tramp-shell-prompt-pattern "\\(?:^\\| \\)[^]#$%>\n]*#?[]#$%>] *\\(\\[[0-9;]*[a-zA-Z] *\\)*")) ;; default + 

• Guix

  Guix 将一些 TRAMP 需要的二进制文件放置在了意想不到的位置。这不是个问题，我们可以手动帮助 TRAMP 找到它们。

  1 2 3 4 5

  (after! tramp (appendq! tramp-remote-path '("~/.guix-profile/bin" "~/.guix-profile/sbin" "/run/current-system/profile/bin" "/run/current-system/profile/sbin")))

VTerm

As good as terminal emulation gets in Emacs

VTerm 的安装相对麻烦一些，需要编译一些依赖。当然对于 Unix 用户，用系统库更加方便！

1
2

(after! vterm
  (setq vterm-module-cmake-args "-DUSE_SYSTEM_LIBVTERM=yes"))

YASnippet

snippets 套娃谁用谁知道！

1

(setq yas-triggers-in-field t)

Screenshot

让截图变得轻而易举！

1
2
3

(package! screenshot
  :recipe (:host github :repo "tecosaur/screenshot" :build (:not compile))
  )

1

(use-package! screenshot :defer t)

原项目暂时还没有修复 BUG，并且作者并没有打算添加 TUI 支持。

Ebooks

管理 Ebooks，还在用 calibre 吗？试试 Emacs 吧！虽然是 calibre 做后端 hhhhhh

1

(package! calibredb)

体验一下在 Emacs 中管理 Ebooks 的快乐。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

(use-package! calibredb
  :defer t
  :init
  (setq! calibredb-root-dir "~/library/ebooks"
         calibredb-db-dir '((expand-file-name "metadata.db" calibredb-root-dir))
         calibredb-library-alist '(("~/library/ebooks")
                                   ("~/library/papers"))
         calibredb-format-all-the-icons t)
  :config
  (map! :map calibredb-show-mode-map
        "?" #'calibredb-entry-dispatch
        "o" #'calibredb-find-file
        "O" #'calibredb-find-file-other-frame
        "V" #'calibredb-open-file-with-default-tool
        "s" #'calibredb-set-metadata-dispatch
        "e" #'calibredb-export-dispatch
        "q" #'calibredb-entry-quit
        "y" #'calibredb-yank-dispatch
        "." #'calibredb-open-dired
        [tab] #'calibredb-toggle-view-at-point
        "M-t" #'calibredb-set-metadata--tags
        "M-a" #'calibredb-set-metadata--author_sort
        "M-A" #'calibredb-set-metadata--authors
        "M-T" #'calibredb-set-metadata--title
        "M-c" #'calibredb-set-metadata--comments)
  (map! :map calibredb-search-mode-map
        [mouse-3] #'calibredb-search-mouse
        "RET" #'calibredb-find-file
        "?" #'calibredb-dispatch
        "a" #'calibredb-add
        "A" #'calibredb-add-dir
        "c" #'calibredb-clone
        "d" #'calibredb-remove
        "D" #'calibredb-remove-marked-items
        "j" #'calibredb-next-entry
        "k" #'calibredb-previous-entry
        "l" #'calibredb-virtual-library-list
        "L" #'calibredb-library-list
        "n" #'calibredb-virtual-library-next
        "N" #'calibredb-library-next
        "p" #'calibredb-virtual-library-previous
        "P" #'calibredb-library-previous
        "s" #'calibredb-set-metadata-dispatch
        "S" #'calibredb-switch-library
        "o" #'calibredb-find-file
        "O" #'calibredb-find-file-other-frame
        "v" #'calibredb-view
        "V" #'calibredb-open-file-with-default-tool
        "." #'calibredb-open-dired
        "y" #'calibredb-yank-dispatch
        "b" #'calibredb-catalog-bib-dispatch
        "e" #'calibredb-export-dispatch
        "r" #'calibredb-search-refresh-and-clear-filter
        "R" #'calibredb-search-clear-filter
        "q" #'calibredb-search-quit
        "m" #'calibredb-mark-and-forward
        "f" #'calibredb-toggle-favorite-at-point
        "x" #'calibredb-toggle-archive-at-point
        "h" #'calibredb-toggle-highlight-at-point
        "u" #'calibredb-unmark-and-forward
        "i" #'calibredb-edit-annotation
        "DEL" #'calibredb-unmark-and-backward
        [backtab] #'calibredb-toggle-view
        [tab] #'calibredb-toggle-view-at-point
        "M-n" #'calibredb-show-next-entry
        "M-p" #'calibredb-show-previous-entry
        "/" #'calibredb-search-live-filter
        "M-t" #'calibredb-set-metadata--tags
        "M-a" #'calibredb-set-metadata--author_sort
        "M-A" #'calibredb-set-metadata--authors
        "M-T" #'calibredb-set-metadata--title
        "M-c" #'calibredb-set-metadata--comments))

其实建立自己的书库相当快乐，当然在搜索解决方案时还在神社看到了用 calibre 管理本子 (也是相当快乐了 XD)

• cite

  自己建立 calibre 最重要的一点就是引用时很方便，作者和 org-ref 梦幻联动了一波，你可以在 org-mode 中引用 calibre 的内容了。

  1 2	(after! org-ref (setq! org-ref-get-pdf-filename-function 'org-ref-get-mendeley-filename))

  有些遗憾，虽然 calibre 可以什么都管理，但是 papers 还是用 zotero 吧，毕竟 cite 时 calibre 只能做 book。

  当然可以 calibre 建一个 Paper 库，而引用使用 zotero 导出的 bibtex ，也算是一种解决方式。当然享受 calibre calibre-web 带来的管理便利。

• 看书

  很遗憾 Emacs 支持 pdf 但不支持 epub 之类的格式。如果你想要 emacs 支持这些格式，可以考虑 nov.el ，我觉得 Okular 和 Calibre 更好！

  1 2	;;; add into packages.el (package! nov)

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

  (use-package! nov :mode ("\\.epub\\'" . nov-mode) :config (map! :map nov-mode-map :n "RET" #'nov-scroll-up) (defun doom-modeline-segment--nov-info () (concat " " (propertize (cdr (assoc 'creator nov-metadata)) 'face 'doom-modeline-project-parent-dir) " " (cdr (assoc 'title nov-metadata)) " " (propertize (format "%d/%d" (1+ nov-documents-index) (length nov-documents)) 'face 'doom-modeline-info))) (advice-add 'nov-render-title :override #'ignore) (defun +nov-mode-setup () (face-remap-add-relative 'variable-pitch :family "Merriweather" :height 1.4 :width 'semi-expanded) (face-remap-add-relative 'default :height 1.3) (setq-local line-spacing 0.2 next-screen-context-lines 4 shr-use-colors nil) (require 'visual-fill-column nil t) (setq-local visual-fill-column-center-text t visual-fill-column-width 81 nov-text-width 80) (visual-fill-column-mode 1) (hl-line-mode -1) (add-to-list '+lookup-definition-functions #'+lookup/dictionary-definition) (setq-local mode-line-format `((:eval (doom-modeline-segment--workspace-name)) (:eval (doom-modeline-segment--window-number)) (:eval (doom-modeline-segment--nov-info)) ,(propertize " %P " 'face 'doom-modeline-buffer-minor-mode) ,(propertize " " 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive) 'display `((space :align-to (- (+ right right-fringe right-margin) ,(* (let ((width (doom-modeline--font-width))) (or (and (= width 1) 1) (/ width (frame-char-width) 1.0))) (string-width (format-mode-line (cons "" '(:eval (doom-modeline-segment--major-mode)))))))))) (:eval (doom-modeline-segment--major-mode))))) (add-hook 'nov-mode-hook #'+nov-mode-setup))

UI

Nyan

首先添加一下彩虹猫，这不能忘！

1

(package! nyan-mode :recipe (:host github :repo "TeMPOraL/nyan-mode"))

1
2
3
4
5
6
7
8

(use-package! nyan-mode
  :config
  (setq nyan-animate-nyancat t
        nyan-wavy-trail t
        nyan-cat-face-number 4
        nyan-bar-length 16
        nyan-minimum-window-width 64)
  (add-hook! 'doom-modeline-hook #'nyan-mode))

Eros

这个包可以修改 emacs lisp 内联执行的视觉效果，让这个结果的前缀更好看一点。

1

(setq eros-eval-result-prefix "⟹ ") ; default =>

你可以用 C-x C-e 来对比一下前后变化

1

(+ 1 1 (* 2 2) 1)

1

return 2 ** 4

Theme Magic

非常神奇的是你可以在 Emacs 中用现有的 Theme，改变终端的 Theme，且 GUI 和 TUI 都可用！作者说 Linux 和 Mac 可用， Windows Terminal + WSL 同样适用，压力来到了纯 Windows 下的 Emacs。

1

(package! theme-magic)

这个操作使用 pywal ，你可以通过仓库安装它，不过最简单的方式就是 pip 。

1

sudo python3 -m pip install pywal

Theme Magic 提供了一个数字界面，尝试从饱和度、色彩差异来有效的选取八个颜色。然而，它可能会为 light 选择相同的颜色，并不总能够选取最佳颜色。我们可以用 Doom themes 提供的色彩工具来轻松获取合理的配色来生成 light 版本 — 现在就开始！

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

(use-package! theme-magic
  :defer t
  :after +doom-dashboard
  :config
  (defadvice! theme-magic--auto-extract-16-doom-colors ()
    :override #'theme-magic--auto-extract-16-colors
    (list
     (face-attribute 'default :background)
     (doom-color 'error)
     (doom-color 'success)
     (doom-color 'type)
     (doom-color 'keywords)
     (doom-color 'constants)
     (doom-color 'functions)
     (face-attribute 'default :foreground)
     (face-attribute 'shadow :foreground)
     (doom-blend 'base8 'error 0.1)
     (doom-blend 'base8 'success 0.1)
     (doom-blend 'base8 'type 0.1)
     (doom-blend 'base8 'keywords 0.1)
     (doom-blend 'base8 'constants 0.1)
     (doom-blend 'base8 'functions 0.1)
     (face-attribute 'default :foreground))))

Emojify

OOTB 的 emoji 模块！麻烦的一点是设置的有些默认字符，可能会显示为 emoji。直接从 emoji 表中删除它们 (除了有点暴力)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21

(defvar emojify-disabled-emojis
  '(;; Org
    "◼" "☑" "☸" "⚙" "⏩" "⏪"
    ;; Org Heading
    "✙" "♱" "♰" "☥" "✞" "✟" "✝" "†"
    "☰" "☱" "☲" "☳" "☴" "☵" "☶" "☷"
    "☿" "♀" "♁" "♂" "♃" "♄" "♅" "♆" "♇" "☽" "☾"
    "♈" "♉" "♊" "♋" "♌" "♍" "♎" "♏" "♐" "♑" "♒" "♓"
    "♔" "♕" "♖" "♗" "♘" "♙"
    "♚" "♛" "♜" "♝" "♞" "♟"
    ;; Org Agenda
    "⚡" "↑" "↓" "☕" "❓"
    ;; I just want to see this as text
    "©" "™")
  "Characters that should never be affected by `emojify-mode'.")

(defadvice! emojify-delete-from-data ()
  "Ensure `emojify-disabled-emojis' don't appear in `emojify-emojis'."
  :after #'emojify-set-emoji-data
  (dolist (emoji emojify-disabled-emojis)
    (remhash emoji emojify-emojis)))

Tabs

如果你想像现代编辑器一样拥有 tabs，或许你可以考虑一下

1
2
3
4
5
6
7
8

(after! centaur-tabs
  (centaur-tabs-group-by-projectile-project)
  (centaur-tabs-mode t)
  (setq! centaur-tabs-style "bar"
         centaur-tabs-set-icons t
         centaur-tabs-set-modified-marker t
         centaur-tabs-show-navigation-buttons t
         centaur-tabs-gray-out-icons 'buffer))

如果想要 tabs 底下显示 bar ，需要开启 x-underline-at-descent-line，但是它在 (after! ...) 中不起作用。

1
2

(setq! centaur-tabs-set-bar 'under
       x-underline-at-descent-line t)

Treemacs

开启 git-mode 、 follow-mode 和 indent-guide-mode ，体验还是不错

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

(after! treemacs
  (setq! treemacs-indent-guide-mode t
         treemacs-show-hidden-files t
         doom-themes-treemacs-theme "doom-colors"
         treemacs-file-event-delay 1000
         treemacs-file-follow-delay 0.1)
  (treemacs-follow-mode t)
  ;; (treemacs-filewatch-mode t)
  (treemacs-git-mode 'deferred)
  (treemacs-hide-gitignored-files-mode t))

可能是我的用法不对？ filewatch-mode 总是有问题，在外部修改 (不在 treemacs 中重命名、添加、删除等) 就会有问题，没法更新 tree。需要自己手动折叠一下。

hl todo

hl-todo 允许你设置一些关键字，这些关键字将高亮并且便于查找。往往用于代码注释中强调某些内容。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

(custom-set-variables
 '(hl-todo-keyword-faces '(("NOTE" font-lock-builtin-face bold) ;; needs discussion or further investigation.
                           ("REVIEW" font-lock-keyword-face bold) ;; review was conducted.
                           ("HACK" font-lock-variable-name-face bold) ;; workaround a known problem.
                           ("DEPRECATED" region bold) ;; why it was deprecated and to suggest an alternative.
                           ("XXX+" font-lock-constant-face bold) ;; warn other programmers of problematic or misguiding code.
                           ("TODO" font-lock-function-name-face bold) ;; tasks/features to be done.
                           ("FIXME" font-lock-warning-face bold) ;; problematic or ugly code needing refactoring or cleanup.
                           ("KLUDGE" font-lock-preprocessor-face bold )
                           ("BUG" error bold) ;; a known bug that should be corrected.
                           )))

有趣的生活

xkcd

也许你看过，但是现在让你看个够。

1

(package! xkcd)

1
2
3
4
5

(after! xkcd
  (setq xkcd-cache-dir (expand-file-name "xkcd/" doom-cache-dir)
        xkcd-cache-latest (concat xkcd-cache-dir "latest"))
  (unless (file-exists-p xkcd-cache-dir)
    (make-directory xkcd-cache-dir)))

现在让 Org-Mode 可以支持 xkcd

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

(after! org
  (org-link-set-parameters "xkcd"
                           :image-data-fun #'+org-xkcd-image-fn
                           :follow #'+org-xkcd-open-fn
                           :export #'+org-xkcd-export))

;;;###autoload
(defun ginshio/xkcd-file-info (&optional num)
  "Get xkcd image info"
  (require 'xkcd)
  (let* ((url (format "https://xkcd.com/%d/info.0.json" num))
         (json-assoc (json-read-from-string (xkcd-get-json url num))))
    `(:img ,(cdr (assoc 'img json-assoc))
      :alt ,(cdr (assoc 'alt json-assoc))
      :title ,(cdr (assoc 'title json-assoc)))))

;;;###autoload
(defun +org-xkcd-open-fn (link)
  (+org-xkcd-image-fn nil link nil))

;;;###autoload
(defun +org-xkcd-image-fn (protocol link description)
  "Get image data for xkcd num LINK"
  (let* ((xkcd-info (ginshio/xkcd-file-info (string-to-number link)))
         (img (plist-get xkcd-info :img))
         (alt (plist-get xkcd-info :alt)))
    (+org-image-file-data-fn protocol (xkcd-download img (string-to-number link)) description)))

;;;###autoload
(defun +org-xkcd-export (num desc backend _com)
  "Convert xkcd to html/LaTeX/Markdown form"
  (let* ((xkcd-info (ginshio/xkcd-file-info (string-to-number num)))
         (img (plist-get xkcd-info :img))
         (alt (plist-get xkcd-info :alt))
         (title (plist-get xkcd-info :title))
         (file (xkcd-download img (string-to-number num))))
    (cond ((org-export-derived-backend-p backend 'hugo)
           (format "{{< figure src=\"%s\" alt=\"%s\" >}}" img (subst-char-in-string ?\" ?“ alt)))
          ((org-export-derived-backend-p backend 'html)
           (format "<img class='invertible' src='%s' title=\"%s\" alt='%s'>" img (subst-char-in-string ?\" ?“ alt) title))
          ((org-export-derived-backend-p backend 'latex)
           (format "\\begin{figure}[!htb]
  \\centering
  \\includegraphics[scale=0.4]{%s}%s
\\end{figure}" file (if (equal desc (format "xkcd:%s" num)) ""
                      (format "\n  \\caption*{\\label{xkcd:%s} %s}"
                              num
                              (or desc
                                  (format "\\textbf{%s} %s" title alt))))))
          ((org-export-derived-backend-p backend 'markdown)
           (format "![%s](https://xkcd.com/%s)" (subst-char-in-string ?\" ?“ alt) num))
          (t (format "https://xkcd.com/%s" num)))))