Ghostscript生成Postscript代码缩进设置及Emacs ps-mode缩进方法咨询

其实Ghostscript本身没有内置的选项来对生成的PostScript代码进行缩进处理——它的设计初衷是生成机器能高效解析的PS代码，而非优先考虑人类可读性。

不过你可以通过这些间接方式实现代码格式化：

• 用专门的PostScript格式化工具，比如pspp（PostScript Pretty Printer），这类工具能识别PS的语法结构（比如begin/end、括号层级），自动给代码加上缩进。
• 自己写个简单脚本处理：比如用Python或Shell脚本，根据PS里的关键字（像def、begin、end）来判断层级，添加对应的缩进，处理起来也不算复杂。

ps-mode默认确实没有自带完善的自动缩进功能，但咱们可以通过配置来搞定：

1. 自定义缩进函数：
   你可以写个简单的缩进函数，根据PostScript的语法规则计算缩进量。比如遇到begin、{就加缩进，遇到end、}就减缩进。把下面这段代码加到你的Emacs配置文件（~/.emacs或者~/.emacs.d/init.el）里就行：

   (defun my-ps-indent-line ()
     "Custom indentation for PostScript mode."
     (interactive)
     (let ((indent-level 4)
           (current-indent 0)
           (point (point)))
       ;; 向上查找影响缩进的关键字
       (save-excursion
         (while (not (bobp))
           (forward-line -1)
           (cond
            ((looking-at "\\s-*end") (setq current-indent (- current-indent indent-level)))
            ((looking-at "\\s-*begin") (setq current-indent (+ current-indent indent-level)))
            ((looking-at "\\s-*}") (setq current-indent (- current-indent indent-level)))
            ((looking-at "\\s-*{") (setq current-indent (+ current-indent indent-level))))))
       ;; 确保缩进不会是负数
       (indent-line-to (max 0 current-indent))))
   
   (add-hook 'ps-mode-hook (lambda ()
                             (setq indent-line-function 'my-ps-indent-line)
                             (setq tab-width 4)))
   

   配置好之后，在ps-mode里选中代码块，用M-x indent-region就能批量缩进；按Tab键也能缩进当前行。

2. 试试第三方包：
   你可以去MELPA上找找有没有针对ps-mode的缩进增强包，不过这类资源不算多，上面的自定义函数基本就能满足日常需求了。

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