Move marked text into environment

Move marked text into environment

[AW]

Dear list,

would someone help me, being not a programmer, to achieve this:

I get Emails, copy them into an org-file and would like to write down comments 
on single sentences or paragraphs of the text.

I'd like to mark some text in the copied text of the Email inside the org-file 
and get "#+BEGIN_QUOTE" and "END_QUOTE" around the marked region.

I know that I can get the "environment" #+BEGIN / #+END_QUOTE with "<q", but 
that leaves it to me to transfer the text into this environment. 

Orgmode 8.0.1, Emacs 24.3

Thank you in advance!

Alexander

Re: Move marked text into environment

[Thorsten Jolitz]

AW <alexander.willand@t-online.de> writes:

> Dear list,
>
> would someone help me, being not a programmer, to achieve this:
>
> I get Emails, copy them into an org-file and would like to write down comments 
> on single sentences or paragraphs of the text.
>
> I'd like to mark some text in the copied text of the Email inside the org-file 
> and get "#+BEGIN_QUOTE" and "END_QUOTE" around the marked region.
>
> I know that I can get the "environment" #+BEGIN / #+END_QUOTE with "<q", but 
> that leaves it to me to transfer the text into this environment. 
>
> Orgmode 8.0.1, Emacs 24.3

This

,-----------------------------------------------------------
| (defun org-wrap-region-in-quote-block ()
|   "Wrap region in quote block"
|   (interactive)
|   (save-excursion
|     (save-restriction
|       (and
|        (region-active-p)
|        (use-region-p)
|        (narrow-to-region (region-beginning) (region-end)))
|       (goto-char (point-min))
|       (insert "#+BEGIN_QUOTE\n")
|       (goto-char (point-max))
|       (insert "#+END_QUOTE\n"))
|     (deactivate-mark)))
`-----------------------------------------------------------

does the job - wrap text (marked as region) into a quote block.

Not sure if there is such a function in Org-mode already, it might well
be ...

-- 
cheers,
Thorsten

Re: Move marked text into environment

[Thorsten Jolitz]

Thorsten Jolitz <tjolitz@gmail.com> writes:

PS
There was one wrong paren, better use this one instead:

,-----------------------------------------------------------
| (defun org-wrap-region-in-quote-block ()
|   "Wrap region in quote block"
|   (interactive)
|   (save-excursion
|     (save-restriction
|       (and
|        (region-active-p)
|        (use-region-p)
|        (narrow-to-region (region-beginning) (region-end)))
|        (goto-char (point-min))
|        (insert "#+BEGIN_QUOTE\n")
|        (goto-char (point-max))
|        (insert "#+END_QUOTE\n")
|        (deactivate-mark))))
`-----------------------------------------------------------

-- 
cheers,
Thorsten

Re: Move marked text into environment

[AW]

Am Dienstag, 28. Mai 2013, 18:06:54 schrieb Thorsten Jolitz:
> Thorsten Jolitz <tjolitz@gmail.com> writes:
> 
> PS
> There was one wrong paren, better use this one instead:
> 
> ,-----------------------------------------------------------
> 
> | (defun org-wrap-region-in-quote-block ()
> | 
> |   "Wrap region in quote block"
> |   (interactive)
> |   (save-excursion
> |   
> |     (save-restriction
> |     
> |       (and
> |       
> |        (region-active-p)
> |        (use-region-p)
> |        (narrow-to-region (region-beginning) (region-end)))
> |        (goto-char (point-min))
> |        (insert "#+BEGIN_QUOTE\n")
> |        (goto-char (point-max))
> |        (insert "#+END_QUOTE\n")
> |        (deactivate-mark))))
> 
> `-----------------------------------------------------------

Thank you very much!  Works perfectly. 

Cheerio, 

Alexander