如何在 elisp 中将字符串居中？

Question

我想将给定的输入字符串居中对齐到给定的大小，以便生成一个在输入字符串的两侧（左侧和右侧）填充空格的字符串。

我必须执行此操作的代码：

(defun center-string (string size)
  (let* ((padding (/ (- size (length string)) 2))
         (lpad (+ (length string) padding))
         (lformat (format "%%%ds" lpad))
         (rformat (format "%%%ds" (- size))))
    (format rformat (format lformat string))))

以及一些测试用例：

(center-string "KJF" 10)
 => "   KJF    "
(center-string "KF" 10)
 => "    KF    "
(center-string "0123456789" 10)
 => "0123456789"
(center-string "0123456789" 5)
 => "0123456789"       ; Notice justifcation is ignored as input string too large.

是否有现有的 elisp 函数可以执行此操作或更好的方法？

Answer 1

有一个 center-line，它在缓冲区中工作（并使用缓冲区的 fill-column 值作为行长度），所以如果您的目标是产生一个很好的效果格式化文件，你可以这样做

(defun insert-centered (x)
  (insert "\n" x)
  (center-line)
  (insert "\n"))

Answer 2

不，没有现有的 emacs lisp 例程可以完成您想要的操作。 （通过 emacs lisp info 和 emacs info 的标准搜索支持这一点）。