tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

contrib/org-eww: Quote leading stars at kill 

* contrib/lisp/org-eww.el (org-eww-copy-for-org-mode): Lines starting
  with '*' get quoted at special kill.

This allows yanking content containing lines starting with a '*' without
changing the outline structure.
This commit is contained in:
Marco Wahl 2015-07-11 12:01:02 +02:00
parent 120dcd1d13
commit 9132a79ec9
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/lisp/org-eww.el
View File

@ -87,7 +87,10 @@ Return t if there is no next link; otherwise, return nil."
"Copy current buffer content or active region with `org-mode' style links.
This will encode `link-title' and `link-location' with
`org-make-link-string', and insert the transformed test into the kill ring,
so that it can be yanked into an Org-mode buffer with links working correctly."
so that it can be yanked into an Org-mode buffer with links working correctly.
Further lines starting with a star get quoted with a comma to keep
the structure of the org file."
(interactive)
(let* ((regionp (org-region-active-p))
(transform-start (point-min))
@ -138,7 +141,13 @@ so that it can be yanked into an Org-mode buffer with links working correctly."
(setq return-content
(concat return-content
(buffer-substring (point) transform-end))))
(org-kill-new return-content)
;; quote lines starting with *
(org-kill-new
(with-temp-buffer
(insert return-content)
(goto-char 0)
(replace-regexp "^\*" ",*")
(buffer-string)))
(message "Transforming links...done, use C-y to insert text into Org-mode file"))))