在按 M-x 时，如何自动获取光标所在单词

闲聊灌水
1

1. 需求分析

  • 目标：在按 M-x 时，自动获取光标所在单词（如 suggestCourse 或 考试系统）作为 M-x 的初始输入。
  • 场景：
    • Java 代码：光标在 suggestCourse，希望 M-x 预填 suggestCourse。
    • Org-mode：光标在 考试系统，预填到 minibuffer。
    • 结合 amx（您之前的问题），优化命令选择。
  • 挑战：
    • M-x 默认不捕获光标单词。
    • 需要自定义函数或绑定，兼容 java-mode、org-mode 等。

方法 1：自定义函数获取光标单词并调用 M-x

创建一个函数，捕获光标下的单词并将其作为 M-x 的初始输入。

步骤

  1. 定义函数：
(defun my-amx-with-word-at-point ()
  "Run amx with word, symbol, or Chinese text at point."
  (interactive)
  (let ((word (or (thing-at-point 'word t)
                  (thing-at-point 'symbol t)
                  (let ((bounds (bounds-of-thing-at-point 'sexp)))
                    (when bounds
                      (buffer-substring-no-properties
                       (car bounds) (cdr bounds))))
                  "")))
    (minibuffer-with-setup-hook
        (lambda ()
          (unless (string-empty-p word)
            (insert word)))
      (amx))))
(global-set-key (kbd "C-c x") 'my-amx-with-word-at-point)

步骤

  1. 确保 amx 安装：
  • 在 init.el：
(use-package amx
  :ensure t
  :config
  (amx-mode 1))
  1. 修改函数支持 amx：
  • 更新函数：
(defun my-amx-with-word-at-point ()
  "Run amx with the word at point as initial input."
  (interactive)
  (let ((word (thing-at-point 'word t)))
    (minibuffer-with-setup-hook
        (lambda ()
          (when word
            (insert word)))
      (amx))))
  1. 绑定快捷键：
  • 在 init.el：
(global-set-key (kbd "C-c x") 'my-amx-with-word-at-point)
  1. 测试：
  • 光标在 org-roam-node-find（Org 文件）：

- org-roam-node-find

  • 按 C-c x：
    • Minibuffer 显示：org-roam-node-find，amx 补全相关命令。

适用场景

  • 使用 amx 的模糊匹配，快速选择命令。

以上内容来自AI回复，提示词 emacs M-x 时如何获取光标所在的单词

2

原始想法： 像得到Vim里 Ctrl + r Ctrl + w 的效果。直接搜索当前光标所在的单词或者查看当前光标所在的单词所在的文件。

3

很多命令有 future history，比如 occur, consult-grep 等可以通过 M-n 切换到光标下的单词。

1 个赞
4

M-s .就可以。

5

试试这个，percell 配置里的：

效果：

image
image1263×1420 90.8 KB