Paradigm X

Vision quests of a soulhacker

Doom Emacs 配置

这份配置基于 Emacs 模式的按键组合,没有启用 Doom Emacs 缺省的 evil 模式,如果希望使用类 Vim 的按键方式,可以参考其他一些大牛,比如的 Tec Osaur 的非常有教益的版本。


Doom Emacs 的配置都在变量 doom-user-dir 指向的目录下(根据安装时的选择可能是 ~/.doom.d/~/.config/doom/ ),主要是三个文件:

  • init.el :启用/停用 Doom 预先配置好的模块( modules );
  • package.el :自己另行下载安装的软件包( packages ),或对已启用的软件包版本进行配置,Doom Emacs 使用 straight.el 包管理器
  • config.el :各种配置,大部分预制模块不需要或者只需要少许配置,因为 Doom 已经做了相对好的缺省安排,自行安装的包则需要做相应的配置;当然如果对 Doom 提供的缺省安排不满意,也可以在此动手覆盖。

要更改配置就编辑这三个文件即可,但我们有更好的选择,那就是 literate config ,这是个很酷的功能 1,我们把所有配置代码都用 org-babel 的源码块( source block )写在这个 文件中(对,你现在看到的就是这个文件本身),然后用 org-babel 提供的 org-babel-tangle-file 函数来自动生成上述三个文件。

emacs --batch --eval "(progn (require 'org) (setq org-confirm-babel-evaluate nil) (org-babel-tangle-file \"~/.config/doom/\"))"

这个 bootstrap 过程只需要做一次,之后 Doom 提供的 literate 模块会自动维护。

无论通过什么方式,配置文件变化后要使用 doom sync 命令来更新环境(这个命令首先会自动从本文件出发重新构造新的配置文件),还可以用 doom doctor 来检查配置中可能存在的问题(最常见的问题是依赖的外部程序找不到或者没配好);Doom Emacs 更新比较频繁,而且鼓励用户滚动更新紧跟开发分支,所以可以定期用 doom upgrade 来更新 Doom Emacs 本身及所有启用的包。


  • 能用预制模块的尽量用;
  • 能用缺省配置的尽量用;
  • 重视持续维护和移植的代价;
  • 还是不喜欢 evil


Doom 提供的大量预制模块大多是当前优选,难以确定的地方也提供了主流方案多选一,并进行了比较恰当的配置,是宝藏,我的配置主要以这些预制模块为主。


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

(doom! :input














Doom 的 :config 缺省配置大多很好,少数需要定制的后面再说;另外很重要的是启用 literate 模块。

(default +bindings +smartparens)


这部分包含了 Doom 的 :completion :ui :editor :emacs :term :checkers :tools :os 几大类别。

无处不在的自动补全功能,选择最时髦的 vertico

(company +childframe)       ; 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
(vertico +icons)            ; the search engine of the future

这里面有偏视觉和娱乐的(前者如 hl-todo ligatures 后者如 doom-quit ),但大多数是很实用的,比如 window-select 大幅强化了多窗口时切换窗口 C-x o 的体验(实际使用的是 ace-window )。另外 unicode 这个非常重要,如果不打开会有很多中文显示方面的问题。

;;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 +ascii +unicode +github)
hl-todo                     ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
;;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 +all +defaults)      ; tame sudden yet inevitable temporary windows
;;tabs                      ; a tab bar for Emacs
(treemacs +lsp)             ; a project drawer, like neotree but cooler
unicode                     ; extended unicode support for various languages
(vc-gutter +pretty)         ; vcs diff in the fringe
;;vi-tilde-fringe           ; fringe tildes to mark beyond EOB
(window-select +number)     ; visually switch windows
workspaces                  ; tab emulation, persistence & separate workspaces
;;zen                       ; distraction-free coding or writing

编辑相关的模块这里,我做的最大选择是不用 evil ,当然很多 Spacemacs 和 Doom 用户都会选择这个模式。这里要特别提一下的是 lipsy ,这是针对 Lisp 类语言的一个编辑模式,非常巧妙的实现了单按键的光标快速移动和编辑操作,但不需要切 Vim 模式,我认为比传统的 pareditsmartparens 都更高明。

;;(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 常规功能,基本都开启就行了。

(dired +dirvish +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

Doom 支持几种内置的终端模拟器,效果最好的应该是 vterm

;;eshell                    ; the elisp shell that works everywhere
vterm                       ; the best terminal emulation in Emacs
;;shell                     ; simple shell REPL for Emacs
;;term                      ; basic terminal emulator for Emacs

关于拼写检查,我试了各种组合,目前最好的应该还是 flyspellaspell

(syntax +childframe)        ; tasing you for every semicolon you forget
(spell +aspell +flyspell)   ; tasing you for misspelling mispelling
(grammar +lsp)              ; tasing grammar mistake every you make

这一组工具我基本都是缺省选择,值得一提的是 magit 真棒,用起来简直上瘾,连写 commit message 都变得香甜了。注意 lsp 要打开,后面配置很多编程语言时会用到。

biblio                      ; Writes a PhD for you (citation needed)
(debugger +lsp)             ; FIXME stepping through code, to help you add bugs
;;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                      ; navigate your code and its documentation
lsp                         ; M-x vscode
magit                       ; a git porcelain for Emacs
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
tree-sitter                 ; syntax and parsing, sitting in a tree...
;;upload                    ; map local to remote projects via ssh/ftp

这两个都是与操作系统有关的补丁,前一个 Mac 用户启用,后一个则都应该启用。

(:if IS-MAC macos)          ; improve compatibility with macOS
(tty +osc)                  ; improve the terminal Emacs experience


Doom 提供了几乎所有主流语言的预制模块,大部分都提供了对 LSP 的支持,有些 language server 可以直接在 Emacs 中下载配置,但有些需要另外安装配置。有不少 language server 实现不太好,所以需要自己判断,下面是我启用的一些用得到的语言,大部分都启用了 LSP,可以用 doom doctor 来确认需要另外配置的外部支持软件。另一个值得尝试的选项是 +tree-sitter ,一个强大的静态代码分析插件,官方文档中没有,但实际上存在。另外,无论你主要用什么编程语言, emacs-lisporg 这俩都应该启用,否则还用什么 Emacs 啊!

;;agda                      ; types of types of types of types...
;;beancount                 ; mind the GAAP
;;(cc +lsp)                 ; C > C++ == 1
(clojure +lsp)              ; 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
;;elixir                    ; erlang done right
;;elm                       ; care for a cup of TEA?
emacs-lisp                  ; drown in parentheses
;;erlang                    ; an elegant language for a more civilized age
;;ess                       ; emacs speaks statistics
;;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
;;(graphql +lsp)            ; Give queries a REST
(haskell +lsp +tree-sitter) ; a language that's lazier than I am
;;hy                        ; readability of scheme w/ speed of python
;;idris                     ; a language you can depend on
(json +lsp +tree-sitter)    ; 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
;;lean                      ; for folks with too much to prove
;;ledger                    ; be audit you can be
;;lua                       ; one-based indices? one-based indices
(markdown +grip)            ; 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 +dragdrop +gnuplot +hugo +journal +jupyter
+noter +pandoc +present +pretty +roam2)
; organize your plain life in plain text
;;php                       ; perl's insecure younger brother
;;plantuml                  ; diagrams for confusing people more
;;purescript                ; javascript, but functional
(python +lsp +pyright)      ; beautiful is better than ugly
;;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 +tree-sitter)    ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
;;scala                     ; java, but good
;;(scheme +guile)           ; a fully conniving family of lisps
(sh +tree-sitter)           ; she sells {ba,z,fi}sh shells on the C xor
;;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 +lsp)                  ; C, but simpler


增加一些输入法,在 macOS 系统下基本不需要。

