如何在 elisp 中获得可靠的缩进

Question

我是 Emacs 新手。

我正在尝试编写一个适用于所有模式的 elisp 函数。具体来说，我想编写一个插入大括号的函数（有点像insert-parentheses），就像下面的键序列对只支持自动缩进的愚蠢编辑器所做的一样：

"{" <ret> "}" <up-arrow> <end> <ret> <tab>

此键序列适用于 Java 和 C# (bsd) 样式的缩进。我需要它在所有大括号-y emacs 模式以及纯文本文件中工作 - 我有其他没有 emacs 模式但仍使用大括号的格式。

这是我的第 12 次尝试：

(defun insert-braces-macro ()
  (interactive)
  (insert "{")
  (newline)
  (indent-relative t)
  (insert "}")
  (forward-line -1)
  (end-of-line)
  (newline)
  (indent-relative t)
  (indent-relative nil))

不幸的是，这并不完全正确。我不认为 indent-relative 是正确的函数，因为它在 Java 样式中没有正确缩进：

f |

扩展为：

f {
  |
}

在 C 模式下：

somelongword another |

扩展到：

somelongword another {
             |
}

但是indent-according-to-mode 也不对，因为它在 C-ish 模式下会缩进太多（尾部的 '}' 是缩进的），而在基本模式下则完全不行。

处理这个问题的正确方法是什么？

Answer 1

indent-according-to-mode 是正确的答案，我认为，但你需要记住它不能预测未来，所以你需要在插入文本之后调用它而不是之前：

(defun insert-braces-macro ()
  (interactive)
  (insert "{")
  (newline) (indent-according-to-mode)
  (save-excursion
    (newline)
    (insert "}")
    (indent-according-to-mode)))

Answer 2

这是我用了很久的东西：

(defun ins-c++-curly ()
  "Insert {}.
Treat it as a function body when from endline before )"
  (interactive)
  (if (looking-back "\\()\\|try\\|else\\|const\\|:\\)$")
      (progn
        (insert " {\n\n}")
        (indent-according-to-mode)
        (forward-line -1)
        (indent-according-to-mode))
    (insert "{}")
    (backward-char)))

这个函数：

1. 回看时插入{} 块 在合适的地方，例如在) 之后。
2. 否则，插入{} 并后退一个字符。 对数组和新式初始化很有用。

这适用于 C++，我将缩进设置为 4 个空格， 以及 Java，我有 2 个空格。