企业官网建设流程全解析

1. 项目概述：为什么我们需要一个“可配置”的光标？

在Emacs这个以高度可定制性著称的编辑器中，我们几乎可以调整一切：主题、字体、键绑定、窗口布局……但有一个细节常常被忽略，那就是光标。默认情况下，Emacs的光标是一个简单的、可能还在闪烁的竖线或方块。对于长时间编码、写作或阅读的用户来说，这个看似微不足道的元素，却直接影响着视觉舒适度和专注度。你是否曾在深夜盯着屏幕，感觉那个闪烁的光标格外刺眼？或者在全屏演示时，希望光标能更醒目一些，方便观众跟随你的思路？这就是cursory这个包要解决的问题。

cursory是一个Emacs包，它允许你为光标定义多种预设配置。你可以把它想象成给光标准备的“皮肤”或“模式”。每个预设可以独立控制光标的样式（是竖线bar、方块box、水平线hbar，还是空心方块hollow）、闪烁行为（是否闪烁、闪烁的频率）以及颜色。通过快速切换这些预设，你可以为不同的使用场景创建最优的视觉体验。比如，在专注写作时，你可以切换到一个不闪烁、颜色柔和的光标，减少干扰；而在向他人演示代码时，则可以切换到一个颜色鲜艳、样式醒目的光标，让它成为全场焦点。

2. 核心设计思路：将光标从“状态”提升为“模式”

2.1 从“单一属性”到“预设组合”的转变

在深入安装和使用之前，理解cursory的设计哲学至关重要。传统的Emacs光标配置是分散的、一次性的。你可能会在初始化文件里设置blink-cursor-mode，用set-cursor-color改个颜色，但这些设置是孤立的、全局的。cursory的核心创新在于，它将光标的所有视觉属性打包成一个名为“预设”的配置单元。

这种设计带来了几个关键优势：

1. 场景化切换：你可以为“阅读”、“编码”、“演示”、“夜间模式”分别创建预设，一键切换，无需手动调整多个变量。
2. 状态隔离：不同预设之间的配置互不干扰。切换到“演示模式”时，光标的颜色、闪烁频率会立刻改变；切回“编码模式”时，又会恢复原状。这比全局修改某个变量要可靠得多。
3. 可复现性：预设可以被保存、导出、分享。一旦你调校出一套在特定显示器或光照环境下最舒服的配置，就可以将其固化下来，随时调用。

2.2 预设配置的维度解析

一个cursory预设主要包含以下几个维度，理解它们有助于你创建更符合需求的配置：

• cursory-presets(预设列表)：这是核心变量，一个关联列表（alist），定义了所有可用的预设。每个预设是一个键值对，键是预设名（如'reading），值是一个属性列表（plist），包含具体的样式参数。
• 样式 (:cursor-type)：决定光标的外观形态。
  • (bar . WIDTH)：竖线，WIDTH指定宽度（像素）。(bar . 2)是常见选择，清晰不挡字。
  • (box . HEIGHT)：实心方块，HEIGHT指定高度（像素）。传统终端风格。
  • (hbar . HEIGHT)：水平线，位于字符底部。比较独特，适合需要横向视觉引导的场景。
  • hollow：空心方块。我个人非常喜欢在深色主题下使用，它只勾勒出字符的边框，非常优雅且不遮挡内容。
• 闪烁 (:blink-cursor-mode,:blink-cursor-interval,:blink-cursor-blinks)：控制光标的动态行为。
  • :blink-cursor-mode：t为启用闪烁，nil为禁用。对于需要长时间凝视光标的深度阅读或思考，强烈建议禁用闪烁，可以显著减轻视觉疲劳。
  • :blink-cursor-interval：闪烁间隔（秒）。默认是0.5秒。你可以调快（如0.3）让它更活跃，或调慢（如1.0）让它更沉稳。
  • :blink-cursor-blinks：闪烁次数后保持显示。设为-1表示无限闪烁，设为0则闪烁一次后常亮。这个参数配合间隔，可以创造出“闪烁几下后稳定”的引导效果。
• 颜色 (:cursor-color)：最直观的视觉属性。可以是任何Emacs识别的颜色名或十六进制值（如"#ff6b6b"）。经验之谈：颜色的选择应与你的主题形成适度对比，但不宜过于刺眼。在深色主题下，避免使用纯白色（"white"），可以尝试浅灰色（"#cccccc"）或主题的高亮色；在浅色主题下，避免使用纯黑色。

注意：cursory的预设系统是叠加式的。当你切换到一个预设时，它只会修改预设中明确定义的属性。如果一个预设没有指定闪烁间隔，那么切换时就不会改变当前的闪烁间隔值。这给了你很大的灵活性，但也要求你在定义预设时考虑周全。