;;bidi                      ; (tfel ot) thgir etirw uoy gnipleh
;;layout                    ; auie,ctsrnm is the superior home row

万能的 Emacs

有人会用 Emacs 来做任何事,包括电子邮件、IRC、RSS 等等,甚至听歌看视频,对我来说,听歌啥的就算了,不过邮件还是用的。

(:if (executable-find "mu") (mu4e +org +gmail))
;;(wanderlust +gmail)

;;everywhere                ; *leave* Emacs!? You must be joking
;;irc                       ; how neckbeards socialize
;;(rss +org)                ; emacs as an RSS reader
;;twitter                   ; twitter client


这里是一些只要 Emacs 启动就需要尽快设置的内容,不需要考虑延迟加载的一些设置,包括一些 Emacs 本身的全局设置,也包括一些需要尽快加载的模块和包的基本设置。

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


(setq user-full-name "Neo Lee"
      user-mail-address "")


Doom 大部分的缺省配置都是优化且实用的,但还是有少量的需要修改。其中 word-wrap-by-category 这个选项是 Emacs 28 新加的,修复了 CJK 语言文本自动换行的老 bug。

 window-combination-resize t
 x-stretch-cursor t
 doom-scratch-initial-major-mode 'emacs-lisp-mode
 yas-triggers-in-field t

 undo-limit 80000000
 auto-save-default t
 scroll-preserve-screen-position 'always
 scroll-margin 2
 word-wrap-by-category t

(global-subword-mode t)

因为我不用 evil 所以需要给 local leader 一个方便的组合键。

(map! "C-z" nil)
(setq doom-localleader-alt-key "C-z")

如果想显示相对行号,将这个变量值改为 'relative

(setq display-line-numbers-type t)

Org 的根目录需要尽早设置。

(setq org-directory "~/Code/Org/")

缺省配置下 treemacs 只会显示文件的 git 状态,改成文件和目录状态都显示, 'deferred 表示异步加载。

