unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* same data appears twice, interactive then function body
@ 2020-12-16  1:23 Emanuel Berg via Users list for the GNU Emacs text editor
  2020-12-16  2:44 ` Stefan Monnier
  0 siblings, 1 reply; 15+ messages in thread
From: Emanuel Berg via Users list for the GNU Emacs text editor @ 2020-12-16  1:23 UTC (permalink / raw)
  To: help-gnu-emacs

Check out this code, how do you avoid having 80 appear twice?

(defun insert-string-centered (string &optional width)
  (interactive
   (list (read-from-minibuffer "string: ")
         (string-to-number (read-from-minibuffer "width [80]: "))) )
  (let*((max         (if (< 0 width) width 80))
        (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




^ permalink raw reply	[flat|nested] 15+ messages in thread

end of thread, other threads:[~2020-12-20  4:45 UTC | newest]

Thread overview: 15+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-12-16  1:23 same data appears twice, interactive then function body Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-16  2:44 ` Stefan Monnier
2020-12-16  4:02   ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-16  4:16     ` 2QdxY4RzWzUUiLuE
2020-12-16  4:31       ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-16  4:36         ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-16  4:16     ` Jean Louis
2020-12-16  4:32       ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-16  4:43         ` Yuri Khan
2020-12-16  5:19           ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-18 14:50             ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-12-18 16:35               ` Drew Adams
2020-12-18 18:15                 ` Jean Louis
2020-12-18 18:09               ` Jean Louis
2020-12-20  4:45                 ` Emanuel Berg via Users list for the GNU Emacs text editor

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).