From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Doyley, Marvin M." Subject: Fwd: Converting paragraph to plain lis Date: Wed, 16 Dec 2015 14:15:42 +0000 Message-ID: References: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="_000_B6C0FC2E9E4944E5944719E0EFB5F009urrochesteredu_" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50908) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a9EK0-0001YA-0h for emacs-orgmode@gnu.org; Wed, 16 Dec 2015 10:48:57 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1a9EJw-0006Al-Fh for emacs-orgmode@gnu.org; Wed, 16 Dec 2015 10:48:55 -0500 Received: from mail-bn1bn0108.outbound.protection.outlook.com ([157.56.110.108]:55808 helo=na01-bn1-obe.outbound.protection.outlook.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a9EJv-0006AX-RZ for emacs-orgmode@gnu.org; Wed, 16 Dec 2015 10:48:52 -0500 Content-Language: en-US List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: "emacs-orgmode@gnu.org" --_000_B6C0FC2E9E4944E5944719E0EFB5F009urrochesteredu_ Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable Hi John, I really appreciate this. Cheers, M --- Begin forwarded message: From: John Kitchin = > Date: December 16, 2015 at 6:38:51 AM EST To: marvin doyley > Cc: emacs-orgmode@gnu.org Subject: Re: [O] Converting paragraph to plain lis Here is a solution that works on your paragraph. #+BEGIN_SRC emacs-lisp (defun explode-paragraph () (interactive) (let (start end) ;; narrow to paragraph (backward-paragraph) (forward-line) (setq start (point)) (forward-paragraph) (previous-line) (setq end (point)) ;; now move by sentence, insert number and \n. at the end go to beginnin= g ;; insert a number and use C-cC-c to renumber the list. (save-restriction (narrow-to-region start end) (goto-char (point-min)) (while (< (point) (point-max)) (forward-sentence) (insert "\n1. ")) (goto-char (point-min)) (insert "1. ") (org-ctrl-c-ctrl-c)))) (defun unfill-paragraph () "Unfill paragraph at or after point." (interactive "*") (let ((fill-column most-positive-fixnum)) (fill-paragraph nil (region-active-p)))) (defun list-to-paragraph () "Convert list at point to a paragraph." (interactive) ;; make sure we are at the beginning of the list (beginning-of-line) (let ((element (org-element-context)) contents) (when (eq 'item (car element)) (setq element (org-element-property :parent (org-element-context))) (goto-char (org-element-property :begin element))) ;; collect each sentence, minus the numbers. (setq contents (loop for node in (org-element-property :structure element) collect ;; remove number and space (replace-regexp-in-string (regexp-quote (nth 2 node)) "" (buffer-substring (nth 0 node) (nth 6 node))))) ;; replace the list, and then unfill the paragraph. (setf (buffer-substring (org-element-property :begin element) (- (org-element-property :end element) 1)) (mapconcat 'identity contents "")) (goto-char (org-element-property :begin element)) (unfill-paragraph))) #+END_SRC marvin doyley writes: Hi there, Does anybody know how to convert a paragraph to a plain list, and vice vers= a. For example, I would like to convert Lorem ipsum dolor sit amet, consectetur adipiscing elit. Suspendisse viverr= a consectetur euismod. Donec non tempor turpis. to 1. Lorem ipsum dolor sit amet, consectetur adipiscing elit. 2. Suspendisse viverra consectetur euismod. 3. Donec non tempor turpis. In one key stroke, this would speed up my brain storming process. Thanks, M -- Professor John Kitchin Doherty Hall A207F Department of Chemical Engineering Carnegie Mellon University Pittsburgh, PA 15213 412-268-7803 @johnkitchin http://kitchingroup.cheme.cmu.edu --_000_B6C0FC2E9E4944E5944719E0EFB5F009urrochesteredu_ Content-Type: text/html; charset="us-ascii" Content-ID: <2FDF366FB5A843479DBA64602A3FEC6E@namprd07.prod.outlook.com> Content-Transfer-Encoding: quoted-printable Hi John,
I really appreciate this.
Cheers,
M
---





Begin forwarded message:

From: John Kitchin <jkitchin@andrew.cmu.edu>
Date: December 16, 2015 at 6:38:51 AM EST
To: marvin doyley <marvinpas@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: [O] Converting paragr= aph to plain lis

Here is a solution that works on your paragraph.

#+BEGIN_SRC emacs-lisp
(defun explode-paragraph ()
 (interactive)
 (let (start end)
   ;; narrow to paragraph
   (backward-paragraph) (forward-line)
   (setq start (point))
   (forward-paragraph) (previous-line)
   (setq end (point))

   ;; now move by sentence, insert number and \n. at the end= go to beginning
   ;; insert a number and use C-cC-c to renumber the list.    (save-restriction
     (narrow-to-region start end)
     (goto-char (point-min))
     (while (< (point) (point-max))
       (forward-sentence)
       (insert "\n1. "))
     (goto-char (point-min))
     (insert "1. ")
     (org-ctrl-c-ctrl-c))))

(defun unfill-paragraph ()
 "Unfill paragraph at or after point."
 (interactive "*")
 (let ((fill-column most-positive-fixnum))
   (fill-paragraph nil (region-active-p))))

(defun list-to-paragraph ()
 "Convert list at point to a paragraph."
 (interactive)
 ;; make sure we are at the beginning of the list
 (beginning-of-line)
 (let ((element (org-element-context))
       contents)
   (when (eq 'item (car element))
     (setq element (org-element-property :parent (= org-element-context)))
     (goto-char
      (org-element-property
       :begin
       element)))
   ;; collect each sentence, minus the numbers.
   (setq contents (loop for node in
            &nb= sp;           (org-e= lement-property :structure element)
            &nb= sp;           collec= t
            &nb= sp;           ;; rem= ove number and space
            &nb= sp;           (repla= ce-regexp-in-string
            &nb= sp;            = (regexp-quote (nth 2 node)) ""
            &nb= sp;            = (buffer-substring (nth 0 node)
            &nb= sp;            =             &nb= sp;     (nth 6 node)))))
   ;; replace the list, and then unfill the paragraph.
   (setf (buffer-substring (org-element-property :begin elem= ent)
            &nb= sp;            =   (- (org-element-property :end element) 1))
         (mapconcat 'identity = contents ""))
   (goto-char (org-element-property :begin element))
   (unfill-paragraph)))
#+END_SRC

marvin doyley writes:

Hi there,

Does anybody know how to convert a paragraph to a plain list, and vice vers= a. For example, I would like to convert

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Suspendisse viverr= a consectetur euismod. Donec non tempor turpis.

to

1. Lorem ipsum dolor sit amet, consectetur adipiscing elit.
2.  Suspendisse viverra consectetur euismod.
3.  Donec non tempor turpis.

In one key stroke, this would speed up my brain storming process.

Thanks,
M

--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingrou= p.cheme.cmu.edu

--_000_B6C0FC2E9E4944E5944719E0EFB5F009urrochesteredu_--