Emacs Verilog模式下括号完美对齐配置求助

我之前在Emacs的Verilog模式里也踩过括号对齐的坑，折腾了好一阵才找到合适的解决办法，给你几个实用的方案：

1. 调整Verilog模式的内置对齐变量 #

Emacs的Verilog模式自带了一系列控制括号、关键字周围空格的变量，直接在你的配置文件（~/.emacs或者~/.emacs.d/init.el）里添加以下配置就能快速调整：

• 控制if/for这类关键字和左括号之间的空格：

  ; 想要关键字和括号紧挨着（比如 if(f);），设为0
  (setq verilog-keyword-indent 0)
  ; 想要关键字和括号之间留一个空格（比如 if (f);），设为1
  ; (setq verilog-keyword-indent 1)
  

• 控制括号内部的空格（比如括号和表达式之间的间距）：

  ; 想要括号和表达式紧挨着（比如 (f)），设为0
  (setq verilog-paren-indent 0)
  ; 想要括号内前后各留一个空格（比如 ( f )），设为1
  ; (setq verilog-paren-indent 1)
  

• 针对for循环的多表达式对齐，还可以调整这个变量让分号分隔的内容对齐到同一列：

  (setq verilog-for-indent 4)
  

添加完配置后，重启Emacs或者执行M-x eval-buffer让配置生效，再选中代码块执行M-x indent-region就能看到效果了。

2. 开启electric-pair-mode辅助自动对齐 #

如果需要输入括号时自动调整空格，开启electric-pair-mode会很方便——它能自动补全配对括号，还会根据你的配置自动调整周围的空格：

(add-hook 'verilog-mode-hook #'electric-pair-mode)

开启后，输入左括号时会自动补全右括号，同时帮你处理括号前后的多余空格，避免手动调整的麻烦。

3. 自定义对齐函数（进阶方案） #

如果上面的内置配置还达不到你想要的效果，可以自己写一个简单的对齐函数，绑定到快捷键上专门处理Verilog的括号对齐：

(defun my-verilog-align-paren ()
  "自定义Verilog语句的括号对齐逻辑，针对if/for等关键字"
  (interactive)
  (save-excursion
    ; 定位到关键字和左括号的位置
    (search-backward-regexp "\\(if\\|for\\)\\s-*(")
    ; 让关键字和左括号之间保留一个空格
    (replace-match "\\1 (" nil nil)
    ; 处理括号内部的多余空格
    (search-forward "(")
    (while (not (looking-at ")"))
      (when (looking-at "\\s-+")
        (delete-horizontal-space))
      (forward-char))
    (backward-char)
    (when (looking-at "\\s-+")
      (delete-horizontal-space))))

; 绑定到Ctrl+Alt+P快捷键，方便随时调用
(add-hook 'verilog-mode-hook
          (lambda ()
            (local-set-key (kbd "C-M-p") #'my-verilog-align-paren)))

这个函数会把类似for ( int k = 1; k < 5; k ++ );的代码自动调整成for (int k = 1; k < 5; k++);，你可以根据自己的习惯修改函数里的空格处理逻辑。

内容的提问来源于stack exchange，提问作者George