From 13c91ede13ff41869390092c4d6bd9d80d7e2eae Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 4 Jan 2016 21:55:10 -0500
Subject: export-wrapped-text: Clean up

---
 lisp/init-text.el | 37 ++++++++++++++++++-------------------
 1 file changed, 18 insertions(+), 19 deletions(-)

(limited to 'lisp')

diff --git a/lisp/init-text.el b/lisp/init-text.el
index c4fbecc..6ee95ac 100644
--- a/lisp/init-text.el
+++ b/lisp/init-text.el
@@ -1,31 +1,30 @@
 
 (add-hook 'text-mode-hook 'turn-on-auto-fill)
 
-(defun km/export-wrapped-text (arg)
+(defun km/export-wrapped-text (&optional xselect)
   "Export the text in current buffer as wrapped text.
 
 This is useful for preparing text in emacs and then exporting to
 a wrapped buffer for pasting text (e.g., into a web form).
 
-If region is active, restrict export to the region. If ARG is
-non-nil, copy the region with `x-select-text'."
+With an active region, restrict export to this region.  If
+XSELECT is non-nil, copy the region with `x-select-text'."
   (interactive "P")
-  (let ((wrapped-buffer (get-buffer-create "*Wrapped export*"))
-        beg end)
-    (if (use-region-p)
-        (progn (setq beg (region-beginning))
-               (setq end (region-end)))
-      (setq beg (point-min))
-      (setq end (point-max)))
-    (copy-to-buffer wrapped-buffer beg end)
-    (switch-to-buffer-other-window wrapped-buffer)
-    (while (not (eobp))
-      (forward-paragraph)
-      (forward-line -1)
-      (km/unfill-paragraph)
-      (forward-line 1))
-    (when arg
-      (x-select-text (buffer-substring-no-properties (point-min) (point-max))))))
+  (let ((wrapped-buffer (get-buffer-create "*Wrapped export*")))
+    (apply #'copy-to-buffer wrapped-buffer
+           (if (use-region-p)
+               (list (region-beginning) (region-end))
+             (list (point-min) (point-max))))
+    (with-current-buffer wrapped-buffer
+      (while (not (eobp))
+        (forward-paragraph)
+        (forward-line -1)
+        (km/unfill-paragraph)
+        (forward-line 1))
+      (when xselect
+        (x-select-text
+         (buffer-substring-no-properties (point-min) (point-max)))))
+    (pop-to-buffer wrapped-buffer)))
 
 (defun km/columnify-file (delim)
   "Separate current file on DELIM using column program.
-- 
cgit v1.2.3