A tiny and stupid function I use for section headers in my elisp code

gistfile1.el

(defun elisp-header (len text)
  (interactive "p\nsHeader: ")
  (let* ((total-len (if (< len 10) 80 len))
         (text-len (length text))
         (bar-len (/ (- total-len (+ 2 text-len)) 2))
         (left-len (- total-len (+ (* 2 bar-len) 2 text-len)))
         (inserter (lambda (len) (dotimes (i len) (insert ";")))))
    (funcall inserter bar-len)
    (insert (concat " " text " "))
    (funcall inserter bar-len)
    (if (> left-len 0) (funcall inserter left-len))))