emacs: выравниваемая строка с символом

Question

Есть ли команда emacs, чтобы дополнить строку символом?В частности, я хотел бы иметь возможность взять

;; Foobar

и получить

;; ===================================Foobar====================================

, где Foobar центрирован в поле шириной 77. Для ясности я вывел результат вышечерез код питона ";; {:=^77}".format("Foobar").

Answer 1

Я не знаю ни одной существующей функции для этого, но ее легко написать:

(defun center-string-in-char (str len char)
  (store-substring (make-string len char) (/ (- len (length str)) 2) str))

Теперь (center-string-in-char "Foobar" 77 ?=) создает строку примера (минус начальная ";; ", которую вы можете добавить самостоятельно).