emacs - 如何自动对齐以下代码？

Question

get_base_exp(PlayerLv)->
    case PlayerLv of
        1->30;
        2->30;
        3->60;
        4->100;
        5->160;
        6->240;
        7->330;
        8->440;
        9->570;
        10->710;
        11->880;
        12->1060
    end.

到以下：

get_base_exp(PlayerLv)->
    case PlayerLv of
        1  -> 30;
        2  -> 30;
        3  -> 60;
        4  -> 100;
        5  -> 160;
        6  -> 240;
        7  -> 330;
        8  -> 440;
        9  -> 570;
        10 -> 710;
        11 -> 880;
        12 -> 1060
    end.

Answer 1

这是一种方法（我有全局绑定(global-set-key (kbd "C-x \\") 'align-regexp)）：

1. 选择要对齐的 12 条线
2. C-x \ - RET对齐箭头
3. C-x C-x再次选择区域
4. C-u C-x \ \(>\) RET 1 RET 2 RET n对齐箭头后的数字

Answer 2

1. 选择要对齐的线条
2. Mx 对齐正则表达式 RET - RET
3. Mx 对齐正则表达式 [0-9]+; - RET

作为完美缩进和对齐代码的小粉丝，我有一个用于 align-regexp 的键控和另一个用于 align 的键控。

Answer 3

标记 case 表达式并点击C-u C-c C-a(for erlang-align-arrows)。这接近你想要的：

get_base_exp(PlayerLv) ->
    case PlayerLv of
        1  ->30;
        2  ->30;
        3  ->60;
        4  ->100;
        5  ->160;
        6  ->240;
        7  ->330;
        8  ->440;
        9  ->570;
        10 ->710;
        11 ->880;
        12 ->1060
    end.

然后，您可以移动到第一个分数之前，点击C-SPC，移动到最后一个分数之前，然后点击C-x r t(for string-rectangle) 并让它在每一行的该位置插入一个空格。