Emacs 光标动画（或：果冻光标）

RnE · 2026 年1 月 8 日 01:07

现在它处理 tab 这些字符的表现跟 x-stretch-cursor 是一致的，什么时候修一下

zealotrush · 2026 年1 月 8 日 01:36

试了一下，问题解决了。多谢！

verminniu · 2026 年1 月 8 日 03:42

这个好帅，如果能直接入master，基本可以吸引一大批支持者，不过老顽固们不知道会不会考虑。。

seagle0128 · 2026 年1 月 9 日 02:26

patch进master就行，其他可以作为module去发布。全部合入的话估计有难度，可以建议加开关选项控制。

ententent · 2026 年1 月 10 日 09:55

刚安装完 emacs-plus@31 就立刻编译 lolipop 了, 效果非常丝滑

我使用 modus-operandi 主题, 这个主题搭配 lolipop 的话, 果冻光标是黑色的-_- (类似楼上老哥的效果)

目前来看果冻光标的颜色和主题有关, 试了下深色主题, 果冻光标就相应变成浅色了

请问 lolipop 能否引入对光标颜色的设置呢? 浅色主题下的黑旋风光标确实有点…

RnE · 2026 年1 月 10 日 11:45

光标动画的颜色跟光标颜色是保持一致的，这个行为是特意设计的

强烈建议你有需求的话直接更改光标的颜色，否则动画结束之后会有光标颜色的瞬变

一定要改的话在这里

github.com/RadioNoiseE/lolipop

lolipop.el

c6c3a0210


      
                        (short (and glyph
                                    (< (aref glyph 3) (aref cursor 4)))))
                   (apply #'lolipop-lick
                          render
                          (+ (aref cursor 1) (nth 0 edges))
                          (+ (aref cursor 2) (nth 1 edges)
                             (if short (- (aref cursor 5) (aref glyph 8)) 0)
                             (- (window-header-line-height)))
                          (if space (frame-char-width) (aref cursor 3))
                          (if short (aref glyph 3) (aref cursor 4))
                          (color-name-to-rgb (frame-parameter nil 'cursor-color))))))))
          
          ;;;###autoload
          (define-minor-mode lolipop-mode
            "Toggle rendering of cursor animations."
            :global t
            (if lolipop-mode
                (progn
                  (unless (functionp 'lolipop-lick)
                    (load "lolipop-core"))
                  (add-hook 'post-command-hook #'lolipop-savor))

RnE · 2026 年1 月 10 日 11:52

现在获取的 w->phys_cursor_width 不保证在 get_phys_cursor_geometry 之后，没有对 x-stretch-cursor 进行处理，所以只能移到 elisp 这边处理了

至少常见情况没问题了

RnE · 2026 年1 月 13 日 13:43

受 @kekeimiku 启发，感觉可以试着直接牛了 Emacs 里负责绘制光标的函数，性能会好一些

目前看到的逻辑是：ns_draw_window_cursor 当在 FILLED_BOX_CURSOR 时调用 draw_phys_cursor_glyph，然后是 face override 为 DRAW_CURSOR 的 draw_glyphs，根据上下文调用一堆 ns_draw_xxx 函数

难搞的就在这里，一些 ns_draw_xxx 的函数会更改绘制的光标的尺寸信息（这也是为什么 Elisp 的接口会返回错误的值）

github.com/emacs-mirror/emacs

src/nsterm.m

1644463e5


      
              }
          }
          
          
          static void
          ns_draw_stretch_glyph_string (struct glyph_string *s)
          {
            struct face *face;
            NSColor *fg_color;
          
            if (s->hl == DRAW_CURSOR && !x_stretch_cursor_p)
              {
                /* If `x-stretch-cursor' is nil, don't draw a block cursor as
          	 wide as the stretch glyph.  */
                int width, background_width = s->background_width;
                int x = s->x;
          
                if (!s->row->reversed_p)
          	{
          	  int left_x = window_box_left_offset (s->w, TEXT_AREA);

Deeson · 2026 年1 月 17 日 10:24

前辈，后面还会有新的版本吗？

Deeson · 2026 年1 月 17 日 10:25

最近看到另一个帖子：

holo-layer: 一种全新的Emacs增强图层插件 Emacs-general

我的setup之前用 holo-layer 一直有点问题，主frame主显示器可以使用，make-frame 新的frame，或者换到旁边的显示器就都不工作了。这几周看见坛子里mac上的光标动画这些帖子，心里痒得不行，我又不用mac。 Emacs 缓冲区切换动画、光标处粒子爆炸、鼠标点击波纹、彩虹文本、窗口地震，闪电括号匹配特效 Emacs 光标动画（或：果冻光标）遂花了几天时间重新把holo-layer翻出来debug一下子，终于发现问题出在哪里了，修复后一高兴给光标旁边又加了个 QMovie 让我家鸽鸽天天陪我一起写代码。 [Peek 2026-01-12 10-05] 发一下我定位到的问题和解法，看看有没有别的小伙伴也遇到了同样的问题环境： ArchLinux X11 Emacs 30.1 Spacemacs develop长期不更新只有主frame才满足 get_active_window_id() == get_emacs_id()，改成了查询 frame-focus-state 后就能保证在任何frame返回True，不在emacs就返回Fa…

看起来「光标动画」和「光标」的颜色不同还是有点意义的：

上面的例子，光标为橙色，光标动画为深粉色，从而给人一种「光标」的残影的感觉，咻咻咻～

不仅如此，上例的光标动画，是半透明的，并且具有较深的边框，感觉自成一格；但稍微美中不足的是，光标动画似乎是浮在原有光标上的，如果原有光标始终在最上层，可能更漂亮。

RnE · 2026 年1 月 17 日 11:23

会的，先把 x-stretch-cursor 的问题解决了

然后看看怎么改光标动画，现在的有点拖泥带水

RnE · 2026 年1 月 17 日 11:27

我感觉有点过于花哨了。不过想要的话可以自己改

github.com/RadioNoiseE/lolipop

lolipop.m

41daaa37e


      
          CGPathMoveToPoint (path, NULL, tl_position.x, tl_position.y);
          CGPathAddLineToPoint (path, NULL, tr_position.x, tr_position.y);
          CGPathAddLineToPoint (path, NULL, br_position.x, br_position.y);
          CGPathAddLineToPoint (path, NULL, bl_position.x, bl_position.y);
          CGPathCloseSubpath (path);

RnE · 2026 年1 月 18 日 03:23

README 更新了

正在处理一个关于窗口对象中记录的物理光标几何信息不正确的问题

Bug 状态见：https://debbugs.gnu.org/cgi/bugreport.cgi?bug=80211

我也在考虑改变这个扩展的实现方式。当前的光标动画实现存在明显的滞后问题。
一个解决方案是将动画改为基于 time-easing的方式，借助 Core Animation 提
供的机制。另一种方案是将动画改为「事件驱动」，通过 interpose Emacs 的
光标绘制函数，并使用 dyld_dynamic_interpose 注入动画逻辑
（dyld/include/mach-o/dyld_priv.h）

RnE · 2026 年1 月 19 日 13:04

Emacs 30.2 的话最好再 apply 一下这个