10

我正在尝试在 emacs 中实现以下缩进：

class A
{
    // I ALWAYS use access labels in classes

    public: // access-label
        int member; // inclass
};

struct B
{
    // I NEVER use access labels in structs

    int member; // inclass
};

但是使用以下配置文件...

(defun my-cpp-mode ()
  "My C++ mode"
  (c++-mode)
  (c-set-style "K&R")
  (setq c-basic-offset 4)
  (c-set-offset 'access-label '-)
  (c-set-offset 'inclass '++)
  ;; ...
  (setq mode-name "My C++")
)
(add-to-list 'auto-mode-alist '("\\.[ch]p?p?\\'" . my-cpp-mode))

...我只实现：

class A
{
    public: // access-label
        int member; // inclass
};

struct B
{
        // this indentation is too long
        int member; // inclass
};

当然是因为：

  • 对于缩进，“class”和“struct”显然没有区别（都是“inclass”），
  • “inclass”内容的缩进不取决于访问标签的存在与否。

知道如何根据类/结构或访问标签的存在来使 inclass 内容的缩进吗？

4

3 回答 3

8

新答案

我遇到了您在问题中提到的确切要求。我必须根据我的新项目的编码风格设置缩进。经过一番研究，我使用Custom Line-up Functions实现了这一点。

修改你my-cpp-mode的样子：

(defun my-c-lineup-inclass (langelem)
  (let ((inclass (assoc 'inclass c-syntactic-context)))
    (save-excursion
      (goto-char (c-langelem-pos inclass))
      (if (or (looking-at "struct")
              (looking-at "typedef struct"))
          '+
        '++))))

(defun my-cpp-mode ()
  "My C++ mode"
  (c++-mode)
  (c-set-style "K&R")
  (setq c-basic-offset 4)
  (c-set-offset 'access-label '-)
  (c-set-offset 'inclass 'my-c-lineup-inclass)
  ;; ...
  (setq mode-name "My C++")
)

如果这个答案是可以接受的，我会继续删除旧的答案。

旧答案

根据您要实现的目标，我可以建议一种不同的方法吗？您似乎希望访问标签的缩进级别与类和类成员不同。使用以下方法来实现。

(access-label . /)

来自 Emacs 文档：

如果 OFFSET 是符号+',-'、++',--'、*', or/' 之一，则将 `c-basic-offset' 的正数或负数倍数添加到基本缩进；分别为 1、-1、2、-2、0.5 和 -0.5。

这是我定义的自定义样式之一的片段。

(c-add-style
 "xyz-style"
 '((indent-tabs-mode . nil)
   (fill-column . 75)
   (c-basic-offset . 4)
   (c-offsets-alist . (
                       (access-label . /)
                       (inextern-lang . 0)
                       (innamespace . 0)
                       (member-init-intro . ++)
                       ))))

c-basic-offset设置为 4，(access-label . /)为访问标签添加 2 个空格的负缩进。这是我对您的示例代码的缩进模式的实际结果。

class A
{
    // I ALWAYS use access labels in classes

  public: // access-label
    int member; // inclass
};

struct B
{
    // I NEVER use access labels in structs

    int member; // inclass
};

我推荐这种模式，因为成员变量/结构成员的缩进级别是一致的。FWIW，Google C Style遵循相同的方法。

据我所知，无法区分类成员或结构成员（inclasssytax 元素）。您可以使用M-x c-syntactic-information-on-region对区域进行句法分析。对您的示例进行的一项此类分析得出以下结果。从输出中，没有什么可以区分您是在类还是结构中。

class A                                 // ((topmost-intro 1))
{                                       // ((class-open 1))
                                        // ((inclass 64) (topmost-intro 64) (comment-intro))I ALWAYS use access labels in classes
                                        // ((inclass 64) (topmost-intro 64))
  public:                               // ((inclass 64) (access-label 64))access-label
    int member;                         // ((inclass 64) (topmost-intro 64))inclass
};                                      // ((class-close 1))
                                        // ((topmost-intro 503))
struct B                                // ((topmost-intro 503))
{                                       // ((class-open 629))
                                        // ((inclass 694) (topmost-intro 694) (comment-intro))I NEVER use access labels in structs
                                        // ((inclass 694) (topmost-intro 694))
    int member;                         // ((inclass 694) (topmost-intro 694))inclass
};                                      // ((class-close 629))
于 2013-02-07T09:53:01.053 回答
2

根据上面 Praveen Kumar 的回答，我实现了一个稍微不同版本的自定义排队功能：

(defun my-c-lineup-inclass (langelem)
  (let ((inclass (assoc 'inclass c-syntactic-context)))
    (save-excursion
      (c-beginning-of-defun) ; This sees the correct string.
      (if (or (looking-at "struct")
              (looking-at "typedef struct"))
          '+
        '++))))

; In particular, the following offsets need to be specified:
(c-set-offset 'access-label '-)
(c-set-offset 'inclass 'my-c-lineup-inclass)
; ...

如果大括号在下一行，则原始代码不起作用，即

struct foo
{
        int bar;
};

仍然会缩进到“ ++”。

免责声明：我不知道任何 Lisp。我只是玩了一下，这对我有用。例如，我不知道是否存在与此相关的任何性能问题。

于 2013-09-03T20:57:55.420 回答
0

我项目的编码标准现在需要这种缩进。像 Arkadiy 一样，我更喜欢尊重访问标签的解决方案。这就是我想出的：

(defun indent-after-access-label (langelem)
  "Return the appropriate indent for a class or a struct."
  (save-excursion
    (save-match-data
      ;; Optimization to avoid at least a few calls to re-search-backward.
      (if (assoc 'access-label c-syntactic-context)
          '++
        (if (re-search-backward "\\(?:p\\(?:ublic\\|r\\(?:otected\\|ivate\\)\\)\\)" c-langelem-pos langelem) t)
            '++
          '+)))))

如前所述，indent-after-acess-label符号需要设置为inclass（通过c-set-offset或c-offset-alist等）的缩进。

由于 ，这并不理想re-search-backward，但它确实有效。

于 2013-07-24T18:28:11.670 回答