From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Emanuel Berg via Users list for the GNU Emacs text editor Newsgroups: gmane.emacs.help Subject: Re: same data appears twice, interactive then function body Date: Fri, 18 Dec 2020 15:50:14 +0100 Message-ID: <87bler1849.fsf@zoho.eu> References: <87y2hya6i1.fsf@zoho.eu> <87tusm9z4z.fsf@zoho.eu> <87wnxi8j6h.fsf@zoho.eu> <87k0ti8gzy.fsf@zoho.eu> Reply-To: Emanuel Berg Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="22470"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) To: help-gnu-emacs@gnu.org Cancel-Lock: sha1:Vcn4pwBrTFf1MQo076a7NotQK2E= Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Fri Dec 18 15:51:05 2020 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1kqH61-0005kp-Gi for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 18 Dec 2020 15:51:05 +0100 Original-Received: from localhost ([::1]:59278 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kqH60-00032V-Ip for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 18 Dec 2020 09:51:04 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:45410) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kqH5Q-0002kz-Pu for help-gnu-emacs@gnu.org; Fri, 18 Dec 2020 09:50:28 -0500 Original-Received: from ciao.gmane.io ([116.202.254.214]:54586) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kqH5O-0005Fi-LR for help-gnu-emacs@gnu.org; Fri, 18 Dec 2020 09:50:28 -0500 Original-Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1kqH5K-0004ty-Hh for help-gnu-emacs@gnu.org; Fri, 18 Dec 2020 15:50:22 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Mail-Copies-To: never Received-SPF: pass client-ip=116.202.254.214; envelope-from=geh-help-gnu-emacs@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:126505 Archived-At: Technologist Adams was kind enough to write me a private mail telling me my function `insert-string-centered' didn't work when used from Lisp. Well, that's what I think anyway, since I received it in my mailbox with no reference in the headers to either gmane.emacs.help or help-gnu-emacs@gnu.org, and it doesn't seem to be anywhere else to be found, either! Probably, he wanted to save me from being all embarrassed in from of everyone. Well, that was kind! But no worries! Actually, and to be frank about it, this isn't the first mistake I ever ever made as a programmer... Anyway here is a new version, that God willing will work even under such severe circumstances... (defun insert-string-centered (str &optional width) (interactive (list (read-from-minibuffer "string: ") (string-to-number (read-from-minibuffer "width [window]: " )) )) (let*((span (if (and width (< 0 width)) width (window-text-width))) (str-len (length str)) (pad (- (/ (- span str-len) 2) (if (zerop (mod str-len 2)) 1 0) )) (pad-str (make-string pad ?\s)) ) (insert pad-str str) )) (defalias 'isc #'insert-string-centered) -- underground experts united http://user.it.uu.se/~embe8573 https://dataswamp.org/~incal