From: Carsten Dominik <carsten.dominik@gmail.com>
To: Florian Beck <abstraktion@t-online.de>
Cc: emacs-orgmode@gnu.org, mail@christianmoe.com
Subject: Re: Copy/Search Outline
Date: Tue, 26 Jul 2011 11:54:41 +0200 [thread overview]
Message-ID: <7123590C-F698-47FD-997E-CC7DEE3F7170@gmail.com> (raw)
In-Reply-To: <87y5zlcrtn.fsf@sophokles.streitblatt.de>
On Jul 26, 2011, at 11:30 AM, Florian Beck wrote:
> Christian Moe <mail@christianmoe.com> writes:
>
>>> Firstly, I want to copy the *visible* text (minus the …, but never mind
>>> that);
>
>> In other words: Begin exporting only the visible part with `C-c C-e
>> v', then press space at the prompt for output formats. This leaves you
>> in a second buffer with a copy of the visible part (and yes, you do
>> get rid of the ellipses). Then select all with `C-c h' (alternately,
>> select the region of your choice) and copy. Kill the copy buffer when
>> you're done with it.
>
> Thanks. Seems like `org-export-visible' does exactly what I want.
>
> I also wrote a function to copy the visible part of the region. For
> those curious:
>
> (defun copy-visible (beg end)
> (interactive "r")
> (let ((text "") s)
> (save-excursion
> (save-restriction
> (narrow-to-region beg end)
> (setq s (goto-char (point-min)))
> (while (not (= (point) (point-max)))
> (goto-char (org-find-invisible))
> (setq text (concat text (buffer-substring s (point))))
> (setq s (goto-char (org-find-visible))))))
> (kill-new text)))
This is a very useful function, thanks! I have added it
to org-mode as `org-copy-visible', currently without a key
binding.
To speed it up a bit, you made it collect the snippets into
a list and then do the concat in one sweep - this might make a
difference for large buffers.
Cheers
- Carsten
next prev parent reply other threads:[~2011-07-26 9:54 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-07-22 20:20 Copy/Search Outline Florian Beck
2011-07-26 0:53 ` Bastien
2011-07-26 6:35 ` Christian Moe
2011-07-26 6:38 ` Christian Moe
2011-07-26 9:30 ` Florian Beck
2011-07-26 9:54 ` Carsten Dominik [this message]
2011-07-26 10:10 ` Carsten Dominik
2011-07-26 10:56 ` Bastien
2011-07-26 18:54 ` Christian Moe
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=7123590C-F698-47FD-997E-CC7DEE3F7170@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=abstraktion@t-online.de \
--cc=emacs-orgmode@gnu.org \
--cc=mail@christianmoe.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.