string - 如何在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

不，没有现有的emacs lisp例程可以执行您想要的操作。 (通过emacs lisp info和emacs info进行的标准搜索支持此功能)。