From 4bcfb672357b5840249c72b28cb860001c4e3967 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 26 Jan 2014 02:00:22 -0500
Subject: Reorganize and use require-package

`require-package' is from
https://github.com/purcell/emacs.d/blob/master/lisp/init-elpa.el.
---
 lisp/init-text.el | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 lisp/init-text.el

(limited to 'lisp/init-text.el')

diff --git a/lisp/init-text.el b/lisp/init-text.el
new file mode 100644
index 0000000..275934e
--- /dev/null
+++ b/lisp/init-text.el
@@ -0,0 +1,32 @@
+(require-package 'markdown-mode)
+
+(setq-default fill-column 72)
+
+(add-hook 'text-mode-hook 'turn-on-auto-fill)
+
+(defun km/export-wrapped-text (arg)
+  "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, export is restricted to the region. If ARG
+is non-nil, the region is copied with `x-select-text'."
+  (interactive "P")
+  (let ((wrapped-buffer (get-buffer-create "*Wrapped export*"))
+        beg end)
+    (if (region-active-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)
+      (unfill-paragraph)
+      (forward-line 1))
+    (when arg
+      (x-select-text (buffer-substring-no-properties (point-min) (point-max))))))
+
+(provide 'init-text)
-- 
cgit v1.2.3