☰

Auctex 字体快捷方式

tag-icon • tag-icon fonts auctex
Auctex 字体快捷方式

在 Aquamacs 中，我想为以下命令创建键盘快捷键：

{\Hiero }

我想要选择或输入的文本。我在 Google 上搜索，但找不到可行的答案

答案1

将以下代码添加到您的初始化文件中。

(eval-after-load "latex"
  '(setq TeX-font-list
     (append
      TeX-font-list
      '((?\C-h "{\\Hiero " "}")))))

通过这种方式，您可以{\Hiero }在点处插入或将其环绕在选定的文本周围C-C h（但您可以在代码中更改键绑定）。

前面的代码利用了 AUCTeX 字体管理，这里是一个仅使用标准 Emacs Lisp 的不同解决方案。

(eval-after-load "latex"
  '(define-key LaTeX-mode-map
     (kbd "C-C h")
     (lambda (&optional beg end)
       (interactive "r")
       (if (TeX-active-mark)
       (progn
         (save-excursion
           (goto-char end)
           (insert "}"))
         (save-excursion
           (goto-char beg)
           (insert "{\\Hiero ")))
     (insert "{\\Hiero ")
     (save-excursion
       (insert "}"))))))

相关内容