Emacs ESS中SAS代码缩进问题：自定义do循环与宏定义缩进方式

哈哈，我在ESS里写SAS代码时也吐槽过默认的缩进逻辑，折腾了一阵后找到了几个简便的配置方法，直接改Emacs的ESS变量就能搞定，给你分享下：

方法1：基础缩进调整（快速生效） #

直接在你的Emacs配置文件（比如init.el或者.emacs）里添加以下代码，自定义基础缩进量以及DO循环、宏定义的缩进规则：

;; 设置SAS代码的基础缩进为4个空格（你可以改成自己偏好的数值，比如2）
(setq ess-sas-indent-offset 4)

;; 针对SAS模式单独配置缩进规则
(add-hook 'sas-mode-hook
          (lambda ()
            ;; 让DO块缩进一个基础量，END块回退一个基础量
            (put 'do 'ess-indent-offset ess-sas-indent-offset)
            (put 'end 'ess-indent-offset (- ess-sas-indent-offset))
            ;; 宏定义的%macro和%mend同样遵循这个缩进逻辑
            (put '%macro 'ess-indent-offset ess-sas-indent-offset)
            (put '%mend 'ess-indent-offset (- ess-sas-indent-offset))))

方法2：用use-package管理更整洁（推荐） #

如果你用use-package来管理Emacs配置，可以把SAS缩进的配置整合到ESS的配置块里，看起来更清爽：

(use-package ess
  :ensure t
  :config
  ;; 基础缩进量
  (setq ess-sas-indent-offset 4)
  ;; 批量设置缩进规则
  (add-hook 'sas-mode-hook
            (lambda ()
              (dolist (rule '((do . 4) (end . -4) (%macro . 4) (%mend . -4)))
                (put (car rule) 'ess-indent-offset (cdr rule))))))

进阶：自定义嵌套块的缩进逻辑 #

如果你的代码有多层嵌套的DO循环或者宏里的子块，想要更精准的缩进控制，可以调整ess-indent-alist变量，让缩进基于当前层级计算：

(add-hook 'sas-mode-hook
          (lambda ()
            (setq ess-indent-alist
                  (append ess-indent-alist
                          '((do . (+ ess-sas-indent-offset current-indentation))
                            (end . (- current-indentation ess-sas-indent-offset))
                            (%macro . (+ ess-sas-indent-offset current-indentation))
                            (%mend . (- current-indentation ess-sas-indent-offset)))))))

生效方式 #

配置完之后，要么重启Emacs，要么打开你的配置文件后执行M-x eval-buffer命令，然后重新打开SAS代码文件就能看到效果了。如果还有个别特殊场景的缩进不满意，还可以继续往put或者ess-indent-alist里添加对应的规则，ESS的缩进系统灵活性还是很强的。

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