diff options
author | Kyle Meyer <kyle@kyleam.com> | 2014-01-26 02:00:22 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2014-01-26 02:00:22 -0500 |
commit | 4bcfb672357b5840249c72b28cb860001c4e3967 (patch) | |
tree | 13e236eaccfdf6985e576f3b07bdec937f2f7955 /lisp/init-text.el | |
parent | 7869360008d87ca4b459c703f4894625dd8181cc (diff) | |
download | emacs.d-4bcfb672357b5840249c72b28cb860001c4e3967.tar.gz |
Reorganize and use require-package
`require-package' is from
https://github.com/purcell/emacs.d/blob/master/lisp/init-elpa.el.
Diffstat (limited to 'lisp/init-text.el')
-rw-r--r-- | lisp/init-text.el | 32 |
1 files changed, 32 insertions, 0 deletions
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) |