3. 安装、配置与基础使用

3.1 安装与引入

假设你使用的是package.el并配置了GNU ELPA或MELPA等仓库，安装非常简单：

;; 在你的初始化文件（如 ~/.emacs.d/init.el）中 (require 'package) (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) (package-initialize) ;; 安装 cursory ;; M-x package-install RET cursory RET

安装后，在你的配置文件中引入并激活它：

(require 'cursory) ;; 可选：设置一个默认预设，这样启动Emacs后就会应用 (cursory-set-preset 'reading) ; 假设你定义了一个叫 'reading 的预设

3.2 定义你的第一个预设集

配置的核心是定义cursory-presets变量。下面是一个包含多种场景的示例配置，你可以直接复制并根据喜好修改：

(setq cursory-presets '( ;; 1. 日常编码/写作模式：不闪烁的细竖线，保护眼睛 (coding :cursor-type (bar . 2) :cursor-color "#51afef" ; 一种舒适的蓝色 :blink-cursor-mode nil) ; 关键！禁用闪烁 ;; 2. 深度阅读模式：空心方块，颜色更暗，完全静态 (reading :cursor-type hollow :cursor-color "#5B6268" ; 深灰色，非常低调 :blink-cursor-mode nil) ;; 3. 演示模式：醒目的红色粗方块，快速闪烁以吸引注意力 (presentation :cursor-type (box . 3) :cursor-color "#ff6b6b" ; 红色 :blink-cursor-mode t :blink-cursor-interval 0.3 ; 快速闪烁 :blink-cursor-blinks -1) ; 无限闪烁 ;; 4. 复古终端模式：模拟老式终端，方块闪烁 (retro :cursor-type (box . 1) :cursor-color "#98be65" ; 绿色 :blink-cursor-mode t :blink-cursor-interval 0.5) ;; 5. 超大光标模式：用于视力辅助或在大屏幕上非常醒目 (large :cursor-type (box . 6) :cursor-color "#da8548" ; 橙色 :blink-cursor-mode nil) ))

配置要点解析：

• 预设名：如coding、reading，它们是符号（symbol），通常使用单引号防止被求值。
• 属性顺序：属性列表（plist）中键值对的顺序无关紧要，但保持一致性（如总是:cursor-type在前）有利于阅读。
• 颜色值：这里使用了十六进制颜色码，它们比颜色名（如"red"）更精确，能确保在不同终端和GUI下表现一致。你可以使用M-x list-colors-display来浏览和选择Emacs支持的颜色。

3.3 切换预设的多种方式

定义好预设后，有几种方法可以切换：

1. 交互式命令：最常用的方式。按M-x cursory-set-preset RET，然后输入预设名（如reading）即可。Emacs的补全机制（通常是TAB键）可以帮你快速输入。
2. 函数调用：在Elisp代码或键绑定中直接调用。

   (cursory-set-preset 'presentation) ; 切换到演示模式

3. 绑定快捷键：为了极致效率，可以将常用预设绑定到快捷键上。

   ;; 绑定到 Ctrl+c c 加上模式首字母 (global-set-key (kbd "C-c c c") (lambda () (interactive) (cursory-set-preset 'coding))) (global-set-key (kbd "C-c c r") (lambda () (interactive) (cursory-set-preset 'reading))) (global-set-key (kbd "C-c c p") (lambda () (interactive) (cursory-set-preset 'presentation)))

4. 与模式钩子联动：这是cursory的高级用法，可以实现自动化。例如，当你进入org-mode写作时自动切换到阅读模式，进入prog-mode时切换到编码模式。

   (add-hook 'org-mode-hook (lambda () (cursory-set-preset 'reading))) (add-hook 'prog-mode-hook (lambda () (cursory-set-preset 'coding)))

   注意：使用钩子时要小心冲突。如果多个钩子修改了光标预设，最后执行的钩子会生效。确保你的配置逻辑清晰。

4. 高级技巧与深度定制

4.1 根据环境自动选择预设

一个更智能的配置是根据系统环境（如GUI还是终端、白天还是夜晚）自动选择预设。这需要结合其他Emacs功能来实现。

示例：根据图形界面（GUI）与终端（TTY）设置不同预设在终端中，某些光标样式（如hollow）或颜色可能不被支持。我们可以让Emacs在启动时自动判断：

;; 在初始化文件中，在定义cursory-presets之后 (defun my-setup-cursor-by-environment () "根据运行环境设置初始光标预设。" (if (display-graphic-p) ;; 图形界面下，使用功能全面的预设 (cursory-set-preset 'coding) ; 例如使用coding预设 ;; 终端（TTY）下，使用兼容性更好的预设 (cursory-set-preset 'retro))) ; 例如使用复古终端预设 ;; 在Emacs启动后调用此函数 (add-hook 'after-init-hook #'my-setup-cursor-by-environment)

示例：根据时间自动切换日间/夜间模式你可以结合now或sunshine等包，或者简单地根据小时数来判断：

(defun my-setup-cursor-by-time-of-day () "根据一天中的时间切换光标预设。" (let ((hour (string-to-number (format-time-string "%H")))) (cond ((and (>= hour 6) (< hour 18)) ; 白天 6:00 - 17:59 (cursory-set-preset 'coding)) ; 日间模式 (t ; 夜晚 (cursory-set-preset 'reading))))) ; 夜间阅读模式 ;; 可以绑定到一个快捷键，或定时执行 (global-set-key (kbd "C-c c t") #'my-setup-cursor-by-time-of-day)

4.2 创建“临时”或“覆盖”预设

有时你不需要定义一个新的永久预设，只是想临时覆盖某个属性。cursory提供了cursory-set-values函数来实现这一点。

;; 临时将光标改为不闪烁的红色粗竖线，但不影响已定义的预设 (cursory-set-values :cursor-type (bar . 4) :cursor-color "red" :blink-cursor-mode nil) ;; 如果你想基于当前预设做临时修改，可以先获取当前值 (let ((current-preset (cursory-get-preset))) ; 需要cursory最新版本支持此函数 ;; 假设current-preset是一个plist，我们可以修改它 (plist-put current-preset :cursor-color "orange") (apply #'cursory-set-values current-preset))

这个功能在调试配置或进行一次性调整时非常有用。要恢复到最后一次通过cursory-set-preset设置的预设，只需再次调用该命令即可。

4.3 与其他流行包集成

cursory可以很好地与Emacs生态中的其他包协同工作，创造出更统一的体验。

• 与theme/modus-themes集成：Protesilaos（cursory的作者）也是著名主题modus-themes的作者。你可以让光标颜色自动匹配当前主题的强调色。

  (defun my-cursor-color-from-theme () "从当前主题中提取一个颜色作为光标色。" ;; 这是一个示例，实际颜色提取逻辑取决于你的主题 (let ((accent-color (face-attribute 'mode-line :background))) ; 例如取模式行的背景色 (cursory-set-values :cursor-color accent-color))) (add-hook 'after-load-theme-hook #'my-cursor-color-from-theme)

• 与eyebrowse或perspective集成：如果你使用工作区管理包，可以为不同的工作区设置不同的光标预设，强化视觉上下文。

  ;; 假设使用eyebrowse (add-hook 'eyebrowse-post-window-switch-hook (lambda () (let ((workspace (eyebrowse-get-current-window-config))) (pcase workspace (1 (cursory-set-preset 'coding)) (2 (cursory-set-preset 'reading)) (_ (cursory-set-preset 'default))))))

5. 常见问题与排查实录

即使配置得当，你也可能会遇到一些问题。下面是我在长期使用中遇到的一些典型情况及其解决方法。

5.1 问题：切换预设后，光标样式没有立即改变

• 可能原因1：缓冲区的局部变量覆盖。某些模式（如term-mode、eshell）或缓冲区可能设置了局部变量cursor-type，其优先级高于全局设置。
• 排查：将光标移动到不同的缓冲区（如*scratch*）看看是否改变。使用C-h v cursor-type查看当前缓冲区的局部值。
• 解决：你可以强制在所有缓冲区应用，或在特定模式的钩子中重新应用预设。cursory的cursory-set-preset默认只设置全局变量，但局部变量可能会覆盖它。一个变通方法是：

  (defun my-cursory-set-preset-force (preset) "强制在所有缓冲区应用PRESET。" (interactive (list (intern (completing-read "Preset: " (mapcar #'car cursory-presets))))) (cursory-set-preset preset) ;; 遍历所有存活缓冲区，设置局部变量（谨慎使用，可能影响性能） ;; (dolist (buf (buffer-list)) ;; (with-current-buffer buf ;; (when (not (eq major-mode 'term-mode)) ; 排除终端等特殊模式 ;; (setq-local cursor-type (plist-get (alist-get preset cursory-presets) :cursor-type)))))) )

5.2 问题：在终端（TTY）中，某些光标样式不生效或显示异常

• 可能原因：终端模拟器对光标样式的支持有限。例如，许多终端不支持hollow（空心方块）样式，可能将其渲染为实心方块或竖线。
• 排查：在GUI版本的Emacs（如Emacs for MacOS、GTK版本）中测试相同的预设。如果GUI下正常而终端下异常，就是终端兼容性问题。
• 解决：
  1. 为终端单独定义预设：如前文所述，使用(display-graphic-p)判断，并为终端使用更兼容的样式（如(bar . 2)或(box . 1)）。
  2. 检查终端配置：有些终端（如iTerm2、Alacritty）可以在其配置中启用“光标形状变化”支持。查阅你的终端文档。
  3. 降级使用：在终端中，坚持使用bar和box这两种最广泛支持的样式。

5.3 问题：光标闪烁频率不稳定或不符合设定值

• 可能原因1：blink-cursor-blinks参数的影响。如果该值设为一个较小的正数（如5），光标在闪烁指定次数后就会保持常亮，给人一种“闪烁停止”的错觉。
• 排查：检查你的预设中:blink-cursor-blinks的值。设为-1表示无限闪烁。
• 可能原因2：系统性能或Emacs垃圾回收（GC）。在Emacs非常繁忙（进行大量计算、渲染复杂缓冲区）时，定时器可能不精确，导致闪烁看起来卡顿。
• 排查：观察在轻负载（如空缓冲区）和重负载（打开大文件、运行M-x compile）时光标闪烁的表现。
• 解决：对于性能问题，尝试增加Emacs的GC阈值（gc-cons-threshold），但这只是权宜之计。更根本的是优化你的配置和避免在Emacs中运行过于繁重的任务。

5.4 问题：如何查看当前生效的所有光标设置？

• 解决：Emacs提供了多个命令来检查状态。
  • M-x describe-variable RET cursor-type RET：查看当前缓冲区的光标类型。
  • M-x describe-variable RET cursor-color RET：查看当前缓冲区的光标颜色。
  • M-x describe-variable RET blink-cursor-mode RET：查看闪烁模式是否启用。
  • M-x cursory-get-preset（如果可用）：直接获取当前cursory预设的名称。
  • 更直接的方法是，查看cursory-latest-preset这个变量的值，它记录了最后一次通过cursory-set-preset设置的预设名。

5.5 问题：配置不生效，或者加载时报错

• 可能原因1：加载顺序问题。如果你在cursory包加载之前就引用了cursory-presets变量，或者调用了cursory-set-preset函数，会导致错误。
• 解决：确保所有cursory相关的配置都放在(require 'cursory)之后。使用with-eval-after-load是一个好习惯，可以确保配置在包加载完成后才执行。

  (with-eval-after-load 'cursory (setq cursory-presets '(...)) ; 你的预设配置 (cursory-set-preset 'coding)) ; 设置默认预设

• 可能原因2：预设定义语法错误。确保cursory-presets是一个正确的alist，每个元素是(SYMBOL . PLIST)的形式，且PLIST的键是关键字（以冒号开头）。
• 排查：使用M-x ielm进入Elisp交互模式，逐段评估你的配置，看是否有错误提示。

6. 性能考量与最佳实践

cursory本身非常轻量，切换预设的操作是即时的，开销可以忽略不计。但在大规模、自动化的配置中，仍需注意以下几点：

1. 避免在频繁触发的钩子中切换预设：例如，不要在每个post-command-hook或window-configuration-change-hook中调用cursory-set-preset，这可能导致不必要的重绘和轻微卡顿。
2. 预设数量适度：定义5-10个最常用的预设即可。过多的预设虽然不会影响性能，但会增加管理复杂度。
3. 颜色选择要兼顾美学与可读性：光标颜色应与语法高亮、模式行等界面元素协调。避免使用与背景色对比度过低或过高的颜色。可以使用在线配色工具或Emacs内置的M-x list-colors-display来挑选。
4. 为“禁用闪烁”设置一个专用预设：这是我个人的首要建议。无论你创建多少预设，一定要有一个禁用闪烁的选项（:blink-cursor-mode nil）。长时间面对闪烁的光标是导致视觉疲劳的主要原因之一。我90%的时间都使用不闪烁的光标预设。
5. 分享与备份你的配置：一旦你调校出一套适合自己的预设，不妨将其分享到你的配置仓库（如GitHub Gist）或社区。这既是备份，也可能帮助到有类似需求的人。

光标是你在文本世界中的“指针”，是注意力锚定的地方。花一点时间通过cursory来优化它的外观和行为，是对自己长时间屏幕工作的一种体贴。从今天开始，尝试创建一个属于你自己的、不闪烁的“专注模式”光标吧，你的眼睛会感谢你。