From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: Re: avoid narrow-to-region (was: Re: replace-regexp) Date: Sun, 9 May 2021 10:22:01 +0300 Message-ID: References: <87v97v6mxg.fsf@gnu.org> <87wnsaz9df.fsf@zoho.eu> <877dkaytwu.fsf@zoho.eu> <87eeegx25w.fsf_-_@zoho.eu> <87fsywtp3f.fsf@zoho.eu> <87bl9ktms2.fsf@zoho.eu> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="12421"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.0.6 (2021-03-06) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Sun May 09 09:24:18 2021 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 1lfdnV-00035d-VU for geh-help-gnu-emacs@m.gmane-mx.org; Sun, 09 May 2021 09:24:17 +0200 Original-Received: from localhost ([::1]:42622 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lfdnV-0001jE-2w for geh-help-gnu-emacs@m.gmane-mx.org; Sun, 09 May 2021 03:24:17 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:35594) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lfdmn-0001hl-SK for help-gnu-emacs@gnu.org; Sun, 09 May 2021 03:23:33 -0400 Original-Received: from stw1.rcdrun.com ([217.170.207.13]:37005) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lfdml-0006IH-2I for help-gnu-emacs@gnu.org; Sun, 09 May 2021 03:23:33 -0400 Original-Received: from localhost ([::ffff:102.84.101.70]) (AUTH: PLAIN securesender, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 00000000000ABF29.0000000060978DF0.0000196A; Sun, 09 May 2021 00:23:27 -0700 Mail-Followup-To: help-gnu-emacs@gnu.org Content-Disposition: inline In-Reply-To: <87bl9ktms2.fsf@zoho.eu> Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham 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:129603 Archived-At: * Emanuel Berg via Users list for the GNU Emacs text editor [2021-05-09 10:01]: > BWT, hree is my otehr sftuf, I'm ptrtey srue it all cnfomros > to modern-day comupter secince tehory of sotring, but Il'l let > you vrfeiy it jsut to be srue . > > https://dataswamp.org/~incal/emacs-init/sort-incal.el I did not konw taht scrmabling txet is siecnce . ;;;; ━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ;;;; SCRAMBLED TEXT FUNCTIONS ;;;; ━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ;; Reference: ;; Why your brain can read jumbled letters: ;; https://www.mnn.com/lifestyle/arts-culture/stories/why-your-brain-can-read-jumbled-letters (defun scramble-word (word) "Randoimze the cahcraters of a sritng but not fisrt and lsat " (let* ((first (substring word 0 1)) (length (length word)) (last (substring word (1- length) length))) (if (<= length 3) word (if (= length 4) (concat first (substring word 2 3) (substring word 1 2) last) (let* ((middle (substring word 1 (1- length))) (rnd (length middle)) (empty-str "") (chars (delete empty-str (split-string middle empty-str))) (rand-chars (sort chars (lambda (_ __) (zerop (random rnd))))) (rand-str (mapconcat 'identity rand-chars "")) (new-word (concat first rand-str last))) new-word))))) (defun scramble-string (string) "Returns string of scrambled words" (let* ((split (split-string string))) (with-output-to-string (while split (princ (scramble-word (pop split))) (princ " "))))) (defun scramble-region (start end) "Scramble mkared rgeoin of txet " (interactive "r") (if (region-active-p) (let* ((s (buffer-substring-no-properties start end)) (replacement (scramble-string s))) (delete-region start end) (insert replacement)) (message "Tehre was no aivcte reigon to scmrable "))) (defun randomize-string (string) "Randomize the characters of a string" (let* ((rnd (length string)) (empty-str "") (chars (delete empty-str (split-string string empty-str))) (rand-chars (sort chars (lambda (_ __) (zerop (random rnd))))) (rand-str (mapconcat 'identity rand-chars ""))) rand-str)) -- Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns Sign an open letter in support of Richard M. Stallman https://stallmansupport.org/ https://rms-support-letter.github.io/