Re: same data appears twice, interactive then function body

[Emanuel Berg]

(defun insert-string-center (string &optional width)
  (interactive
   (list (read-from-minibuffer "string: ")
         (string-to-number (read-from-minibuffer (format "width [%s]: " 
(window-text-width))))) )
  (let*((max         (if (< 0 width) width (window-text-width)))
        (str-len     (length string))
        (padding     (+ (/ (- max str-len) 2) (if (= 0 (mod str-len 2)) 1 0)))
        (padding-str (make-string padding ?\s)) )
    (insert padding-str string) ))

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal