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: How to get all paragraphs in list? Date: Mon, 05 Sep 2022 07:15:50 +0300 Message-ID: Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="40952"; mail-complaints-to="usenet@ciao.gmane.io" To: Help GNU Emacs Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Mon Sep 05 06:17:54 2022 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 1oV3YX-000AUX-RX for geh-help-gnu-emacs@m.gmane-mx.org; Mon, 05 Sep 2022 06:17:53 +0200 Original-Received: from localhost ([::1]:57954 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oV3YT-0005d9-V7 for geh-help-gnu-emacs@m.gmane-mx.org; Mon, 05 Sep 2022 00:17:52 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:40296) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oV3Xc-0005bO-9U for help-gnu-emacs@gnu.org; Mon, 05 Sep 2022 00:16:56 -0400 Original-Received: from stw1.rcdrun.com ([217.170.207.13]:35261) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oV3Xa-0002ik-Bq for help-gnu-emacs@gnu.org; Mon, 05 Sep 2022 00:16:55 -0400 Original-Received: from localhost ([::ffff:154.225.223.115]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 00000000000B5B12.0000000063157811.00004B71; Sun, 04 Sep 2022 21:16:16 -0700 Received-SPF: pass client-ip=217.170.207.13; envelope-from=support1@rcdrun.com; helo=stw1.rcdrun.com 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.25, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 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:139245 Archived-At: I would like to get all paragraphs in a list, even if paragraphs are separated by two or more spaces, I would still like those spaces. Purpose of doing it is joining lines of such paragraph as to paste it into website pages or chats. Wrapped lines do not look nice when pasted. Starting function to join lines is this one: (defun join-lines () "Joins lines of a paragraph of 100000 chars." (interactive) (let ((old fill-column)) (setq fill-column 100000) (fill-paragraph nil) (setq fill-column old))) My starting point to get all paragraphs could be in this function: (defun sort-paragraphs (reverse beg end) "Sort paragraphs in region alphabetically; argument means descending order. Called from a program, there are three arguments: REVERSE (non-nil means reverse order), BEG and END (region to sort). The variable `sort-fold-case' determines whether alphabetic case affects the sort order." (interactive "P\nr") (save-excursion (save-restriction (narrow-to-region beg end) (goto-char (point-min)) (sort-subr reverse (lambda () (while (and (not (eobp)) (looking-at paragraph-separate)) (forward-line 1))) (lambda () (forward-paragraph) ;; If the buffer doesn't end with a newline, add a ;; newline to avoid having paragraphs being ;; concatenated after sorting. (when (and (eobp) (not (bolp))) (insert "\n"))))))) Is there any existing way to fetch all paragraphs (separated by two or more spaces) in the list? Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/