1 files changed, 10 insertions, 0 deletions

@@ -309,6 +309,16 @@ With a prefix argument, run git pull on the repo first."
 
 ;;; Specialized functions
 
+(defun acdw/copy-region-plain (start end)
+  "Copy a region to clipboard, removing all Org formatting."
+  (interactive "*r")
+  (let ((s (buffer-substring-no-properties start end)))
+    (with-temp-buffer
+      (insert s)
+      (let ((sentence-end-double-space nil))
+        (unfill-region (point-min) (point-max)))
+      (copy-region-as-kill (point-min) (point-max)))))
+
 (defun acdw/dir (&optional file make-directory)
   "Place Emacs files in one place.