emacs: Implement e/split-line

2 files changed, 18 insertions, 0 deletions

diff --git a/.config/emacs/editing.el b/.config/emacs/editing.el
index f635705..951a774 100644
--- a/.config/emacs/editing.el
+++ b/.config/emacs/editing.el
@@ -156,4 +156,21 @@ point."
     (previous-line 2)
     (end-of-line)))
 
+(defun e/split-line (&optional above)
+  "Split the line at point.
+Place the contents after point on a new line, indenting the new line
+according to the current major mode.  With prefix argument ABOVE the
+contents after point are placed on a new line before point."
+  (interactive "P")
+  (save-excursion
+    (let* ((start (point))
+           (end   (pos-eol))
+           (string (buffer-substring start end)))
+      (delete-region start end)
+      (when above
+        (goto-char (1- (pos-bol))))
+      (newline)
+      (insert string)
+      (indent-according-to-mode))))
+
 (provide 'editing)
diff --git a/.config/emacs/modules/mm-keybindings.el b/.config/emacs/modules/mm-keybindings.el
index 2bc0971..c1dee93 100644
--- a/.config/emacs/modules/mm-keybindings.el
+++ b/.config/emacs/modules/mm-keybindings.el
@@ -111,6 +111,7 @@ the first command is remapped to the second command."
   "C-<prior>" #'backward-page
 
   "C-." #'repeat
+  "C-^" #'e/split-line
   "C-/" #'e/mark-line-dwim
 
   "C-c d"   #'duplicate-dwim