1 files changed, 70 insertions, 0 deletions
diff --git a/modules/custom-text-enclose.el b/modules/custom-text-enclose.el
new file mode 100644
index 00000000..7c3f2135
--- /dev/null
+++ b/modules/custom-text-enclose.el
@@ -0,0 +1,70 @@
+;;; custom-text-enclose.el ---  -*- coding: utf-8; lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(defun cj/surround-word-or-region ()
+  "Surround the word at point or active region with a string read from the minibuffer."
+  (interactive)
+  (let ((str (read-string "Surround with: "))
+        (regionp (use-region-p)))
+    (save-excursion
+      (if regionp
+          (let ((beg (region-beginning))
+                (end (region-end)))
+            (goto-char end)
+            (insert str)
+            (goto-char beg)
+            (insert str))
+        (if (thing-at-point 'word)
+            (let ((bounds (bounds-of-thing-at-point 'word)))
+              (goto-char (cdr bounds))
+              (insert str)
+              (goto-char (car bounds))
+              (insert str))
+          (message "Can't insert around. No word at point and no region selected."))))))
+
+(defun cj/append-to-lines-in-region-or-buffer (str)
+  "Append STR to the end of each line in the region or entire buffer."
+  (interactive "sEnter string to append: ")
+  (let ((start-pos (if (use-region-p)
+                       (region-beginning)
+                     (point-min)))
+        (end-pos (if (use-region-p)
+                     (region-end)
+                   (point-max))))
+    (save-excursion
+      (goto-char start-pos)
+      (while (< (point) end-pos)
+        (move-end-of-line 1)
+        (insert str)
+        (forward-line 1)))))
+
+(defun cj/prepend-to-lines-in-region-or-buffer (str)
+  "Prepend STR to the beginning of each line in the region or entire buffer."
+  (interactive "sEnter string to prepend: ")
+  (let ((start-pos (if (use-region-p)
+                       (region-beginning)
+                     (point-min)))
+        (end-pos (if (use-region-p)
+                     (region-end)
+                   (point-max))))
+    (save-excursion
+      (goto-char start-pos)
+      (while (< (point) end-pos)
+        (beginning-of-line 1)
+        (insert str)
+        (forward-line 1)))))
+
+;; Surround, append, prepend prefix keymap
+(define-prefix-command 'cj/enclose-map nil
+					   "Keymap for enclosing text: surrounding, appending, and prepending.")
+(define-key cj/custom-keymap "s" 'cj/enclose-map)
+(define-key cj/enclose-map "s" 'cj/surround-word-or-region)
+(define-key cj/enclose-map "a" 'cj/append-to-lines-in-region-or-buffer)
+(define-key cj/enclose-map "p" 'cj/prepend-to-lines-in-region-or-buffer)
+
+(provide 'custom-text-enclose)
+;;; custom-text-enclose.el ends here.