(setq +treemacs-git-mode 'deferred)


(setq doom-font (font-spec :family "Iosevka Fixed" :size 16 :weight 'light)
      doom-big-font (font-spec :family "Iosevka Fixed" :size 20 :weight 'light)
      doom-variable-pitch-font (font-spec :family "Iosevka Fixed") ;; inherits the :size from doom-font
      doom-unicode-font (font-spec :family "JuliaMono")
      doom-serif-font (font-spec :family "Iosevka Fixed" :weight 'light))

(setq doom-themes-enable-bold t
      doom-themes-enable-italic t)

随系统切换 light 和 dark mode 主题,利用 macOS 下 emacs-plus 增加的 ns-system-appearance-change-functions 钩子来实现。

;; (setq +light-theme 'doom-one-light
;;       +dark-theme 'doom-one)
(setq +light-theme 'modus-operandi
      +dark-theme 'modus-vivendi)
;; (setq +light-theme 'doom-acario-light
;;       +dark-theme 'doom-acario-dark)
;; (setq +light-theme 'doom-city-lights
;;       +dark-theme 'doom-city-lights)

(defun +apply-theme (appearance)
  "Load theme, taking current system APPEARANCE into consideration."
  (mapc #'disable-theme custom-enabled-themes)
  (pcase appearance
    ('light (load-theme +light-theme t))
    ('dark (load-theme +dark-theme t))))

(add-hook! 'ns-system-appearance-change-functions '+apply-theme)



Doom 缺省的状态条是 doom-modeline ,可能是几个状态条方案里最漂亮的一个,不过这问题见仁见智,选自己喜欢的就好。如果和我一样不喜欢折腾就用它的话,有些配置需要优化。

第一段调整显示顺序,并在状态条最右边增加一些空间,是为了修正显示上的 bug,不然状态显示内容最右边会被截断 ,不过这样处理之后下面两段显示时钟和电池状态的代码会失效,应该是找不到插入的位置,等有时间再来排错;最后一段是几个设置,最有意义的是最后一个。

(after! doom-modeline
  ;; add padding to the right
  (doom-modeline-def-modeline 'main
    '(bar matches buffer-info remote-host buffer-position parrot selection-info)
    '(misc-info checker input-method buffer-encoding major-mode process vcs "   "))
  ;; time on modeline
  (setq display-time-string-forms
        '((propertize (concat " 🕘 " 24-hours ":" minutes))))
  (display-time-mode t)
  ;; battery info on modeline (only on laptops)
  (let ((battery-str (battery)))
    (if (string-match-p (regexp-quote "Power Battery") battery-str)
        (display-battery-mode t)))
  ;; better default
  (setq doom-modeline-bar-width 4
        doom-modeline-major-mode-icon t
        doom-modeline-major-mode-color-icon t
        doom-modeline-buffer-file-name-style 'truncate-upto-project)


预制模块 ace-window 加强了 C-x o 的功能,当多于2个窗口时会高亮显示每个窗口左上角的一个字母,按下这个字母就切换到对应窗口,但这个字母的显示非常小,很不醒目,解决方案很简单,定制这个字母显示的样式,把它变大再加上红色底,就醒目了。 ace-window 还有不少别的功能,比如激活之后可以按 x 来删除当前窗口,按 m 来与选择的窗口交换内容等,具体可参考官网说明

    :foreground "white" :background "red"
    :weight bold :height 1.5 :box (:line-width 10 :color "red")))


预制模块 ligature 及其 +extra 选项会用一些漂亮的文字符号来替代一些固定文本组合,比如用 λ 代替 Lisp 类语言里的 lambdafn 关键字,用 𝒇 代替 function 关键字,用 代替 import 关键字等,没啥用就图个乐,不过在某些语言里这个玩意儿会影响理解和编码,所以对这些语言禁用掉是个明智选择。

(defun +appened-to-negation-list (head tail)
  (if (sequencep head)
       (if (eq (car tail) 'not)
           (append head tail)
         (append tail head)))

(when (modulep! :ui ligatures)
  (setq +ligatures-extras-in-modes
         '(not c-mode c++-mode emacs-lisp-mode python-mode scheme-mode racket-mode rust-mode)))
  (setq +ligatures-in-modes
         '(not emacs-lisp-mode scheme-mode racket-mode))))


Emacs 支持微软开源的 LSP 接口以及各种各样的语言服务器时间还不长,问题也有一些,不过未来可期。 lsp-ui 提供了大量的定制选项。

(after! lsp
  (setq lsp-log-io nil
        lsp-print-io nil
        lsp-document-sync-method 'incremental ; none, full, incremental, or nil
        lsp-response-timeout 10
  (lsp-mode . lsp-ui-mode))

(after! lsp-ui
  (setq lsp-ui-doc-enable nil
        lsp-ui-doc-header t
        lsp-ui-doc-include-signature nil
        lsp-ui-doc-position 'at-point ;; top, bottom, or at-point
        lsp-ui-doc-max-width 120
        lsp-ui-doc-max-height 30
        lsp-ui-doc-use-childframe t
        lsp-ui-doc-use-webkit t
        lsp-ui-flycheck-enable nil
        lsp-ui-sideline-enable nil
        lsp-ui-sideline-ignore-duplicate t
        lsp-ui-sideline-show-symbol t
        lsp-ui-sideline-show-hover t
        lsp-ui-sideline-show-diagnostics nil
        lsp-ui-sideline-show-code-actions t
        lsp-ui-imenu-enable t
        lsp-ui-imenu-kind-position 'top
        lsp-ui-peek-enable t
        lsp-ui-peek-fontify 'on-demand ;; never, on-demand, or always
        lsp-lens-enable t
        lsp-diagnostics-provider :auto
        lsp-enable-symbol-highlighting t
        lsp-headerline-breadcrumb-enable nil
        lsp-headerline-breadcrumb-segments '(symbols))
  (defun +toggle-lsp-ui-doc ()
    (if lsp-ui-doc-mode
        (lsp-ui-doc-mode -1)
        (lsp-ui-doc-mode 1)
  (map! :map lsp-mode-map
        ("C-c l r" #'lsp-ui-peek-find-references)
        ("C-c l j" #'lsp-ui-peek-find-definitions)
        ("C-c l i" #'lsp-ui-peek-find-implementation)
        ("C-c l m" #'lsp-ui-imenu)
        ("C-c l s" #'lsp-ui-sideline-mode)
        ("C-c l d" #'+toggle-lsp-ui-doc))

还有些语言服务器需要专门的配置,比如新兴语言 zig 的语言服务器 zls

(setq lsp-zig-zls-executable "~/Code/Repo/zls/zig-out/bin/zls")


无论使用 spell-fu 还是 flyspell 都需要配置个人词汇表的保存位置,我都放在 doom-user-dir 目录下了。另外 flyspell 激活错词修改菜单的缺省操作是鼠标中键(滚轮),MacBook 上没这玩意儿啊,所以我给改成 Command+鼠标主键 了。

(after! spell-fu
  (defun +spell-fu-register-dictionary (lang)
    "Add `LANG` to spell-fu multi-dict, with a personal dictionary."
    ;; Add the dictionary
    (spell-fu-dictionary-add (spell-fu-get-ispell-dictionary lang))
    (let ((personal-dict-file (expand-file-name (format "aspell.%s.pws" lang) doom-user-dir)))
      ;; Create an empty personal dictionary if it doesn't exists
      (unless (file-exists-p personal-dict-file) (write-region "" nil personal-dict-file))
      ;; Add the personal dictionary
      (spell-fu-dictionary-add (spell-fu-get-personal-dictionary (format "%s-personal" lang) personal-dict-file))))
  (add-hook! 'spell-fu-mode-hook
    (+spell-fu-register-dictionary "en")

(after! flyspell
  (setq ispell-personal-dictionary (expand-file-name "aspell.pws" doom-user-dir))
   [s-down-mouse-1] 'flyspell-correct-word)


在配置好 isyncmu 之后(比较 tricky 的部分是使用 GnuPG 来加密密码,可以参考这篇以及这篇),在 Emacs 中使用 mu4e 就很简单了。

(set-email-account! "neo"
  '((mu4e-sent-folder       . "/neo/Sent")
    (mu4e-drafts-folder     . "/neo/Drafts")
    (mu4e-trash-folder      . "/neo/Trash")
    (mu4e-refile-folder     . "/neo/All Mail")
    (smtpmail-smtp-user     . "")
    (user-mail-address      . "")
    (mu4e-compose-signature . "--\nNeo Lee a.k.a. soulhacker"))

(setq send-mail-function 'smtpmail-send-it)
(setq smtpmail-smtp-server "localhost")
(setq smtpmail-smtp-service 1025)
(setq smtpmail-stream-type 'starttls)

(setq org-msg-signature "\n#+begin_signature\n--\nNeo Lee a.k.a. soulhacker\n#+end_signature")

(after! mu4e
  (setq mu4e-headers-auto-update t
        mu4e-update-interval 120
        mu4e-view-show-images t
        mu4e-use-fancy-chars t)


Doom 的缺省配置和预制模块能覆盖我绝大部分需求,所以需要我另外添加的软件包很少,这些软件包需要写在 packages.el 里。

;;; packages.el -*- no-byte-compile: t; -*-


用快捷键快速在几个窗口间交换 buffer,比如同时打开 .c.h 文件,先在左边窗口编辑 .h 文件,然后把右边窗口的 .c 文件换过来进行编辑,使用这个包用一个组合键就能做到。其实预制模块里的 ace-window 也可以做类似的事情,但 buffer-mover 一个按键搞定更快。这里我用 :recipe 子句来禁用这个包的编译,因为这个包有个 bug,编译后会报错。

(package! buffer-move :recipe (:build (:not compile)))

安装和启用之后,在 config.el 里配置自己习惯的按键组合(我用 Control+Command+方向键 ):

 [C-s-up]        #'buf-move-up
 [C-s-down]      #'buf-move-down
 [C-s-left]      #'buf-move-left
 [C-s-right]     #'buf-move-right


org-roam-ui 提供强大的知识网络笔记系统 org-roam 的网络可视化,并可与 org-roam 紧密整合。注意:

  1. org-roam-ui 只支持 org-roam v2 ,如果使用 org-roam v1 的话请用 org-roam-server
  2. org-roam-ui 需要最新版本的 org-roam ,而 Doom 的包版本相对保守,所以要用 unpin! 函数来告诉 Doom 不用缺省版本而采用开发分支最新版本。
(unpin! org-roam)
(package! org-roam-ui)


xenopsorg-fragtog 都是用来在 org-mode 里实时渲染显示 \(LaTeX\) 公式的,它们都会实时将公式渲染为图片(前者用 SVG 格式,后者用 PNG 格式)并缓存,然后显示出来,区别在于 org-fragtog 是同步模式,渲染时会卡住 Emacs,等它好了你才能继续操作,而 xenops 使用 emacs-aio 实现异步渲染,它干活的时候你也可以继续干活,它渲染好就会自动显示出来。

(package! xenops)
;; (package! org-fragtog)

编程语言 - Python

Doom 其实有个大一统的源代码格式美化模块( :editor format ),但我还没时间深入研究,而且这个模块和 LSP 是彼此独立的,不知道有什么坑,所以没开。针对比较有这个需求的 Python 语言单独加了 black 这个懒汉的选择,作为 LSP 方案的保底。

(package! python-black)


keycast 可以跟踪并显示所有按键操作,在录制与 Emacs 有关的 screencast 时有用,其实我用的很少,ScreenFlow 提供更漂亮的解决方案,但在 Linux 下是个不错的方案。

(package! keycast)

这个包允许你在 Emacs 里查询、下载和查看 xkcd 漫画,嘿嘿嘿!

(package! xkcd)

Org Mode

org-mode 是 Emacs 的招牌应用,一个全副武装的 org-mode 可以在一致的环境下完成日程计划、笔记、博客、论文等各种写作任务,不仅可以写出文本、结构化列表、表格,还可以插入图片、 \(LaTeX\) 公式、可运行的程序代码、可追踪的任务,还可以借助 org-roam 实现笔记的知识网络化。这些功能是以 org-mode 为中心的一组软件包配合实现的,所以配置也相对多一点。


设置 org-agenda 使用的 Org 文档的位置,可以指定目录和文件名 pattern 把所有 .org 文件放进去:

(setq org-agenda-files (directory-files-recursively org-directory "\\.org$"))


(after! org
  (setq org-agenda-files
        (list (expand-file-name "" org-directory)
              (expand-file-name "" org-directory)
              (expand-file-name "" org-directory)
              (expand-file-name "" org-directory)
              (expand-file-name "" org-directory)

另一个和 org-agenda 有关的场景,就是用 org-roam 写东西很快就会有非常多的文件,有些笔记一时写不完可以加上 TODO 标签,然后就需要一个又快又方便的手段来整理这些 TODO 列表,对这个问题 Emacs 社区有位 Boris Buliga(a.k.a d12frosted,这位还是 homebrew-emacs-plusflyspell-correct 的维护者)给出了一个漂亮的解决方案,简单说就是检测到 TODO 时自动给文件打一个 project 标签(如果检测到当前文件所有 TODO 都没有了就自动移除标签),然后直接通过 org-roam 的数据库查询动态将这些文件添进 org-agenda 文件列表。从他分享的 gist 克隆代码到本地,然后加载就可以了。

(after! org-agenda
  (load! "lisp/vulpea-agenda"))

原来的版本有个问题,就是我们上面给变量 org-agenda-files 指定的文件会被移除,所以我做了一点 patch 之后才合用

Org 文档导出 \(LaTeX\) 文档时需要做一些配置,一是引入 ctex 包,否则中文处理会有问题;二是配置一下带链接文本的格式,不然会是带红色框的文本,非常恐怖;另外是一些 \(LaTeX\) 的常规设置。

(after! org
  (setq org-latex-default-packages-alist
        (remove '("AUTO" "inputenc" t) org-latex-default-packages-alist))
  (setq org-latex-pdf-process '("xelatex -interaction nonstopmode %f"
                                "xelatex -interaction nonstopmode %f"))
  (setq org-latex-packages-alist
        '(("" "ctex" t)))
  (setq org-latex-hyperref-template

在编辑 Org 文档时,经常点击链接跳转到另一篇笔记,这时候快速返回可以设置为快捷键,我用的是 Control-Command-b

(after! org
  (map! :map org-mode-map
        "C-s-b" #'org-mark-ring-goto

维护很多 Org 笔记时,记下笔记最后编辑时间会很有用,这个事情很适合交给 Emacs 自己做,可以利用 Emacs 的 Time Stamp 功能实现。

(after! org
  (add-hook 'org-mode-hook
            (lambda ()
              (setq-local time-stamp-active t
                          time-stamp-line-limit 18
                          time-stamp-start "^#\\+last_modified: [ \t]*"
                          time-stamp-end "$"
                          time-stamp-format "\[%Y-%m-%d %a %H:%M:%S\]")
              (add-hook 'before-save-hook 'time-stamp nil 'local))))

需要这个功能的 Org 笔记在 header 里加入下面一行即可(在笔记的前18行都可以)。

#+last_modified: [ ]


借助 org-babel 来实现可运行的代码块,我目前只用 Jupyter 这一种运行引擎,以后要扩展别的语言也比较方便。注意第一段里 :kernel 参数,需要设为系统里存在的某个 Jupyter kernel 的名字,且系统环境里应该装有 Jupyter(即系统 PATH 中能找到 jupyter 程序);使用中如果需要 pip 安装 Python 软件包,也是安装在这个 kernel 环境下。顺便还需要设置使得代码块使用对应的语言模式,提供良好的语法高亮及编辑功能。

(setq org-babel-default-header-args:jupyter-python '((:async . "no")
                                                     (:session . "jp")
                                                     (:kernel . "wop")))

(after! org
  (require 'org-tempo)
  (org-babel-do-load-languages 'org-babel-load-languages
                               '((emacs-lisp . t)
                                 (python . t)
                                 (shell . t)
                                 (latex . t)
                                 (sql . t)
                                 (sqlite . t)
                                 (calc . t)
                                 (jupyter . t)))

(after! org-src
  (dolist (lang '(python jupyter))
    (cl-pushnew (cons (format "jupyter-%s" lang) lang)
                org-src-lang-modes :key #'car))

缺省配置下运行结果区块里不能正确处理 ANSI text color code ,下面是 workaround

;; FIXME the ansi-color text issue in org-babel result block.
;; Source:
;; Here is the function that jupyter-mime.el relies on,
;; found in an older ansi-color.el in an older emacs distribution.
(defun ansi-color--find-face (codes)
  "Return the face corresponding to CODES."
  ;; Sort the codes in ascending order to guarantee that "bold" comes before
  ;; any of the colors.  This ensures that `ansi-color-bold-is-bright' is
  ;; applied correctly.
  (let (faces bright (codes (sort (copy-sequence codes) #'<)))
    (while codes
      (when-let ((face (ansi-color-get-face-1 (pop codes) bright)))
        (when (and ansi-color-bold-is-bright (eq face 'ansi-color-bold))
          (setq bright t))
        (push face faces)))
    ;; Avoid some long-lived conses in the common case.
    (if (cdr faces)
        (nreverse faces)
      (car faces))))


如前所述,目前我用的是 xenops ,不过 org-fratog 的配置也放着了。

(use-package! xenops
  :hook (latex-mode . xenops-mode)
  :hook (LaTeX-mode . xenops-mode)
  :hook (org-mode . xenops-mode)
  :defer t
  (map! :map xenops-mode-map
        :n "RET" #'xenops-dwim)
  (setq xenops-cache-directory (concat doom-cache-dir "xenops/")
        xenops-reveal-on-entry t
        xenops-math-latex-process 'dvisvgm
        xenops-math-image-scale-factor 1.5

;; (add-hook! 'org-mode-hook #'org-fragtog-mode)



其实我刚开始用 org-roam ,所以只有最简单的配置,一些复杂的模板之类的都还没开始用。这里最重要的配置是 Roam 笔记的根目录,另外我稍微修改了下缺省的 capture template ,在元数据里加了 tag

(use-package! org-roam
  (org-roam-directory (file-truename "~/Code/Org/roam/"))
  (org-roam-completion-everywhere t)
  :bind (("C-c n l" . org-roam-buffer-toggle)
         ("C-c n f" . org-roam-node-find)
         ("C-c n g" . org-roam-graph)
         ("C-c n i" . org-roam-node-insert)
         ("C-c n c" . org-roam-capture)
         ("C-c n j" . org-roam-dailies-capture-today))
  (setq org-roam-capture-templates
        `(("d" "default" plain "%?"
           :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
                              "#+title: ${title}\n#+filetags:\n\n")
           :unnarrowed t)))
  (require 'org-roam-protocol))


这个知识网络的可视化会显示在浏览器中,通过 websocket 与 Emacs 通信。

(after! org-roam
  (use-package! websocket)
  (use-package! org-roam-ui
    (setq org-roam-ui-sync-theme t
          org-roam-ui-follow t
          org-roam-ui-update-on-save t
          org-roam-ui-open-on-start t))



因为我用 lipsy 所以其实 smaertparens 用的不多,不过作为保底,还是配了一下常用按键组合。

 (:after smartparens
  (:map smartparens-mode-map
   "C-M-f"       #'sp-forward-sexp
   "C-M-b"       #'sp-backward-sexp
   "C-M-u"       #'sp-backward-up-sexp
   "C-M-d"       #'sp-down-sexp
   "C-M-p"       #'sp-backward-down-sexp
   "C-M-n"       #'sp-up-sexp
   "C-)"         #'sp-forward-slurp-sexp
   "C-}"         #'sp-forward-barf-sexp
   "C-("         #'sp-backward-slurp-sexp
   "C-{"         #'sp-backward-barf-sexp
   "C-M-s"       #'sp-splice-sexp


几个小工具方便一些常用操作,包括用 black 格式化源代码。

(after! python
  (defun +python-make-fstring ()
    "Change string to fstring"
    (when (nth 3 (syntax-ppss))
      (let ((p (point)))
        (goto-char (nth 8 (syntax-ppss)))
        (insert "f")
        (goto-char p)
  (defun +python-format-buffer ()
    "Format python buffer with black"
  (map! :map python-mode-map
        "C-c x s" #'+python-make-fstring
        "C-c x f" #'+python-format-buffer))



(use-package! xkcd
  :commands (xkcd-get xkcd)
  (setq xkcd-cache-dir (expand-file-name "xkcd/" doom-cache-dir)
        xkcd-cache-latest (expand-file-name "xkcd/latest" doom-cache-dir)))

  1. Literate Config:这个很酷的想法来源于 Donald Knuth 老爷子40年前提出的 Literate Programming ,就是把文字和程序写在同一文档里,用两个程序来处理这个文档,一个叫 tangle ,可以把里面所有代码提取出来组成一个可以运行的程序,另一个叫 weave ,可以将文档整体导出成各种可读格式供人阅读。关于这个优雅想法的更深入讨论,可以读读这本书。 ↩︎